tjgly.~pas

人事管理系统的源代码

unit tjgly;

interface

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

type
  Ttjgly_form = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    MaskEdit1: TMaskEdit;
    Edit4: TEdit;
    GroupBox3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure initiate;

  public
    { Public declarations }
  end;

var
  tjgly_form: Ttjgly_form;

implementation
uses main;

{$R *.dfm}




procedure Ttjgly_form.initiate;
begin
   radiobutton1.Checked:=true;
   radiobutton2.Checked:=false;
   radiobutton3.Checked:=false;
   checkbox1.Checked:=false;
   checkbox2.Checked:=false;
   checkbox3.Checked:=false;
   checkbox4.Checked:=false;
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   maskedit1.Text:=datetostr(date());
end;

procedure Ttjgly_form.BitBtn2Click(Sender: TObject);
begin
   close;
end;

procedure Ttjgly_form.FormActivate(Sender: TObject);
begin

   ADOConnection1:=main_form.ADOConnection1;
   Radiobutton1.Checked:=true;
   initiate;
   edit1.SetFocus;
end;

procedure Ttjgly_form.Edit1Exit(Sender: TObject);
var adodataset:tadodataset;
begin
   if edit1.Text<>'' then
 begin
    adodataset:=tadodataset.Create(self);
    adodataset.Connection:=adoconnection1;
    adodataset.Close;
    adodataset.Commandtype:=cmdtext;
    adodataset.CommandText:='select  *  from  操作用户表 where 用户名 =:username';
    adodataset.Parameters.Clear;
    adodataset.Parameters.AddParameter;
    adodataset.Parameters[0].Name:='username';
    adodataset.Parameters[0].DataType:=ftstring;
    adodataset.Parameters[0].Direction:=pdinput;
    adodataset.Parameters[0].Value:= edit1.Text ;
    adodataset.Active:=true;
    if adodataset.Recordset.RecordCount<>0 then
        begin
             if radiobutton1.Checked then
               begin
               application.MessageBox('用户名重复，请重新输入！','提示信息！',mb_ok);
               edit1.Text:='';
               edit1.SetFocus;
               end
             else
                begin
                  edit2.Text:=adodataset.fieldbyname('密码').AsString;
                  edit3.Text:=adodataset.fieldbyname('所在单位').AsString;
                  edit4.Text:=adodataset.fieldbyname('操作员').AsString;
                  maskedit1.Text:=datetostr(adodataset.fieldbyname('最后修改时间').AsDateTime);
                  checkbox1.Checked:=adodataset.fieldbyname('权限一').AsBoolean;
                  checkbox2.Checked:=adodataset.fieldbyname('权限二').AsBoolean;
                  checkbox3.Checked:=adodataset.fieldbyname('权限三').AsBoolean;
                  checkbox4.Checked:=adodataset.fieldbyname('权限四').AsBoolean;
                end;
        end
   else
     begin
         if radiobutton1.Checked=false then
               begin
                  application.MessageBox('没有该用户名，请重新输入！','提示信息！',mb_ok);
                  edit1.Text:='';
                  edit1.SetFocus;
               end;
     end;
     adodataset.Active:=false;
  end ;
end;

procedure Ttjgly_form.BitBtn1Click(Sender: TObject);
    VAR Adoquery:TAdoquery;
     sqlstr:string;
begin
     Adoquery:=TAdoquery.Create(self);
     Adoquery.Connection:=AdoConnection1;
     Adoquery.Close;
     if radiobutton2.Checked then
     begin
         Adoquery.SQL.Clear;
         Adoquery.sql.Add('Update 操作用户表 set 密码=:password,所在单位=:units,'+
         '权限一=:qx1,权限二=:qx2,权限三=:qx3,权限四=:qx4,操作员=:operator,最后修改时间=:lastdata where 用户名=:username');
         Adoquery.Parameters.Clear;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[0].Name:='password';
         Adoquery.Parameters[0].DataType:=ftstring;
         Adoquery.Parameters[0].Direction:=pdinput;
         Adoquery.Parameters[0].Value:=edit2.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[1].Name:='units';
         Adoquery.Parameters[1].DataType:=ftstring;
         Adoquery.Parameters[1].Direction:=pdinput;
         Adoquery.Parameters[1].Value:=edit3.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[2].Name:='qx1';
         Adoquery.Parameters[2].DataType:=ftboolean;
         Adoquery.Parameters[2].Direction:=pdinput;
         Adoquery.Parameters[2].Value:=checkbox1.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[3].Name:='qx2';
         Adoquery.Parameters[3].DataType:=ftboolean;
         Adoquery.Parameters[3].Direction:=pdinput;
         Adoquery.Parameters[3].Value:=checkbox2.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[4].Name:='qx3';
         Adoquery.Parameters[4].DataType:=ftboolean;
         Adoquery.Parameters[4].Direction:=pdinput;
         Adoquery.Parameters[4].Value:=checkbox3.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[5].Name:='qx4';
         Adoquery.Parameters[5].DataType:=ftboolean;
         Adoquery.Parameters[5].Direction:=pdinput;
         Adoquery.Parameters[5].Value:=checkbox4.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[6].Name:='operator';
         Adoquery.Parameters[6].DataType:=ftstring;
         Adoquery.Parameters[6].Direction:=pdinput;
         Adoquery.Parameters[6].Value:=edit4.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[7].Name:='lastdata';
         Adoquery.Parameters[7].DataType:=ftstring;
         Adoquery.Parameters[7].Direction:=pdinput;
         Adoquery.Parameters[7].Value:=strtodate(maskedit1.Text);
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[8].Name:='username';
         Adoquery.Parameters[8].DataType:=ftstring;
         Adoquery.Parameters[8].Direction:=pdinput;
         Adoquery.Parameters[8].Value:=edit1.Text;
         Adoquery.ExecSQL;
     end
     else if(radiobutton1.Checked)and(edit1.Text<>'')then
      begin
          Adoquery.SQL.Clear;
          sqlstr:='insert into 操作用户表'+
                  '(用户名,密码,所在单位,'+
                  '权限一,权限二,权限三,权限四,'+
                  '操作员,最后修改时间)values'+
                  '(:username,:password,:units,'+
                  ':qx1,:qx2,:qx3,:qx4,'+
                  ':operator,:lastdata)';
         Adoquery.sql.Add(sqlstr);
         Adoquery.Parameters.Clear;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[0].Name:='username';
         Adoquery.Parameters[0].DataType:=ftstring;
         Adoquery.Parameters[0].Direction:=pdinput;
         Adoquery.Parameters[0].Value:=edit1.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[1].Name:='password';
         Adoquery.Parameters[1].DataType:=ftstring;
         Adoquery.Parameters[1].Direction:=pdinput;
         Adoquery.Parameters[1].Value:=edit2.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[2].Name:='units';
         Adoquery.Parameters[2].DataType:=ftstring;
         Adoquery.Parameters[2].Direction:=pdinput;
         Adoquery.Parameters[2].Value:=edit3.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[3].Name:='qx1';
         Adoquery.Parameters[3].DataType:=ftboolean;
         Adoquery.Parameters[3].Direction:=pdinput;
         Adoquery.Parameters[3].Value:=checkbox1.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[4].Name:='qx2';
         Adoquery.Parameters[4].DataType:=ftboolean;
         Adoquery.Parameters[4].Direction:=pdinput;
         Adoquery.Parameters[4].Value:=checkbox2.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[5].Name:='qx3';
         Adoquery.Parameters[5].DataType:=ftboolean;
         Adoquery.Parameters[5].Direction:=pdinput;
         Adoquery.Parameters[5].Value:=checkbox3.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[6].Name:='qx4';
         Adoquery.Parameters[6].DataType:=ftboolean;
         Adoquery.Parameters[6].Direction:=pdinput;
         Adoquery.Parameters[6].Value:=checkbox4.Checked;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[7].Name:='operator';
         Adoquery.Parameters[7].DataType:=ftstring;
         Adoquery.Parameters[7].Direction:=pdinput;
         Adoquery.Parameters[7].Value:=edit4.Text;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[8].Name:='lastdata';
         Adoquery.Parameters[8].DataType:=ftstring;
         Adoquery.Parameters[8].Direction:=pdinput;
         Adoquery.Parameters[8].Value:=strtodate(maskedit1.Text);
         Adoquery.ExecSQL;
      end
      else
         begin
         Adoquery.SQL.Clear;
         Adoquery.sql.Add('delete  from 操作用户表 where 用户名=:username');
         Adoquery.Parameters.Clear;
         Adoquery.Parameters.AddParameter;
         Adoquery.Parameters[0].Name:='username';
         Adoquery.Parameters[0].DataType:=ftstring;
         Adoquery.Parameters[0].Direction:=pdinput;
         Adoquery.Parameters[0].Value:=edit1.Text;
         Adoquery.ExecSQL;
         initiate;
         end ;
        Adoquery.Close;
        initiate;
        edit1.SetFocus;
end;

end.