C++ Builder数据库开发经典案例解析
示例程序都是在C++ Builder 6.0(Enterprise)和SQL Server 2000个人版下调试通过的
源代码在线查看: kemu.dfm
inherited fmKeMu: TfmKeMu
Caption = #20250#35745#31185#30446#35774#32622
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited CoolBar1: TCoolBar
inherited Panel1: TPanel
inherited lblCount: TLabel
Visible = True
end
end
end
inherited DBGrid1: TDBGrid
Columns = <
item
Expanded = False
FieldName = #31185#30446#20195#30721
Width = 58
Visible = True
end
item
Expanded = False
FieldName = #31185#30446#21517#31216
Width = 107
Visible = True
end>
end
inherited Panel2: TPanel
object Label4: TLabel
Left = 30
Top = 22
Width = 56
Height = 13
Caption = #31185#30446#20195#30721
FocusControl = EditDBEdit
end
object Label5: TLabel
Left = 31
Top = 70
Width = 56
Height = 13
Caption = #31185#30446#21517#31216
FocusControl = EditDBEdit2
end
object Label6: TLabel
Left = 176
Top = 22
Width = 42
Height = 13
Caption = #21161#35760#30721
FocusControl = EditDBEdit3
end
object EditDBEdit: TDBEdit
Left = 30
Top = 37
Width = 115
Height = 21
DataField = #31185#30446#20195#30721
DataSource = DataSource1
TabOrder = 0
end
object EditDBEdit2: TDBEdit
Left = 31
Top = 85
Width = 258
Height = 21
DataField = #31185#30446#21517#31216
DataSource = DataSource1
TabOrder = 1
end
object EditDBEdit3: TDBEdit
Left = 176
Top = 37
Width = 115
Height = 21
DataField = #21161#35760#30721
DataSource = DataSource1
TabOrder = 2
end
object DBRadioGroup1: TDBRadioGroup
Left = 32
Top = 128
Width = 113
Height = 137
Caption = #31185#30446#31867#21035
DataField = #31185#30446#31867#21035
DataSource = DataSource1
Items.Strings = (
#36164#20135
#36127#20538
#26435#30410
#25104#26412
#25439#28322)
TabOrder = 3
Values.Strings = (
#36164#20135
#36127#20538
#26435#30410
#25104#26412
#25439#28322)
end
object DBRadioGroup2: TDBRadioGroup
Left = 200
Top = 128
Width = 89
Height = 81
Caption = #20313#39069#26041#21521
DataField = #20313#39069#26041#21521
DataSource = DataSource1
Items.Strings = (
#20511#26041
#36151#26041)
TabOrder = 4
Values.Strings = (
#20511#26041
#36151#26041)
end
end
inherited Table1: TTable
Active = True
TableName = 'dbo.'#31185#30446#34920
end
end