想要完成点击form1中菜单中的添加,出现form2,在其中输入数据后,点击ok,记录更新,点击cancel,取消操作。为什么无法实现?
procedure TForm1.add1Click(Sender: TObject);
begin
if table1.canmodify then
begin
if form2.showmodal=mrok then
begin
table1.insert;
table1.fields[0].asinteger:=strtoint(form2.employeeno.text);
table1.fields[1].asstring:=form2.lastname.text;
table1.fields[2].asstring:=form2.firstname.text;
table1.fields[3].asstring:=form2.phoneno.text;
table1.fields[4].asdatetime:=strtodatetime(form2.hiredate.text);
table1.fields[5].asinteger:=strtoint(form2.salary.text);
table1.post;
end;
end
else
application.messagebox('error!','Can not add a record',mb_ok);
end;
procedure TForm1.add1Click(Sender: TObject);
begin
if table1.canmodify then
begin
if form2.showmodal=mrok then
begin
table1.insert;
table1.fields[0].asinteger:=strtoint(form2.employeeno.text);
table1.fields[1].asstring:=form2.lastname.text;
table1.fields[2].asstring:=form2.firstname.text;
table1.fields[3].asstring:=form2.phoneno.text;
table1.fields[4].asdatetime:=strtodatetime(form2.hiredate.text);
table1.fields[5].asinteger:=strtoint(form2.salary.text);
table1.post;
end;
end
else
application.messagebox('error!','Can not add a record',mb_ok);
end;
解决方案 »
- delphi加个webbrowser,360就提示可能篡改网页不安全怎么破
- 求助:indy9能不能使两个客户端在一台电脑运行
- 100分求个查询语句或报表实现
- 程序在后台运行,如何在Windows关闭时截获此信息以便保存保存数据。
- :问一道关于两数组排序的算法问题。
- 100分求解答:怎么在局域网里自动软件升级,就像internet上的金山毒霸升级一样.
- 我们的网站开张了,大家来看看?
- 各位大哥!小弟有个Delphi6和数据库问题想请教一下?
- ★★据了解搞底层开发比搞行业数据库管理软件开发容易,不知道大家有没有这种体会?★★
- 如何让程序等待若干秒再执行下一条语句??
- MIDI高手请进:关于使用midi API操作MIDI
- 有关MDI窗口问题
之前,form2应该已经被关闭了,无法取到text数据。