ufrm_salesorder.dfm
来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· DFM 代码 · 共 299 行
DFM
299 行
inherited frm_salesorder: Tfrm_salesorder
Left = 218
Top = 213
Caption = 'frm_salesorder'
PixelsPerInch = 96
TextHeight = 13
inherited Splitter1: TSplitter
Top = 185
end
inherited Page01: TPageControl
Height = 152
inherited TabSheet1: TTabSheet
inherited panelEdit: TPanel
Height = 121
object Label1: TLabel
Left = 30
Top = 29
Width = 51
Height = 13
Caption = #35746#21333#32534#21495':'
end
object Label2: TLabel
Left = 30
Top = 59
Width = 51
Height = 13
Caption = #35746#21333#26085#26399':'
end
object Label3: TLabel
Left = 30
Top = 90
Width = 51
Height = 13
Caption = #23458#25143#32534#21495':'
end
object Label4: TLabel
Left = 238
Top = 89
Width = 51
Height = 13
Caption = #30830#35748#26631#24535':'
end
object DBText1: TDBText
Left = 296
Top = 88
Width = 65
Height = 17
DataField = 'ACTI'
DataSource = ds_master
Font.Charset = DEFAULT_CHARSET
Font.Color = 8388863
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object orderno: TDBEdit
Left = 88
Top = 24
Width = 121
Height = 21
DataField = 'ORDERNO'
DataSource = ds_master
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
TabOrder = 0
end
object orderdate: TdxDBDateEdit
Left = 88
Top = 56
Width = 121
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
TabOrder = 1
DataField = 'ORDERDATE'
DataSource = ds_master
end
object customer: TdxDBButtonEdit
Left = 88
Top = 88
Width = 121
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
TabOrder = 2
DataField = 'CUSTNO'
DataSource = ds_master
Buttons = <
item
Default = True
end>
OnButtonClick = customerButtonClick
ExistButtons = True
end
end
end
end
inherited PanelDetail1: TPanel
Top = 188
Height = 256
inherited dbGrid: TdxDBGrid
Height = 252
KeyField = 'ORDERITEM'
Filter.Criteria = {00000000}
object dbGridORDERNO: TdxDBGridMaskColumn
Visible = False
BandIndex = 0
RowIndex = 0
FieldName = 'ORDERNO'
end
object dbGridORDERITEM: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ORDERITEM'
end
object dbGridGOODSNO: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'GOODSNO'
end
object dbGridORDERQTY: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ORDERQTY'
end
object dbGridUNIT: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'UNIT'
end
object dbGridACTI: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ACTI'
end
object dbGridOWUS: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'OWUS'
end
object dbGridGRUP: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'GRUP'
end
object dbGridCRET: TdxDBGridDateColumn
BandIndex = 0
RowIndex = 0
FieldName = 'CRET'
end
object dbGridMODU: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'MODU'
end
object dbGridMODT: TdxDBGridDateColumn
BandIndex = 0
RowIndex = 0
FieldName = 'MODT'
end
end
end
inherited Query1: TQuery
DatabaseName = 'JXC_CSD'
Left = 176
Top = 32
end
inherited qy_master: TQuery
DatabaseName = 'JXC_CSD'
SQL.Strings = (
'')
Left = 208
Top = 32
object qy_masterORDERNO: TStringField
DisplayLabel = #35746#21333#32534#21495
FieldName = 'ORDERNO'
Origin = 'JXC_CSD.T_ORDERHEAD.ORDERNO'
Size = 10
end
object qy_masterORDERDATE: TDateTimeField
DisplayLabel = #35746#21333#26085#26399
FieldName = 'ORDERDATE'
Origin = 'JXC_CSD.T_ORDERHEAD.ORDERDATE'
end
object qy_masterCUSTNO: TStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'CUSTNO'
Origin = 'JXC_CSD.T_ORDERHEAD.CUSTNO'
Size = 10
end
object qy_masterACTI: TStringField
DisplayLabel = #30830#35748#26631#24535
FieldName = 'ACTI'
Origin = 'JXC_CSD.T_ORDERHEAD.ACTI'
Size = 1
end
object qy_masterOWUS: TStringField
DisplayLabel = #25152#26377#32773
FieldName = 'OWUS'
Origin = 'JXC_CSD.T_ORDERHEAD.OWUS'
Size = 10
end
object qy_masterGRUP: TStringField
DisplayLabel = #32676#32452
FieldName = 'GRUP'
Origin = 'JXC_CSD.T_ORDERHEAD.GRUP'
Size = 10
end
object qy_masterCRET: TDateTimeField
DisplayLabel = #24314#31435#26085#26399
FieldName = 'CRET'
Origin = 'JXC_CSD.T_ORDERHEAD.CRET'
end
object qy_masterMODU: TStringField
DisplayLabel = #20462#25913#20154
FieldName = 'MODU'
Origin = 'JXC_CSD.T_ORDERHEAD.MODU'
Size = 10
end
object qy_masterMODT: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'MODT'
Origin = 'JXC_CSD.T_ORDERHEAD.MODT'
end
end
inherited ds_master: TDataSource
Left = 240
Top = 32
end
inherited qy_detail: TQuery
DatabaseName = 'JXC_CSD'
SQL.Strings = (
'')
Left = 280
Top = 32
object qy_detailORDERNO: TStringField
DisplayLabel = #35746#21333#32534#21495
FieldName = 'ORDERNO'
Origin = 'JXC_CSD.T_ORDERLIST.ORDERNO'
Size = 10
end
object qy_detailORDERITEM: TIntegerField
DisplayLabel = #35746#21333#39033#27425
FieldName = 'ORDERITEM'
Origin = 'JXC_CSD.T_ORDERLIST.ORDERITEM'
end
object qy_detailGOODSNO: TStringField
DisplayLabel = #36135#21697#32534#21495
FieldName = 'GOODSNO'
Origin = 'JXC_CSD.T_ORDERLIST.GOODSNO'
end
object qy_detailORDERQTY: TFloatField
DisplayLabel = #35746#21333#25968#37327
FieldName = 'ORDERQTY'
Origin = 'JXC_CSD.T_ORDERLIST.ORDERQTY'
end
object qy_detailUNIT: TStringField
DisplayLabel = #21333#20301
FieldName = 'UNIT'
Origin = 'JXC_CSD.T_ORDERLIST.UNIT'
Size = 8
end
object qy_detailACTI: TStringField
DisplayLabel = #30830#35748#26631#24535
FieldName = 'ACTI'
Origin = 'JXC_CSD.T_ORDERLIST.ACTI'
Size = 1
end
object qy_detailOWUS: TStringField
DisplayLabel = #24314#31435#32773
FieldName = 'OWUS'
Origin = 'JXC_CSD.T_ORDERLIST.OWUS'
Size = 10
end
object qy_detailGRUP: TStringField
DisplayLabel = #32676#32452
FieldName = 'GRUP'
Origin = 'JXC_CSD.T_ORDERLIST.GRUP'
Size = 10
end
object qy_detailCRET: TDateTimeField
DisplayLabel = #24314#31435#26085#26399
FieldName = 'CRET'
Origin = 'JXC_CSD.T_ORDERLIST.CRET'
end
object qy_detailMODU: TStringField
DisplayLabel = #20462#25913#20154
FieldName = 'MODU'
Origin = 'JXC_CSD.T_ORDERLIST.MODU'
Size = 10
end
object qy_detailMODT: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'MODT'
Origin = 'JXC_CSD.T_ORDERLIST.MODT'
end
end
inherited ds_detail: TDataSource
Left = 312
Top = 32
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?