📄 mglr.dfm
字号:
object mglrfrm: Tmglrfrm
Left = 101
Top = 194
Width = 767
Height = 434
Caption = #30331#24405#36710#36742#36827#20986#22823#38376#26102#38388
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 759
Height = 406
Align = alClient
BevelInner = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 242
Top = 75
Width = 60
Height = 12
Caption = #24102' '#36710' '#20154#65306
end
object Label2: TLabel
Left = 244
Top = 40
Width = 60
Height = 12
Caption = #21496' '#26426#65306
end
object Label3: TLabel
Left = 20
Top = 40
Width = 60
Height = 12
Caption = #36710' '#21495#65306
end
object Label4: TLabel
Left = 20
Top = 78
Width = 60
Height = 12
Caption = #29992#36710#21333#20301#65306
end
object Label7: TLabel
Left = 20
Top = 117
Width = 60
Height = 12
Caption = #21457#36710#26102#38388#65306
end
object Label8: TLabel
Left = 244
Top = 117
Width = 60
Height = 12
Caption = #22238#22330#26102#38388#65306
end
object Label5: TLabel
Left = 20
Top = 215
Width = 144
Height = 12
Caption = #24403#21069#33719#20934#36827#20986#22823#38376#30340#36710#36742#65306
end
object Panel2: TPanel
Left = 2
Top = 196
Width = 755
Height = 208
Align = alBottom
BevelInner = bvLowered
TabOrder = 0
object StatusBar1: TStatusBar
Left = 2
Top = 187
Width = 751
Height = 19
Panels = <
item
Width = 50
end>
end
object DBGrid1: TDBGrid
Left = 2
Top = 2
Width = 751
Height = 185
Align = alClient
Anchors = [akLeft, akBottom]
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #36710#21495
Width = 85
Visible = True
end
item
Expanded = False
FieldName = #29992#36710#26102#38388
Width = 90
Visible = True
end
item
Expanded = False
FieldName = #21457#36710#26102#38388
Width = 179
Visible = True
end
item
Expanded = False
FieldName = #22238#22330#26102#38388
Width = 178
Visible = True
end
item
Expanded = False
FieldName = #29992#36710#21333#20301
Width = 76
Visible = True
end
item
Expanded = False
FieldName = #24102#36710#20154
Width = 70
Visible = True
end
item
Expanded = False
FieldName = #21496#26426
Width = 70
Visible = True
end>
end
end
object DBEdit2: TDBEdit
Left = 85
Top = 75
Width = 134
Height = 20
Color = clScrollBar
DataField = #29992#36710#21333#20301
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
ReadOnly = True
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 85
Top = 37
Width = 134
Height = 20
Color = clScrollBar
DataField = #36710#21495
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
ReadOnly = True
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 307
Top = 37
Width = 134
Height = 20
Color = clScrollBar
DataField = #21496#26426
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object DBEdit7: TDBEdit
Left = 85
Top = 114
Width = 134
Height = 20
DataField = #21457#36710#26102#38388
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
TabOrder = 4
OnDblClick = DBEdit7DblClick
OnKeyDown = DBEdit7KeyDown
OnKeyPress = DBEdit7KeyPress
end
object DBEdit8: TDBEdit
Left = 307
Top = 114
Width = 134
Height = 20
DataField = #22238#22330#26102#38388
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
TabOrder = 5
OnDblClick = DBEdit8DblClick
OnKeyDown = DBEdit8KeyDown
OnKeyPress = DBEdit8KeyPress
end
object BitBtn1: TBitBtn
Left = 519
Top = 27
Width = 77
Height = 20
Caption = #20445#23384
Default = True
TabOrder = 6
OnClick = BitBtn1Click
Glyph.Data = {
F2010000424DF201000000000000760000002800000024000000130000000100
0400000000007C01000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
3333333333388F3333333333000033334224333333333333338338F333333333
0000333422224333333333333833338F33333333000033422222243333333333
83333338F3333333000034222A22224333333338F33F33338F33333300003222
A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
33333A2224A2233333333338F338F83300003333333333A2224A333333333333
8F338F33000033333333333A222433333333333338F338F30000333333333333
A224333333333333338F38F300003333333333333A223333333333333338F8F3
000033333333333333A3333333333333333383330000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 519
Top = 124
Width = 77
Height = 21
Caption = #36864#20986
TabOrder = 7
OnClick = BitBtn3Click
Kind = bkClose
end
object BitBtn2: TBitBtn
Left = 519
Top = 59
Width = 77
Height = 21
Cancel = True
Caption = #21462#28040
TabOrder = 8
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 519
Top = 92
Width = 77
Height = 20
Caption = #21047#26032
TabOrder = 9
OnClick = BitBtn4Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DBEdit1: TDBEdit
Left = 307
Top = 75
Width = 134
Height = 20
Color = clScrollBar
DataField = #24102#36710#20154
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 10
end
end
object Query1: TQuery
CachedUpdates = True
AutoRefresh = True
DatabaseName = 'cczb'
RequestLive = True
SQL.Strings = (
'select * from '#36710#36742#31649#29702#32508#21512#20449#24687)
Left = 130
Top = 191
object Query1BDEDesigner4: TStringField
FieldName = #36710#21495
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#36710#21495
Size = 30
end
object Query1BDEDesigner3: TStringField
FieldName = #29992#36710#26102#38388
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#29992#36710#26102#38388
Size = 30
end
object Query1BDEDesigner6: TStringField
FieldName = #21457#36710#26102#38388
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#21457#36710#26102#38388
Size = 50
end
object Query1BDEDesigner7: TStringField
FieldName = #22238#22330#26102#38388
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#22238#22330#26102#38388
Size = 50
end
object Query1BDEDesigner: TStringField
FieldName = #29992#36710#21333#20301
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#29992#36710#21333#20301
end
object Query1BDEDesigner2: TStringField
FieldName = #24102#36710#20154
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#24102#36710#20154
end
object Query1BDEDesigner5: TStringField
FieldName = #21496#26426
Origin = 'CCZB.'#36710#36742#31649#29702#32508#21512#20449#24687'.'#21496#26426
Size = 50
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 178
Top = 191
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -