?? unit1.~dfm
字號:
object Form1: TForm1
Left = 190
Top = 113
Width = 762
Height = 499
Caption = #19975#33021#25968#25454#24211#27983#35272#22120#24102#23548#20986#21040'txt'#21644'html'#21151#33021'(ADO+BDE)'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 67
Width = 754
Height = 405
Align = alClient
Caption = 'Panel1'
Color = 15316634
TabOrder = 0
object Splitter1: TSplitter
Left = 137
Top = 1
Height = 403
Color = clHighlight
ParentColor = False
end
object GroupBox2: TGroupBox
Left = 140
Top = 1
Width = 613
Height = 403
Align = alClient
Caption = #35760#24405
Color = 15316634
ParentColor = False
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 609
Height = 386
Align = alClient
Color = clInfoBk
FixedColor = clGradientActiveCaption
Font.Charset = ANSI_CHARSET
Font.Color = 16744448
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
OnTitleClick = DBGrid1TitleClick
end
end
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 136
Height = 403
Align = alLeft
Caption = #34920
Color = 15316634
ParentColor = False
TabOrder = 1
object LTableList: TListBox
Left = 2
Top = 15
Width = 132
Height = 386
Align = alClient
Color = clInfoBk
Font.Charset = ANSI_CHARSET
Font.Color = 16744448
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 0
OnClick = LTableListClick
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 754
Height = 67
Align = alTop
Color = 15316634
TabOrder = 1
object LDataFile: TLabel
Left = 70
Top = 13
Width = 39
Height = 13
Caption = #25968#25454#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LPass: TLabel
Left = 370
Top = 15
Width = 39
Height = 13
Caption = #23494#30721#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LSQLCommand: TLabel
Left = 67
Top = 42
Width = 48
Height = 13
Caption = 'S Q L'#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LUser: TLabel
Left = 487
Top = 13
Width = 35
Height = 13
Caption = 'User:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LPassword: TLabel
Left = 585
Top = 13
Width = 35
Height = 13
Caption = 'Pass:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LDataType: TLabel
Left = 280
Top = 13
Width = 65
Height = 13
Caption = #31867#22411#21035#21517#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object EDatabaseFile: TEdit
Left = 109
Top = 8
Width = 168
Height = 21
Hint = #35201#25171#24320#30340#25968#25454#24211#25991#20214#36335#24452#25110#26381#21153#22120
Color = clInfoBk
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = 'date.mdb'
OnClick = EDatabaseFileClick
end
object EPass: TEdit
Left = 620
Top = 8
Width = 42
Height = 21
Color = clInfoBk
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 1
Text = 'michael'
end
object BOpenDatabase: TBitBtn
Left = 671
Top = 9
Width = 75
Height = 22
Caption = #25171#24320'(&O)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BOpenDatabaseClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BSqlCommand: TBitBtn
Left = 591
Top = 38
Width = 75
Height = 21
Caption = #25191#34892'(&R)'
Default = True
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ModalResult = 4
ParentFont = False
TabOrder = 3
OnClick = BSqlCommandClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 337
Top = 8
Width = 144
Height = 21
Hint = #25968#25454#28304#21035#21517#25110#39537#21160#23545#35937
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
Text = 'Access Database'
OnChange = ComboBox1Change
end
object RadioGroup1: TRadioGroup
Left = 3
Top = 6
Width = 57
Height = 51
Caption = #31867' '#22411
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemIndex = 0
Items.Strings = (
'ADO'
'BDE')
ParentFont = False
TabOrder = 5
OnClick = RadioGroup1Click
end
object EUser: TEdit
Left = 524
Top = 8
Width = 56
Height = 21
Color = clInfoBk
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
Text = 'sa'
end
object BOutoToFile: TBitBtn
Left = 672
Top = 37
Width = 75
Height = 22
Caption = #23548#20986#25968#25454
Default = True
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ModalResult = 6
ParentFont = False
TabOrder = 7
OnClick = BOutoToFileClick
NumGlyphs = 2
end
end
object SqlStr: TComboBox
Left = 108
Top = 37
Width = 480
Height = 21
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 2
Items.Strings = (
'select top 100 * from link2;'
'select * from link2 where URL like "http://www%" order By Name;' +
' '
'delete from admin where supid="admin";'
'insert into admin values("admin","michael"); '
'insert into users(id,name,bz) values(3,"xuhao","'#21704#21704#21704'!");'
'Update admin SET suppass="xuhao" where supid="admin";'
'create table users (id INTEGER,name CHAR,pass CHAR,borthday DAT' +
'E,bz TEXT); '
'DROP TABLE users;'
'alter table SetupPay create set_print_00 Text(50) NULL'#39
'alter table SetupPay alter user_name_s Text(50) NULL'#39)
end
object DataSource1: TDataSource
Left = 328
Top = 152
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 264
Top = 136
end
object OpenDialog1: TOpenDialog
Filter =
'Data Files(*.dbf,*.mdb,*.db,*.dbc,*.?dx)|*.dbf;*.mdb;*.db;*.dbc;' +
'*.?dx|Access File(*.mdb)|*.mdb|dBASE Files(*.dbf,*.db,*.?dx)|*.d' +
'bf;*.db;*.?dx|Foxpro Tables(*.dbf)|*.dbf;*.db|Foxpro Database(*.' +
'dbc)|*.dbc|All Files(*.*)|*.*'
Title = #25171#24320#25968#25454#24211#25991#20214
Left = 216
end
object SaveToFile: TSaveDialog
DefaultExt = '.htm'
Filter =
'Htm File (*.htm)|*.htm|Html File (*.html)|*.html|TXT File (*.txt' +
')|*.txt'
Left = 720
Top = 40
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = False
Active = True
ControlUseTrueXPStyle = True
BtnRoundArc = 5
BtnOutLineBorderColor = 7552000
BtnInnerBorderMoveColor = 3257087
BtnInnerBorderFocusColor = 15183500
BtnSurfaceNormalColor = 16251903
BtnSurfaceDownColor = 14608359
BtnSurfaceBottomLineColor = 14608359
BtnSurfaceDownBottomLineColor = 15199215
RdoChkControlChkColor = 41472
ComboBoxChkColor = 9201994
ComboboxSurfaceMoveColor = 16771030
ControlDisabledBorderColor = 11913158
Top = 65520
end
object ADOQuery1: TADOQuery
Parameters = <>
Left = 296
Top = 136
end
object QueryBDE: TQuery
Left = 296
Top = 168
end
object DatabaseBDE: TDatabase
Params.Strings = (
'USER NAME=sa')
SessionName = 'Default'
Left = 264
Top = 168
end
object PopupMenu1: TPopupMenu
Left = 32
Top = 184
object N4: TMenuItem
Caption = #21047#26032#21015#34920
Enabled = False
ShortCut = 16466
OnClick = N4Click
end
object N1: TMenuItem
Caption = #20851#38381#24403#21069#24211
Enabled = False
ShortCut = 32835
OnClick = N1Click
end
object N3: TMenuItem
Caption = #21024#38500#24403#21069#34920
Enabled = False
ShortCut = 32836
OnClick = N3Click
end
object N2: TMenuItem
Caption = #21024#38500#24403#21069#25968#25454#28304
Enabled = False
OnClick = N2Click
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -