unit4.pas

一个很简单的人事管理系统

unit Unit4;

interface

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

type
  TyonghuForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox3: TGroupBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    Timer1: TTimer;
    ADOQuery3: TADOQuery;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yonghuForm: TyonghuForm;

implementation

uses Unit1, Unit9;

{$R *.dfm}

procedure TyonghuForm.Button1Click(Sender: TObject);
begin

close;
end;

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

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


end
else
begin   //rrr

Edit2.text:=adoquery2.fieldbyname('Name').asstring;
Edit3.text:=adoquery2.fieldbyname('Passnum').asstring;
Edit4.text:=adoquery2.fieldbyname('Depament').asstring;
Edit5.text:=adoquery2.fieldbyname('Stamp').asstring;
if adoquery2.fieldbyname('Right-1').asstring='1' then
   checkbox1.Checked:=true
 else
   checkbox1.Checked:=false;
if adoquery2.fieldbyname('Right-2').asstring='1' then
   checkbox2.Checked:=true
 else
   checkbox2.Checked:=false;
if adoquery2.fieldbyname('Right-3').asstring='1' then
   checkbox3.Checked:=true
 else
   checkbox3.Checked:=false;





end;  //rrr



end;

procedure TyonghuForm.FormActivate(Sender: TObject);
begin
 button5Click(self);
end;

procedure TyonghuForm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
Edit2.text:=adoquery2.fieldbyname('Name').asstring;
Edit3.text:=adoquery2.fieldbyname('Passnum').asstring;
Edit4.text:=adoquery2.fieldbyname('Depament').asstring;
Edit5.text:=adoquery2.fieldbyname('Stamp').asstring;
if adoquery2.fieldbyname('Right-1').asstring='1' then
   checkbox1.Checked:=true
 else
   checkbox1.Checked:=false;
if adoquery2.fieldbyname('Right-2').asstring='1' then
   checkbox2.Checked:=true
 else
   checkbox2.Checked:=false;
if adoquery2.fieldbyname('Right-3').asstring='1' then
   checkbox3.Checked:=true
 else
   checkbox3.Checked:=false;
 end;

procedure TyonghuForm.Timer1Timer(Sender: TObject);
begin
if (edit2.Text=edit1.Text)or(checkbox1.Checked=true) then
 button3.Enabled:=false
 else
 button3.Enabled:=true;

if (edit2.Text<>edit1.Text)and(checkbox1.Checked=true) then
 button4.Enabled:=false
 else
 button4.Enabled:=true;



end;

procedure TyonghuForm.Button4Click(Sender: TObject);
var
aa:integer;
begin
aa:=application.MessageBox('真的要修改此用户？','提示信息',Mb_ICONQUESTION+MB_OKCANCEL);
    if aa=1 then
    begin
   ADOQuery3.SQL.Clear;
   ADOQuery3.SQL.Text:='update Operator set Passnum=:aa,Depament=:bb,Stamp=:cc where Name=:dd';

 ADOQuery3.Parameters.ParamByName('dd').Value:=edit2.Text;
ADOQuery3.Parameters.ParamByName('cc').Value:=MainForm.edit2.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);
     button5Click(self);
    end;





end;

procedure TyonghuForm.Button3Click(Sender: TObject);
var
aa:integer;
begin
aa:=application.MessageBox('真的要删除此用户？','提示信息',Mb_ICONQUESTION+MB_OKCANCEL);
    if aa=1 then
    begin
   ADOQuery1.SQL.Text:='delete from Operator where Name=:num';
ADOQuery1.Parameters.ParamByName('num').Value:=edit2.Text;
ADOQuery1.ExecSQL;
ADOQuery1.Close;



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





end;

procedure TyonghuForm.Button2Click(Sender: TObject);
begin
yonghutianjia.Edit5.Text:=mainform.Edit2.Text;
yonghutianjia.ShowModal();

if edit6.Text<>'' then
Close;



end;

end.