?? unit8.dfm
字號:
end
object tino: TLabel
Tag = 1
Left = 200
Top = 72
Width = 13
Height = 24
Caption = '1'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 272
Top = 128
Width = 26
Height = 24
Caption = 'A.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 272
Top = 176
Width = 26
Height = 24
Caption = 'B.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 272
Top = 224
Width = 26
Height = 24
Caption = 'C.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 272
Top = 272
Width = 26
Height = 24
Caption = 'D.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Tag = 1
Left = 224
Top = 72
Width = 13
Height = 24
Caption = '.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Tag = 1
Left = 56
Top = 72
Width = 63
Height = 24
Caption = #31572#26696':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 624
Top = 24
Width = 23
Height = 21
Caption = #20849
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 688
Top = 24
Width = 23
Height = 21
Caption = #39064
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object shumu: TLabel
Left = 656
Top = 24
Width = 12
Height = 21
Caption = '1'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 160
Top = 344
Width = 125
Height = 24
Caption = #26412#39064#22411#24635#20998
Font.Charset = GB2312_CHARSET
Font.Color = clPurple
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object DBEdit6: TDBEdit
Left = 264
Top = 72
Width = 465
Height = 33
Hint = #35797#39064#39064#30446
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #39064#30446
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 312
Top = 128
Width = 313
Height = 25
Hint = #36873#39033'A'
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #36873#39033'A'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 1
end
object DBEdit8: TDBEdit
Left = 312
Top = 176
Width = 313
Height = 25
Hint = #36873#39033'B'
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #36873#39033'B'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 2
end
object DBEdit9: TDBEdit
Left = 312
Top = 224
Width = 313
Height = 25
Hint = #36873#39033'C'
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #36873#39033'C'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 3
end
object DBEdit10: TDBEdit
Left = 312
Top = 272
Width = 313
Height = 25
Hint = #36873#39033'D'
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #36873#39033'D'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 4
end
object BitBtn4: TBitBtn
Left = 96
Top = 448
Width = 105
Height = 33
Cursor = crHandPoint
Caption = #19978#19968#39064
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = BitBtn4Click
Kind = bkRetry
end
object tk: TBitBtn
Left = 312
Top = 448
Width = 113
Height = 33
Cursor = crHandPoint
Caption = #22635#31354#39064
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = tkClick
Kind = bkYes
end
object nextti: TBitBtn
Left = 488
Top = 448
Width = 105
Height = 33
Cursor = crHandPoint
Caption = #19979#19968#39064
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = nexttiClick
Kind = bkIgnore
end
object DBEdit1: TDBEdit
Left = 128
Top = 72
Width = 41
Height = 25
BorderStyle = bsNone
CharCase = ecUpperCase
Color = clInfoBk
Ctl3D = False
DataField = #27491#30830#31572#26696
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
TabOrder = 8
end
object isxuan: TDBCheckBox
Left = 480
Top = 344
Width = 121
Height = 25
Caption = #26159#21542#36873#20013
DataField = #26159#21542#36873#20013
DataSource = DataSource1
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clPurple
Font.Height = -24
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object BitBtn2: TBitBtn
Left = 312
Top = 400
Width = 113
Height = 33
Caption = #35797#21367#39044#35272
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object xzf: TComboBox
Left = 312
Top = 344
Width = 81
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ItemHeight = 19
ParentFont = False
TabOrder = 11
Text = '0'
OnChange = xzfChange
Items.Strings = (
'10'
'20'
'30'
'40'
'50'
'60'
'70'
'80'
'90'
'100')
end
object Button1: TButton
Left = 624
Top = 448
Width = 105
Height = 33
Caption = #36864' '#20986
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #38582#20070
Font.Style = []
ParentFont = False
TabOrder = 12
OnClick = Button1Click
end
end
object xuanti: TQuery
DatabaseName = #30005#23376#35797#21367#24211
RequestLive = True
Left = 16
Top = 296
end
object DataSource1: TDataSource
DataSet = xuanti
Left = 16
Top = 256
end
object tian: TDataSource
DataSet = xuantitian
Left = 16
Top = 216
end
object xuantitian: TQuery
DatabaseName = #30005#23376#35797#21367#24211
RequestLive = True
Left = 16
Top = 336
end
object inssjk: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 16
Top = 176
end
object Query1: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 16
Top = 144
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -