S
seafox
Unregistered / Unconfirmed
GUEST, unregistred user!
关于adotable控件的使用,要是记录多的话,在增加或删除时有没有必要用adotable2.Active :=false;
adotable2.Active :=true;
例如:with adotable2do
begin
try
open;
append;
edit;
fieldbyname('收费日期').AsDatetime :=datetimepicker1.Date ;
fieldbyname('户号').AsString :=maskedit1.Text ;
fieldbyname('姓名').AsString :=edit2.Text ;
fieldbyname('建筑面积').AsString :=edit4.Text ;
fieldbyname('收费标准').AsString :=dblookupcombobox1.Text ;
fieldbyname('年度').AsString :=dblookupcombobox2.Text ;
fieldbyname('应收供热').Asstring :=edit5.Text ;{(strtoint(edit4.Text)*strtoint(dblookupcombobox1.Text)) ;}
fieldbyname('欠款供热').AsString :=trim(maskedit6.Text) ;
fieldbyname('欠款其他').AsString :=trim(maskedit7.Text) ;
fieldbyname('交款单位').AsString :=trim(edit8.Text) ;
post;
//showmessage('数据已经正确存盘');
application.messagebox('数据已经正确存盘','确认',mb_ok+mb_iconinformation);
adotable2.Active :=false;
adotable2.Active :=true;
adotable2.Active :=true;
例如:with adotable2do
begin
try
open;
append;
edit;
fieldbyname('收费日期').AsDatetime :=datetimepicker1.Date ;
fieldbyname('户号').AsString :=maskedit1.Text ;
fieldbyname('姓名').AsString :=edit2.Text ;
fieldbyname('建筑面积').AsString :=edit4.Text ;
fieldbyname('收费标准').AsString :=dblookupcombobox1.Text ;
fieldbyname('年度').AsString :=dblookupcombobox2.Text ;
fieldbyname('应收供热').Asstring :=edit5.Text ;{(strtoint(edit4.Text)*strtoint(dblookupcombobox1.Text)) ;}
fieldbyname('欠款供热').AsString :=trim(maskedit6.Text) ;
fieldbyname('欠款其他').AsString :=trim(maskedit7.Text) ;
fieldbyname('交款单位').AsString :=trim(edit8.Text) ;
post;
//showmessage('数据已经正确存盘');
application.messagebox('数据已经正确存盘','确认',mb_ok+mb_iconinformation);
adotable2.Active :=false;
adotable2.Active :=true;