VB运输管理系统-客运清单.docVIP

Form1 Private Sub Command1_Click() mname = Text1.Text pass = Text2.Text Dim mycn As New ADODB.Connection Dim myrs As New ADODB.Recordset Set myrs = New ADODB.Recordset mycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb; myrs.Open SELECT * FROM [user] where (user.user)= + mname + ;, mycn, adOpenKeyset, adLockOptimistic If myrs.BOF = True And myrs.EOF = True Then MsgBox 查无此人, , 登陆信息 Else If myrs(pass) = pass Then MsgBox ok, , 登陆信息 Form2.Show Form4.Label2.Enabled = False Form4.Label2.BackColor = HC0C0C0 Unload Me Else MsgBox 密码不正确, , 登陆信息 End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_DblClick() MsgBox hello End Sub Private Sub Form_Load() Dim mname As String Dim pass As String End Sub Form2 Private Sub a1_Click() Form3.Show End Sub Private Sub b_Click() Form5.Show End Sub Private Sub c_Click() End End Sub Private Sub Command1_Click() frm1.Show End Sub Private Sub Command2_Click() frm4.Show End Sub Private Sub Command3_Click() frm2.Show End Sub Private Sub Command4_Click() frm3.Show End Sub Private Sub Command5_Click() End End Sub Private Sub Command6_Click() Form3.Show End Sub Form3 Private Sub Command1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() Adodc1.Recordset.Delete End Sub Form4 Private Sub Label2_Click() Form1.Show End Sub Private Sub Label3_Click() End End Sub form5 Private Sub Label1_Click() Form5.Hide End Sub Frm1 Private Sub Command1_Click() ss = Text1.Text datPrimaryRS.RecordSource = select * from ywgl_pj where 站点= + ss + datPrimaryRS.Refresh End Sub Private Sub Command2_Click() datPrimaryRS.RecordSource = select * from ywgl_pj datPrimaryRS.Refresh End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: Ms