unit9.~pas

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

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  Tyonghutianjia = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    GroupBox3: TGroupBox;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yonghutianjia: Tyonghutianjia;

implementation

{$R *.dfm}

procedure Tyonghutianjia.Button2Click(Sender: TObject);
var
aa:integer;
begin
aa:=application.MessageBox('真的要取消添加？','提示信息',Mb_ICONQUESTION+MB_OKCANCEL);
    if aa=1 then
    begin
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 checkbox1.Checked:=false;
 checkbox2.Checked:=false;
 checkbox3.Checked:=false;

close;
end;
end;

procedure Tyonghutianjia.Button1Click(Sender: TObject);
var
you:string;
begin
you:='1';
     if Edit2.text='' then
     begin//a
     application.MessageBox('请输入用户名!','提示信息',Mb_ICONexclamaTION+MB_OK);
     Edit2.SetFocus;
     exit;
     end;//a
            adoquery1.SQL.Clear;
        adoquery1.SQL.add('select * from Operator where Name=:num');
         adoquery1.Parameters.ParamByName('num').Value:=edit2.Text;
        adoquery1.Active:=true;
        if adoquery1.Recordset.RecordCount=1 then
        begin//执行这里说明已有了
        application.MessageBox('用户名已存在，请再次填写!','提示信息',Mb_ICONexclamaTION+MB_OK);
        edit2.Text:='';
        edit2.SetFocus;
        exit;
        end;//执行这里说明已有了
     if Edit3.text='' then
     begin//a
     application.MessageBox('请输入密码！','提示信息',Mb_ICONexclamaTION+MB_OK);
     Edit3.SetFocus;
     exit;
     end;//a
     if Edit4.text='' then
     begin//a
     application.MessageBox('请输入所在单位！','提示信息',Mb_ICONexclamaTION+MB_OK);
     Edit4.SetFocus;
     exit;
     end;//a
   if (checkbox1.Checked=false)and(checkbox2.Checked=false)and(checkbox3.Checked=false) then
     begin
     application.MessageBox('请选择好用户权限！','提示信息',Mb_ICONexclamaTION+MB_OK);
     checkbox1.SetFocus;
     exit;
     end;

      

    ADOQuery1.ExecSQL;
    ADOQuery1.Close;


    application.MessageBox('添加成功','提示信息',Mb_ICONexclamaTION+MB_OK);
    button2Click(self);

end;

procedure Tyonghutianjia.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
 checkbox2.Checked:=true;
 checkbox3.Checked:=true;
end;


end;

procedure Tyonghutianjia.CheckBox2Click(Sender: TObject);
begin
 if checkbox2.Checked=true then
 checkbox3.Checked:=true
 else
 checkbox1.Checked:=false;
end;

procedure Tyonghutianjia.CheckBox3Click(Sender: TObject);
begin
 if checkbox3.Checked=false then
 begin
 checkbox1.Checked:=false;
 checkbox2.Checked:=false;
 end;
end;

end.