W
wangxinf1
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm3.FlatButton23Click(Sender: TObject);//下一步,实现存入数据库
begin
adoTable1.insert;
adoTable1.fieldbyName('ajmc').value := flatdbEdit1.text;
adoTable1.fieldbyName('fasj').value := flatdbEdit2.text;
adoTable1.fieldbyName('fadq').value := flatdbEdit3.text;
adoTable1.fieldbyName('ajlb').value := flatDBComboBox1.text;
adoTable1.fieldbyName('ajxz').value := flatdbEdit4.text;
adoTable1.fieldbyName('zasd').value := flatdbEdit5.text;
adoTable1.fieldbyName('zagj').value := flatdbEdit6.text;
adoTable1.fieldbyName('qt').value := flatdbEdit7.text;
adoTable1.fieldbyName('zfxm').value := flatdbEdit8.text;
AdoTable1.Post;
pagecontrol3.activepage:=tabsheet14;
end;
procedure TForm3.FlatButton27Click(Sender: TObject);//上一步按钮,返回修改
begin
pagecontrol3.activepage:=tabsheet13;
end;
可是,当再按下一步时,就出错了?
begin
adoTable1.insert;
adoTable1.fieldbyName('ajmc').value := flatdbEdit1.text;
adoTable1.fieldbyName('fasj').value := flatdbEdit2.text;
adoTable1.fieldbyName('fadq').value := flatdbEdit3.text;
adoTable1.fieldbyName('ajlb').value := flatDBComboBox1.text;
adoTable1.fieldbyName('ajxz').value := flatdbEdit4.text;
adoTable1.fieldbyName('zasd').value := flatdbEdit5.text;
adoTable1.fieldbyName('zagj').value := flatdbEdit6.text;
adoTable1.fieldbyName('qt').value := flatdbEdit7.text;
adoTable1.fieldbyName('zfxm').value := flatdbEdit8.text;
AdoTable1.Post;
pagecontrol3.activepage:=tabsheet14;
end;
procedure TForm3.FlatButton27Click(Sender: TObject);//上一步按钮,返回修改
begin
pagecontrol3.activepage:=tabsheet13;
end;
可是,当再按下一步时,就出错了?