vb036運(yùn)輸管理系統(tǒng)客運(yùn)清單

1、Form1Private Sub Command1_Click()mname = Text1.Textpass = Text2.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;myrs.Open SELECT * FROM user where (user.user)= + mname + ;, mycn, adOpenKe

2、yset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查無(wú)此人, , 登陸信息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 SubPrivate Sub Command2_Click()EndEnd S

3、ubPrivate Sub Form_DblClick()MsgBox helloEnd SubPrivate Sub Form_Load()Dim mname As StringDim pass As StringEnd SubForm2Private Sub a1_Click()Form3.ShowEnd SubPrivate Sub b_Click()Form5.ShowEnd SubPrivate Sub c_Click()EndEnd SubPrivate Sub Command1_Click()frm1.ShowEnd SubPrivate Sub Command2_Click()

4、frm4.ShowEnd SubPrivate Sub Command3_Click()frm2.ShowEnd SubPrivate Sub Command4_Click()frm3.ShowEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()Form3.ShowEnd SubForm3Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.Delet

5、eEnd SubForm4Private Sub Label2_Click()Form1.ShowEnd SubPrivate Sub Label3_Click()EndEnd Subform5Private Sub Label1_Click()Form5.HideEnd SubFrm1Private Sub Command1_Click()ss = Text1.TextdatPrimaryRS.RecordSource = select * from ywgl_pj where 站點(diǎn)= + ss + datPrimaryRS.RefreshEnd SubPrivate Sub Command

6、2_Click()datPrimaryRS.RecordSource = select * from ywgl_pj datPrimaryRS.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Su

7、b cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.Descriptio

8、nEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubFrm2Private Sub Command1_Click()ss = Text1.TextdatPrimaryRS.RecordSource = select * from spgl wher

9、e 地點(diǎn)= + ss + datPrimaryRS.RefreshEnd SubPrivate Sub Command2_Click()datPrimaryRS.RecordSource = select * from spgldatPrimaryRS.RefreshEnd SubPrivate Sub Form_Resize() On Error Resume Next 當(dāng)窗體調(diào)整時(shí)會(huì)調(diào)整網(wǎng)格 grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 30 - picButtons.HeightEnd SubPrivate Sub

10、 cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.MoveLast grdDataGrid.SetFocus SendKeys down Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr:

11、MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.De

12、scriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubFrm3Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()ss = Text1.TextAdodc1.RecordSource = select * from xbty where 車號(hào)= + ss + Adodc1.RefreshEnd

13、SubPrivate Sub Command4_Click()Adodc1.RecordSource = select * from xbty Adodc1.RefreshEnd SubFrm4Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: Msg