?? unit6.~dfm
字號:
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
ShowHint = True
TabOrder = 8
end
object tinot: TEdit
Left = 344
Top = 312
Width = 41
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
TabOrder = 9
Text = '1'
OnKeyPress = tinotKeyPress
end
object Button2: TButton
Left = 440
Top = 312
Width = 41
Height = 25
Caption = 'GO!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = Button2Click
end
end
object xuanze: TPanel
Left = 0
Top = 131
Width = 777
Height = 409
BevelInner = bvLowered
BevelWidth = 3
Color = clInfoBk
TabOrder = 2
OnClick = xuanzeClick
object Label9: TLabel
Left = 16
Top = 24
Width = 104
Height = 21
Caption = #19968'.'#36873#25321#39064
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object tino: TLabel
Tag = 1
Left = 200
Top = 56
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 Label22: TLabel
Tag = 1
Left = 224
Top = 56
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 = 56
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 = 632
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 = 696
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 = 664
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 Label12: TLabel
Left = 264
Top = 304
Width = 69
Height = 21
Caption = #22238#21040#31532
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #38582#20070
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 400
Top = 304
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 DBEdit7: TDBEdit
Left = 336
Top = 120
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 = 0
end
object DBEdit8: TDBEdit
Left = 336
Top = 160
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 = 1
end
object DBEdit9: TDBEdit
Left = 336
Top = 192
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 = 2
end
object DBEdit10: TDBEdit
Left = 336
Top = 232
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 = 3
end
object BitBtn4: TBitBtn
Left = 104
Top = 360
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 = 4
OnClick = BitBtn4Click
Kind = bkRetry
end
object tk: TBitBtn
Left = 320
Top = 360
Width = 105
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 = 5
OnClick = tkClick
Kind = bkYes
end
object nextti: TBitBtn
Left = 536
Top = 360
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 = 6
OnClick = nexttiClick
Kind = bkIgnore
end
object a: TCheckBox
Left = 264
Top = 120
Width = 49
Height = 25
Caption = 'A.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = aClick
end
object b: TCheckBox
Left = 264
Top = 160
Width = 49
Height = 17
Caption = 'B.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = bClick
end
object c: TCheckBox
Left = 264
Top = 192
Width = 41
Height = 25
Caption = 'C.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = cClick
end
object d: TCheckBox
Left = 264
Top = 232
Width = 49
Height = 25
Caption = 'D.'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = dClick
end
object DBEdit1: TDBEdit
Left = 48
Top = 144
Width = 65
Height = 21
DataField = #39064#21495
DataSource = DataSource1
ImeName = #26234#33021'ABC'#36755#20837#27861
TabOrder = 11
Visible = False
end
object daan: TEdit
Left = 136
Top = 56
Width = 41
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 12
end
object tinox: TEdit
Left = 344
Top = 304
Width = 41
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #38582#20070
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentFont = False
TabOrder = 13
Text = '1'
OnKeyPress = tinoxKeyPress
end
object Button1: TButton
Left = 440
Top = 304
Width = 41
Height = 25
Caption = 'GO!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = Button1Click
end
object zhengque: TDBEdit
Left = 136
Top = 56
Width = 41
Height = 26
BorderStyle = bsNone
Color = clInfoBk
Ctl3D = False
DataField = #27491#30830#31572#26696
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #26234#33021'ABC'#36755#20837#27861
ParentCtl3D = False
ParentFont = False
TabOrder = 15
Visible = False
end
object DBMemo2: TDBMemo
Left = 248
Top = 56
Width = 377
Height = 57
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
TabOrder = 16
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 80
Top = 24
end
object Query1: TQuery
DatabaseName = #30005#23376#35797#21367#24211
RequestLive = True
SQL.Strings = (
'select *'
'from '#32771#21367#35797#39064#24211
'where '#39064#22411'=:tixing')
Left = 120
Top = 24
ParamData = <
item
DataType = ftUnknown
Name = 'tixing'
ParamType = ptUnknown
end>
end
object huanjuan: TQuery
DatabaseName = #30005#23376#35797#21367#24211
SQL.Strings = (
'delete '
'from '#32771#21367#35797#39064#24211)
Left = 160
Top = 24
end
object MainMenu1: TMainMenu
Left = 40
Top = 24
object N2: TMenuItem
Caption = #25552#20132#35797#21367
ShortCut = 112
OnClick = N2Click
end
object cunjuan: TMenuItem
Caption = #20445#23384#35797#21367
Visible = False
OnClick = BitBtn7Click
end
object N3: TMenuItem
Caption = #36864#20986#31995#32479
OnClick = N3Click
end
object N4: TMenuItem
Caption = #24110#21161
object N5: TMenuItem
Caption = #24110#21161#32454#33410
OnClick = N5Click
end
object N6: TMenuItem
Caption = #20851#20110
OnClick = N6Click
end
end
end
object insqdsjk: TQuery
DatabaseName = #30005#23376#35797#21367#24211
SQL.Strings = (
'')
Left = 200
Top = 24
end
object pdzw: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 232
Top = 24
end
object Timer1: TTimer
Interval = 60000
OnTimer = Timer1Timer
Left = 32
Top = 64
end
object updatedaan: TQuery
DatabaseName = #30005#23376#35797#21367#24211
SQL.Strings = (
'')
Left = 200
Top = 56
end
object panduan: TQuery
DatabaseName = #30005#23376#35797#21367#24211
Left = 240
Top = 56
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -