基于ARM的大屏幕LED显示系统的设计 第16页
程序用VB6.0编写，相关程序代码:
SubMain()
DimresAsString
lfAPP.Prevlnstanee=TrueThen
res二MsgBox(，，该程序已在运行!”，vbOKOnly+vbExelamation，”四川人学制造学
!晓”
Efld
EndIf
Rem*********************************************
USer=”.’
t
清空用户名和权限等级
authority=’川
斤rnSPlash.ShoWvbModal
EndSub
界曲二:台法用尸阴登求并圈
相关程序代码:
PrivateSubemdCaneel夕1iek()
UnloadMe
UnloadfrmSPlash
EndSub
Privat。SubemdOK一C1iek()
DimresAsString
Adodel.Reeordset.MoveFirst
，Checktheuser，5legality
WllileNotAdodel.Reeordset.EOF
If、。sel=Trim$(Adodel
.
Reeordset.Fields(1))Then
G01又〕aa
EndIf
Adodel
.
Reeordset.MoveNeXt
W己nd
res=MsgBox(”无效的密码或用户名，请重试!”，vbOKOnly+vberstieal，’.制
院”)
EXitSllb
，Iftheuser15legal，theneheekthePassword，slegalityeorresPondingly
aa
IfTrim(饮tPassword)=Trim$(Adodel.Reeordset.Fields(2))Then
Adodel.Reeordset.UPdate
authority=Adodel.Reeordset.Fields(3)
Load主窗体
Unloadfrn飞Login
Unloadfi.mSPlash
土窗体.Show
EISC
res=MsgBox(”无效的密码或用户名，请重试!”，vboKon一y+vberirieal，”四
学制造学院，今
58
硕士学位论文
饮tPaSSWOrdTeXt=””
饮tPassword.SetFoeus
EndIf
EndSub
PrivateSubCombol_LostFoeus()
use:二Trim$(eombol.几xt)’把用户名赋给全局变量user
EndSub
PrivateSubFolln-LoadO
OnErrorGol’oEx
DilnsSQLAsString
Dim1AsInteger
Adode2.Conneetionstring“”drive二{sqlserver}:serve拼sERVER;database=用户数据
库;UID=sa;PASSWD=I，
ssQL二”select*from用户表orderby记录号”
Adodc1.CommandTyPe=adCmdText
Adodc1.Reeordsource二sSQL
Adodel.Refresh
Adodel.Reeordset.MoveFirst
Fori二1TOAdodel.RecordsCt.ReeordCou以
Combol.Addltem(Adodel.Reeordset.Fields(l))
Adodel.Reeords以.MoveNeXt
NeXti
Combol.Text二”系统管理员”
ExitSub
59
EX
Ifadoerror=TrueThen
cmdOKEnabled=False
Combo1
.
Text=”系统管理员”
EndIf
EndSub
界面二:系统主界面
相关程序代码:
PrivateSubForm_Load()
TOP=(Screen
.
Height一Height)/2
Left=(Screen·Width一Width)/2
TeXtl.TeXt二””
Combol.Text二”宋体”
ComboZ.Text=”16X16”
EndSub
PrivateSubFolActivate()
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页
基于ARM的大屏幕LED显示系统的设计 第16页下载如图片无法显示或论文不完整，请联系qq752018766
