【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-protitle.pas,希望本篇文章对您学习有所帮助。
unit protitle;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, DB, ADODB,protitle_unit,basedata_unit,pro_titlefind;
type
Tpro_titlefrm = class(TForm)
Label1: TLabel;
Bevel1: TBevel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
save_btn: TButton;
modify_btn: TButton;
worker_nameed: TEdit;
assess_united: TEdit;
assess_datepk: TDateTimePicker;
cancel_btn: TButton;
assess_titleed: TComboBox;
remarked: TMemo;
worker_ided: TComboBox;
procedure cancel_btnClick(Sender: TObject);
procedure save_btnClick(Sender: TObject);
procedure modify_btnClick(Sender: TObject);
procedure delete_btnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure worker_idedChange(Sender: TObject);
private
protitle:Tprotitle;
basedata:Tbasedata;
{ Private declarations }
public
{ Public declarations }
end;
var
pro_titlefrm: Tpro_titlefrm;
implementation
{$R *.dfm}
procedure Tpro_titlefrm.cancel_btnClick(Sender: TObject);
begin
pro_titlefrm.Close;
end;
procedure Tpro_titlefrm.save_btnClick(Sender: TObject);
var
t1,insertsql:string;
begin
//判断关键字输入是否为空
if worker_ided.Text ='' then
begin
showmessage('员工编号不能为空!');
exit;
end;
//判断输入的员工编号是否存在
if protitle.ProtitleRec(worker_ided.Text) then
begin
showmessage('该员工编号已经存在!');
exit;
end;
//转换时间类型
t1:=datetostr(assess_datepk.Date);
//赋值插入操作的SQL语句
insertsql:='insert into pro_title(worker_id,worker_name,'
+'assess_title,assess_date,assess_unit,remark)values('''+worker_ided.Text+''','
+''''+worker_nameed.Text+''','''+assess_titleed.Text+''','''+t1+''','
+''''+assess_united.Text+''','''+remarked.Text+''')';
//执行插入操作
protitle.RecInsert(insertsql);
showmessage('保存完毕!');
end;
procedure Tpro_titlefrm.modify_btnClick(Sender: TObject);
var
t1,mod
sql:string;
begin
//创建类的实例
protitle:=Tprotitle.create ;
if application.MessageBox('要修改吗?','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断修改记录的关键字是否存在
if worker_ided.Text ='' then
begin
showmessage('请先根据员工编号查看要修改的记录!');
exit;
end;
//判断要修改的记录是否存在
if protitle.ProtitleRec(worker_ided.Text)=false then
begin
showmessage('该员工编号不存在!');
exit;
end;
//将时间类型转换
t1:=datetostr(assess_datepk.Date);
//赋值修改操作SQL语句
modsql:='update pro_title set worker_name='''+worker_nameed.Text+''','
+'assess_title='''+assess_titleed.Text+''',assess_unit='''+assess_united.Text+''','
+'remark='''+remarked.Text+''',assess_date='''+t1+''' where worker_id='''+worker_ided.Text+'''';
//执行修改操作过程
protitle.RecUpdate(modsql);
showmessage('修改完成!');
end;
//释放实例
protitle.Free;
end;
procedure Tpro_titlefrm.delete_btnClick(Sender: TObject);
begin
if application.MessageBox('要删除吗?','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//创建类的实例
protitle:=Tprotitle.create ;
//判断是否输入员工编号
if worker_ided.Text ='' then
begin
showmessage('请输入要删除的员工编号!');
exit;
end;
//
查询要删除的记录是否存在
if protitle.ProtitleRec(worker_ided.Text)=false then
begin
showmessage('该员工编号不存在,删除失败!');
exit;
end;
//执行删除操作过程
protitle.RecDel(worker_ided.Text);
showmessage('删除成功!');
//清除文本框内容,时间定位到当前日期
end;
//释放实例
protitle.Free;
end;
procedure Tpro_titlefrm.FormActivate(Sender: TObject);
begin
//创建类的实例
protitle:=Tprotitle.create ;
basedata:=Tbasedata.create ;
//获取所有员工编号
列表并赋值
worker_ided.Items:=basedata.GetIdLists();
//取出对应的字段值值在文本框中显示
try
worker_ided.Text:=pro_titlefind.id ;
worker_nameed.Text :=protitle.GetWorkerName(worker_ided.Text) ;
assess_titleed.Text :=protitle.GetAssessUnit(worker_ided.Text) ;
assess_datepk.Date :=strtodate(protitle.GetAssessDate(worker_ided.Text) ) ;
assess_united.Text :=protitle.GetAssessTitle(worker_ided.Text) ;
remarked.Text :=protitle.GetRemark(worker_ided.Text) ;
except
exit;
end;
end;
proce