📄 loader.xfm
字号:
inherited LoaderFrame: TLoaderFrame Width = 737 Height = 304 VertScrollBar.Range = 64 Align = alClient object Panel2: TPanel Left = 0 Top = 0 Width = 737 Height = 64 Align = alTop BevelOuter = bvNone TabOrder = 0 object ToolBar: TPanel Left = 1 Top = 1 Width = 586 Height = 62 BevelOuter = bvNone Color = 16591631 ParentColor = False TabOrder = 0 object btOpen: TSpeedButton Left = 1 Top = 1 Width = 85 Height = 24 Caption = 'Open' Flat = True Transparent = False OnClick = btOpenClick end object btClose: TSpeedButton Left = 87 Top = 1 Width = 85 Height = 24 Caption = 'Close' Flat = True Transparent = False OnClick = btCloseClick end object btLoad: TSpeedButton Left = 173 Top = 1 Width = 85 Height = 24 Caption = 'Load' Flat = True Transparent = False OnClick = btLoadClick end object btDeleteAll: TSpeedButton Left = 259 Top = 1 Width = 85 Height = 24 Caption = 'Delete All' Flat = True Transparent = False OnClick = btDeleteAllClick end object Panel1: TPanel Left = 1 Top = 26 Width = 171 Height = 35 BevelOuter = bvNone Color = clButton ParentColor = False TabOrder = 0 object Label1: TLabel Left = 6 Top = 14 Width = 49 Height = 13 Caption = 'Load rows' end object edRows: TEdit Left = 66 Top = 10 Width = 87 Height = 21 TabOrder = 0 Text = '1000' end end object Panel3: TPanel Left = 173 Top = 26 Width = 412 Height = 35 BevelOuter = bvNone Color = clButton ParentColor = False TabOrder = 1 object rgEvent: TRadioGroup Left = 8 Top = 2 Width = 225 Height = 32 Items.Strings = ( 'GetColumnData' 'PutData') Columns = 2 TabOrder = 0 OnClick = rgEventClick end end object Panel4: TPanel Left = 345 Top = 1 Width = 240 Height = 24 BevelOuter = bvNone Color = clButton ParentColor = False TabOrder = 2 object DBNavigator: TDBNavigator Left = 0 Top = 0 Width = 240 Height = 24 DataSource = DataSource Flat = True TabOrder = 0 end end end end object DBGrid: TDBGrid Left = 0 Top = 64 Width = 737 Height = 240 Align = alClient DataSource = DataSource TabOrder = 1 TitleFont.Color = clBlack TitleFont.Height = 11 TitleFont.Name = 'helvetica' TitleFont.Pitch = fpVariable TitleFont.Style = [] end object DataSource: TDataSource DataSet = Query Left = 440 Top = 64 end object Query: TMyQuery Connection = MyDACForm.MyConnection SQL.Strings = ( 'SELECT * FROM MYDAC_Loaded') AfterOpen = QueryAfterOpen BeforeClose = QueryBeforeClose AfterRefresh = QueryAfterOpen Left = 408 Top = 64 end object MyLoader: TMyLoader Connection = MyDACForm.MyConnection TableName = 'MYDAC_Loaded' Columns = < item Name = 'Code' FieldType = ftInteger end item Name = 'Num' FieldType = ftInteger end item Name = 'Num1' FieldType = ftFloat end item Name = 'Str' end item Name = 'Dat' FieldType = ftDateTime end> OnGetColumnData = GetColumnData Left = 408 Top = 96 end object TruncCommand: TMyCommand Connection = MyDACForm.MyConnection SQL.Strings = ( 'TRUNCATE TABLE MYDAC_Loaded') Left = 408 Top = 128 endend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -