< SQL SERVER 2000 案例教程>>,冶金工业出版社,这本书的代码
源代码在线查看： unit7.dfm
object Form7: TForm7
Left = 192
Top = 110
Width = 696
Height = 480
Caption = #20154#20107#21464#26356
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 Label1: TLabel
Left = 28
Top = 240
Width = 4
Height = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Updatestuff: TButton
Left = 368
Top = 20
Width = 117
Height = 37
Caption = #26356' '#26032
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = UpdatestuffClick
end
object Button2: TButton
Left = 536
Top = 20
Width = 105
Height = 37
Caption = #36864' '#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object code: TEdit
Left = 32
Top = 20
Width = 153
Height = 21
TabOrder = 2
end
object address: TEdit
Left = 152
Top = 285
Width = 153
Height = 21
TabOrder = 3
end
object mobile: TEdit
Left = 152
Top = 330
Width = 153
Height = 21
TabOrder = 4
end
object stuffname: TEdit
Left = 152
Top = 104
Width = 153
Height = 21
TabOrder = 5
end
object age: TEdit
Left = 480
Top = 100
Width = 145
Height = 21
TabOrder = 6
end
object telephone: TEdit
Left = 480
Top = 288
Width = 145
Height = 21
TabOrder = 7
end
object mail: TEdit
Left = 480
Top = 332
Width = 145
Height = 21
TabOrder = 8
end
object man: TRadioButton
Left = 152
Top = 152
Width = 41
Height = 17
Caption = #30007
TabOrder = 9
end
object woman: TRadioButton
Left = 248
Top = 152
Width = 41
Height = 17
Caption = #22899
TabOrder = 10
end
object partment: TComboBox
Left = 480
Top = 192
Width = 153
Height = 21
BevelKind = bkSoft
ItemHeight = 13
ItemIndex = 3
TabOrder = 11
Text = '4'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'')
end
object starttime: TDateTimePicker
Left = 480
Top = 240
Width = 153
Height = 21
Date = 37897.079850810190000000
Time = 37897.079850810190000000
TabOrder = 12
end
object endtime: TDateTimePicker
Left = 152
Top = 240
Width = 153
Height = 21
Date = 37897.079962430560000000
Time = 37897.079962430560000000
TabOrder = 13
end
object remark: TMemo
Left = 152
Top = 368
Width = 473
Height = 49
TabOrder = 14
end
object job: TComboBox
Left = 152
Top = 192
Width = 153
Height = 21
ItemHeight = 13
TabOrder = 15
end
object jobstate: TComboBox
Left = 480
Top = 152
Width = 153
Height = 21
ItemHeight = 13
TabOrder = 16
Items.Strings = (
#22312#32844
#31163#32844
#36864#20241
#36766#36864)
end
object Checkaddress: TCheckBox
Left = 32
Top = 286
Width = 97
Height = 17
Caption = #22320#22336' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 17
end
object Checkdepart: TCheckBox
Left = 360
Top = 195
Width = 97
Height = 17
Caption = #37096#38376' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 18
end
object Checkstate: TCheckBox
Left = 360
Top = 154
Width = 97
Height = 17
Caption = #24037#20316#29366#24577' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 19
end
object Checkend: TCheckBox
Left = 360
Top = 241
Width = 113
Height = 17
Caption = #21512#21516#24320#22987' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 20
end
object Checkremark: TCheckBox
Left = 32
Top = 376
Width = 97
Height = 17
Caption = #22791#27880' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 21
end
object Checkage: TCheckBox
Left = 360
Top = 100
Width = 97
Height = 17
Caption = #24180#40836
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 22
end
object Checkmobile: TCheckBox
Left = 32
Top = 332
Width = 97
Height = 17
Caption = #25163#26426' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 23
end
object Checktel: TCheckBox
Left = 360
Top = 288
Width = 97
Height = 17
Caption = #32852#31995#30005#35805
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 24
end
object Checkname: TCheckBox
Left = 32
Top = 104
Width = 97
Height = 17
Caption = #21592#24037#22995#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 25
end
object Checkjob: TCheckBox
Left = 32
Top = 200
Width = 97
Height = 17
Caption = #32844#21153
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 26
end
object Checksex: TCheckBox
Left = 32
Top = 149
Width = 97
Height = 17
Caption = #24615#21035' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 27
end
object Checkmail: TCheckBox
Left = 360
Top = 332
Width = 97
Height = 17
Caption = #30005#23376#37038#31665' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 28
end
object Button1: TButton
Left = 200
Top = 20
Width = 117
Height = 37
Caption = #36755#20837#24037#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 29
OnClick = Button1Click
end
object Checkstart: TCheckBox
Left = 32
Top = 240
Width = 97
Height = 17
Caption = #21512#21516#32467#26463' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 30
end
end
