当前位置:编程学习 > Delphi >>

求delphi添加代码

界面如图,现在想实现添加功能。其中职工编号不能为空,也不能重复。如果为空或者重复都会有提示。数据库空间是ADOquery1,对应的都在图上

答案:if(edit2.text<>'')then
begin
with adoquery1 do begin
close;
sql.Clear;
sql.Add('select * from 表 where 员工编号=' + edit2.text);
open;
end;
if adoquery1.RecordCount>0 then
begin
showmessage('已存在该员工!');
end
else
begin
with adoquery1 do begin
close;
sql.Clear;
sql.Add('insert into denglu values(字段1,字段2,字段3..));
execsql;
application.MessageBox('添加成功!','提示:',mb_ok);
end;
end
else
begin
application.MessageBox ( '输入不能为空!','提示:',mb_ok);
end;
end;

if application.messagebox('确定保存','确认',MB_OKCANCEL) = idok then
begin

if edit2.text <> '' then //员工编号是否为空
begin

with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from ziliao where 职工编号='''+ edit2.text +'''');
open;
end;

if adoquery1.eof then
begin
adoquery1.append;
adoquery1.fieldbyname('职工编号').value := edit2.text;
adoquery1.fieldbyname('职工姓名').value := edit3.text;
adoquery1.fieldbyname('出生日期').value := edit4.text;
adoquery1.fieldbyname('毕业学校').value := edit5.text;
adoquery1.fieldbyname('政治面貌').value := combobox1.text;
adoquery1.fieldbyname('联系电话').value := edit6.text;
adoquery1.fieldbyname('参加工作时间').value := edit7.text;
adoquery1.fieldbyname('学历').value := combobox2.text;
adoquery1.fieldbyname('籍贯').value := edit8.text;
adoquery1.fieldbyname('住址').value := edit9.text;
adoquery1.fieldbyname('专业').value := edit10.text;
adoquery1.fieldbyname('所属部门').value := edit11.text;
adoquery1.fieldbyname('入本单位时间').value := edit12.text;
adoquery1.fieldbyname('备注').value := memo1.text;

adoquery1.post;
showmessage('保存成功');
end
else
showmessage('编号重复');
end
else
showmessage('不能为空');

上一个:delphi中限制长度问题?
下一个:delphi 的按钮控制

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,