⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit5.~pas

📁 一个很简单的人事管理系统
💻 ~PAS
字号:
🔍 
unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;

type
  TrenshiForm = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery2: TADOQuery;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    GroupBox3: TGroupBox;
    Button4: TButton;
    Button5: TButton;
    Button3: TButton;
    Button6: TButton;
    Button7: TButton;
    ADOQuery3: TADOQuery;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  renshiForm: TrenshiForm;

implementation

uses Unit1, Unit8;

{$R *.dfm}

procedure TrenshiForm.FormCreate(Sender: TObject);
begin
   BorderIcons:=[];
end;

procedure TrenshiForm.Button1Click(Sender: TObject);
begin
adoquery2.SQL.Text:='select * from Info ';
adoquery2.Active:=true;
if  adoquery2.Recordset.RecordCount=0 then
begin
Application.MessageBox('数据库中无数据!','提示信息',mb_defbutton1+mb_iconexclamation+mb_ok);


end
else
begin

Edit2.text:=adoquery2.fieldbyname('zhigongnum').asstring;
Edit3.text:=adoquery2.fieldbyname('Name').asstring;
Edit4.text:=adoquery2.fieldbyname('Sex').asstring;
Edit5.text:=adoquery2.fieldbyname('Birthday').asstring;
Edit6.text:=adoquery2.fieldbyname('ID').asstring;
Edit7.text:=adoquery2.fieldbyname('Phone').asstring;
Edit8.text:=adoquery2.fieldbyname('Address').asstring;
Edit9.text:=adoquery2.fieldbyname('Salary').asstring;
Edit10.text:=adoquery2.fieldbyname('Unit').asstring;
Edit11.text:=adoquery2.fieldbyname('Duty').asstring;
Edit12.text:=adoquery2.fieldbyname('Speciality').asstring;
Edit13.text:=adoquery2.fieldbyname('Notee').asstring;
Edit14.text:=adoquery2.fieldbyname('Operator').asstring;
Edit15.text:=adoquery2.fieldbyname('Stamp').asstring;
 end;






end;

procedure TrenshiForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery2.Active:=false;
end;

procedure TrenshiForm.FormActivate(Sender: TObject);
begin
 button1Click(self);
end;

procedure TrenshiForm.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';


close;
end;

procedure TrenshiForm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
Edit2.text:=adoquery2.fieldbyname('zhigongnum').asstring;
Edit3.text:=adoquery2.fieldbyname('Name').asstring;
Edit4.text:=adoquery2.fieldbyname('Sex').asstring;
Edit5.text:=adoquery2.fieldbyname('Birthday').asstring;
Edit6.text:=adoquery2.fieldbyname('ID').asstring;
Edit7.text:=adoquery2.fieldbyname('Phone').asstring;
Edit8.text:=adoquery2.fieldbyname('Address').asstring;
Edit9.text:=adoquery2.fieldbyname('Salary').asstring;
Edit10.text:=adoquery2.fieldbyname('Unit').asstring;
Edit11.text:=adoquery2.fieldbyname('Duty').asstring;
Edit12.text:=adoquery2.fieldbyname('Speciality').asstring;
Edit13.text:=adoquery2.fieldbyname('Notee').asstring;
Edit14.text:=adoquery2.fieldbyname('Operator').asstring;
Edit15.text:=adoquery2.fieldbyname('Stamp').asstring;

end;

procedure TrenshiForm.Button4Click(Sender: TObject);
var
aa:integer;
begin
aa:=application.MessageBox('真的要删除此员工？','提示信息',Mb_ICONQUESTION+MB_OKCANCEL);
    if aa=1 then
    begin
ADOQuery1.SQL.Text:='delete from Info where zhigongnum=:num';
ADOQuery1.Parameters.ParamByName('num').Value:=edit2.Text;
ADOQuery1.ExecSQL;
ADOQuery1.Close;

     Application.MessageBox('资料删除成功','提示信息',mb_defbutton1+mb_iconexclamation+mb_ok);

 button1Click(self);
    end;
end;

procedure TrenshiForm.Button2Click(Sender: TObject);
begin



adoquery2.SQL.Text:='select * from Info where zhigongnum=:num';
ADOQuery2.Parameters.ParamByName('num').Value:=edit1.Text;
adoquery2.Active:=true;

if  adoquery2.Recordset.RecordCount<>0 then
begin

Edit2.text:=adoquery2.fieldbyname('zhigongnum').asstring;
Edit3.text:=adoquery2.fieldbyname('Name').asstring;
Edit4.text:=adoquery2.fieldbyname('Sex').asstring;
Edit5.text:=adoquery2.fieldbyname('Birthday').asstring;
Edit6.text:=adoquery2.fieldbyname('ID').asstring;
Edit7.text:=adoquery2.fieldbyname('Phone').asstring;
Edit8.text:=adoquery2.fieldbyname('Address').asstring;
Edit9.text:=adoquery2.fieldbyname('Salary').asstring;
Edit10.text:=adoquery2.fieldbyname('Unit').asstring;
Edit11.text:=adoquery2.fieldbyname('Duty').asstring;
Edit12.text:=adoquery2.fieldbyname('Speciality').asstring;
Edit13.text:=adoquery2.fieldbyname('Notee').asstring;
Edit14.text:=adoquery2.fieldbyname('Operator').asstring;
Edit15.text:=adoquery2.fieldbyname('Stamp').asstring;
end
else
begin
Application.MessageBox('没有此员工，请重新输入员工号！','提示信息',mb_defbutton1+mb_iconexclamation+mb_ok);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit1.SetFocus;

end;
end;

procedure TrenshiForm.Button7Click(Sender: TObject);
begin
 button1Click(self);
end;

procedure TrenshiForm.Button5Click(Sender: TObject);
var
aa:integer;
begin
aa:=application.MessageBox('真的要修改此员工？','提示信息',Mb_ICONQUESTION+MB_OKCANCEL);
    if aa=1 then
    begin

   ADOQuery3.SQL.Text:='update Info set Name=:aa,Sex=:bb,Birthday=:cc,ID=:dd,Phone=:ee,Address=:ff,Salary=:gg,Unit=:hh,Duty=:ii,Speciality=:jj,Notee=:kk,Operator=:mm,Stamp=:nn where zhigongnum=:pp';


 ADOQuery3.Parameters.ParamByName('pp').Value:=edit2.Text;
ADOQuery3.Parameters.ParamByName('nn').Value:=MainForm.edit2.Text;
ADOQuery3.Parameters.ParamByName('mm').Value:=MainForm.edit1.Text;
ADOQuery3.Parameters.ParamByName('kk').Value:=edit13.Text;
ADOQuery3.Parameters.ParamByName('jj').Value:=edit12.Text;
ADOQuery3.Parameters.ParamByName('ii').Value:=edit11.Text;
ADOQuery3.Parameters.ParamByName('hh').Value:=edit10.Text;
ADOQuery3.Parameters.ParamByName('gg').Value:=edit9.Text;
ADOQuery3.Parameters.ParamByName('ff').Value:=edit8.Text;
ADOQuery3.Parameters.ParamByName('ee').Value:=edit7.Text;
ADOQuery3.Parameters.ParamByName('dd').Value:=edit6.Text;
ADOQuery3.Parameters.ParamByName('cc').Value:=edit5.Text;
ADOQuery3.Parameters.ParamByName('bb').Value:=edit4.Text;
ADOQuery3.Parameters.ParamByName('aa').Value:=edit3.Text;












    adoquery3.ExecSQL;
         adoquery3.Close;





 
Application.MessageBox('资料修改成功','提示信息',mb_defbutton1+mb_iconexclamation+mb_ok);







button1Click(self);
 end;
end;

procedure TrenshiForm.Button6Click(Sender: TObject);
begin

tianjia.Edit14.Text:=mainform.Edit1.Text;
tianjia.Edit15.Text:=mainform.Edit2.Text;
tianjia.ShowModal();
 adoquery2.Close;
 edit1.SetFocus;

end;

procedure TrenshiForm.Timer1Timer(Sender: TObject);
begin
if edit2.Text='' then
begin
 button4.Enabled:=false;
 button5.Enabled:=false;
 end
 else
 begin
 button4.Enabled:=true;
 button5.Enabled:=true;
 end;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -