?? frmfee1.frm
字號:
Printer.Print .Text
'換表度差
.Col = 6
Printer.CurrentX = 90
Printer.CurrentY = 59 + CY
Printer.Print .Text
'電量
.Col = 7
Printer.CurrentX = 108
Printer.CurrentY = 59 + CY
Printer.Print .Text
.Col = 8
Printer.CurrentX = 128
Printer.CurrentY = 59 + CY
Printer.Print .Text
.Col = 9
Printer.CurrentX = 143
Printer.CurrentY = 59 + CY
Printer.Print .Text
Printer.CurrentX = 25
Printer.CurrentY = 67 + CY
Printer.Print "水表"
.Col = 10
Printer.CurrentX = 43
Printer.CurrentY = 67 + CY
Printer.Print .Text
.Col = 11
Printer.CurrentX = 63
Printer.CurrentY = 67 + CY
Printer.Print .Text
.Col = 12
Printer.CurrentX = 90
Printer.CurrentY = 67 + CY
Printer.Print .Text
.Col = 13
Printer.CurrentX = 108
Printer.CurrentY = 67 + CY
Printer.Print .Text
.Col = 14
Printer.CurrentX = 128
Printer.CurrentY = 67 + CY
Printer.Print .Text
.Col = 15
Printer.CurrentX = 143
Printer.CurrentY = 67 + CY
Printer.Print .Text
.Col = 16
Printer.CurrentX = 25
Printer.CurrentY = 75 + CY
Printer.Print "合計"
Printer.CurrentX = 48
Printer.CurrentY = 75 + CY
Printer.Print .Text
sTotalFee = .Text
Printer.CurrentX = 70
Printer.CurrentY = 75 + CY
Printer.Print "人民幣大寫：" & test(CStr(Format(sTotalFee, "#0.00") * 100), 1)
Printer.CurrentX = 23
Printer.CurrentY = 84 + CY
'Printer.Print "收款員:" & GetInitStr$("Setup", "Coll")
Next
Printer.NewPage
If .row = .Rows - 1 Then Exit For
Next
'Next
'打印到文件結尾
Printer.EndDoc
Else
Dim dh As Long, DS As String
'打印標題
Printer.FontSize = 15
'Printer.CurrentX = (print_W - TextWidth(Trim(Me.lblTitle.Caption)) / 56.7) / 2 - 30
Printer.CurrentY = 20
'dh = 20 + TextHeight(lblTitle.Caption) / 56.7 + 5
'Printer.Print lblTitle.Caption
Printer.FontSize = 10
'打印當前日期
DS = "制表日期:" & STR(Year(Now)) & "年" & STR(Month(Now)) & "月" & STR(Day(Now)) & "日"
Printer.CurrentX = print_W - TextWidth(DS) / 56.7 - 40
Printer.CurrentY = dh
Printer.Print DS
dh = dh + TextHeight(DS) / 56.7 + 8
'調用打印表格的子程序,打印表格內容
Printer.DrawStyle = 0
Print_Grid mfgFee, dh
'打印到文件結尾
Printer.EndDoc
End If
End With
Case 2 '退出
Unload Me
End Select
Exit Sub
ErrHandler:
MsgBox "error"
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command2_Click()
Dim MYSET As New ADODB.Recordset
Dim MyFeeset As New ADODB.Recordset
Dim strsql As String
strsql = "SELECT * FROM USERFEE WHERE CLLODAY Between #" & dtpStart & "# And #" & DTPicker1 & "#"
strsql = strsql & " order by userid1"
MYSET.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
Do Until MYSET.EOF
strsql = "select * from USER1 where userid1=" & _
MYSET("userid1")
MyFeeset.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If MyFeeset.EOF Then
Exit Sub
End If
' strsql = "select * from USERFEE where USERID1=" & MYSET("userid1") & " and "
strsql = "update userfee set louhaoid='" & MyFeeset("louhaoid") & "' where userid1=" & _
MyFeeset("userid1")
config.cnZdx.Execute strsql
MyFeeset.Close
MYSET.MoveNext
Loop
MYSET.Close
End Sub
Private Sub Form_Load()
Fillcomb cmbElement, "select * from louhao order by bmid", "bmname"
cmbElement.ListIndex = -1
dtpStart = Date
DTPicker1 = Date
'lblTitle.Caption = ""
mfgFee.Clear
'AddCombo1 cboPrecinct, "select * from bmPowerElement where type='所'"
End Sub
Private Sub Form_Resize()
On Error Resume Next
With mfgFee
.Top = 2800
.Left = 60
.Height = Me.Height - 3800
.Width = Me.Width - 260
End With
End Sub
'打印Grid對象的子程序,只要給出表格的名稱和起始的X,Y坐標,即可完成操作
Sub Print_Grid(gd As Control, CY0 As Long)
On Error Resume Next
Dim I As Integer, j As Integer
Dim CX0 As Single
'Printer.ScaleMode = 3
Printer.FontSize = 10
With gd
For I = 0 To .Rows - 1
.row = I
CX0 = 22
For j = 0 To .Cols
.Col = j
'打印表格線
Printer.Line (CX0, CY0)-(CX0 + .ColWidth(j) / 56.7 + 3, _
CY0 + TextHeight("d") / 56.7 * 2), 0, B
'設置表格內文字的位置
If .row = 0 Then
Printer.CurrentX = CX0 + (.ColWidth(j) / 56.7 - TextWidth(.Text) / 56.7) / 2 + 1.5
ElseIf .ColAlignment(j) = 7 Then
Printer.CurrentX = CX0 + (.ColWidth(j) / 56.7 + 3 - TextWidth(.Text) / 56.7) - 3
Else
Printer.CurrentX = CX0 + 1.5
End If
Printer.CurrentY = CY0 + 1.5
'打印文字
Printer.Print .Text
'計算下一列表格的起始橫坐標位置
CX0 = CX0 + .ColWidth(j) / 56.7 + 3
Next j
'計算下一行表格的起始縱坐標位置
If CY0 >= print_H - 30 Then
Printer.NewPage
CY0 = 30
Else
CY0 = CY0 + TextHeight("d") / 56.7 * 2
End If
Next I
End With
End Sub
Function fPrintText(sTitle As String, CX As Single, CY As Single, _
iFontSize As Integer, bBold As Boolean)
P.Font.Bold = bBold
P.FontSize = iFontSize
P.CurrentX = CX
P.CurrentY = CY
P.Print sTitle
End Function
Function fillfee(str1 As Integer) As Single
Dim MYSET As New ADODB.Recordset
Dim strsql As String
strsql = "select * from fee where userid1=" & str1
MYSET.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If Not MYSET.EOF Then
fillfee = MYSET("fee")
End If
MYSET.Close
Set MYSET = Nothing
End Function
Function fillfee1(str1 As Integer) As Single
Dim MYSET As New ADODB.Recordset
Dim strsql As String
strsql = "select * from userfee where userid1=" & str1 & "and clloyear=" & dtpStart.Year & "and cllomonth=" & dtpStart.Month
MYSET.Open strsql, config.cnZdx, adOpenStatic, adLockReadOnly
If Not MYSET.EOF Then
fillfee1 = MYSET("fee")
Else
fillfee1 = 0
End If
MYSET.Close
Set MYSET = Nothing
End Function
Sub filldate1(STR2 As Integer)
On Error Resume Next
Dim MyFeeset As New ADODB.Recordset
Dim strsql As String
e: MyFeeset.Close
If DTPicker2.Year < 2004 Then
GoTo g:
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)
g: MyFeeset.Close
Set MyFeeset = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -