📄 selproduct.~dfm
字号:
object Frm_SelProduct: TFrm_SelProduct
Left = 227
Top = 125
Width = 696
Height = 480
Caption = #21830#21697#36164#26009#26597#35810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 688
Height = 161
Align = alTop
Caption = #26597#35810
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 110
Width = 116
Height = 13
Caption = #36873#25321#26597#35810#23383#27573#65306' '
end
object Label2: TLabel
Left = 160
Top = 110
Width = 91
Height = 13
Caption = #26597#35810#26465#20214#65306' '
end
object Label3: TLabel
Left = 274
Top = 110
Width = 86
Height = 13
Caption = #26597#35810#20540#65306' '
end
object SpeedButton1: TSpeedButton
Left = 435
Top = 118
Width = 73
Height = 33
Caption = #26597#35810
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 515
Top = 118
Width = 73
Height = 33
Caption = #26597#35810#20840#37096
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 595
Top = 118
Width = 73
Height = 33
Caption = #36864#20986
OnClick = SpeedButton3Click
end
object Label4: TLabel
Left = 24
Top = 64
Width = 94
Height = 13
Caption = #26597#35810#20851#31995#65306' '
end
object SpeedButton4: TSpeedButton
Left = 595
Top = 24
Width = 73
Height = 33
Caption = #28155#21152
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 595
Top = 64
Width = 73
Height = 33
Caption = #28165#31354
OnClick = SpeedButton5Click
end
object ComboBox1: TComboBox
Left = 24
Top = 126
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 0
end
object ComboBox2: TComboBox
Left = 160
Top = 126
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 1
end
object Notebook1: TNotebook
Left = 272
Top = 125
Width = 129
Height = 23
TabOrder = 2
object TPage
Left = 0
Top = 0
Caption = 'Edit'
object Edit1: TEdit
Left = 1
Top = 1
Width = 121
Height = 21
TabOrder = 0
end
end
object TPage
Left = 0
Top = 0
Caption = 'Date'
object DateTimePicker1: TDateTimePicker
Left = 1
Top = 1
Width = 121
Height = 21
Date = 38876.610193321760000000
Time = 38876.610193321760000000
TabOrder = 0
end
end
end
object ComboBox3: TComboBox
Left = 24
Top = 82
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 3
end
object Memo1: TMemo
Left = 136
Top = 20
Width = 449
Height = 82
TabOrder = 4
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 434
Width = 688
Height = 19
Panels = <>
end
object DBGrid1: TDBGrid
Left = 0
Top = 161
Width = 688
Height = 273
Align = alClient
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'MR_Code'
Title.Caption = #21830#21697#32534#30721
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'MR_Name'
Title.Caption = #21830#21697#21517#31216
Width = 112
Visible = True
end
item
Expanded = False
FieldName = 'MR_Assist'
Title.Caption = #21830#21697#21161#35760#30721
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'MR_Spce'
Title.Caption = #21830#21697#35268#26684
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'MR_Unit'
Title.Caption = #35745#37327#21333#20301
Width = 74
Visible = True
end
item
Expanded = False
FieldName = 'MR_InPrice'
Title.Caption = #21830#21697#36827#20215
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'MR_OutPrice'
Title.Caption = #21830#21697#21806#20215
Visible = True
end
item
Expanded = False
FieldName = 'MR_Cards'
Title.Caption = #20135#22320#21697#29260
Width = 106
Visible = True
end
item
Expanded = False
FieldName = 'MR_Entry'
Title.Caption = #26465#24418#32534#30721
Width = 92
Visible = True
end
item
Expanded = False
FieldName = 'MR_Memo'
Title.Caption = #21830#21697#35828#26126
Width = 144
Visible = True
end>
end
object ADODataSet1: TADODataSet
Connection = FDM.ADOCon
CursorType = ctStatic
CommandText = 'select * from MR_Wareinfo_Tab'
Parameters = <>
Left = 104
Top = 216
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 136
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -