陈
陈芬
Unregistered / Unconfirmed
GUEST, unregistred user!
我写的程序中有插入和删除.
当我插入一个数据时,在删除的地方根本看不到刚才插入的数据.
我的插入代码procedure Txueshengxinxi.Button1Click(Sender: TObject);
begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from student');
ADOQuery1.Open ;
ADOQuery1.Append ; //把注册信息写入学期注册表中
ADOQuery1.FieldByName ('stu_id').AsString :=trim(edit1.Text);
ADOQuery1.FieldByName ('stu_name').AsString :=trim(edit2.Text);
ADOQuery1.FieldByName ('stu_sex').AsString :=trim(combobox1.Text);
ADOQuery1.FieldByName ('stu_xi').AsString :=trim(edit4.Text);
ADOQuery1.FieldByName ('stu_class').AsString :=trim(edit5.Text);
ADOQuery1.FieldByName ('stu_tel').AsString :=trim(edit6.Text);
ADOQuery1.Prepared ;
try
ADOConnection1.BeginTrans; //提交事务
ADOQuery1.Post ;
ADOConnection1.CommitTrans ;
MessageBox(handle,'录入成功!','提示',MB_OK+MB_ICONINFORMATION);
except
ADOConnection1.RollbackTrans ; //提交失败,事务回滚
MessageBox(handle,'录入失败!','提示',MB_OK+MB_ICONWARNING);
end;
end;
删除代码
procedure Txueshenglixiao.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.Sql.clear;
ADOQuery1.Sql.Add('delete from student ');
ADOQuery1.Sql.Add('where stu_id=:v1');
ADOQuery1.Parameters.ParamByName('v1').Value:=trim(combobox1.Text);
ADOQuery1.Prepared ;
adoquery1.ExecSQL;
end;
请问我要怎么做才能实时更新.
谢谢.
当我插入一个数据时,在删除的地方根本看不到刚才插入的数据.
我的插入代码procedure Txueshengxinxi.Button1Click(Sender: TObject);
begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from student');
ADOQuery1.Open ;
ADOQuery1.Append ; //把注册信息写入学期注册表中
ADOQuery1.FieldByName ('stu_id').AsString :=trim(edit1.Text);
ADOQuery1.FieldByName ('stu_name').AsString :=trim(edit2.Text);
ADOQuery1.FieldByName ('stu_sex').AsString :=trim(combobox1.Text);
ADOQuery1.FieldByName ('stu_xi').AsString :=trim(edit4.Text);
ADOQuery1.FieldByName ('stu_class').AsString :=trim(edit5.Text);
ADOQuery1.FieldByName ('stu_tel').AsString :=trim(edit6.Text);
ADOQuery1.Prepared ;
try
ADOConnection1.BeginTrans; //提交事务
ADOQuery1.Post ;
ADOConnection1.CommitTrans ;
MessageBox(handle,'录入成功!','提示',MB_OK+MB_ICONINFORMATION);
except
ADOConnection1.RollbackTrans ; //提交失败,事务回滚
MessageBox(handle,'录入失败!','提示',MB_OK+MB_ICONWARNING);
end;
end;
删除代码
procedure Txueshenglixiao.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.Sql.clear;
ADOQuery1.Sql.Add('delete from student ');
ADOQuery1.Sql.Add('where stu_id=:v1');
ADOQuery1.Parameters.ParamByName('v1').Value:=trim(combobox1.Text);
ADOQuery1.Prepared ;
adoquery1.ExecSQL;
end;
请问我要怎么做才能实时更新.
谢谢.