Private Sub cmdcancel_click()
End
End Sub
Private Sub cmdok_click()
If Txt1.Text = "ABC" And Txt2.Text = "123" Then
Unload 登陆界面
沈阳化工研究院试验厂三车间管理系统.Show
ElseIf Txt1.Text = "" Or Txt2.Text = "" Then
MsgBox "用户名或密码不能为空", , "登陆失败"
Else
MsgBox "用户名或密码错误,请重新输入", , "登陆失败"
End If

End Sub

Private Sub gzbb_Click()
Shell "explorer.exe D:\三车间管理系统\工作流程\纠正和预防\工作报表", vbNormalFocus

End Sub

Private Sub Command2_Click()
Dim hc3 As Double
hc3 = Shell("C:\Program Files\AutoCAD 2004\acad.exe" + " " + """d:\新厂区管理系统\资料\合成车间3\合成车间3.dwg """, 1)

End Sub