如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
Form1的代码：PrivateSubCommand1_Click()UnloadMeForm3.ShowEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSubPrivateSubCommand3_Click()IfMsgBox("确定退出管理系统？",_vbQuestion+vbYesNo+vbDefaultButton2,"警告！")=vbYesThenEndEndIfEndSubPrivateSubPicture1_Click()EndSubPrivateSubTimer1_Timer()Command4.Caption=Time$()EndSubPrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TrueEndSubForm2的代码：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"用户名='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text)))And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseForm4.Text3.Text=Text1.TextUnloadMeForm8.ShowElseMsgBox"非法的账号!",vbOKOnly+vbExclamation,"请重新输入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm1.ShowEndSubPrivateSubForm_Load()Text2.Text=""Text1.Text=""Text2.PasswordChar="*"EndSubPrivateSubPicture1_Click()EndSubForm3的代码：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"用户名='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text)))And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseForm4.Text1.Text=Text1.TextForm4.Text2.Text=Text4.TextUnloadMeForm5.ShowElseMsgBox"非法的账号!",vbOKOnly+vbExclamation,"请重新输入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Option1.Value=FalseOption2.Value=FalseText1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm1.ShowEndSubPrivateSubForm_Load()Text2.Text=""Text1.Text=""Text2.PasswordChar="*"EndSub无代码Form5的代码：PrivateSubcjcx_Click(IndexAsInteger)UnloadMeForm7.ShowEndSubPrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="修改"ThenCommand1.Caption="确认"Adodc2.Recordset.RequeryText5.SetF
立即下载
