Z
zhaolin_918
Unregistered / Unconfirmed
GUEST, unregistred user!
大家好,请教一个问题:我想用CXGrid实现数据的即时输入即时显示功能.使用ADOTable连接后台数据表,使用ADOQuery的SQL进行数据查询.procedure TForm4.cxButton1Click(Sender: TObject);
begin
with ADOTable1do
begin
Insert;
FieldByName('name').AsString := ComboBox1.Text ;
FieldByName('kind').AsString := ComboBox2.Text ;
FieldByName('sl').AsFloat := StrToFloat(Edit1.Text);
FieldByName('dj').AsFloat := StrToFloat(Edit3.Text);
FieldByName('cxsj').AsDateTime := DateTimePicker1.Time ;
FieldByName('zj').AsFloat := StrToFloat(Edit2.Text);
FieldbyName('jsr').AsString := ComboBox3.Text ;
Post;
end;
ComboBox1.Text := '';ComboBox2.Text := '';
Edit1.Text :='';
ComboBox3.Text := '';Edit2.Text := '';
Edit3.Text := '';
With ADOQuery2do
begin
close;
sql.Clear;
sql.Add('select * from zcb');
open;
end;
end;
问题是单击后只能显示到上一条记录,而此次输入的数据显示不出..请问这是什么原因?如果有更好的方法请指导一下
begin
with ADOTable1do
begin
Insert;
FieldByName('name').AsString := ComboBox1.Text ;
FieldByName('kind').AsString := ComboBox2.Text ;
FieldByName('sl').AsFloat := StrToFloat(Edit1.Text);
FieldByName('dj').AsFloat := StrToFloat(Edit3.Text);
FieldByName('cxsj').AsDateTime := DateTimePicker1.Time ;
FieldByName('zj').AsFloat := StrToFloat(Edit2.Text);
FieldbyName('jsr').AsString := ComboBox3.Text ;
Post;
end;
ComboBox1.Text := '';ComboBox2.Text := '';
Edit1.Text :='';
ComboBox3.Text := '';Edit2.Text := '';
Edit3.Text := '';
With ADOQuery2do
begin
close;
sql.Clear;
sql.Add('select * from zcb');
open;
end;
end;
问题是单击后只能显示到上一条记录,而此次输入的数据显示不出..请问这是什么原因?如果有更好的方法请指导一下