📄 dyfp.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form dyfp
BorderStyle = 1 'Fixed Single
Caption = "打印发票"
ClientHeight = 4860
ClientLeft = 45
ClientTop = 330
ClientWidth = 7230
Icon = "dyfp.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4860
ScaleWidth = 7230
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command3
Caption = "信 息"
Height = 375
Left = 4080
TabIndex = 12
Top = 4320
Width = 855
End
Begin VB.CommandButton Command2
Caption = "打 印"
Height = 375
Left = 5160
TabIndex = 7
Top = 4320
Width = 855
End
Begin MSComDlg.CommonDialog cd1
Left = 6720
Top = 2160
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "退 出"
Height = 375
Left = 6240
TabIndex = 2
Top = 4320
Width = 855
End
Begin VB.Frame Frame2
Caption = "打印位置"
Height = 2895
Left = 3960
TabIndex = 1
Top = 240
Width = 2535
Begin VB.CheckBox Check4
Caption = "终止位置"
Enabled = 0 'False
Height = 255
Left = 600
TabIndex = 4
Top = 1680
Width = 1815
End
Begin VB.CheckBox Check3
Caption = "开始位置"
Enabled = 0 'False
Height = 255
Left = 600
TabIndex = 3
Top = 720
Width = 1815
End
End
Begin VB.Frame Frame1
Caption = "打印方式"
Height = 2895
Left = 720
TabIndex = 0
Top = 240
Width = 2535
Begin VB.OptionButton Option2
Caption = "选择打印"
Height = 255
Left = 600
TabIndex = 6
Top = 1680
Width = 1575
End
Begin VB.OptionButton Option1
Caption = "全部打印"
Height = 255
Left = 600
TabIndex = 5
Top = 720
Value = -1 'True
Width = 1575
End
End
Begin VB.Label zzwz
ForeColor = &H000000C0&
Height = 255
Left = 1320
TabIndex = 11
Top = 4320
Width = 2415
End
Begin VB.Label kswz
ForeColor = &H000000C0&
Height = 255
Left = 1320
TabIndex = 10
Top = 3840
Width = 2295
End
Begin VB.Label Label2
Caption = "终止位置："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 9
Top = 4320
Visible = 0 'False
Width = 975
End
Begin VB.Label Label1
Caption = "开始位置："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 8
Top = 3840
Visible = 0 'False
Width = 975
End
Begin VB.Line Line1
BorderColor = &H00008000&
BorderWidth = 3
X1 = 0
X2 = 7080
Y1 = 3360
Y2 = 3360
End
End
Attribute VB_Name = "dyfp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sj As Database
Public tmpsql As Recordset
Public old1 As Database, myold As Workspace
Public file1 As String
Public m As Integer '定义在一张（四张发票）每张跳的行数
Private Sub Check3_Click()
If Check3.Value = 1 Then
kswz = ""
frmwz.Show 1
While string1(13) = ""
ab = MsgBox("位置选择错误，请重新选择！", vbOKOnly + 16, "提示")
frmwz.Show 1
Wend
kswz = string1(13)
If zzwz <> "" And kswz <> "" Then
Command2.Enabled = True
End If
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
zzwz = ""
frmwz.Show 1
While string1(13) = ""
ab = MsgBox("位置选择错误，请重新选择！", vbOKOnly + 16, "提示")
frmwz.Show 1
Wend
zzwz = string1(13)
If zzwz <> "" And kswz <> "" Then
Command2.Enabled = True
End If
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
If Option2.Value = True Then
If string1(3) = 2 Then
'选择整个供电所
ksbq = Mid(kswz, 1, InStr(kswz, "-") - 1)
zzbq = Mid(zzwz, 1, InStr(zzwz, "-") - 1)
kshh = Mid(kswz, InStr(kswz, "-") + 1, InStr(kswz, "--") - (InStr(kswz, "-") + 1))
zzhh = Mid(zzwz, InStr(zzwz, "-") + 1, InStr(zzwz, "--") - (InStr(zzwz, "-") + 1))
tmp = Val(zzbq) < Val(ksbq)
abm1 = "select byqh,hh,hm,name,bydl,ysdf,bybm,sybm,bl,jjdl+bsh as tzdl,dj from bk where bh='" + string1(4) + "' and byqh='" + ksbq + "' and hh>='" + kshh + "' order by val(byqh),val(hh)" '开始配变的用户
abm2 = "select byqh,hh,hm,name,bydl,ysdf,bybm,sybm,bl,jjdl+bsh as tzdl,dj from bk where bh='" + string1(4) + "' and byqh>'" + ksbq + "' and byqh<'" + zzbq + "' order by val(byqh),val(hh)" '中间配变的所有用户
abm3 = "select byqh,hh,hm,name,bydl,ysdf,bybm,sybm,bl,jjdl+bsh as tzdl,dj from bk where bh='" + string1(4) + "' and byqh='" + zzbq + "' and hh<='" + zzhh + "' order by val(byqh),val(hh)" '终止配变的用户
Else
'选择单个配变
kshh = Mid(kswz, 1, InStr(kswz, "--") - 1)
zzhh = Mid(zzwz, 1, InStr(zzwz, "--") - 1)
tmp = Val(zzhh) < Val(kshh)
abm1 = "select byqh,hh,hm,name,bydl,ysdf,bybm,sybm,bl,jjdl+bsh as tzdl,dj from bk where byqh='" + string1(2) + "' and hh>='" + kshh + "' and hh<='" + zzhh + "' order by val(byqh),val(hh)"
End If
If tmp Then
ab = MsgBox("位置选择错误，请重新选择！", vbOKOnly + 16, "提示")
Check3.Value = 0
Check4.Value = 0
kswz = ""
zzwz = ""
Command2.Enabled = False
Else
If string1(3) = 2 Then
Else
Set tmpsql = sj.OpenRecordset(abm1)
tmpsql.MoveFirst
i = 1
While Not tmpsql.EOF
a1 = tmpsql!Name
a2 = tmpsql!hm
a3 = Trim(LTrim(Str(Year(Now))))
a4 = Trim(LTrim(Str(Month(Now))))
a5 = tmpsql!byqh & tmpsql!hh
b1 = tmpsql!bybm
b2 = tmpsql!sybm
b3 = tmpsql!bl
b4 = tmpsql!tzdl
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -