📄 frm_sjfcx.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6000
TabIndex = 54
Top = 240
Width = 1815
End
Begin VB.Label Label28
BackColor = &H00C0E0FF&
Caption = "密 码"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 8520
TabIndex = 3
Top = 240
Width = 1575
End
End
Begin VB.Timer Timer1
Interval = 600
Left = 3120
Top = 360
End
Begin VB.Label Label30
BackColor = &H80000009&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 495
Left = 8640
TabIndex = 59
Top = 7920
Width = 2655
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 = 5160
TabIndex = 4
Top = 360
Width = 3015
End
End
Attribute VB_Name = "frm_sjfcx"
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 cmdClose_Click()
frm_hfcx.Show
Unload Me
End Sub
Private Sub cmdFind_Click()
gdbpath = App.Path & "\"
Dim qdfXXHD As QueryDef
Dim rsXXHD As Recordset
Dim str_ym As String
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
Set dbdxzw = OpenDatabase(gdbpath & "zj.mdb")
dbdxzw.Execute "drop table pwd_tmp;"
dbdxzw.Execute "select * into pwd_tmp from dh_pwd where dhhm='" & txtDhhmORHTH.Text & "' and pwd='" & pwdtext.Text & "'"
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
cmdClose.Enabled = False
cmdFind.Enabled = False
str_ym = Left(cmb_year.Text, 4) & Trim(Str(ComboMonth.ListIndex + 1))
strsql = "INSERT INTO sjfy_1 SELECT * FROM sjfy in '" & gdbpath & "hdk_" & str_ym & ".mdb' where trim(user_no) = '" & txtDhhmORHTH.Text & "';"
dbdxzw.Execute ("delete * from sjfy_1")
dbdxzw.Execute (strsql)
dbdxzw.Execute ("update sjfy_1 set tot_fee=yzf+rm_chag+mbl_chg+mbl_exa+tol_chg+tol_exa+int_chg+int_exa")
Data1.Refresh
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
Label30.Caption = "请输入电话号码！"
Case 1
Label30.Caption = "请输入密码！"
End Select
End Sub
Private Sub Command12_Click()
Select Case kk
Case 0
txtDhhmORHTH = ""
pwdtext = ""
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
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
Set dbdxzw = DBEngine.Workspaces(0).OpenDatabase(gdbpath & "zj.mdb")
dbdxzw.Execute ("delete * from sjfy_1")
txt_ctcs.Text = ""
txt_ctfjf.Text = ""
txt_ctfy.Text = ""
txt_ctsc.Text = ""
txt_dhhm.Text = ""
txt_gjcs.Text = ""
txt_gjfy.Text = ""
txt_gjsc.Text = ""
txt_mycs.Text = ""
txt_myfy.Text = ""
txt_mysc.Text = ""
txt_ydcs.Text = ""
txt_ydfjf.Text = ""
txt_ydfy.Text = ""
txt_ydsc.Text = ""
txt_yzf.Text = ""
Data1.DatabaseName = gdbpath & "zj.mdb"
kk = 0
Label30.Caption = "请输入电话号码！"
Exit Sub
ErrorHandler:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -