📄 cooipf.~dfm
字号:
object Label8: TLabel
Left = 160
Top = 154
Width = 36
Height = 13
Caption = #24635#35745' '
end
object Shape5: TShape
Left = 160
Top = 172
Width = 129
Height = 1
Pen.Color = clWhite
end
object DBGrid3: TDBGrid
Left = 8
Top = 8
Width = 385
Height = 137
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'AlcCode'
PickList.Strings = (
#26009#25104#26412)
Title.Caption = #25104#26412#21517#31216
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'CustSum'
Title.Caption = #37329#39069
Width = 96
Visible = True
end
item
Expanded = False
FieldName = 'Factor'
Title.Caption = #31995#25968
Width = 86
Visible = True
end>
end
object Button6: TButton
Left = 416
Top = 128
Width = 75
Height = 23
Caption = #28165#38500#34920
TabOrder = 1
end
object Button7: TButton
Left = 416
Top = 152
Width = 75
Height = 23
Caption = #26032#25104#26412
TabOrder = 2
OnClick = Button4Click
end
object DBEdit4: TDBEdit
Left = 272
Top = 155
Width = 121
Height = 18
BorderStyle = bsNone
DataField = 'DocTotal2'
DataSource = DataSource1
TabOrder = 3
end
end
object TabSheet5: TTabSheet
Caption = #22806#26500#20214#25104#26412
ImageIndex = 4
OnShow = TabSheet5Show
object Label9: TLabel
Left = 160
Top = 154
Width = 36
Height = 13
Caption = #24635#35745' '
end
object Shape7: TShape
Left = 160
Top = 172
Width = 129
Height = 1
Pen.Color = clWhite
end
object DBGrid4: TDBGrid
Left = 8
Top = 8
Width = 385
Height = 137
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'AlcCode'
PickList.Strings = (
#26009#25104#26412)
Title.Caption = #25104#26412#21517#31216
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'CustSum'
Title.Caption = #37329#39069
Width = 96
Visible = True
end
item
Expanded = False
FieldName = 'Factor'
Title.Caption = #31995#25968
Width = 86
Visible = True
end>
end
object Button8: TButton
Left = 416
Top = 128
Width = 75
Height = 23
Caption = #28165#38500#34920
TabOrder = 1
end
object Button9: TButton
Left = 416
Top = 152
Width = 75
Height = 23
Caption = #26032#25104#26412
TabOrder = 2
OnClick = Button4Click
end
object DBEdit5: TDBEdit
Left = 272
Top = 155
Width = 121
Height = 18
BorderStyle = bsNone
DataField = 'DocTotal3'
DataSource = DataSource1
TabOrder = 3
end
end
object TabSheet6: TTabSheet
Caption = #26426#29289#26009#25104#26412
ImageIndex = 5
object Label10: TLabel
Left = 160
Top = 154
Width = 36
Height = 13
Caption = #24635#35745' '
end
object Shape8: TShape
Left = 160
Top = 172
Width = 129
Height = 1
Pen.Color = clWhite
end
object DBGrid5: TDBGrid
Left = 8
Top = 8
Width = 385
Height = 137
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'AlcCode'
PickList.Strings = (
#26009#25104#26412)
Title.Caption = #25104#26412#21517#31216
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'CustSum'
Title.Caption = #37329#39069
Width = 96
Visible = True
end
item
Expanded = False
FieldName = 'Factor'
Title.Caption = #31995#25968
Width = 86
Visible = True
end>
end
object Button10: TButton
Left = 416
Top = 128
Width = 75
Height = 23
Caption = #28165#38500#34920
TabOrder = 1
end
object Button11: TButton
Left = 416
Top = 152
Width = 75
Height = 23
Caption = #26032#25104#26412
TabOrder = 2
OnClick = Button4Click
end
object DBEdit6: TDBEdit
Left = 272
Top = 155
Width = 121
Height = 18
BorderStyle = bsNone
DataField = 'DocTotal4'
DataSource = DataSource1
TabOrder = 3
end
end
object TabSheet7: TTabSheet
Caption = #22996#22806#21152#24037#25104#26412
ImageIndex = 6
object Label16: TLabel
Left = 160
Top = 154
Width = 36
Height = 13
Caption = #24635#35745' '
end
object Shape9: TShape
Left = 160
Top = 172
Width = 129
Height = 1
Pen.Color = clWhite
end
object DBGrid6: TDBGrid
Left = 8
Top = 8
Width = 385
Height = 137
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'AlcCode'
PickList.Strings = (
#26009#25104#26412)
Title.Caption = #25104#26412#21517#31216
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'CustSum'
Title.Caption = #37329#39069
Width = 96
Visible = True
end
item
Expanded = False
FieldName = 'Factor'
Title.Caption = #31995#25968
Width = 86
Visible = True
end>
end
object Button12: TButton
Left = 416
Top = 128
Width = 75
Height = 23
Caption = #28165#38500#34920
TabOrder = 1
end
object Button13: TButton
Left = 416
Top = 152
Width = 75
Height = 23
Caption = #26032#25104#26412
TabOrder = 2
OnClick = Button4Click
end
object DBEdit7: TDBEdit
Left = 272
Top = 155
Width = 121
Height = 18
BorderStyle = bsNone
DataField = 'DocTotal5'
DataSource = DataSource1
TabOrder = 3
end
end
object TabSheet8: TTabSheet
Caption = #31649#29702#36153#29992
ImageIndex = 7
object Label17: TLabel
Left = 160
Top = 154
Width = 36
Height = 13
Caption = #24635#35745' '
end
object Shape16: TShape
Left = 160
Top = 172
Width = 129
Height = 1
Pen.Color = clWhite
end
object DBGrid7: TDBGrid
Left = 8
Top = 8
Width = 385
Height = 137
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'AlcCode'
PickList.Strings = (
#26009#25104#26412)
Title.Caption = #25104#26412#21517#31216
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'CustSum'
Title.Caption = #37329#39069
Width = 96
Visible = True
end
item
Expanded = False
FieldName = 'Factor'
Title.Caption = #31995#25968
Width = 86
Visible = True
end>
end
object Button14: TButton
Left = 416
Top = 128
Width = 75
Height = 23
Caption = #28165#38500#34920
TabOrder = 1
end
object Button15: TButton
Left = 416
Top = 152
Width = 75
Height = 23
Caption = #26032#25104#26412
TabOrder = 2
OnClick = Button4Click
end
object DBEdit8: TDBEdit
Left = 272
Top = 155
Width = 121
Height = 18
BorderStyle = bsNone
DataField = 'DocTotal6'
DataSource = DataSource1
TabOrder = 3
end
end
end
object Button1: TButton
Left = 8
Top = 334
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 8
OnClick = Button1Click
end
object Button2: TButton
Left = 88
Top = 334
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 9
OnClick = Button2Click
end
object Button5: TButton
Left = 432
Top = 334
Width = 83
Height = 25
Caption = #38144#21806#35746#21333#20132#36135
Enabled = False
TabOrder = 10
OnClick = Button5Click
end
object DataSource1: TDataSource
DataSet = ADOQuP1
Left = 56
Top = 56
end
object DataSource2: TDataSource
DataSet = ADOQuP2
Left = 204
Top = 200
end
object DataSource3: TDataSource
DataSet = DataModHJ.ADOQuP3
Left = 28
Top = 192
end
object ADOQuP1: TADOQuery
Connection = DataModHJ.ADOCon
Parameters = <
item
Name = 'P0'
DataType = ftVariant
Value = 0c
end>
SQL.Strings = (
'')
Left = 88
Top = 56
end
object ADOQuP2: TADOQuery
Connection = DataModHJ.ADOCon
Parameters = <
item
Name = 'P0'
DataType = ftVariant
Value = 0c
end>
Left = 232
Top = 200
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -