📄 frmfl.frm
字号:
LCID = 2052
SubFormatType = 1
EndProperty
DataSource = "Data1"
Height = 270
Left = 3945
TabIndex = 50
Top = 1170
Width = 1320
End
Begin VB.TextBox Text8
Alignment = 1 'Right Justify
DataField = "Revenue_YearNumber"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
DataSource = "Data1"
Height = 270
Left = 3945
TabIndex = 49
Top = 870
Width = 1320
End
Begin VB.TextBox Text7
Alignment = 2 'Center
Height = 270
Left = 2505
Locked = -1 'True
TabIndex = 48
Text = "------"
Top = 2370
Width = 1320
End
Begin VB.TextBox Text6
Alignment = 2 'Center
Height = 270
Left = 2505
Locked = -1 'True
TabIndex = 47
Text = "------"
Top = 2070
Width = 1320
End
Begin VB.TextBox Text5
Alignment = 2 'Center
Height = 270
Left = 2505
Locked = -1 'True
TabIndex = 46
Text = "------"
Top = 1770
Width = 1320
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
DataField = "Profit_MonthNumber"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
DataSource = "Data1"
Height = 270
Left = 2505
TabIndex = 45
Top = 1470
Width = 1320
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
DataField = "Cost_MonthNumber"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
DataSource = "Data1"
Height = 270
Left = 2505
TabIndex = 44
Top = 1170
Width = 1320
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
DataField = "Revenue_MonthNumber"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
DataSource = "Data1"
Height = 270
Left = 2505
TabIndex = 43
Top = 870
Width = 1320
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Left = 8445
TabIndex = 42
Top = 1095
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
CustomFormat = "yyyyMM"
Format = 58327043
UpDown = -1 'True
CurrentDate = 37212
End
Begin VB.CommandButton Cmdback
Cancel = -1 'True
Caption = "返回(&C)"
Height = 375
Left = 8430
TabIndex = 39
Top = 5685
Width = 1455
End
Begin VB.CommandButton Cmdprint
Caption = "打印(&P)"
Default = -1 'True
Height = 375
Left = 8430
TabIndex = 38
Top = 5160
Width = 1455
End
Begin VB.Label Label41
Caption = "填表日期："
Height = 255
Left = 8325
TabIndex = 41
Top = 1515
Width = 1095
End
Begin VB.Label Label40
Caption = "所属时间："
Height = 255
Left = 8340
TabIndex = 40
Top = 840
Width = 975
End
Begin VB.Label Label39
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "税额"
Height = 180
Left = 7350
TabIndex = 37
Top = 4275
Width = 360
End
Begin VB.Label Label38
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "金额"
Height = 180
Left = 5910
TabIndex = 36
Top = 4245
Width = 360
End
Begin VB.Label Label37
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "份数"
Height = 180
Left = 4470
TabIndex = 35
Top = 4245
Width = 360
End
Begin VB.Label Label36
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "小 计"
Height = 180
Left = 1470
TabIndex = 34
Top = 6030
Width = 990
End
Begin VB.Label Label35
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "运输普通发票"
Height = 180
Left = 510
TabIndex = 33
Top = 5715
Width = 1080
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "进口货物海完税凭证关"
Height = 180
Left = 510
TabIndex = 32
Top = 5430
Width = 1800
End
Begin VB.Label Label33
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "废旧物资收购凭证或普通发票"
Height = 180
Left = 510
TabIndex = 31
Top = 5130
Width = 2340
End
Begin VB.Label Label32
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "农产品收购凭证或普通发票"
Height = 180
Left = 510
TabIndex = 30
Top = 4830
Width = 2160
End
Begin VB.Label Label31
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "增值税专用发票抵扣联"
Height = 180
Left = 510
TabIndex = 29
Top = 4515
Width = 1800
End
Begin VB.Label Label30
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "项 目 名 称"
Height = 180
Left = 1590
TabIndex = 28
Top = 4245
Width = 990
End
Begin VB.Label Label29
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "小 计"
Height = 180
Left = 1590
TabIndex = 27
Top = 3915
Width = 990
End
Begin VB.Label Label28
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "未开具发票"
Height = 180
Left = 510
TabIndex = 26
Top = 3630
Width = 900
End
Begin VB.Label Label27
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "开具普通发票"
Height = 180
Left = 510
TabIndex = 25
Top = 3345
Width = 1080
End
Begin VB.Label Label26
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "开具增值税专用发票"
Height = 180
Left = 510
TabIndex = 24
Top = 3075
Width = 1620
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "税额"
Height = 180
Left = 7350
TabIndex = 23
Top = 2715
Width = 360
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "金额"
Height = 180
Left = 5910
TabIndex = 22
Top = 2715
Width = 360
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "份数"
Height = 180
Left = 4470
TabIndex = 21
Top = 2715
Width = 360
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "项 目 名 称"
Height = 180
Left = 1590
TabIndex = 20
Top = 2715
Width = 990
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其末余额"
Height = 180
Left = 7110
TabIndex = 19
Top = 675
Width = 720
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "期初余额"
Height = 180
Left = 5670
TabIndex = 18
Top = 675
Width = 720
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本年累计"
Height = 180
Left = 4230
TabIndex = 17
Top = 675
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本月数"
Height = 180
Left = 2910
TabIndex = 16
Top = 675
Width = 540
End
Begin VB.Line Line27
BorderColor = &H00008000&
X1 = 8190
X2 = 8190
Y1 = 555
Y2 = 6255
End
Begin VB.Line Line26
BorderColor = &H00008000&
X1 = 6750
X2 = 6750
Y1 = 555
Y2 = 6255
End
Begin VB.Line Line25
BorderColor = &H00008000&
X1 = 5310
X2 = 5310
Y1 = 555
Y2 = 6255
End
Begin VB.Line Line24
BorderColor = &H00008000&
X1 = 3870
X2 = 3870
Y1 = 555
Y2 = 6255
End
Begin VB.Line Line23
BorderColor = &H00008000&
X1 = 2430
X2 = 2430
Y1 = 555
Y2 = 2655
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "应付帐款"
Height = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -