📄 unit1.dfm
字号:
object Form1: TForm1
Left = 199
Top = 109
Width = 569
Height = 408
Caption = 'Form1'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object CheckBox1: TCheckBox
Left = 16
Top = 24
Width = 89
Height = 17
Action = Action1
Caption = #36830#19978#25968#25454#24211
TabOrder = 0
end
object Button1: TButton
Left = 128
Top = 24
Width = 129
Height = 25
Action = Action2
Caption = #21464#21160#25968#25454#20889#22238#25968#25454#24211
TabOrder = 1
end
object Button2: TButton
Left = 296
Top = 24
Width = 105
Height = 25
Caption = #36830#19978#21518#21488#25968#25454#24211
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 432
Top = 24
Width = 113
Height = 25
Caption = #37325#26032#33719#21462#25968#25454
TabOrder = 3
OnClick = Button3Click
end
object DBGrid1: TDBGrid
Left = 16
Top = 64
Width = 249
Height = 273
DataSource = DataSource1
TabOrder = 4
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object DBGrid2: TDBGrid
Left = 296
Top = 64
Width = 249
Height = 273
DataSource = DataSource2
TabOrder = 5
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 16
Top = 344
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 6
end
object DCOMConnection1: TDCOMConnection
Connected = True
ServerGUID = '{8A4E0629-9306-11D3-88B0-000000000000}'
ServerName = 'Project12_5.Test125Server'
Left = 32
Top = 144
end
object DCOMConnection2: TDCOMConnection
Connected = True
ServerGUID = '{8A4E0629-9306-11D3-88B0-000000000000}'
ServerName = 'Project12_5.Test125Server'
Left = 328
Top = 136
end
object ClientDataSet1: TClientDataSet
Active = True
Aggregates = <>
FileName = 'D:\MyAccess.xml'
Params = <>
ProviderName = 'DataSetProvider1'
RemoteServer = DCOMConnection1
Left = 96
Top = 144
end
object ClientDataSet2: TClientDataSet
Active = True
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider1'
RemoteServer = DCOMConnection2
Left = 376
Top = 136
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 160
Top = 144
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 432
Top = 144
end
object ActionList1: TActionList
Left = 88
Top = 208
object Action1: TAction
Caption = 'Action1'
OnExecute = Action1Execute
OnUpdate = Action1Update
end
object Action2: TAction
Caption = 'Action2'
OnExecute = Action2Execute
OnUpdate = Action2Update
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -