📄 frmfeeinput.frm
字号:
Printer.Print "本月表底"
Printer.CurrentX = 113
Printer.CurrentY = 12
Printer.Print "用 量"
Printer.CurrentX = 138
Printer.CurrentY = 12
Printer.Print "单 价"
Printer.CurrentX = 160
Printer.CurrentY = 12
Printer.Print "金 额"
'第三行内容
Printer.CurrentX = 27
Printer.CurrentY = 18
Printer.Print "1"
Printer.CurrentX = 33.5
Printer.CurrentY = 18
Printer.Print "卫水费"
Printer.CurrentX = 57
Printer.CurrentY = 18
Printer.Print TXTDATA(1).Text
Printer.CurrentX = 87
Printer.CurrentY = 18
Printer.Print TXTDATA(4).Text
Printer.CurrentX = 113
Printer.CurrentY = 18
Printer.Print TXTDATA(9).Text
Printer.CurrentX = 138
Printer.CurrentY = 18
Printer.Print TXTDATA(7).Text
Printer.CurrentX = 160
Printer.CurrentY = 18
Printer.Print TXTDATA(11).Text
'第四行内容
Printer.CurrentX = 27
Printer.CurrentY = 24
Printer.Print "2"
Printer.CurrentX = 33.5
Printer.CurrentY = 24
Printer.Print "厨水费"
Printer.CurrentX = 57
Printer.CurrentY = 24
Printer.Print TXTDATA(2).Text
Printer.CurrentX = 87
Printer.CurrentY = 24
Printer.Print TXTDATA(5).Text
Printer.CurrentX = 113
Printer.CurrentY = 24
Printer.Print TXTDATA(10).Text
Printer.CurrentX = 138
Printer.CurrentY = 24
Printer.Print TXTDATA(7).Text
Printer.CurrentX = 160
Printer.CurrentY = 24
Printer.Print TXTDATA(12).Text
'第五行内容
Printer.CurrentX = 27
Printer.CurrentY = 30
Printer.Print "3"
Printer.CurrentX = 33.5
Printer.CurrentY = 30
Printer.Print "电 费"
Printer.CurrentX = 57
Printer.CurrentY = 30
Printer.Print TXTDATA(0).Text
Printer.CurrentX = 87
Printer.CurrentY = 30
Printer.Print TXTDATA(3).Text
Printer.CurrentX = 113
Printer.CurrentY = 30
Printer.Print TXTDATA(8).Text
Printer.CurrentX = 138
Printer.CurrentY = 30
Printer.Print TXTDATA(6).Text
Printer.CurrentX = 160
Printer.CurrentY = 30
Printer.Print Text2.Text
'第六行内容
Printer.CurrentX = 27
Printer.CurrentY = 36
Printer.Print "4"
Printer.CurrentX = 33.5
Printer.CurrentY = 36
Printer.Print "房修费"
'第七行内容
Printer.CurrentX = 27
Printer.CurrentY = 42
Printer.Print "5"
Printer.CurrentX = 33.5
Printer.CurrentY = 42
Printer.Print "物业费"
'第八行内容
Printer.CurrentX = 33.5
Printer.CurrentY = 48
Printer.Print "合 计"
Printer.CurrentX = 57
Printer.CurrentY = 48
Printer.Print test(CStr(Format(VAL(Text3), "0.00") * 100), 1)
Printer.CurrentX = 160
Printer.CurrentY = 48
Printer.Print Text3.Text
'第九行内容
Printer.CurrentX = 33.5
Printer.CurrentY = 54
Printer.Print "本次实交"
Printer.CurrentX = 57
Printer.CurrentY = 54
Printer.Print test(CStr(Format(VAL(txtfields(3)), "0.00") * 100), 1)
Printer.CurrentX = 160
Printer.CurrentY = 54
Printer.Print txtfields(3).Text
'第十行内容
Printer.CurrentX = 33.5
Printer.CurrentY = 60
Printer.Print "余 额"
Printer.CurrentX = 57
Printer.CurrentY = 60
Printer.Print test(CStr(Format(VAL(Text5), "0.00") * 100), 1)
Printer.CurrentX = 160
Printer.CurrentY = 60
Printer.Print Text5.Text
'第十一行内容
Printer.CurrentX = 27
Printer.CurrentY = 66
Printer.Print "滞纳金：" & Format(Text6.Text, "0.00") & " 元"
Printer.CurrentX = 90
Printer.CurrentY = 66
Printer.Print "打印日期：" & Year(Now) & "." & Month(Now) & "." & Day(Now)
Printer.CurrentX = 150
Printer.CurrentY = 66
Printer.Print "收款员：" & Text7.Text
Printer.NewPage
Printer.EndDoc
Screen.MousePointer = vbDefault
End Sub
Function fillznj(str1 As Single, VAL As Single, VAL1 As Single) As Single
Dim Myset As New ADODB.Recordset
Dim myset1 As New ADODB.Recordset
strsql = "select * from userfee where userid1=" & str1
myset1.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If myset1.EOF Then
fillznj = 0
Exit Function
End If
myset1.Close
Dim TEMP As Integer
strsql = "select MAX(CLLODAY) AS [DAY] from userfee where userid1=" & str1
' On Error Resume Next
Myset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
TEMP = Date - Myset("DAY")
If TEMP <= 0 Then
fillznj = 0
End If
fillznj = TEMP * VAL * VAL1
End Function
Sub filldate(str2 As Integer)
On Error Resume Next
Dim Myset As New ADODB.Recordset
Dim MyFeeset As New ADODB.Recordset
Dim strsql As String
strsql = "select * from user1 where userid1=" & str2
strsql = strsql & " order by userid1"
Myset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
sTotalFee = 0
If Myset.EOF = False Then
DTPicker2 = dtpicker1
e: MyFeeset.Close
If DTPicker2.Year < 2004 And DTPicker2.Month < 12 Then
'filldate1 STR2
Exit Sub
End If
strsql = "select * from USERFEE where userid1=" & _
str2 & _
" and clloyear=" & _
IIf(DTPicker2.Month = 1, DTPicker2.Year - 1, DTPicker2.Year) & _
" and cllomonth=" & _
IIf(DTPicker2.Month = 1, 12, DTPicker2.Month - 1)
MyFeeset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If MyFeeset.EOF Then
DTPicker2.Year = IIf(DTPicker2.Month = 1, DTPicker2.Year - 1, DTPicker2.Year)
DTPicker2.Month = IIf(DTPicker2.Month = 1, 12, DTPicker2.Month - 1)
GoTo e:
End If
DTPicker2.Year = IIf(DTPicker2.Month = 1, DTPicker2.Year - 1, DTPicker2.Year)
DTPicker2.Month = IIf(DTPicker2.Month = 1, 12, DTPicker2.Month - 1)
MyFeeset.Close
Myset.Close
End If
End Sub
Sub filldate1(str2 As Integer)
On Error Resume Next
Dim Myset As New ADODB.Recordset
Dim MyFeeset As New ADODB.Recordset
Dim strsql As String
strsql = "select * from DATAWORK where userid1=" & _
str2 & _
" and clloyear=" & _
DTPicker2.Year & _
" and cllomonth=" & _
DTPicker2.Month
MyFeeset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If MyFeeset.EOF Then
DTPicker2.Year = 2003
DTPicker2.Month = 12
End If
End Sub
Sub changefee(str2 As Integer)
On Error Resume Next
Dim Myset As New ADODB.Recordset
Dim MyFeeset As New ADODB.Recordset
Dim MyFeeSet1 As New ADODB.Recordset
Dim myset1 As New ADODB.Recordset
Dim strsql As String
Dim TotalFee As Single, stotalfee1 As Single, sTotalFee As Single
strsql = "select * from user1 where userid1=" & _
str2
Myset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If Myset.EOF Then
Exit Sub
End If
strsql = "select * from datawork where userid1=" & _
Myset("userid1") & _
" and clloyear=" & dtpicker1.Year & " and cllomonth=" & _
dtpicker1.Month
MyFeeset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If MyFeeset.EOF Then
GoTo e:
End If
e:
strsql = "select * from datawork where userid1=" & _
Myset("userid1") & _
" and clloyear=" & _
DTPicker2.Year & _
" and cllomonth=" & DTPicker2.Month
MyFeeSet1.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If MyFeeSet1.EOF Then
Exit Sub
End If
sTotalFee = Format((MyFeeset("watermeter") - MyFeeSet1("watermeter") + MyFeeset("watermeter1") - MyFeeSet1("watermeter1")) * Myset("watermeterfee") + _
(MyFeeset("elcmeter") - MyFeeSet1("elcmeter")) * Myset("elcmeterfee"), "0.00")
strsql = "select * from fee where userid1=" & Myset("userid1")
myset1.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If myset1.EOF Then
strsql = "insert into fee values(" & Myset("userid1") & "," & -sTotalFee & "," & dtpicker1.Year & "," & dtpicker1.Month & ",'" & Myset("louhaoid") & _
"'," & Myset("elcmeterfee") & "," & Myset("watermeterfee") & ",'" & Myset("NAME") & "','" & Myset("HUHAO") & "')"
stotalfee1 = -sTotalFee
config.cnZdx.Execute strsql
Else
If dtpicker1.Year = myset1("clloyear") And dtpicker1.Month = myset1("cllomonth") Then
Exit Sub
Else
strsql = "update fee set fee=" & myset1("fee") - sTotalFee & ",clloyear =" & _
dtpicker1.Year & ",cllomonth=" & dtpicker1.Month & " where userid1=" & _
Myset("userid1")
config.cnZdx.Execute strsql
'stotalfee1 = myset1("fee") - sTotalFee
End If
End If
MyFeeset.Close
MyFeeSet1.Close
myset1.Close
Myset.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -