📄 printdunned.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2400
TabIndex = 12
Top = 1080
Width = 210
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "月份电费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3240
TabIndex = 11
Top = 1080
Width = 840
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "元。限于"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5760
TabIndex = 10
Top = 1080
Width = 840
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1200
TabIndex = 9
Top = 1440
Width = 210
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1920
TabIndex = 8
Top = 1440
Width = 210
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "日前到"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2640
TabIndex = 7
Top = 1440
Width = 630
End
Begin VB.Label Label14
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "交清，逾期不交"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5160
TabIndex = 6
Top = 1440
Width = 1470
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "将按供电营业规则第九十八条规定给予加收滞纳金及停止供电处理。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 5
Top = 1800
Width = 6300
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3270
TabIndex = 4
Top = 2370
Width = 135
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3600
TabIndex = 3
Top = 2760
Width = 210
End
Begin VB.Label Label18
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4200
TabIndex = 2
Top = 2745
Width = 225
End
Begin VB.Label Label19
AutoSize = -1 'True
BackColor = &H8000000E&
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 4800
TabIndex = 1
Top = 2760
Width = 210
End
End
Begin VB.Label Label1
Caption = "用户代码:"
Height = 255
Left = 90
TabIndex = 18
Top = 90
Width = 1095
End
End
Attribute VB_Name = "PrintDunned"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Check1_Click()
If Check1.Value = 1 Then
Line1.Visible = True
Line2.Visible = True
Shape1.Visible = True
Else
Line1.Visible = False
Line2.Visible = False
Shape1.Visible = False
End If
End Sub
Private Sub Command1_Click()
On Error GoTo hander
Screen.MousePointer = 11
Call printer_init_c
Call printer_list(Trim(Label2.Caption), Label3.Caption, Label4.Caption, Label20.Caption, Label21.Caption, Text3.Text, Text2.Text, Label24.Caption, Label25.Caption)
Printer.EndDoc
Screen.MousePointer = 0
Exit Sub
hander:
If Err.Number = 482 Then
MsgBox "打印机错误!", vbCritical
Screen.MousePointer = 0
Exit Sub
Else
Resume Next
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
OpenMdb
Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码,用户电费.主表 From 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "'order by 用户电费.组合编码 asc")
Dim intRecCount, intCounter As Integer
If Not MdbR.eof Then
Label16 = pbDw
MdbR.MoveLast
intRecCount = MdbR.RecordCount
MdbR.MoveFirst
For intCounter = 0 To MdbR.RecordCount - 1
List1.AddItem MdbR!用户编码 & Space(2) & MdbR!用户名称 & ""
MdbR.MoveNext
Next intCounter
List1.ListIndex = 0
Command1.Enabled = False
Line1.Visible = False
Line2.Visible = False
Shape1.Visible = False
Else
MsgBox XzName & XcName & "用户纪录为空！", vbCritical
Unload Me
Exit Sub
End If
End Sub
Private Sub List1_Click()
Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码 From 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "' AND 用户电费.用户名称='" & Mid(Trim(List1), 7, 10) & "' order by 用户电费.组合编码 asc")
Label2 = Trim(MdbR.Fields!用户名称) & ""
Label3 = GzNian
Label4 = GzYue
Label20 = Format(MdbR.Fields!合计电费, "######.00")
Label21 = GzNian
Text3 = GzYue
Text2 = Format(Day(Date), "0#")
Label24 = pbDw
Label25 = GzNian
Label26 = GzYue
Label27 = Format(Day(Date), "0#")
Command1.Enabled = True
End Sub
Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox "输入用户代码方可检索数据!", vbCritical
Text1.SetFocus
Else
Set MdbR = NdMd.OpenRecordset("select * from 用户电费 where 组合编码='" & UserSeek & Trim(Text1) & "'")
If MdbR.RecordCount = 0 Then
MsgBox "无此用户，请检查代码的正确性！", vbCritical
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
Else
Dim I As Integer
List1.ListIndex = 0
For I = 0 To List1.ListCount - 1
If Mid(List1.List(I), 1, 4) = Trim(Text1) Then
List1.ListIndex = I
End If
Next I
Command1.Enabled = True
Label2 = Trim(MdbR.Fields!用户名称) & ""
Label3 = GzNian
Label4 = GzYue
Label20 = Format(MdbR.Fields!合计电费, "######.00")
Label21 = GzNian
Text3 = GzYue
Text2 = Format(Day(Date), "0#")
Label24 = XzName
Label25 = GzNian
Label26 = GzYue
Label27 = Format(Day(Date), "0#")
End If
End If
End If
End Sub
'增量查询
Private Sub Text1_Change()
Dim GetItem As String
Dim Dresult As Integer
Dim Deng As Integer
For Deng = 0 To List1.ListCount - 1
GetItem = Left(List1.List(Deng), Len(Text1))
Dresult = StrComp(Text1, GetItem, 1)
If Dresult = 0 Then List1.ListIndex = Deng: Exit Sub
Next Deng
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -