sijimessage_frm.frm

车次查询－输入要查询的车次既可查询车次所有的停靠站 站点查询－输入一个站点

      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "姓 名"
         Height          =   375
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   735
      End
   End
End
Attribute VB_Name = "sijimessage_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义书签，用来记载当前记录位置
Dim mybookmark As Variant
'看是否修改记录
Dim mcclean As Boolean
'用来查询第一条记录
Private Sub Command5_Click()
    Ado.Recordset.Close
    Ado.Recordset.Open "select * from driver_message "
    If Ado.Recordset.EOF Then
        MsgBox "你所输入的车号还没登记"
    Else
       Call viewdata1
    End If
       
End Sub
'上一条记录
Private Sub Command6_Click()
 On Error Resume Next
 Ado.Recordset.MovePrevious
 If Ado.Recordset.BOF Then
    Ado.Recordset.MoveLast
 End If
 Call viewdata1
End Sub

Private Sub Command7_Click()
  '下一条记录
  If Ado.Recordset.EOF Then
     On Error Resume Next
     Ado.Recordset.MoveFirst
  Else
     On Error Resume Next
     Ado.Recordset.MoveNext
      If Ado.Recordset.EOF Then
         Ado.Recordset.MoveFirst
      End If
  End If
  Call viewdata1
  
End Sub
'最后一条记录
Private Sub Command8_Click()
 On Error Resume Next
 Ado.Recordset.MoveLast
  Call viewdata1
  
End Sub

 Public Sub viewdata1()
        Text1.Text = Ado.Recordset.Fields("car_num").value
        Text2.Text = Ado.Recordset.Fields("driver_name").value
        Text3.Text = Ado.Recordset.Fields("driver_sex").value
        Text4.Text = Ado.Recordset.Fields("driver_day").value
        Text5.Text = Ado.Recordset.Fields("driver_add").value
        Text6.Text = Ado.Recordset.Fields("driver_shuo").value
        Text7.Text = Ado.Recordset.Fields("driver_phone").value
End Sub
Private Sub Form_Load()
   
   Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
   Ado.CommandType = adCmdText
   Ado.RecordSource = "select * from driver_message"
   Ado.Refresh
   On Error Resume Next
   Ado.Recordset.MoveFirst
   '显示数据
   Call viewdata
   '记下当前记载记录的位置
   mybookmark = Ado.Recordset.Bookmark
   '结标志赋初值
   mcclean = True
   '使各个文本框无效
   Text1.Enabled = False
   Text2.Enabled = False
   Text3.Enabled = False
   Text4.Enabled = False
   Text5.Enabled = False
   Text6.Enabled = False
   Text7.Enabled = False
   
End Sub
Private Sub Command1_Click()
   
   mcclean = False
   Text1.Enabled = True
   Text2.Enabled = True
   Text3.Enabled = True
   Text4.Enabled = True
   Text5.Enabled = True
   Text6.Enabled = True
   Text7.Enabled = True
   

   
End Sub
 Public Sub viewdata()
  On Error Resume Next
  Text1.Text = Ado.Recordset.Fields(0)
  Text2.Text = Ado.Recordset.Fields(1)
  Text3.Text = Ado.Recordset.Fields(2)
  Text4.Text = Ado.Recordset.Fields(3)
  Text5.Text = Ado.Recordset.Fields(5)
  Text6.Text = Ado.Recordset.Fields(6)
  Text7.Text = Ado.Recordset.Fields(4)
End Sub

Private Sub Command2_Click()
  '看是否处于修改状态
  If mcclean Then
    MsgBox "请先修改公交车信息", vbOKOnly + vbExclamation, "警告"
    Exit Sub
  End If
  '车号是否为空
  If Not testtxt(Text1.Text) Then
    MsgBox "请输入车号", vbOKOnly + vbExclamation, "警告"
    Text1.SetFocus
    Exit Sub
  End If
  '司机姓名是否为空
  If Not testtxt(Text2.Text) Then
       MsgBox "请输入司机性名", vbOKOnly + vbExclamation, "警告"
       Text2.SetFocus
       Exit Sub
  End If
  '司机性别是否为空
  If Not testtxt(Text3.Text) Then
          MsgBox "请输入司机性别", vbOKOnly + vbExclamation, "警告"
          Text3.SetFocus
          Exit Sub
  End If
  '司机的出生日期是否为空
  If Not testtxt(Text4.Text) Then
          MsgBox "请输入司机出生日期", vbOKOnly + vbExclamation, "警告"
          Text4.SetFocus
          Exit Sub
  End If
  '司机家庭地址是否为空
  If Not testtxt(Text5.Text) Then
         MsgBox "请输入司机家庭地址", vbOKOnly + vbExclamation, "警告"
         Text5.SetFocus
         Exit Sub
  End If
  '司机备注是否为空
  If Not testtxt(Text6.Text) Then
         MsgBox "请输入有关司机的祥细说明", vbOKOnly + vbExclamation, "警告"
         Text6.SetFocus
         Exit Sub
  End If
  '司机电话号码是否为空
  If Not testtxt(Text7.Text) Then
         MsgBox "请输入司机的电话号码", vbOKOnly + vbExclamation, "警告"
         Text6.SetFocus
         Exit Sub
  End If
  
  Ado.Recordset.Close
  Ado.Recordset.Open "select * from driver_message where driver_name='" & Trim(Text2.Text) & " '"
  '看是否有重复记录
  If Ado.Recordset.EOF Then
     MsgBox "存在相同的司机姓名！", vbOKOnly + vbExclamation, "警告"
     Ado.Recordset.Close
     On Error Resume Next
     Text2.SetFocus
  Else
     Ado.Recordset.Close
 End If
     
     Ado.Recordset.Open "select * from driver_message"
     Ado.Recordset.AddNew
     Ado.Recordset.Fields(0) = Trim(Text1.Text)
     Ado.Recordset.Fields(4) = Trim(Text7.Text)
     Ado.Recordset.Fields(2) = Trim(Text3.Text)
     Ado.Recordset.Fields(1) = Trim(Text2.Text)
     Ado.Recordset.Fields(3) = Trim(Text4.Text)
     Ado.Recordset.Fields(5) = Trim(Text5.Text)
     Ado.Recordset.Fields(6) = Trim(Text6.Text)
     Ado.Recordset.Update
     
     MsgBox "修改司机信息成功！", vbOKOnly + vbExclamation, "修改司机修息"
     Ado.Recordset.Bookmark = mybookmark
     Call viewdata
     
     Text1.Enabled = False
     Text2.Enabled = False
     Text3.Enabled = False
     Text4.Enabled = False
     Text5.Enabled = False
     Text6.Enabled = False
     Text7.Enabled = False
     mcclean = True
End Sub

Private Sub Command3_Click()
'看是否处于修改状态
If Not mcclean Then
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False
    Text7.Enabled = False
    '回到开始记录位置
    On Error Resume Next
    Ado.Recordset.Bookmark = mybookmark
    Call viewdata
Else
    MsgBox "什么都没有修改，请不要取消!", vbOKOnly + vbExclamation, "警告"
End If
End Sub

Private Sub Command4_Click()
 '记下当前记录位置
 On Error Resume Next
 mybookmark = Ado.Recordset.Bookmark
 '提示是否删除
 str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
  '是那种按纽类型
 If str2$ = vbOK Then
      '移动到数据集下一条记录
      Ado.Recordset.MoveNext
       '看数据集对象是否为空
   If Ado.Recordset.EOF Then
      Ado.Recordset.MoveFirst
      '记载当前记录的位置
      mybookmark = Ado.Recordset.Bookmark
      '移动到最后一条记录
      Ado.Recordset.MoveLast
      '删除记录
      Ado.Recordset.Delete
      Ado.Recordset.Bookmark = mybookmark
      '调用函数显示数据
      Call viewdata
   Else
      '记载当前位置
      mybookmark = Ado.Recordset.Bookmark
      Ado.Recordset.MovePrevious
      On Error Resume Next
      Ado.Recordset.Delete
      '回到原来位置
      Ado.Recordset.Bookmark = mybookmark
      Call viewdata
   End If
  Else
      Ado.Recordset.Bookmark = mybookmark
      Call viewdata
   End If

End Sub