📄 u_regform.dfm
字号:
inherited F_RegForm: TF_RegForm
Left = 33
Top = 191
Width = 789
Height = 540
Caption = #31383#20307#27880#20876
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 16
inherited Panel1: TPanel
Width = 781
end
object Panel2: TPanel [1]
Left = 0
Top = 37
Width = 781
Height = 188
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 30
Top = 27
Width = 59
Height = 16
AutoSize = False
Caption = #31383#20307#21517#31216
FocusControl = DBEdit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 222
Top = 27
Width = 71
Height = 16
AutoSize = False
Caption = #31383#20307#26631#39064
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 432
Top = 26
Width = 116
Height = 24
AutoSize = False
Caption = #27169' '#24335
end
object Label4: TLabel
Left = 30
Top = 62
Width = 75
Height = 16
AutoSize = False
Caption = #23485' '#24230
FocusControl = DBEdit4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 222
Top = 62
Width = 71
Height = 16
AutoSize = False
Caption = #39640' '#24230
FocusControl = DBEdit5
end
object Label6: TLabel
Left = 222
Top = 99
Width = 71
Height = 16
AutoSize = False
Caption = #24038' '#36317' '#31163
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 30
Top = 99
Width = 75
Height = 16
AutoSize = False
Caption = #19978' '#36317' '#31163
FocusControl = DBEdit7
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 432
Top = 60
Width = 116
Height = 24
AutoSize = False
Caption = #20027' '#34920
FocusControl = DBEdit8
end
object Label9: TLabel
Left = 432
Top = 99
Width = 116
Height = 24
AutoSize = False
Caption = #20174' '#34920
FocusControl = DBEdit9
end
object Label11: TLabel
Left = 21
Top = 154
Width = 91
Height = 16
Caption = #35831#36755#20837#31383#20307#26631#39064
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 90
Top = 22
Width = 110
Height = 24
Color = clCaptionText
DataField = 'Formname'
DataSource = DS_main
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 284
Top = 22
Width = 123
Height = 24
DataField = 'Caption'
DataSource = DS_main
TabOrder = 1
end
object DBEdit4: TDBEdit
Left = 90
Top = 57
Width = 108
Height = 24
Color = clCaptionText
DataField = 'Width'
DataSource = DS_main
TabOrder = 2
end
object DBEdit5: TDBEdit
Left = 284
Top = 57
Width = 122
Height = 24
DataField = 'Height'
DataSource = DS_main
TabOrder = 3
end
object DBEdit6: TDBEdit
Left = 284
Top = 94
Width = 122
Height = 24
DataField = 'FormLeft'
DataSource = DS_main
TabOrder = 4
end
object DBEdit7: TDBEdit
Left = 90
Top = 94
Width = 108
Height = 24
Color = clCaptionText
DataField = 'FormTop'
DataSource = DS_main
TabOrder = 5
end
object DBEdit8: TDBEdit
Left = 498
Top = 55
Width = 116
Height = 24
DataField = 'Main_table'
DataSource = DS_main
TabOrder = 6
end
object DBEdit9: TDBEdit
Left = 498
Top = 95
Width = 116
Height = 24
DataField = 'Detail_table'
DataSource = DS_main
TabOrder = 7
end
object DBComboBox1: TDBComboBox
Left = 498
Top = 21
Width = 116
Height = 24
DataField = 'Formstyle'
DataSource = DS_main
ItemHeight = 16
Items.Strings = (
'fsMDIChild'
'fsMDIFrom'
'fsNomal'
'fsStayontop')
TabOrder = 8
end
object Edit1: TEdit
Left = 125
Top = 149
Width = 121
Height = 24
TabOrder = 9
end
object BitBtn2: TBitBtn
Left = 256
Top = 148
Width = 75
Height = 25
Caption = #26597#25214
TabOrder = 10
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
end
end
object Panel3: TPanel [2]
Left = 0
Top = 225
Width = 781
Height = 288
Align = alClient
Caption = 'Panel3'
TabOrder = 2
object DBGridEh1: TDBGridEh
Left = 1
Top = 1
Width = 779
Height = 286
Align = alClient
DataSource = DS_main
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FooterRowCount = 1
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
UseMultiTitle = True
OnDrawColumnCell = DBGridEh1DrawColumnCell
Columns = <
item
EditButtons = <>
FieldName = 'Formname'
Footers = <>
Width = 84
end
item
EditButtons = <>
FieldName = 'Caption'
Footers = <>
Width = 112
end
item
EditButtons = <>
FieldName = 'Formstyle'
Footers = <>
Width = 98
end
item
EditButtons = <>
FieldName = 'Width'
Footers = <>
Title.Caption = #22823#23567'|'#23485#24230
Width = 79
end
item
EditButtons = <>
FieldName = 'Height'
Footers = <>
Title.Caption = #22823#23567'|'#39640#24230
Width = 70
end
item
EditButtons = <>
FieldName = 'FormLeft'
Footers = <>
Title.Caption = #20301#32622'|'#24038#36317#31163
Width = 79
end
item
EditButtons = <>
FieldName = 'FormTop'
Footers = <>
Title.Caption = #20301#32622'|'#19978#36317#31163
Width = 78
end
item
EditButtons = <>
FieldName = 'Main_table'
Footers = <>
Title.Caption = #25968#25454#24211'|'#20027#34920
Width = 82
end
item
EditButtons = <>
FieldName = 'Detail_table'
Footers = <>
Title.Caption = #25968#25454#24211'|'#20174#34920
Width = 55
end
item
EditButtons = <>
FieldName = 'Key_Field'
Footers = <>
Title.Caption = #25968#25454#24211'|'#20027#20851#38190#23383
Width = 65
end>
end
end
inherited Q_main: TADOQuery
CursorType = ctStatic
BeforePost = Q_mainBeforePost
SQL.Strings = (
'Select * from TB_Form')
Left = 176
Top = 335
object Q_mainFormname: TStringField
DisplayLabel = #31383#20307#21517#31216
DisplayWidth = 14
FieldName = 'Formname'
Size = 50
end
object Q_mainCaption: TStringField
DisplayLabel = #31383#20307#26631#39064
DisplayWidth = 21
FieldName = 'Caption'
Size = 50
end
object Q_mainFormstyle: TStringField
DisplayLabel = #27169#24335
DisplayWidth = 16
FieldName = 'Formstyle'
Size = 50
end
object Q_mainWidth: TIntegerField
DisplayLabel = #23485#24230
DisplayWidth = 10
FieldName = 'Width'
end
object Q_mainHeight: TIntegerField
DisplayLabel = #39640#24230
DisplayWidth = 10
FieldName = 'Height'
end
object Q_mainFormLeft: TIntegerField
DisplayLabel = #24038#36317#31163
DisplayWidth = 10
FieldName = 'FormLeft'
end
object Q_mainFormTop: TIntegerField
DisplayLabel = #19978#36317#31163
DisplayWidth = 10
FieldName = 'FormTop'
end
object Q_mainMain_table: TStringField
DisplayLabel = #20027#34920
FieldName = 'Main_table'
Size = 50
end
object Q_mainDetail_table: TStringField
DisplayLabel = #20174#34920
FieldName = 'Detail_table'
Size = 50
end
object Q_mainKey_Field: TStringField
DisplayLabel = #20027#20851#38190#23383
FieldName = 'Key_Field'
Size = 50
end
object Q_mainSID: TGuidField
FieldName = 'SID'
FixedChar = True
Size = 38
end
end
inherited Q_detail: TADOQuery
Left = 728
Top = 304
end
inherited DS_main: TDataSource
Left = 232
Top = 327
end
inherited DS_detail: TDataSource
Left = 728
Top = 248
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -