名片管理系统课程设计

名片管理系统课程设计内容摘要：

if MessageDlg(39。 确认删除吗。 39。 ,mtconfirmation,mbOKCancel,0)=mrOK then。 end。 各种情况的统计分析按钮只是起到一个转到作用，具体统计是在各个统计界面实现 . d) 添加功能的代 码实现 通过下拉菜单进入到添加窗体， 在输入信息后，保存按键下面代码实现如下： 12 procedure (Sender: TObject)。 begin if flag = true then begin if =39。 39。 then messagebox(,39。 请 输 入 编 号 39。 ,39。 编号39。 ,mb_ok+mb_iconwarning) else if =39。 39。 then messagebox(,39。 请 输 入 姓 名 39。 ,39。 姓名39。 ,mb_ok+mb_iconwarning) end。 with ADOQuery1 do begin close。 with sql do begin clear。 add(39。 insert into 员 工 表values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10)39。 )。 end。 parameters[0].Value :=。 parameters[1].Value :=。 parameters[2].Value :=。 parameters[3].Value :=。 parameters[4].Value :=。 parameters[5].Value :=。 parameters[6].Value :=。 parameters[7].Value :=。 parameters[8].Value :=。 parameters[9].Value :=。 parameters[10].Value :=。 ExecSQL。 flag:=false。 messagebox(,39。 新名片添加成功 39。 ,39。 恭喜 39。 ,mb_ok)。 end。 end。 若要继续保存，则“继续添加”按钮下面的代码实现如下： procedure (Sender: TObject)。 begin flag := true。 //点击添加按妞时 是程序处于 INSERT 状态 :=39。 39。 :=39。 39。 13 :=39。 39。 :=39。 39。 :=39。 39。 :=39。 39。 :=39。 39。 :=39。 39。 :=39。 39。 :=39。 39。 end。 e) 修改功能的代码实现 在进入修改界面后，首先选择要修改的某条记录，选择按钮下的代码 实现如下： procedure (Sender: TObject)。 begin if (=39。 编号 39。 ) then begin with adoquery1 do begin close。 (39。 select * from 员工表 where 序号 =:A139。 )。 (39。 A139。 ).value:=。 open。 end。 end。 if (=39。 姓名 39。 ) then begin with adoquery1 do begin close。 (39。 select * from 员工表 where 姓名 =:A239。 )。 (39。 A239。 ).value:=。 open。 end。 end。 end。 在修改信息后，保存按钮下面的代码实现如下： procedure (Sender: TObject)。 var i:integer。 begin i:=[0].asinteger。 14 if =39。 39。 then showmessage(39。 编号不能为空 39。 ) else if =39。 39。 then showmessage(39。 姓名不能为空 39。 ) else with adoquery1 do begin close。 (39。 update 员工表 set 序号 =39。 39。 39。 ++39。 39。 39。 , 姓名=39。 39。 39。 ++39。 39。 39。 ,性别 =39。 39。 39。 ++39。 39。 39。 ,年龄 =39。 39。 39。 ++39。 39。 39。 ,职务 =39。 39。 39。 ++39。 39。 39。 , 联 系 方 式 =39。 39。 39。 ++39。 39。 39。 , 家 庭 住 址=39。 39。 39。 ++39。 39。 39。 , 银行账号 =39。 39。 39。 ++39。 39。 39。 , 税号=39。 39。 39。 ++39。 39。 39。 , 所在公司 =39。 39。 39。 ++39。 39。 39。 , 个人简历=39。 39。 3。