?? modify.dfm
字號:
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object Edit13: TEdit
Left = 88
Top = 15
Width = 137
Height = 21
TabOrder = 0
end
object Edit14: TEdit
Left = 304
Top = 15
Width = 137
Height = 21
TabOrder = 1
end
object Edit15: TEdit
Left = 536
Top = 15
Width = 137
Height = 21
TabOrder = 2
end
object Edit16: TEdit
Left = 88
Top = 44
Width = 137
Height = 21
TabOrder = 3
end
object Edit17: TEdit
Left = 304
Top = 44
Width = 137
Height = 21
TabOrder = 4
end
object Edit18: TEdit
Left = 88
Top = 71
Width = 137
Height = 21
TabOrder = 5
end
object ComboBox2: TComboBox
Left = 536
Top = 40
Width = 137
Height = 21
ItemHeight = 13
TabOrder = 6
Items.Strings = (
#21487#29992
#19981#29992)
end
end
end
object TabSheet2: TTabSheet
Caption = #36873#25321#24335#20462#25913
ImageIndex = 1
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 739
Height = 97
Align = alTop
Caption = #25968#25454#20449#24687
TabOrder = 0
object Label1: TLabel
Left = 15
Top = 16
Width = 60
Height = 13
Caption = #32852#31995#26102#38388#65306
end
object Label3: TLabel
Left = 265
Top = 16
Width = 36
Height = 13
Caption = #22995#21517#65306
end
object Label2: TLabel
Left = 496
Top = 16
Width = 36
Height = 13
Caption = #32844#21153#65306
end
object Label6: TLabel
Left = 496
Top = 44
Width = 36
Height = 13
Caption = #25209#27880#65306
end
object Label5: TLabel
Left = 267
Top = 44
Width = 36
Height = 13
Caption = #21160#24577#65306
end
object Label4: TLabel
Left = 39
Top = 44
Width = 36
Height = 13
Caption = #30005#35805#65306
end
object Label7: TLabel
Left = 27
Top = 72
Width = 48
Height = 13
Caption = #32479#35745#20154#65306
end
object SpeedButton1: TSpeedButton
Left = 304
Top = 68
Width = 105
Height = 25
Caption = #20462#25913'(&M)'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object Edit1: TEdit
Left = 88
Top = 15
Width = 137
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 305
Top = 15
Width = 137
Height = 21
TabOrder = 1
end
object Edit3: TEdit
Left = 536
Top = 15
Width = 137
Height = 21
TabOrder = 2
end
object Edit5: TEdit
Left = 304
Top = 42
Width = 137
Height = 21
TabOrder = 3
end
object Edit4: TEdit
Left = 88
Top = 42
Width = 137
Height = 21
TabOrder = 4
end
object Edit7: TEdit
Left = 88
Top = 69
Width = 137
Height = 21
TabOrder = 5
end
object ComboBox1: TComboBox
Left = 536
Top = 41
Width = 137
Height = 21
ItemHeight = 13
TabOrder = 6
Items.Strings = (
#21487#29992
#19981#29992)
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 97
Width = 739
Height = 402
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = #32852#31995#26102#38388
Width = 100
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Width = 100
Visible = True
end
item
Expanded = False
FieldName = #32844#21153
Width = 100
Visible = True
end
item
Expanded = False
FieldName = #30005#35805
Width = 100
Visible = True
end
item
Expanded = False
FieldName = #21160#24577
Width = 300
Visible = True
end
item
Expanded = False
FieldName = #25209#27880
Width = 100
Visible = True
end
item
Expanded = False
FieldName = #32479#35745#20154
Width = 100
Visible = True
end>
end
end
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
'D=sa;Data Source=DLHH'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select ConnTime as '#32852#31995#26102#38388',PName as '#22995#21517',PPosition as '#32844#21153',Tel as '#30005#35805',Ne' +
'ws as '#21160#24577',Note as '#25209#27880',StaPerson as '#32479#35745#20154' from HHMain order by ConnTi' +
'me desc')
Left = 652
Top = 88
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 684
Top = 88
end
object ADOQuery2: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
'D=sa;Data Source=DLHH'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select ConnTime as '#32852#31995#26102#38388',PName as '#22995#21517',PPosition as '#32844#21153',Tel as '#30005#35805',Ne' +
'ws as '#21160#24577',Note as '#25209#27880',StaPerson as '#32479#35745#20154' from HHMain order by ConnTi' +
'me desc')
Left = 540
Top = 88
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 572
Top = 88
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -