ufrm_goodsmaster.dfm
来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· DFM 代码 · 共 195 行
DFM
195 行
inherited frm_goodsmaster: Tfrm_goodsmaster
Left = 215
Top = 195
Height = 342
Caption = 'frm_goodsmaster'
PixelsPerInch = 96
TextHeight = 13
inherited Page01: TPageControl
Height = 282
ActivePage = TabSheet1
TabIndex = 0
inherited TabSheet1: TTabSheet
inherited panelEdit: TPanel
Height = 251
object Label1: TLabel
Left = 19
Top = 29
Width = 51
Height = 13
Caption = #36135#21697#32534#21495':'
end
object Label2: TLabel
Left = 21
Top = 67
Width = 51
Height = 13
Caption = #36135#21697#21517#31216':'
end
object Label3: TLabel
Left = 9
Top = 112
Width = 3
Height = 13
end
object Label4: TLabel
Left = 21
Top = 145
Width = 51
Height = 13
Caption = #36164#26009#30830#35748':'
end
object Label5: TLabel
Left = 21
Top = 106
Width = 51
Height = 13
Caption = #24314#31435#26085#26399':'
end
object DBEdit1: TDBEdit
Left = 80
Top = 24
Width = 137
Height = 21
DataField = 'GOODSNO'
DataSource = ds_master
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
TabOrder = 0
end
object DBEdit3: TDBEdit
Left = 80
Top = 63
Width = 257
Height = 21
DataField = 'GOODSDESC'
DataSource = ds_master
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
TabOrder = 1
end
object DBCheckBox1: TDBCheckBox
Left = 80
Top = 143
Width = 97
Height = 17
DataField = 'ACTI'
DataSource = ds_master
ReadOnly = True
TabOrder = 2
ValueChecked = 'Y'
ValueUnchecked = 'N'
end
object dxDBDateEdit1: TdxDBDateEdit
Left = 80
Top = 103
Width = 121
ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
TabOrder = 3
DataField = 'CRET'
DataSource = ds_master
end
end
end
inherited TabSheet2: TTabSheet
inherited dbGrid: TdxDBGrid
Height = 251
DefaultLayout = False
KeyField = 'GOODSNO'
Font.Height = -11
Filter.Criteria = {00000000}
HeaderFont.Height = -11
object dbGridGOODSNO: TdxDBGridMaskColumn
Sorted = csDown
BandIndex = 0
RowIndex = 0
FieldName = 'GOODSNO'
end
object dbGridGOODSDESC: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'GOODSDESC'
end
object dbGridACTI: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ACTI'
end
object dbGridOWUS: TdxDBGridMaskColumn
Visible = False
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
end
inherited qy_master: TQuery
DatabaseName = 'JXC_CSD'
SQL.Strings = (
'')
object qy_masterGOODSNO: TStringField
DisplayLabel = #36135#21697#32534#21495
FieldName = 'GOODSNO'
Origin = 'JXC_CSD.T_GOODSMASTER.GOODSNO'
end
object qy_masterGOODSDESC: TStringField
DisplayLabel = #36135#21697#25551#36848
FieldName = 'GOODSDESC'
Origin = 'JXC_CSD.T_GOODSMASTER.GOODSDESC'
Size = 60
end
object qy_masterACTI: TStringField
DisplayLabel = #30830#35748#26631#24535
FieldName = 'ACTI'
Origin = 'JXC_CSD.T_GOODSMASTER.ACTI'
Size = 1
end
object qy_masterOWUS: TStringField
FieldName = 'OWUS'
Origin = 'JXC_CSD.T_GOODSMASTER.OWUS'
Size = 10
end
object qy_masterGRUP: TStringField
DisplayLabel = #32676#32452
FieldName = 'GRUP'
Origin = 'JXC_CSD.T_GOODSMASTER.GRUP'
Size = 10
end
object qy_masterCRET: TDateTimeField
DisplayLabel = #24314#31435#26102#38388
FieldName = 'CRET'
Origin = 'JXC_CSD.T_GOODSMASTER.CRET'
end
object qy_masterMODU: TStringField
DisplayLabel = #26368#36817#20462#25913
FieldName = 'MODU'
Origin = 'JXC_CSD.T_GOODSMASTER.MODU'
Size = 10
end
object qy_masterMODT: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'MODT'
Origin = 'JXC_CSD.T_GOODSMASTER.MODT'
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?