话单查询.frm

以前做的移动公司的一个多媒体查询系统,有话费查询

    
  
  Call CreateQuery1(strsql)
  cmdFind.Enabled = True
  cmdClose.Enabled = True
  
  'MsgBox "查询完毕"
  Exit Sub
ErrorHandler:
  Select Case Err.Number
    Case 3376
        Resume Next
    Case 3024
        aaa = MsgBox("该月数据不存在！", , "警告")
        cmdFind.Enabled = True
        cmdClose.Enabled = True
  End Select

End Sub

Private Sub ComboMonth_Click()
  Dim dbname As String
  Dim strsql As String
  On Error GoTo ErrorHandler
  Exit Sub
ErrorHandler:

End Sub

Private Sub Command1_Click()
    Select Case kk
        Case 0
            txtDhhm = txtDhhm & "1"
        Case 1
            Text2 = Text2 & "1"
'        Case 2
'            Text3 = Text3 & "1"
'        Case 3
'            Text4 = Text4 & "1"
    End Select
End Sub

Private Sub Command10_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "3"
        Case 1
            Text2 = Text2 & "3"
'        Case 2
'            Text3 = Text3 & "3"
'        Case 3
'            Text4 = Text4 & "3"
    End Select

End Sub

Private Sub Command11_Click()
    If kk = 1 Then
        kk = 0
    Else
        kk = kk + 1
    End If
    
    Select Case kk
        Case 0
            Label30.Caption = "请输入电话号码！"
        Case 1
            Label30.Caption = "请输入密码！"
'        Case 2
'            label30.caption = "请输入起始时间！"
'        Case 3
'            label30.caption = "请输入终止时间！"
    End Select

End Sub

Private Sub Command12_Click()
    Select Case kk
        Case 0
            txtDhhm = ""
            Text2 = ""
        Case 1
            Text2 = ""
'        Case 2
'            Text3 = ""
'        Case 3
'            Text4 = ""
    End Select

End Sub

Private Sub Command2_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "0"
        Case 1
            Text2 = Text2 & "0"
'        Case 2
'            Text3 = Text3 & "0"
'        Case 3
'            Text4 = Text4 & "0"
    End Select

End Sub

Private Sub Command3_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "8"
        Case 1
            Text2 = Text2 & "8"
'        Case 2
'            Text3 = Text3 & "8"
'        Case 3
'            Text4 = Text4 & "8"
    End Select

End Sub

Private Sub Command4_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "7"
        Case 1
            Text2 = Text2 & "7"
'        Case 2
'            Text3 = Text3 & "7"
'        Case 3
'            Text4 = Text4 & "7"
    End Select

End Sub

Private Sub Command5_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "9"
        Case 1
            Text2 = Text2 & "9"
'        Case 2
'            Text3 = Text3 & "9"
'        Case 3
'            Text4 = Text4 & "9"
    End Select

End Sub

Private Sub Command6_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "5"
        Case 1
            Text2 = Text2 & "5"
'        Case 2
'            Text3 = Text3 & "5"
'        Case 3
'            Text4 = Text4 & "5"
    End Select

End Sub

Private Sub Command7_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "4"
        Case 1
            Text2 = Text2 & "4"
'        Case 2
'            Text3 = Text3 & "4"
'        Case 3
'            Text4 = Text4 & "4"
    End Select

End Sub

Private Sub Command8_Click()
 Select Case kk
        Case 0
            txtDhhm = txtDhhm & "6"
        Case 1
            Text2 = Text2 & "6"
'        Case 2
'            Text3 = Text3 & "6"
'        Case 3
'            Text4 = Text4 & "6"
    End Select

End Sub

Private Sub Command9_Click()
    Select Case kk
        Case 0
            txtDhhm = txtDhhm & "2"
        Case 1
            Text2 = Text2 & "2"
'        Case 2
'            Text3 = Text3 & "2"
'        Case 3
'            Text4 = Text4 & "2"
    End Select

End Sub

Private Sub Form_Load()
  gdbpath = App.Path & "\"
  Dim dbname As String
  Dim strsql As String
  Dim dbdxzw As Database
  On Error GoTo ErrorHandler
  
 
  
  Combo1.AddItem "详话话单"
  'Combo1.AddItem "市话话单"
  Combo1.AddItem "农话话单"
  Combo1.AddItem "网话话单"
  Combo1.AddItem "信息话单"
  Combo1.AddItem "国内话单"
  Combo1.AddItem "国际话单"
  Combo1.AddItem "港澳话单"
  Combo1.ListIndex = 0
  
      cmb_year.AddItem "1999年"
      cmb_year.AddItem "2000年"
      cmb_year.AddItem "2001年"
      cmb_year.AddItem "2002年"
      cmb_year.AddItem "2003年"
      cmb_year.AddItem "2004年"
      cmb_year.AddItem "2005年"
      cmb_year.AddItem "2006年"
      cmb_year.AddItem "2007年"
      cmb_year.AddItem "2008年"
      cmb_year.AddItem "2009年"
      cmb_year.AddItem "2010年"
      cmb_year.ListIndex = Year(Date) - 1999
  
  ComboMonth.AddItem "一月"
  ComboMonth.AddItem "二月"
  ComboMonth.AddItem "三月"
  ComboMonth.AddItem "四月"
  ComboMonth.AddItem "五月"
  ComboMonth.AddItem "六月"
  ComboMonth.AddItem "七月"
  ComboMonth.AddItem "八月"
  ComboMonth.AddItem "九月"
  ComboMonth.AddItem "十月"
  ComboMonth.AddItem "十一月"
  ComboMonth.AddItem "十二月"
  ComboMonth.ListIndex = Month(Date) - 1
  
  kk = 0
  Label30.Caption = "请输入电话号码！"
  
  Set db1 = DBEngine.Workspaces(0).OpenDatabase(gdbpath & "zj.mdb")
  
  Exit Sub
ErrorHandler:
  
End Sub
Sub CreateQuery(strsql As String)
    Dim dbdxzw As Database
    Dim qdfXXHD As QueryDef
    Dim rsXXHD As Recordset
    Dim I As Integer
    Set dbdxzw = DBEngine.Workspaces(0).OpenDatabase(gdbpath & "zj.mdb")
    For I = 0 To dbdxzw.QueryDefs.Count - 1
       If dbdxzw.QueryDefs(I).Name = "qdfXXHD" Then
          dbdxzw.QueryDefs.Delete ("qdfXXHD")
          Exit For
       End If
    Next I
    Set qdfXXHD = dbdxzw.CreateQueryDef("qdfXXHD", strsql)
    Set rsXXHD = qdfXXHD.OpenRecordset
    Data1.DatabaseName = gdbpath & "zj.mdb"
    Set Data1.Recordset = rsXXHD
    Data1.Refresh

End Sub
Sub CreateQuery1(strsql As String)
    gdbpath = App.Path & "\"
    Dim dbdxzw As Database
    Dim qdfXXHD As QueryDef
    Dim rsXXHD As Recordset
    Dim I As Integer
    Dim fd1 As Field
    Set dbdxzw = DBEngine.Workspaces(0).OpenDatabase(gdbpath & "zj.mdb")
    For I = 0 To dbdxzw.QueryDefs.Count - 1
       If dbdxzw.QueryDefs(I).Name = "qdfXXHD" Then
          dbdxzw.QueryDefs.Delete ("qdfXXHD")
          Exit For
       End If
    Next I
    Set qdfXXHD = dbdxzw.CreateQueryDef("qdfXXHD", strsql)
    Set rsXXHD = qdfXXHD.OpenRecordset
    
    dbdxzw.Execute "UPDATE qdfXXHD SET areacode = '  ' WHERE flag>'03'"
    dbdxzw.Execute "UPDATE qdfXXHD SET stime = left(stime,6)"
    'dbDxzw.Execute "UPDATE qdfXXHD SET endtime = format(cdate(left(date,4)+'-'+mid(date,5,2)+'-'+right(date,2)+' '+left(stime,2)+':'+mid(stime,3,2)+':'+right(stime,2))+etime/24/3600 ,'hhmmss')"
    
    Data1.DatabaseName = gdbpath & "zj.mdb"
    Set Data1.Recordset = rsXXHD
    Data1.Refresh

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If

End Sub

Private Sub Timer1_Timer()
   If Label2.Left + Label2.Width < 0 Then
        Label2.Left = frmHDCX.ScaleWidth
    Else
        Label2.Left = Label2.Left - 500
   End If
End Sub

Private Sub txtDhhm_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If

End Sub