📄 dyfp.frm

📁 这是一套农村电费计算程序的源码。能够对用户电费进行计算、查询、打印。
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
                        b5 = tmpsql!bydl
                        b6 = tmpsql!dj
                        b7 = tmpsql!ysdf
                        
                        Printer.Font = "宋体"
                        Printer.FontSize = 9.8

                        Printer.Print ""
                        If m <> 1 Then
                            Printer.Print ""
                        End If
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print Space(11) & a1 & Space(22 - Len(a1) * 2) & a2 & Space(25 - Len(a2) * 2) & a3 & Space(2) & a4 & Space(10) & a5
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print Space(13) & b1 & Space(10 - Len(b1)) & b2 & Space(10 - Len(b2)) & b3 & Space(10 - Len(b3)) & b4 & Space(10 - Len(b4)) & b5 & Space(10 - Len(b5)) & b6 & Space(10 - Len(b6)) & b7
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        'c1 = sys(Str(b7))
                        c1 = "肆拾贰元贰角整"
                        c2 = "**" + LTrim(Trim(Str(b7)))
                        Printer.Print Space(17) & c1 & Space(50 - Len(c1) * 2) & c2
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        Printer.Print ""
                        m = m + 1

                        If Int(i / 4) = i / 4 Then
                            m = 1
                            Printer.NewPage
                        End If
                        i = i + 1
                        tmpsql.MoveNext
                    Wend
                    Printer.EndDoc
            End If
    End If
End If
End Sub

Private Sub Command3_Click()
'm = 1
'Printer.Font = "宋体"
'Printer.FontSize = 9.8
'For i = 1 To 16
'    Printer.Print "-"
'    If m <> 1 Then
'        Printer.Print ""
'    End If
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print ""
'    a1 = "小于村"
'    a2 = "孙留明"
'    a3 = "2000"
'    a4 = "06"
'    a5 = "1999810025"
'    Printer.Print Space(11) + a1 + Space(22 - Len(a1) * 2) + a2 + Space(25 - Len(a2) * 2) + a3 + Space(2) + a4 + Space(10) + a5
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print ""
'    b1 = "556"
'    b2 = "466"
'    b3 = "1"
'    b4 = "0"
'    b5 = "100"
'    b6 = "0.422"
'    b7 = "42.20"
'    Printer.Print Space(13) + b1 + Space(10 - Len(b1)) + b2 + Space(10 - Len(b2)) + b3 + Space(10 - Len(b3)) + b4 + Space(10 - Len(b4)) + b5 + Space(10 - Len(b5)) + b6 + Space(10 - Len(b6)) + b7
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print ""
'    c1 = "肆拾贰元贰角整"
'    c2 = "***42.20"
'    Printer.Print Space(17) + c1 + Space(50 - Len(c1) * 2) + c2
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print ""
'    Printer.Print "--"
'    m = m + 1
'    'Printer.Print ""
'    If Int(i / 4) = i / 4 Then
'    m = 1
'    Printer.NewPage
'    End If
'Next
'Printer.EndDoc

End Sub

Private Sub Form_Load()
    If string1(3) = 2 Then
            dyfp.Caption = "打印发票------【" + string1(1) + "】全部发票"
        Else
            dyfp.Caption = "打印发票------【" + string1(1) + "】"
    End If
    'file1 = App.Path + "\print\print.mdb"
    
    'Set myold = DBEngine.Workspaces(0)
    'Set old1 = myold.CreateDatabase(file1, dbLangGeneral, dbVersion03)
    'old1.Close
    m = 1
    tmp = App.Path + "\data\cjsj.mdb"
    Set sj = OpenDatabase(tmp, False, False, ";pwd=sunlm")
    'If string1(3) = 2 Then
    '        abm = "select byqh,hh,hm,name,bydl,ysdf,bybm,sybm,bl,jjdl+bsh as tzdl,dj from bk where bh='" + string1(4) + "' order by val(byqh),val(hh);"
    '        string1(14) = string1(4)  '记录选择的配变
    '    Else
    '        abm = "select byqh,hh,hm,name,bydl,ysdf,bybm,sybm,bl,jjdl+bsh as tzdl,dj  from bk where byqh='" + string1(2) + "' order by val(byqh),val(hh);"
    '        string1(14) = string1(2)  '记录选择的配变
    'End If
    'sj.Execute abm
    'MsgBox abm
End Sub

Private Sub Option1_Click()
    If Option1.Value = True Then
        Label1.Visible = False
        Label2.Visible = False
        Check3.Enabled = False
        Check4.Enabled = False
        Check3.Value = 0
        Check4.Value = 0
        Command2.Enabled = True
        kswz = ""
        zzwz = ""
    End If
End Sub

Private Sub Option2_Click()
    If Option2.Value = True Then
        Label1.Visible = True
        Label2.Visible = True
        Check3.Enabled = True
        Check4.Enabled = True
        Check3.Value = 0
        Check4.Value = 0
        Command2.Enabled = False
        string1(13) = ""
        kswz = "" '开始位置
        zzwz = "" '终止位置
    End If
End Sub
Public Sub fpdy(a1, a2, a3, a4, a5, b1, b2, b3, b4, b5, b6, b7)
Printer.Font = "宋体"
Printer.FontSize = 9.8
'For i = 1 To 16
    Printer.Print "-"
    If m <> 1 Then
        Printer.Print ""
    End If
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    'a1 = "小于村"
    'a2 = "孙留明"
    'a3 = "2000"
    'a4 = "06"
    'a5 = "1999810025"
    Printer.Print Space(11) + a1 + Space(22 - Len(a1) * 2) + a2 + Space(25 - Len(a2) * 2) + a3 + Space(2) + a4 + Space(10) + a5
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    'b1 = "556"
    'b2 = "466"
    'b3 = "1"
    'b4 = "0"
    'b5 = "100"
    'b6 = "0.422"
    'b7 = "42.20"
    Printer.Print Space(13) + b1 + Space(10 - Len(b1)) + b2 + Space(10 - Len(b2)) + b3 + Space(10 - Len(b3)) + b4 + Space(10 - Len(b4)) + b5 + Space(10 - Len(b5)) + b6 + Space(10 - Len(b6)) + b7
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    c1 = sys(Str(b7))
    c2 = "**" + LTrim(Trim(Str(b7)))
    Printer.Print Space(17) + c1 + Space(50 - Len(c1) * 2) + c2
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.Print "--"
    m = m + 1
    'Printer.Print ""
    If Int(m / 4) = m / 4 Then
        m = 1
        Printer.NewPage
    End If
'Next
'Printer.EndDoc

End Sub
Public Function sys(a1 As String) As String
    a2 = "零壹贰叁肆伍陆柒捌玖"
    a3 = "分角元拾佰仟万拾佰仟亿"
    If InStr(a1, ".") > 0 Then
            a5 = Mid(a1, 1, InStr(a1, ".") - 1)
            a7 = Mid(a1, InStr(a1, ".") + 1)
            a8 = ""
            For i = 1 To 2
                If i = 2 And Mid(a7, 2, 1) = "0" Then
                        a8 = a8 + "整"
                    Else
                        a8 = a8 + Mid(a2, Mid(a7, i, 1) + 1, 1)
                        a8 = a8 + Mid(a3, 3 - i, 1)
                End If
            Next
            
        Else
            a5 = a1
            a8 = "整"
    End If
    'a5 = IIf(InStr(a1, ".") > 0, Mid(a1, 1, InStr(a1, ".") - 1), a1)
    a4 = Len(a5)
    a6 = ""
    For i = 1 To a4
        a6 = a6 + Mid(a2, Mid(a5, i, 1) + 1, 1)
        a6 = a6 + Mid(a3, a4 + 1 - i + 2, 1)
    Next
    sys = a6 + a8
End Function
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -