📄 frm_lh.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5760
TabIndex = 2
Top = 600
Width = 1815
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
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 = 3480
TabIndex = 24
Top = 240
Width = 1215
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
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 = 1080
TabIndex = 23
Top = 240
Width = 1215
End
Begin VB.Label lbl_dhhm
BackStyle = 0 'Transparent
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 = 6000
TabIndex = 20
Top = 240
Width = 1215
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 = 8640
TabIndex = 4
Top = 240
Width = 1455
End
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 = 22
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 = 5280
TabIndex = 5
Top = 240
Width = 3555
End
End
Attribute VB_Name = "frm_lh"
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_hdcx.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 hlxx_1 SELECT * FROM HLXX in '" & gdbpath & "hdk_" & str_ym & ".mdb' where teln = '" & txtDhhmORHTH.Text & "';"
Data1.DatabaseName = gdbpath & "zj.mdb"
Data1.RecordSource = "hlxx_tmp"
Data1.Refresh
dbdxzw.Execute ("delete * from hlxx_1")
dbdxzw.Execute (strsql)
Data1.DatabaseName = gdbpath & "zj.mdb"
Data1.RecordSource = "hlxx_1"
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 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 hlxx_1")
' txtDhhmORHTH.Text = ""
txt_zjhm.Text = ""
txt_bjhm.Text = ""
txt_xxfy.Text = ""
txt_lrrq.Text = ""
txt_thcs.Text = ""
txt_qjsj.Text = ""
txt_gjsj.Text = ""
kk = 0
Label30.Caption = "请输入电话号码！"
Data1.DatabaseName = gdbpath & "zj.mdb"
Data1.RecordSource = "hlxx_1"
Data1.Refresh
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 3076
Resume Next
End Select
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 + -