📄 frmfl.frm
字号:
Left = 510
TabIndex = 15
Top = 2445
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "应收帐款"
Height = 180
Left = 510
TabIndex = 14
Top = 2130
Width = 720
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "存货"
Height = 180
Left = 510
TabIndex = 13
Top = 1830
Width = 360
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "产品（商品）销售利润"
Height = 180
Left = 510
TabIndex = 12
Top = 1530
Width = 1800
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "产品（商品）销售成本"
Height = 180
Left = 510
TabIndex = 11
Top = 1230
Width = 1800
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "产品（商品）销售收入"
Height = 180
Left = 510
TabIndex = 10
Top = 930
Width = 1800
End
Begin VB.Label Label11
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Height = 300
Left = 4350
TabIndex = 9
Top = 195
Width = 3405
End
Begin VB.Label Label10
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Height = 300
Left = 1635
TabIndex = 8
Top = 195
Width = 1335
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "进 项 发 票 或 凭 证"
Height = 2175
Left = 195
TabIndex = 7
Top = 4290
Width = 255
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "销 项 发 票"
Height = 1455
Left = 195
TabIndex = 6
Top = 2760
Width = 255
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "财 务 指 标"
Height = 1455
Left = 195
TabIndex = 5
Top = 1020
Width = 255
End
Begin VB.Line Line22
BorderColor = &H00008000&
X1 = 390
X2 = 390
Y1 = 555
Y2 = 6255
End
Begin VB.Line Line21
BorderColor = &H00008000&
X1 = 150
X2 = 150
Y1 = 555
Y2 = 6255
End
Begin VB.Line Line20
BorderColor = &H00008000&
X1 = 150
X2 = 8192
Y1 = 6255
Y2 = 6255
End
Begin VB.Line Line19
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 5355
Y2 = 5355
End
Begin VB.Line Line18
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 5655
Y2 = 5655
End
Begin VB.Line Line17
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 5955
Y2 = 5955
End
Begin VB.Line Line16
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 5055
Y2 = 5055
End
Begin VB.Line Line15
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 4755
Y2 = 4755
End
Begin VB.Line Line14
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 4455
Y2 = 4455
End
Begin VB.Line Line13
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 3555
Y2 = 3555
End
Begin VB.Line Line12
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 3855
Y2 = 3855
End
Begin VB.Line Line11
BorderColor = &H00008000&
X1 = 150
X2 = 8192
Y1 = 4155
Y2 = 4155
End
Begin VB.Line Line10
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 3255
Y2 = 3255
End
Begin VB.Line Line9
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 2955
Y2 = 2955
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "项 目 名 称"
Height = 180
Left = 750
TabIndex = 4
Top = 675
Width = 990
End
Begin VB.Line Line8
BorderColor = &H00008000&
X1 = 150
X2 = 8192
Y1 = 2655
Y2 = 2655
End
Begin VB.Line Line7
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 1755
Y2 = 1755
End
Begin VB.Line Line6
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 2055
Y2 = 2055
End
Begin VB.Line Line5
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 2355
Y2 = 2355
End
Begin VB.Line Line4
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 1455
Y2 = 1455
End
Begin VB.Line Line3
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 1155
Y2 = 1155
End
Begin VB.Line Line2
BorderColor = &H00008000&
X1 = 390
X2 = 8192
Y1 = 855
Y2 = 855
End
Begin VB.Line Line1
BorderColor = &H00008000&
X1 = 150
X2 = 8190
Y1 = 555
Y2 = 555
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "金额单位:人民币元"
Height = 180
Left = 8310
TabIndex = 3
Top = 240
Width = 1530
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "纳税人名称:"
Height = 180
Left = 3270
TabIndex = 2
Top = 255
Width = 990
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "企业编码:"
Height = 180
Left = 795
TabIndex = 1
Top = 255
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "附件2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 105
TabIndex = 0
Top = 45
Width = 585
End
End
Attribute VB_Name = "frmfl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim zsbexcel As Excel.Application
Public fl
Private Sub Cmdback_Click()
Unload Me
End Sub
Private Sub cmdprint_Click()
On Error GoTo errorhandler
Set zsbexcel = New Excel.Application
zsbexcel.Visible = True
' Set zsbexcel = Nothing
zsbexcel.SheetsInNewWorkbook = 1
Set zsbworkbook = zsbexcel.Workbooks.Open(App.Path + "\" + "sheet\flzl.xlt")
With zsbexcel.ActiveSheet
.Range("C6").Value = Label11.Caption
.Range("F6").Value = DTPicker2
.Range("C8").Value = Text2
.Range("C9").Value = Text3
.Range("C10").Value = Text4
.Range("D8").Value = Text8
.Range("D9").Value = Text9
.Range("D10").Value = Text10
.Range("E9").Value = Text15
.Range("E11").Value = Text17
.Range("E12").Value = Text18
.Range("E13").Value = Text19
.Range("G9").Value = Text21
.Range("G11").Value = Text23
.Range("G12").Value = Text24
.Range("G13").Value = Text25
.Range("D15").Value = Text26
.Range("D16").Value = Text27
.Range("D17").Value = Text28
.Range("E15").Value = Text30
.Range("E16").Value = Text31
.Range("E17").Value = Text32
.Range("E19").Value = Text33
.Range("G15").Value = Text34
.Range("G16").Value = Text35
.Range("G17").Value = Text36
.Range("G19").Value = Text37
.Range("D21").Value = Text38
.Range("D22").Value = Text39
.Range("D23").Value = Text40
.Range("D24").Value = Text41
.Range("D25").Value = Text42
.Range("E21").Value = Text44
.Range("E22").Value = Text45
.Range("E23").Value = Text46
.Range("E24").Value = Text47
.Range("E25").Value = Text48
.Range("E28").Value = Text49
.Range("G21").Value = Text50
.Range("G22").Value = Text51
.Range("G23").Value = Text52
.Range("G24").Value = Text53
.Range("G25").Value = Text54
.Range("G28").Value = Text55
End With
zsbexcel.Caption = "打印预览"
zsbexcel.ActiveWindow.SelectedSheets.PrintPreview
zsbexcel.DisplayAlerts = False
zsbexcel.Quit
zsbexcel.DisplayAlerts = True
Set zsbexcel = Nothing
Exit Sub
errorhandler:
MsgBox "请正确安装EXCEL！", vbOKOnly + vbCritical
Exit Sub
End Sub
Private Sub Command1_Click()
LoadData
End Sub
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Label10.Caption = frmqy.qybm
Label11.Caption = frmqy.qymc
DTPicker1.Year = Format(Date, "yyyy")
DTPicker1.Month = Format(Date, "MM") - 1
DTPicker2.Year = Format(Date, "yyyy")
DTPicker2.Month = Format(Date, "MM")
DTPicker2.Day = 1
DTPicker2 = DTPicker2 - 1
Call LoadData
End Sub
Private Sub LoadData()
Dim year1, month1
yearandmonth = CStr(Format(DTPicker1, "yyyyMM"))
Dim sql As String
Str1 = CStr(frmqy.qybm)
sql = "qybm=" + "'" + Str1 + "'" + " and " + "SSSQ=" + "'" + yearandmonth + "'"
data1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + App.Path + "\gxsw.mdb"
data1.RecordSource = "select * from FLZL where " & sql
data1.Refresh
If data1.Recordset.EOF = True Then
fl = True
MsgBox "对不起，此企业本月还没有生成报表！", vbOKOnly + vbInformation, "提示"
Text2 = 0#
Exit Sub
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -