📄 总话费查询.frm

📁 以前做的移动公司的一个多媒体查询系统,有话费查询
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7440
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   8040
      Width           =   1095
   End
   Begin VB.Label Label29 
      BackStyle       =   0  'Transparent
      Caption         =   "详细话费查询"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00404080&
      Height          =   495
      Left            =   5400
      TabIndex        =   79
      Top             =   240
      Width           =   3015
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   " 月       份："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   480
      TabIndex        =   3
      Top             =   840
      Width           =   2175
   End
End
Attribute VB_Name = "frmFYCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dbdxzw As Database
Dim tb1 As Recordset
Dim zzz, kk As Integer

Private Sub chkDhhm_Click()
    txtDhhmORHTH.Text = ""
    txtDhhmORHTH.SetFocus
End Sub

Private Sub chkHTH_Click()
    txtDhhmORHTH.Text = ""
    txtDhhmORHTH.SetFocus

End Sub

Private Sub cmdClose_Click()
    Form15.Show
    Unload Me
End Sub

Private Sub cmdFind_Click()
  gdbpath = App.Path & "\"
  Dim rsyhfy As Recordset
  Dim strsql As String
  Dim I As Integer
  
  On Error GoTo ErrorHandler
  
  If Len(Trim(txtDhhmORHTH.Text)) = 0 Then
        aaa = MsgBox("请输入电话号码或合同号！", , "警告")
        Exit Sub
  Else
        If Len(Trim(pwdtext.Text)) = 0 Then
            aaa = MsgBox("请输入密码！", , "警告")
            Exit Sub
        Else
            dbdxzw.Execute "drop table pwd_tmp"
            If chkDhhm.Value Then
                dbdxzw.Execute "select * into pwd_tmp from dh_pwd where dhhm='" & txtDhhmORHTH.Text & "' and pwd='" & pwdtext.Text & "'"
            Else
                dbdxzw.Execute "select * into pwd_tmp from dh_pwd where hth='" & txtDhhmORHTH.Text & "' and pwd='" & pwdtext.Text & "'"
            End If
            
            Set tb1 = dbdxzw.OpenRecordset("pwd_tmp", 1)
            If Not tb1.EOF Then
                tb1.Close
            Else
                tb1.Close
                aaa = MsgBox("密码有误，请重输！", , "警告")
                Exit Sub
            End If
        End If
        
  End If
  
  
  'Command1.Enabled = False
  cmdClose.Enabled = False
  cmdFind.Enabled = False
  
  dbname = gdbpath & "Hdk_" & Trim(Str(Year(Date))) & Trim(Str(ComboMonth.ListIndex + 1)) & ".mdb"

  Select Case UCase(Trim(txtDhhmORHTH.Text))
         'Case "ALL"
              'strsql = "SELECT * INTO QDFYHFY FROM YHFY_" & Trim(Str(ComboMonth.ListIndex + 1))
         Case Else
              If chkDhhm Then
                 strsql = "SELECT * INTO QDFYHFY FROM  YHFY IN  " & "'" & dbname & "'" & " WHERE DHHM = '" & Trim(txtDhhmORHTH.Text) & "'"
              Else
                 strsql = "SELECT * INTO QDFYHFY FROM  YHFY IN  " & "'" & dbname & "'" & " WHERE HTH = '" & Trim(txtDhhmORHTH.Text) & "'"
              End If
  End Select
  
  dbdxzw.Execute "DROP TABLE qdfYHFY"
  'Set qdfYHFY = dbDxzw.CreateQueryDef("qdfYHFY", strsql)
  'Set rsYHFY = qdfYHFY.OpenRecordset
  dbdxzw.Execute strsql
  
  Set tb1 = dbdxzw.OpenRecordset("qdfyhfy", 1)
  
  'Call resetHeader
  Call PopulateGrid
  'Command1.Enabled = True
  cmdClose.Enabled = True
  cmdFind.Enabled = True
  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()
  On Error GoTo ErrorHandler
  Call PopulateGrid
  
  Exit Sub
ErrorHandler:
  

End Sub


Private Sub Command1_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "1"
        Case 1
            pwdtext = pwdtext & "1"
    End Select
End Sub

Private Sub Command10_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "3"
        Case 1
            pwdtext = pwdtext & "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
            Text27 = "请输入电话号码！"
        Case 1
            Text27 = "请输入密码！"

    End Select

End Sub

Private Sub Command12_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = ""
        Case 1
            pwdtext = ""
        
    End Select
End Sub

Private Sub Command2_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "0"
        Case 1
            pwdtext = pwdtext & "0"
    End Select
End Sub

Private Sub Command3_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "8"
        Case 1
            pwdtext = pwdtext & "8"
    End Select
End Sub

Private Sub Command4_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "7"
        Case 1
            pwdtext = pwdtext & "7"
    End Select
End Sub

Private Sub Command5_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "9"
        Case 1
            pwdtext = pwdtext & "9"
    End Select
End Sub

Private Sub Command6_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "5"
        Case 1
            pwdtext = pwdtext & "5"
    End Select
End Sub

Private Sub Command7_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "4"
        Case 1
            pwdtext = pwdtext & "4"
    End Select
End Sub

Private Sub Command8_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "6"
        Case 1
            pwdtext = pwdtext & "6"
    End Select
End Sub

Private Sub Command9_Click()
    Select Case kk
        Case 0
            txtDhhmORHTH = txtDhhmORHTH & "2"
        Case 1
            pwdtext = pwdtext & "2"
    End Select
End Sub

Private Sub Form_Load()
  gdbpath = App.Path & "\"
  On Error GoTo ErrorHandler
  'Data1.DatabaseName = gdbpath & "zj.mdb"
  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
  Set dbdxzw = DBEngine.Workspaces(0).OpenDatabase(gdbpath & "zj.mdb")
  
  kk = 0
  Text27 = "请输入电话号码！"
  
  Exit Sub
ErrorHandler:
  
End Sub



Private Sub pwdtext_Change()
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If
End Sub

Private Sub Text27_Change()
    If KeyAscii = 13 Then
        cmdFind.SetFocus
    End If
End Sub

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

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

End Sub

Private Sub CommandButton1_Click()
   tb1.MoveFirst
   Call PopulateGrid
End Sub

Private Sub CommandButton2_Click()
   tb1.MovePrevious
   If tb1.BOF Then
      Beep
      tb1.MoveFirst
   End If
   Call PopulateGrid
  
End Sub
Private Sub CommandButton3_Click()
   tb1.MoveNext
   If tb1.EOF Then
      Beep
      tb1.MoveLast
   End If
   Call PopulateGrid
End Sub

Private Sub CommandButton4_Click()
  tb1.MoveLast
  Call PopulateGrid
End Sub
Private Sub PopulateGrid()
    If Not tb1.EOF Then
        Text1.Text = IIf(IsNull(tb1!dhhm), "", tb1!dhhm)
        
        Text2.Text = IIf(IsNull(tb1!hth), "", tb1!hth)
        
        Text3.Text = IIf(IsNull(tb1!yhmc), "", tb1!yhmc)
        
        Text4.Text = IIf(IsNull(tb1!jxdm), "", tb1!jxdm)
        
        Text5.Text = IIf(IsNull(tb1!yhlb), "", tb1!yhlb)
        
        Text6.Text = IIf(IsNull(tb1!yhtt), "", tb1!yhtt)
        
        Text7.Text = IIf(IsNull(tb1!mflb), "", tb1!mflb)
        
        Text8.Text = IIf(IsNull(tb1!yzlb), "", tb1!yzlb)
        
        Text9.Text = IIf(IsNull(tb1!mfcs), "", tb1!mfcs)
        
        Text10.Text = IIf(IsNull(tb1!fkfs), "", tb1!fkfs)
        
        Text11.Text = IIf(IsNull(tb1!zjrq), "", tb1!zjrq)
        
        Text12.Text = IIf(IsNull(tb1!lrrq), "", tb1!lrrq)
        
        Text13.Text = Format(tb1.Fields("y6") + tb1.Fields("lst") + tb1.Fields("y1") + tb1.Fields("fy3") + tb1.Fields("fy10"), "0.00")
        
        Text14.Text = Format(tb1.Fields("dat") + tb1.Fields("hat") + tb1.Fields("rgftff") + tb1.Fields("iat") + tb1.Fields("fjf1_1") + tb1.Fields("fjf2_1") + tb1.Fields("fjf3_1") + tb1.Fields("fjf1_2") + tb1.Fields("fjf2_2") + tb1.Fields("fjf3_2") + tb1.Fields("fjf1_3") + tb1.Fields("fjf2_3") + tb1.Fields("fjf3_3"), "0.00")
        
        Text15.Text = Format(tb1.Fields("zdydfy") + tb1.Fields("azydfy") + tb1.Fields("y3") + tb1.Fields("y4"), "0.00")
        
        Text16.Text = Format(tb1.Fields("ist") + tb1.Fields("dst") + tb1.Fields("hst") + tb1.Fields("fjf1_7") + tb1.Fields("fjf2_7") + tb1.Fields("fjf1_5") + tb1.Fields("fjf2_5") + tb1.Fields("fjf1_4") + tb1.Fields("fjf2_4"), "0.00")
        
        Text17.Text = Format(tb1.Fields("f168tff") + tb1.Fields("xxf121"), "0.00")
        
        Text18.Text = Format(tb1.Fields("y2"), "0.00")
        
        Text19.Text = Format(tb1.Fields("fy2") + tb1.Fields("fy4") + tb1.Fields("y5"), "0.00")
        
        Text20.Text = Format(tb1.Fields("fy5"), "0.00")
        
        Text21.Text = Format(tb1.Fields("dbktff") + tb1.Fields("fy6") + tb1.Fields("fy7"), "0.00")
        
        Text22.Text = Format(tb1.Fields("fy1"), "0.00")
        
        Text23.Text = Format(tb1.Fields("zbchg"), "0.00")
    
        Text24.Text = Format(tb1.Fields("fy8") + tb1.Fields("fy9") + tb1.Fields("y7") + tb1.Fields("y8") + tb1.Fields("y9") + tb1.Fields("y10"), "0.00")

        Text25.Text = Format(tb1.Fields("tot_rec"), "0.00")
        
        Text26.Text = Format(tb1.Fields("real_rec"), "0.00")
    End If
End Sub
上一页 1 2 34
💿 文件大小 7237 K
👤 上传用户 wanglp094
📂 所属分类邮电通讯系统
🏷️ 相关标签

#移动 #多媒体 #查询系统 #查询
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -