Me.Hide£¨Òþ²Øµ±Ç°µÄ´°Ì壩ºÍfrmMain.Show£¨µ÷³öϵͳÖ÷½çÃ棩£¬Èç¹ûÃÜÂëÊäÈë´íÎó£¬ÔòÌáʾ£º
ʹÓû§ÖØÐÂÊäÈëÃÜÂë¡£
UnloadmeÓï¾äµÄ×÷ÓÃÊÇÏÂÔØ´°Ìå¡£
´Ë´°ÌåÉÏcombo¿Ø¼þµÄÖ÷Òª×÷ÓÃÊÇ´ÓÓû§±íÖлñµÃÓû§Ãû£¬ÆäÁбíÏîÖ÷Ҫͨ¹ý´°Ìå¼ÓÔØʱ»ñµÃ¡£³ÌÐòÈçÏ£º
PrivateSubForm_Load()
'¹Ì¶¨´°ÌåÔÚÆÁÄ»ÖÐÑë
left=(Screen.Width-Width)\2
top=(Screen.Height-Height)\2
ResumeNext
ret.MoveFirst
DoWhileNotret.EOF
Combo1.AddItemret("name")
ret.MoveNext
Loop
ret.MoveFirst
Combo1.ListIndex=0
EndSub
ÆäÖÐÊý¾Ý¿âµÄÁ¬½ÓÊÇͨ¹ýÄ£¿émoudel1.basʵÏֵģ¬´úÂëÈçÏ£º
DeclareSubRtlMoveMemoryLib"kernel32"(lpvDestAsAny,lpvSourceAsAny,ByValcbCopyAsLong)
PublicconAsNewADODB.Connection
PublicretAsNewADODB.Recordset
DeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"(ByVallpBufferAsString,nSizeAsLong)AsLong
FunctionsGetComputerName()AsString
DimsBufferAsString
DimlBufSizeAsLong
DimlStatusAsLong
lBufSize=255
sBuffer=String$(lBufSize,"")
lStatus=GetComputerName(sBuffer,lBufSize)
sGetComputerName=""
IflStatus<>0Then
sGetComputerName=left(sBuffer,lBufSize)
EndIf
EndFunction
Submain()
Dimsql1AsString
sql1=App.Path
Ifright(sql1,1)<>"/"Then
sql1=sql1+"/"
EndIf
sql1="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&sql1&"\userdatabase\tsl.mdb"
con.Opensql1
sql1="select*frompasswordtable"
ret.Opensql1,con,adOpenStatic,adLockOptimistic
Ifret.RecordCount=0Then
frmLogin1.Show
Else
frmLogin.Show
EndIf
EndSub
5£®2Ö÷½çÃæ
Ö÷½çÃæÊÇÓò˵¥ÐÎʽºÍ¿ò¼Ü±íÏֵģ¬Èçͼ£º
²Ëµ¥µÄÖÆ×÷¹ý³ÌÈçÏ£º
Ê×ÏÈͨ¹ý"¹¤¾ß"²Ëµ¥ÖеÄ"²Ëµ¥±à¼Æ÷"µ÷³ö²Ëµ¥±à¼Æ÷£¬È»ºó½øÐв˵¥µÄÉèÖã¬ÈçÏÂͼ£º
´Ë¹ý³ÌÖÐҪעÒâ¸÷²Ëµ¥µÄÃû³ÆΨһ£¬ÁíÍ⻹ҪעÒâ²Ëµ¥µÄ¼¶±ð¡£
×îºóÉèÖÃÈçϵĴúÂ루ֻҪµ¥»÷²Ëµ¥¼´¿ÉÉèÖø÷²Ëµ¥´úÂ룩£¬²¿·Ö´úÂëÈçÏÂͼ£º
PrivateSubmnuall_Click()
SSTab1.Tab=2
EndSub
PrivateSubmnuBack_Click()
Data1.Recordset.Close
Data2.Recordset.Close
UnloadfrmAbout
UnloadfrmHelp
UnloadfrmLogin
UnloadfrmLogin1
UnloadfrmTip
UnloadfrmMain
frmBack.Show
EndSub
PrivateSubmnunote_Click()
frmTip.Show
EndSub
PrivateSubmnusigle_Click()
SSTab1.Tab=0
EndSub
PrivateSubmnusup_Click()
SSTab1.Tab=1
EndSub
PrivateSubmnuwf_Click()
frmwf.Show
EndSub
Ö÷ÒªÊÇͨ¹ýShow·½·¨µ÷ÓÃÏàÓ¦µÄ´°Ìå¼°sstabµÄtabÊôÐÔµ÷ÓÃÏàÓ¦µÄÒ³¿ò¡£
SstabµÄ´´½¨·½·¨ÈçÏ£º
µÚÒ»²½½«ËùÐèµÄ¿Ø¼þ·Åµ½´°ÌåµÄÏàӦλÖã»·½·¨£ºÊ×ÏÈÔÚ"¹¤¾ßÏä"ÖÐÑ¡ÖÐËùÐèµÄ¿Ø¼þͼ±ê£¬È»ºóÔÚ±íµ¥µÄÇ¡µ±Î»ÖÃÉϵ¥»÷Êó±ê²¢Í϶¯Êó±ê£¬¼´¿É°ÑÓÉËùÑ¡È¡µÄ¿Ø¼þÉú³ÉµÄ¶ÔÏóÌí¼Óµ½´°ÌåÉÏ¡£ÈçÏÂͼ£º
µÚ¶þ²½£¬Ñ¡Ôñ´°Ìå»ò¿Ø¼þ½øÐÐÊôÐÔÉèÖã¬ÈçͼΪ"SSTAB"µÄÊôÐÔÉèÖýçÃæ:
5£®3µ¥ÈË×ÊÁÏÄ£¿é
1¡¢Á÷³Ìͼ£º
2¡¢ÔËÐнçÃ棺
1£®ÊµÏÖ¹ý³Ì£º
½çÃæµÄ¹¹Ôì·½·¨Í¬5.2£¬Ö÷Òª´úÂëÈçÏ£º
µÄ´úÂëÈçÏ£º
PrivateSubcmdAdd_Click()
Data1.Recordset.AddNew
EndSub
Ö÷Ҫͨ¹ýaddnew·½·¨ÊµÏּǼµÄÔö¼Ó¡£
µÄ´úÂëÈçÏ£º
PrivateSubcmdDelete_Click()
'Èç¹ûɾ³ý¼Ç¼¼¯µÄ×îºóÒ»Ìõ¼Ç¼
'¼Ç¼»ò¼Ç¼¼¯ÖÐΨһµÄ¼Ç¼
DimMsgAsString
Msg="ÊÇ·ñÈ·¶¨ÒªÉ¾³ý¼Ç¼"&Chr$(10)
Msg=Msg
IfMsgBox(Msg,17,"ɾ³ý¼Ç¼£¿")<>1ThenExitSub
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Data2.Refresh
Data1.Refresh
EndSub
Ö÷Ҫͨ¹ýdelete·½·¨ÊµÏּǼµÄɾ³ý¡£
µÄÖ÷Òª´úÂëÈçÏ£º
PrivateSubcmdRefresh_Click()
'Õâ½ö¶Ô¶àÓû§Ó¦ÓóÌÐò²ÅÊÇÐèÒªµÄ
Data1.Refresh
Data2.Refresh
Data1.recordset.update
¡¡Data2.recordset.update
MsgBox"±£´æ³É¹¦£¡",,"Ìáʾ"
EndSub
µÄ´úÂëÈçÏ£º
¡¡PrivateS
ÉÏһƪ£º
vbͨѶ¼¹ÜÀíÐÅϢϵͳvb+accessÔ´´úÂë+¿ÉÖ´ÐгÌÐò+ÂÛÎÄ+¿ªÌⱨ¸æ+ÍâÎÄ·Òë(ÂÛÎĺͳÌÐò)
ÏÂһƪ£º
¶Ô˶ʿ±ÏÒµÉúǨÒÆʧҵĿµÄµØµÄʵ֤ÑÐÌÖ