📄 partinfo.dfm
字号:
Width = 153
Height = 19
Color = clInfoBk
Ctl3D = False
DataField = #21150#20107#22788
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 9
Visible = False
end
object dbedit4: TDBComboBox
Left = 296
Top = 122
Width = 172
Height = 21
Color = clInfoBk
DataField = #26426#22411
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object DBComboBox1: TDBComboBox
Left = 296
Top = 154
Width = 173
Height = 21
Style = csDropDownList
Color = clInfoBk
DataField = #29289#36164#31867#21035
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#30005#22120
#28082#21387
#26426#26800)
TabOrder = 10
end
end
end
object TabSheet2: TTabSheet
Caption = #26597#30475#25152#26377#38646#20214#20449#24687
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 47
Width = 645
Height = 252
Align = alTop
Color = clInfoBk
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 645
Height = 47
Align = alTop
BevelInner = bvLowered
TabOrder = 1
object Label22: TLabel
Left = 470
Top = 16
Width = 32
Height = 16
Caption = #20849#26377
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 508
Top = 16
Width = 74
Height = 19
Alignment = taCenter
AutoSize = False
Caption = 'Label3'
Color = clInfoText
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label24: TLabel
Left = 588
Top = 16
Width = 48
Height = 16
Caption = #26465#35760#24405
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 6
Top = 6
Width = 75
Height = 35
Caption = #26597#35810
TabOrder = 1
OnClick = Button1Click
end
object Button3: TButton
Left = 80
Top = 6
Width = 75
Height = 35
Caption = #25152#26377#35760#24405
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 154
Top = 6
Width = 75
Height = 35
Caption = #25171#21360
TabOrder = 3
OnClick = Button4Click
end
object Button2: TButton
Left = 228
Top = 6
Width = 123
Height = 35
Caption = #24211#23384#19981#36275#38646#20214
TabOrder = 0
OnClick = Button2Click
end
end
object StringGrid1: TStringGrid
Left = 0
Top = 299
Width = 645
Height = 69
Align = alClient
Color = clInfoBk
ColCount = 10
Ctl3D = False
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
ParentCtl3D = False
ScrollBars = ssHorizontal
TabOrder = 2
ColWidths = (
64
64
64
64
64
64
64
64
64
64)
end
end
end
object Panel1: TPanel
Left = 0
Top = 396
Width = 653
Height = 52
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object btn_first: TButton
Left = 54
Top = 10
Width = 61
Height = 33
Caption = #39318#35760#24405
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btn_firstClick
end
object btn_prev: TButton
Left = 115
Top = 10
Width = 61
Height = 33
Caption = #21069#19968#26465
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btn_prevClick
end
object btn_next: TButton
Left = 176
Top = 10
Width = 61
Height = 33
Caption = #21518#19968#26465
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btn_nextClick
end
object btn_last: TButton
Left = 237
Top = 10
Width = 61
Height = 33
Caption = #23614#35760#24405
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btn_lastClick
end
object btn_addnew: TButton
Left = 298
Top = 10
Width = 61
Height = 33
Caption = #26032#22686
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btn_addnewClick
end
object btn_edit: TButton
Left = 421
Top = 10
Width = 61
Height = 33
Caption = #32534#36753
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btn_editClick
end
object btn_save: TButton
Left = 483
Top = 10
Width = 61
Height = 33
Caption = #20445#23384
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = btn_saveClick
end
object btn_cancel: TButton
Left = 545
Top = 10
Width = 61
Height = 33
Caption = #21462#28040
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = btn_cancelClick
end
object btn_delete: TButton
Left = 359
Top = 10
Width = 61
Height = 33
Caption = #21024#38500
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = btn_deleteClick
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 500
Top = 132
end
object ADOQuery1: TADOQuery
Connection = dm_wxp.ADOConnection1
CursorType = ctStatic
AfterOpen = ADOQuery1AfterOpen
Parameters = <>
SQL.Strings = (
'select * from pub_z_part')
Left = 516
Top = 46
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -