各窗体源程序代码为：.DOCVIP

各窗体源程序代码为： Form1： Private Sub Command1_Click() Form1.Hide Form2.Show End Sub Private Sub Command2_Click() Form11.Show Unload Me End Sub Private Sub Form_load() Caption = 管理系统 Picture = LoadPicture(App.Path + \3.jpg) End Sub Form2： Private Sub Command1_Click() Unload Me Form3.Show End Sub Private Sub Command2_Click() Unload Me Form5.Show End Sub Private Sub Command3_Click() Form1.Show Unload Me End Sub Private Sub Form_load() Picture = LoadPicture(App.Path + \3.jpg) End Sub Form3： Private Sub Command1_Click() Dim Mycon2 As New ADODB.Connection Dim Myrs1 As New ADODB.Recordset Mycon2.ConnectionS