?? unit8.dfm
字號(hào):
object f_cxws: Tf_cxws
Left = -62
Top = 144
Width = 803
Height = 472
BorderIcons = [biSystemMenu, biMinimize]
Caption = #26597#35810#29992#30005#19982#21355#29983#24773#20917
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object gb_1: TGroupBox
Left = 8
Top = 8
Width = 361
Height = 433
Caption = #21355#29983#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Shape1: TShape
Left = 8
Top = 248
Width = 337
Height = 161
Brush.Color = clActiveBorder
Pen.Color = clBackground
end
object Label1: TLabel
Left = 24
Top = 216
Width = 65
Height = 20
Caption = #26465#20214#26597#35810
end
object Label3: TLabel
Left = 24
Top = 280
Width = 129
Height = 20
Caption = #35831#36755#20837#23517#23460#21517#26597#35810
end
object DBGrid1: TDBGrid
Left = 8
Top = 24
Width = 345
Height = 185
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
OnDrawDataCell = DBGrid1DrawDataCell
end
object Edit1: TEdit
Left = 48
Top = 352
Width = 121
Height = 28
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 224
Top = 304
Width = 97
Height = 33
Caption = #24320#22987#26597#35810
TabOrder = 2
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 224
Top = 368
Width = 97
Height = 33
Caption = #32467#26463#26597#35810
TabOrder = 3
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
end
object gb_2: TGroupBox
Left = 376
Top = 8
Width = 417
Height = 433
Caption = #30005#36153#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Shape2: TShape
Left = 8
Top = 248
Width = 401
Height = 161
Brush.Color = clActiveBorder
Pen.Color = clNavy
end
object Label2: TLabel
Left = 16
Top = 216
Width = 65
Height = 20
Caption = #26465#20214#26597#35810
end
object Label4: TLabel
Left = 24
Top = 256
Width = 145
Height = 20
Caption = #35831#36755#20837#36873#25321#26597#35810#26465#20214
end
object Label5: TLabel
Left = 32
Top = 328
Width = 97
Height = 20
Caption = #35831#36755#20837#26597#35810#20540
end
object DBGrid2: TDBGrid
Left = 8
Top = 16
Width = 401
Height = 193
DataSource = DataSource2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
end
object Edit2: TEdit
Left = 96
Top = 360
Width = 129
Height = 28
TabOrder = 1
end
object ComboBox1: TComboBox
Left = 96
Top = 288
Width = 137
Height = 28
ItemHeight = 20
TabOrder = 2
Items.Strings = (
'jsm'
'gdyd')
end
object BitBtn3: TBitBtn
Left = 280
Top = 288
Width = 89
Height = 33
Caption = #24320#22987#26597#35810
TabOrder = 3
OnClick = BitBtn3Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 288
Top = 360
Width = 89
Height = 33
Caption = #32467#26463#26597#35810
TabOrder = 4
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 160
Top = 8
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\DELPHI'#23487#33293#31649#29702#31995#32479'\data\' +
'ssgl.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 320
Top = 16
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from wsb')
Left = 112
Top = 8
object ADOQuery1jsm: TWideStringField
DisplayLabel = #23517#23460#21517
DisplayWidth = 10
FieldName = 'jsm'
Size = 6
end
object ADOQuery1wspf: TIntegerField
DisplayLabel = #21355#29983#35780#20998
DisplayWidth = 13
FieldName = 'wspf'
end
object ADOQuery1pfsj: TDateTimeField
DisplayLabel = #35780#20998#26102#38388
DisplayWidth = 19
FieldName = 'pfsj'
end
object ADOQuery1pfry: TWideStringField
DisplayLabel = #35780#20998#20154#21592
DisplayWidth = 13
FieldName = 'pfry'
Size = 8
end
end
object ADOQuery2: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from ydb')
Left = 520
Top = 8
object ADOQuery2jsm: TWideStringField
DisplayLabel = #23517#23460#21517
DisplayWidth = 18
FieldName = 'jsm'
Size = 6
end
object ADOQuery2byyd: TIntegerField
DisplayLabel = #26412#26376#29992#30005
DisplayWidth = 17
FieldName = 'byyd'
end
object ADOQuery2yf: TDateTimeField
DisplayLabel = #26376#20221
DisplayWidth = 22
FieldName = 'yf'
end
object ADOQuery2gdyd: TIntegerField
DisplayLabel = #35268#23450#29992#30005
DisplayWidth = 18
FieldName = 'gdyd'
end
object ADOQuery2cdus: TIntegerField
DisplayLabel = #36229#25903#29992#30005
DisplayWidth = 18
FieldName = 'cdus'
end
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 568
Top = 8
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -