📄 material_rk.dfm
字号:
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object DBEdit1: TDBEdit
Left = 84
Top = 61
Width = 193
Height = 24
DataField = 'mat_name'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
end
object DBEdit8: TDBEdit
Left = 84
Top = 129
Width = 193
Height = 23
DataField = 'color'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 1
end
object DBEdit9: TDBEdit
Left = 84
Top = 163
Width = 193
Height = 23
DataField = 'unit'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 2
end
object DBCheckBox_flag: TDBCheckBox
Left = 12
Top = 201
Width = 185
Height = 17
Caption = #24037#20154#26159#21542#25903#20184#20010#20154#24037#36164
DataField = 'flag'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = DBCheckBox_flagClick
end
object DBE_price: TDBEdit
Left = 84
Top = 231
Width = 176
Height = 27
DataField = 'price'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 4
Visible = False
end
object DBE_matid: TDBEdit
Left = 84
Top = 28
Width = 193
Height = 24
DataField = 'mat_id'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 5
end
object DBEdit12: TDBEdit
Left = 84
Top = 95
Width = 193
Height = 23
DataField = 'matype_name'
DataSource = DS_material
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 6
end
end
object datep_rkdate: TDateTimePicker
Left = 485
Top = 64
Width = 180
Height = 24
Date = 38366.762594571760000000
Time = 38366.762594571760000000
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnChange = datep_rkdateChange
end
object SpinEdit_num: TSpinEdit
Left = 485
Top = 24
Width = 132
Height = 29
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 0
MinValue = 0
ParentFont = False
TabOrder = 2
Value = 0
end
object BitBtn_RK: TBitBtn
Left = 392
Top = 104
Width = 288
Height = 65
Caption = #29289#26009#20837#24211'&L'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -48
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = BitBtn_RKClick
end
object Panel5: TPanel
Left = 0
Top = 0
Width = 385
Height = 449
Hint = #21333#20987#36873#25321#29289#26009#31867#21035#19979#25289#26694#65292#20197#20415#25214#21040#23545#24212#30340#29289#26009#20837#24211
Align = alLeft
BevelInner = bvLowered
ParentShowHint = False
ShowHint = True
TabOrder = 4
object Label22: TLabel
Left = 5
Top = 8
Width = 90
Height = 15
Caption = #29289#26009#31867#21035#36807#28388
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 5
Top = 34
Width = 90
Height = 15
Caption = #29289#26009#21517#31216#26816#32034
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 2
Top = 56
Width = 381
Height = 391
Align = alBottom
DataSource = DS_material
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
ButtonStyle = cbsNone
Expanded = False
FieldName = 'mat_id'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #29289#26009#32534#21495
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end
item
ButtonStyle = cbsNone
Expanded = False
FieldName = 'mat_name'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #29289#26009#21517#31216
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 79
Visible = True
end
item
ButtonStyle = cbsNone
Expanded = False
FieldName = 'color'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #39068#33394
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end
item
ButtonStyle = cbsNone
Expanded = False
FieldName = 'matype_name'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #29289#26009#31867#21035
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = True
end>
end
object Edit3: TEdit
Left = 97
Top = 30
Width = 204
Height = 23
Hint = #36755#20837#29289#26009#21517#31216'!'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnKeyPress = Edit3KeyPress
end
object Bit_Ser2: TBitBtn
Left = 303
Top = 29
Width = 77
Height = 25
Caption = #26597#25214'&S'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Bit_Ser2Click
end
object DBLookupComboBox1: TComboBox
Left = 97
Top = 4
Width = 285
Height = 23
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 15
ParentFont = False
TabOrder = 3
OnChange = DBLookupComboBox1Change
end
end
end
object DS_rk_material_Q: TDataSource
DataSet = ADOQ_rk_material
OnDataChange = DS_rk_material_QDataChange
Left = 192
Top = 112
end
object DS_material: TDataSource
DataSet = ADOQ_material
Left = 192
Top = 232
end
object ADOQ_rk_material: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*,b.unit,b.mat_name,b.color,b.price,b.flag, d.matype_na' +
'me, c.opername from rk_material a, material b, operator c,materi' +
'al_type d '
'where (b.mat_id=a.mat_id) and(a.tmp_id=c.tmp_id) and(d.matype_id' +
'=b.matype_id)'
''
'order by d.matype_name, a.mat_id,a.rkdate,a.num desc')
Left = 152
Top = 112
object ADOQ_rk_materialrkid: TAutoIncField
FieldName = 'rkid'
ReadOnly = True
end
object ADOQ_rk_materialmat_id: TStringField
FieldName = 'mat_id'
Size = 10
end
object ADOQ_rk_materialnum: TFloatField
FieldName = 'num'
end
object ADOQ_rk_materialrkdate: TDateTimeField
FieldName = 'rkdate'
end
object ADOQ_rk_materialtmp_id: TIntegerField
FieldName = 'tmp_id'
end
object ADOQ_rk_materialunit: TStringField
FieldName = 'unit'
Size = 4
end
object ADOQ_rk_materialmat_name: TStringField
FieldName = 'mat_name'
end
object ADOQ_rk_materialcolor: TStringField
FieldName = 'color'
Size = 10
end
object ADOQ_rk_materialprice: TBCDField
FieldName = 'price'
Precision = 18
Size = 2
end
object ADOQ_rk_materialflag: TBooleanField
FieldName = 'flag'
end
object ADOQ_rk_materialmatype_name: TStringField
FieldName = 'matype_name'
end
object ADOQ_rk_materialopername: TStringField
FieldName = 'opername'
Size = 10
end
end
object ADOQ_tmp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 32
Top = 112
end
object ADOQ_material: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
SQL.Strings = (
'select a.mat_id,a.mat_name,a.flag,a.price,a.color,a.unit,b.matyp' +
'e_name'
'from material a, material_type b where a.matype_id=b.matype_id'
''
'order by b.matype_name,a.flag')
Left = 148
Top = 232
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -