社会保障管理系统数据库课程设计任务书社会保障管理系统

2.9 登陆表图沈阳理工大学课程设计专用纸沈阳理工大学 7 3 系统各功能模块的详细设计 3.1 各窗体的设计: 本社会保障管理系统共包括 11 个窗体,分别为登录,注册新用户,养老保险信息查询,失业保险信息查询, MDI 窗体等。其中主窗体为 MDI 窗体。下面介绍各个窗体的设计语句及实现功能。 3.2 登录窗体打开登录界面后,输入用户名和密码,点击登陆按钮,进入 MDI 主窗体,如下图所示 Dim micount As Integer Private mand1_Click() Dim str As String str= "select * from 登陆 where 用户名='" & Text1.Text & "'" Adodc1.RecordSource = str Adodc1.Refresh If Adodc1.Recordset.BOF = True Then MsgBox " 用户名错误, 请重新输入", vbExlamation, " 警告" Text1.Text = "" Text2.Text = "" Text1.SetFocus Else If Adodc1.Recordset.Fields(" 密码")= Text2.Text Then MDIForm1.Show Unload Me MDIForm1.g.Enabled = True MDIForm1.c.Enabled = True Else MsgBox " 密码错误,请重新输入", vbExlamation, " 警告" Text2.Text = "" Text2.SetFocus End If End If micount = micount +1 If micount >= 3 Then Unload Me End Sub Private mand2_Click() Unload Me