汽车零部件查询系统设计说明书(7)

VB的课程设计题

欢迎界面的主要功能是让用户了解程序软件的用途 （2）用户登录界面

用户登录界面的功能是让管理员进入系统，防止非工作人员进入。 用户登录主界面如图5所示

图5登录界面

登录页面主要代码如下：

Dim pers As manager

Private Sub Command1_Click() '登录系统按钮 Static t As Integer f = False

If Text2.Text = "" Or Text1 = "" Then MsgBox "请填写完整的个人信息" End If

If Text2.Text <> "" Then

Open App.Path + "\mag.dat" For Random As #1 n = LOF(1) / Len(pers) Do While Not EOF(1) Get #1, , pers

If Trim(Text2.Text) = Trim(pers.bh) Then