📄 unit25.dfm
字号:
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 272
Top = 128
Width = 97
Height = 41
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button6Click
end
object DBGrid3: TDBGrid
Left = 88
Top = 200
Width = 681
Height = 169
DataSource = DataSource3
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Inno'
Visible = True
end
item
Expanded = False
FieldName = 'Druno'
Visible = True
end
item
Expanded = False
FieldName = 'Stono'
Visible = True
end
item
Expanded = False
FieldName = 'Med'
Visible = True
end
item
Expanded = False
FieldName = 'Su'
Visible = True
end>
end
end
object TabSheet4: TTabSheet
Caption = #33647#25151#20986#24211#21333
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 3
ParentFont = False
object Label7: TLabel
Left = 264
Top = 48
Width = 73
Height = 25
AutoSize = False
Caption = #20986#24211#21333#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 264
Top = 88
Width = 73
Height = 25
AutoSize = False
Caption = #33647#25151#32534#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object RadioButton7: TRadioButton
Left = 120
Top = 40
Width = 145
Height = 33
Caption = #25353#20986#24211#21333#21495#26597#35810
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object RadioButton8: TRadioButton
Left = 120
Top = 80
Width = 145
Height = 33
Caption = #25353#33647#25151#32534#21495#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Edit7: TEdit
Left = 336
Top = 40
Width = 121
Height = 32
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 2
end
object Edit8: TEdit
Left = 336
Top = 80
Width = 121
Height = 32
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 3
end
object Button7: TButton
Left = 160
Top = 128
Width = 97
Height = 41
Caption = #26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button7Click
end
object Button8: TButton
Left = 280
Top = 128
Width = 97
Height = 41
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button8Click
end
object DBGrid4: TDBGrid
Left = 64
Top = 200
Width = 681
Height = 193
DataSource = DataSource4
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Outno'
Visible = True
end
item
Expanded = False
FieldName = 'Druno'
Visible = True
end
item
Expanded = False
FieldName = 'Stono'
Visible = True
end
item
Expanded = False
FieldName = 'Med'
Visible = True
end
item
Expanded = False
FieldName = 'Su'
Visible = True
end>
end
end
object TabSheet5: TTabSheet
Caption = #37319#36141#21333#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 4
ParentFont = False
object Label9: TLabel
Left = 264
Top = 48
Width = 73
Height = 25
AutoSize = False
Caption = #37319#36141#21333#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 264
Top = 88
Width = 73
Height = 25
AutoSize = False
Caption = #33647#21697#32534#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object RadioButton9: TRadioButton
Left = 120
Top = 40
Width = 145
Height = 33
Caption = #25353#37319#36141#21333#21495#26597#35810
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object RadioButton10: TRadioButton
Left = 120
Top = 80
Width = 145
Height = 33
Caption = #25353#33647#21697#32534#21495#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Edit9: TEdit
Left = 336
Top = 40
Width = 121
Height = 32
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 2
end
object Edit10: TEdit
Left = 336
Top = 80
Width = 121
Height = 32
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 3
end
object Button9: TButton
Left = 160
Top = 128
Width = 97
Height = 41
Caption = #26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button9Click
end
object Button10: TButton
Left = 288
Top = 128
Width = 97
Height = 41
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button10Click
end
object DBGrid5: TDBGrid
Left = 48
Top = 192
Width = 737
Height = 209
DataSource = DataSource5
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Stkno'
Visible = True
end
item
Expanded = False
FieldName = 'Buyno'
Visible = True
end
item
Expanded = False
FieldName = 'Medno'
Visible = True
end
item
Expanded = False
FieldName = 'Med'
Visible = True
end
item
Expanded = False
FieldName = 'Su'
Visible = True
end
item
Expanded = False
FieldName = 'Uprice'
Visible = True
end>
end
end
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Local' +
'Server'
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 572
Top = 67
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 620
Top = 67
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 668
Top = 67
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 620
Top = 99
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 668
Top = 99
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 668
Top = 131
end
object ADOQuery3: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 620
Top = 131
end
object ADOQuery4: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 620
Top = 163
end
object DataSource4: TDataSource
DataSet = ADOQuery4
Left = 668
Top = 163
end
object DataSource5: TDataSource
DataSet = ADOQuery5
Left = 668
Top = 195
end
object ADOQuery5: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 620
Top = 195
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -