Z
ziyu
Unregistered / Unconfirmed
GUEST, unregistred user!
C/S结构,采用ADOConnection与Ms-SQL连接
数据控件用的是DBEdit
Renshi表:
ID int not null 自增
No char(8) not null 编号
Name char(10) not null 姓名
Sex bit not null 性别
Birthday datetime not null 出生年月
U_DM (Datamodule)
TblRenshi: TADOTable; //用于数据编辑的Table。TableName:=Renshi
QryRenshi: TADOQuery; //与TblRenshi同步,用于数据显示的Query。SQL:='Select * from Renshi'
DtsRenshi: TDataSource;
DtsRenshi.DataSet:=TblRenshi;
QryRenshi.DataSource:=DtsRenshi;
procedure TDMMain.TblRenshiAfterScroll(DataSet: TDataSet);
begin
FrmInputInfo.AssignFieldValuetoForm(FrmInputInfo.EdtBirthday,'Birthday');
if TblRenshiSex.Value then
FrmInputInfo.CmbSex.Text:='男'
else
FrmInputInfo.CmbSex.Text:='女';
end;
procedure TDMMain.QryRenshiCalcFields(DataSet: TDataSet); //问题出在这里
begin
if QryRenshiSex.AsBoolean then
QryRenshiXingbie.Value:='男'
else
QryRenshiXingbie.Value:='女';
end;
提示的是一个Unkonw error被引发,我都不知道错在哪里,请大家帮帮我。
数据控件用的是DBEdit
Renshi表:
ID int not null 自增
No char(8) not null 编号
Name char(10) not null 姓名
Sex bit not null 性别
Birthday datetime not null 出生年月
U_DM (Datamodule)
TblRenshi: TADOTable; //用于数据编辑的Table。TableName:=Renshi
QryRenshi: TADOQuery; //与TblRenshi同步,用于数据显示的Query。SQL:='Select * from Renshi'
DtsRenshi: TDataSource;
DtsRenshi.DataSet:=TblRenshi;
QryRenshi.DataSource:=DtsRenshi;
procedure TDMMain.TblRenshiAfterScroll(DataSet: TDataSet);
begin
FrmInputInfo.AssignFieldValuetoForm(FrmInputInfo.EdtBirthday,'Birthday');
if TblRenshiSex.Value then
FrmInputInfo.CmbSex.Text:='男'
else
FrmInputInfo.CmbSex.Text:='女';
end;
procedure TDMMain.QryRenshiCalcFields(DataSet: TDataSet); //问题出在这里
begin
if QryRenshiSex.AsBoolean then
QryRenshiXingbie.Value:='男'
else
QryRenshiXingbie.Value:='女';
end;
提示的是一个Unkonw error被引发,我都不知道错在哪里,请大家帮帮我。