📄 printinvoice1.frm
字号:
' Printer.CurrentY = gRow6
' Printer.Print Text12; '月
' Printer.CurrentX = gCol6 + 17
' Printer.CurrentY = gRow6
' Printer.Print Text13; '日
Printer.CurrentX = gCol6 + 63
Printer.CurrentY = gRow6 - 6
Printer.Print Label53 '收费员
Printer.NewPage
'加入一打印
MdbR.Edit
MdbR.Fields!发票打印 = 1
MdbR.Update
'NdMd.Execute "UpDate 用户电费 Set 用户电费.发票打印=1 Where 用户电费.组合编码='" & UserSeek & Trim(Text3) & "'"
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Call PrinterEnd
Else '连续打印
With Adodc1.Recordset
If .RecordCount <> 0 Then
Call SetPrinterPar
Call PrinterInit
Screen.MousePointer = 11
For i = 0 To .RecordCount - 1
Call Cov(0)
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.CurrentX = gCol1
Printer.CurrentY = gRow1
Printer.Print GzYue '月份
Printer.CurrentX = gCol2
Printer.CurrentY = gRow2
Printer.Print .Fields!用户表码; '代码
'Printer.CurrentX = gCol2 + 23
'Printer.CurrentY = gRow2
'Printer.Print sQuYeMa;
' Printer.CurrentX = gCol2 + 41
' Printer.CurrentY = gRow2
' Printer.Print sNo
Printer.CurrentX = gCol3
Printer.CurrentY = gRow3
Printer.Print .Fields!用户名称; '户名
Printer.CurrentX = gCol3 + 41
Printer.CurrentY = gRow3
Printer.Print .Fields!地址 '地址
Printer.CurrentX = gCol4 + 2
Printer.CurrentY = gRow4
Printer.Print .Fields!本期示数; '本期
Printer.CurrentX = gCol4 + 12
Printer.CurrentY = gRow4
Printer.Print .Fields!上期示数; '上期
Printer.CurrentX = gCol4 + 25
Printer.CurrentY = gRow4
Printer.Print .Fields!表损; '表损
Printer.CurrentX = gCol4 + 34
Printer.CurrentY = gRow4
Printer.Print .Fields!合计电量; '电量
Printer.CurrentX = gCol4 + 42
Printer.CurrentY = gRow4
Printer.Print .Fields!电价; '电价
Printer.CurrentX = gCol4 + 50
Printer.CurrentY = gRow4
Printer.Print .Fields!合计电费; '金额 Format(sJinE / 100#, "0.00")
' Printer.CurrentX = gCol4 + 59
' Printer.CurrentY = gRow4
' Printer.Print "退补:" & sBeiZhu '加入退补
' Printer.CurrentX = gCol5 - 2 * Len(Text35)
' Printer.CurrentY = gRow5
' Printer.Print Text35; '千
Printer.CurrentX = gCol5 + 4
Printer.CurrentY = gRow5
Printer.Print Label54; '百
Printer.CurrentX = gCol5 + 10
Printer.CurrentY = gRow5
Printer.Print Label55; '十
Printer.CurrentX = gCol5 + 18
Printer.CurrentY = gRow5
Printer.Print Label56; '元
Printer.CurrentX = gCol5 + 24
Printer.CurrentY = gRow5
Printer.Print Label57; '角
Printer.CurrentX = gCol5 + 32
Printer.CurrentY = gRow5
Printer.Print Label58; '分
'Printer.CurrentX = gCol5 + 52
'Printer.CurrentY = gRow5
'Printer.Print .Fields!账号 '银行代码
' Printer.CurrentX = gCol6
' Printer.CurrentY = gRow6
' Printer.Print GzNian; '年
' Printer.CurrentX = gCol6 + 9
' Printer.CurrentY = gRow6
' Printer.Print GzYue; '月
' Printer.CurrentX = gCol6 + 17
' Printer.CurrentY = gRow6
' Printer.Print Format(Day(Date), "0#"); '日
Printer.CurrentX = gCol6 + 40
Printer.CurrentY = gRow6
Printer.Print Label53 '收费员
Printer.NewPage
'加入一打印
If .AbsolutePosition = .RecordCount Then
.MoveLast
Else
' NdMd.Execute "UpDate 用户电费 Set 用户电费.发票打印=1 Where 用户电费.组合编码='" & UserSeek & Trim(Text3) & "'"
Adodc1.Recordset.Fields!发票打印 = 1
Adodc1.Recordset.Update
.MoveNext
End If
Next
Screen.MousePointer = 0
Call PrinterEnd
Else
MsgBox "没有数据要打印!", vbExclamation
Exit Sub
End If
End With
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim SQLA As String
If Screen.Width \ Screen.TwipsPerPixelX = 800 And Screen.Height \ Screen.TwipsPerPixelY = 600 Then
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 1 - 650
Else
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End If
Frame4.Enabled = False
Label7.Enabled = False
Label8.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text3.Enabled = False
vfy1.Visible = False
Frame3.Enabled = False
Label36.Enabled = False
Label37.Enabled = False
Label38.Enabled = False
Command1.Enabled = False
AniGIF1.AutoSize = True
AniGIF1.Transparent = True
AniGIF1.ReadGIF (App.Path & "\Bmp\Gif\line.GIF")
AniGIF1.Play
Adodc1.ConnectionString = "DBQ=" & App.Path & "\Data\eletricity.Mdb" & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;PWD=;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
OpenMdb
End Sub
Private Sub Option1_Click()
Label7.Enabled = False
Label8.Enabled = False
vfy1.Visible = False
Picture1.Visible = True
Label36.Enabled = True
Label37.Enabled = True
Label38.Enabled = True
Frame3.Enabled = True
Frame4.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text3.Enabled = True
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
End Sub
Private Sub Option2_Click()
Command1.Enabled = False
Frame3.Enabled = False
Text3.Enabled = False
Label36.Enabled = False
Label37.Enabled = False
Label38.Enabled = False
Picture1.Visible = True
vfy1.Visible = True
Frame4.Enabled = True
Label7.Enabled = True
Label8.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text4.SetFocus
End Sub
Private Sub Text3_Change()
If Len(Trim(Text3)) <> 0 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Sub Text3_KeyPress(KeyAscii As Integer)
Dim SqlStr As String, DX As String
Dim LTY As Integer
On Error Resume Next
If KeyAscii = 13 Then
If Text3.Text = "" Or Len(Trim(Text3)) > 4 Or Len(Trim(Text3)) < 4 Then
MsgBox "输入用户代码不正确!", vbCritical
Else
SqlStr = "SELECT 用户电费.用户表码,用户电费.用户名称,用户电费.停用,用户电费.地址,用户电费.账号," _
& "用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数," _
& "用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量," _
& "用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量," _
& "用户电费.电价,用户电费.[" & EE & "] AS 调整金额," _
& "用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费," _
& "用户电费.[" & HH & "] AS 合计电费,用户电费.[" & II & "] AS 代扣信息," _
& "用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况," _
& "用户电费.组合编码 From 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text3) & "' and ISNULL(用户电费.[" & AA & "]) <> True AND VAL(用户电费.[" & AA & "]) <>0"
Set MdbR = NdMd.OpenRecordset(SqlStr)
If MdbR.RecordCount = 0 Then
MsgBox "无此用户或该户本月未抄表，请检查代码的正确性！", vbCritical
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Else
If MdbR.Fields!发票打印 = "已开" Then
MsgBox Text3 & MdbR.Fields!用户名称 & "发票已打印，如要重新打印请先恢复此用户！", vbCritical
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Exit Sub
End If
If MdbR.Fields!合计电费 = 0 Then
MsgBox Text3 & MdbR.Fields!用户名称 & "本次没有用电！", vbCritical
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Exit Sub
End If
If MdbR.Fields!停用 = "停用" Then
MsgBox Text3 & MdbR.Fields!用户名称 & "已停止用电！", vbCritical
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Exit Sub
End If
Command1.Enabled = True
Call Resuf
Label2 = Val(MdbR.Fields!上期示数) & ""
Label59 = MdbR.Fields!用户名称 & ""
Label23 = Val(MdbR.Fields!本期示数) & ""
Label24 = MdbR.Fields!合计电量 & ""
Label44 = Format(MdbR.Fields!电价, "0.000")
je = Format(MdbR.Fields!合计电费, "0.00")
DX = ChM(MdbR.Fields!合计电费)
LTY = Len(DX)
Select Case LTY
Case 1
Label49 = Mid(DX, 1, 1)
Case 2
Label48 = Mid(DX, 1, 1)
Label49 = Mid(DX, 2, 1)
Case 3
Label47 = Mid(DX, 1, 1)
Label48 = Mid(DX, 2, 1)
Label49 = Mid(DX, 3, 1)
Case 4
Label46 = Mid(DX, 1, 1)
Label47 = Mid(DX, 2, 1)
Label48 = Mid(DX, 3, 1)
Label49 = Mid(DX, 4, 1)
Case 5
Label45 = Mid(DX, 1, 1)
Label46 = Mid(DX, 2, 1)
Label47 = Mid(DX, 3, 1)
Label48 = Mid(DX, 4, 1)
Label49 = Mid(DX, 5, 1)
End Select
'Text29 = Format(MdbR.Fields!合计电费, "0.00")
Label50 = Format(Year(Date), "0000")
Label51 = Format(Month(Date), "0#")
Label52 = Format(Day(Date), "0#")
Label53 = Operator
Call Cov(1)
' Text3.SetFocus
Text6.SetFocus
End If
End If
End If
End Sub
Sub Text4_keyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text4.Text <> "" Then
Text5.SetFocus
End If
End If
End Sub
Private Sub Text5_Change()
If Len(Trim(Text5)) <> 0 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Sub Text5_keyPress(KeyAscii As Integer)
Dim SqlStr1 As String
If KeyAscii = 13 Then
If Text5.Text <> "" And Val(Text5) < Val(Text4) Then
MsgBox "数据输入有误！", vbCritical
Text5.SelStart = 0
Text5.SelLength = Len(Text5)
Text5.SetFocus
Else
' SqlStr1 = "SELECT 用户电费.用户表码,用户电费.用户名称,用户电费.停用,用户电费.地址,用户电费.账号," _
' & "用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数," _
' & "用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量," _
' & "用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量," _
' & "用户电费.电价,用户电费.[" & EE & "] AS 调整金额," _
' & "用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费," _
' & "用户电费.[" & HH & "] AS 合计电费,用户电费.[" & II & "] AS 代扣信息," _
' & "用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况," _
' & "用户电费.组合编码 From 用户电费 " _
' & "WHERE 用户电费.组合编码>= '" & IIf(Len(Trim(Text4)) <> 4, UserSeek & Right("0000" + Trim(Text4), 4), UserSeek & Trim(Text4)) & "' and 用户电费.组合编码 <='" & IIf(Len(Trim(Text5)) <> 4, UserSeek & Right("0000" + Trim(Text5), 4), UserSeek & Trim(Text5)) & "' and 用户电费.[" & JJ & "]=0 ORDER BY 用户电费.组合编码 ASC"
SqlStr1 = "SELECT 用户电费.用户表码,用户电费.用户名称," _
& "用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数," _
& "用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量," _
& "用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量," _
& "用户电费.电价,用户电费.[" & EE & "] AS 调整金额," _
& "用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费," _
& "用户电费.[" & HH & "] AS 合计电费," _
& "用户电费.组合编码,用户电费.[" & JJ & "] AS 打印 From 用户电费 " _
& "WHERE 用户电费.组合编码>= '" & IIf(Len(Trim(Text4)) <> 4, UserSeek & Right("0000" + Trim(Text4⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -