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