translateinformation.~pas

本系统是一个基于delphi7环境开发的人事管理系统

unit TranslateInformation;

interface

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

type
  TForm13 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label10: TLabel;
    Label11: TLabel;
    MaskEdit2: TMaskEdit;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InputClear;
    procedure delData(Sender: TObject);
    procedure putdata;
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses WelcomePicture, MainMenu;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
var
chk_no:String[5];
check_date:String;
fuck_date:String;
begin
if
(edit1.Text<>'') and
//(maskedit1.Text<>'') and
(self.ComboBox1.Text<>'(请选择)') and
(ComboBox2.Text<>'(请选择)') and
(self.ComboBox1.Text<>'') and
(ComboBox2.Text<>'') and
(edit5.Text<>'') and
(edit6.Text<>'')  and
(edit4.Text<>'')  then
begin
   if self.MaskEdit1.Text<>'  -  -  ' then
   begin
   /////////////////////////////////////////////////////////
   ////////////////////Lindean公司研发的超安全日期保护系统/////////////////////////////////
       check_date:=self.MaskEdit1.Text;
      Fuck_date:=check_date[4]+check_date[5];
      if (StrToInt(Fuck_date)>12) or (StrToInt(Fuck_date)<1) then
      begin
     // showmessage(Fuck_date);
      //showmessage('fuck you the month!');
      showmessage('你的月份填写有误，操作失败!');
      //self.MaskEdit1.Text:='';
      exit;
      end;
      //////////////////////////////////////////
       Fuck_date:=check_date[7]+check_date[8];
       if (StrToInt(Fuck_date)>31) or (StrToInt(Fuck_date)<1) then
      begin
      //showmessage('fuck you the Day!');
       showmessage('你的日号填写有误，操作失败!');
      //self.MaskEdit1.Text:='';
      exit;
      end;

//showmessage(' 检测员工号有无重复');
//////检测员工号有无重复
form1.ADOTable1.Active:=false; ////异常重要的一句话
form1.ADOTable1.TableName:='employees';
form1.ADOTable1.Active:=true;
chk_no:=edit1.Text;
if  not form1.adotable1.Locate('员工编号',chk_no,[])  then
begin
showmessage('你所输入的员工号错误，增加员工调动操作失败！');
edit1.Text:='';
exit;
end;

{form1.ADOTable1.Active:=false; ////异常重要的一句话
form1.ADOTable1.TableName:='Transfer';
form1.ADOTable1.Active:=true;    }

with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('insert into Transfer(员工编号,调动日期,调动前职务,调动后职务,调动前部门,调动后部门,调动原因)values(:员工编号,:调动日期,:调动前职务,:调动后职务,:调动前部门,:调动后部门,:调动原因)');
   parameters[0].Value:=edit1.Text;
   parameters[1].Value:=maskedit1.Text;
   parameters[2].Value:=self.ComboBox1.Text;
   parameters[3].Value:=ComboBox2.Text;
   parameters[4].Value:=edit5.Text;
   parameters[5].Value:=edit6.Text;
   parameters[6].Value:=edit4.Text;
   //if form1.ADOQuery1.Active=false  then
   //    form1.ADOQuery1.Active:=true;

        execsql;

   close;
 sql.Clear;
   sql.Add('select * from Transfer');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
   messageBeep(0);


   end;
   self.Button2.Enabled:=true;
   self.Button3.Enabled:=true;
   self.Button4.Enabled:=false;
   showmessage('增加调动操作成功！');
   inputclear;
    exit;
          end else begin
      showmessage('调动日期不能为空!');
      exit;
      end;
  end
  else
showmessage('你所输入数据不足，增加员工操作失败！');


end;

procedure TForm13.Button3Click(Sender: TObject);
//var
//inputString:String;
begin
{增加一列
Alter table Transfer 
Add job_id int IDENTITY (1,1) NOT NULL
}
if (self.DBGrid1.FieldCount<>0) and (self.DBGrid1.Fields[7].AsString<>'') then
begin
 if (MessageDlg('确认要删除  "员工编号:'+self.DBGrid1.Fields[0].AsString+' 调动日期: '+self.DBGrid1.Fields[1].AsString+'..."   记录吗?',mtConfirmation,[mbOK,mbCancel],0)=mrOK) then
 self.deldata(Sender);
InputClear;
exit;
end
else
showmessage('非法操作!');

// inputString:=self.DBGrid1.Fields[6].AsString;

//inputString:=inputbox('删除数据','请输入员工的编号','');
 {with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('delete from Transfer where job_no=:job_no ');
    parameters[6].Value:=inputString;

   execsql;
  close;
   sql.Clear;
   sql.Add('select * from Transfer');
   //if form1.ADOQuery1.Active=false  then
    //   form1.ADOQuery1.Active:=true;
   open;
   messageBeep(0); 
   end;     }
end;

procedure TForm13.Button2Click(Sender: TObject);
begin
if (self.DBGrid1.FieldCount<>0) and
(MessageDlg('确认要修改  "员工编号:'+self.DBGrid1.Fields[0].AsString+'调动日期: '+self.DBGrid1.Fields[1].AsString+'..."   记录吗?',mtConfirmation,[mbOK,mbCancel],0)=mrOK) then
begin
putdata;
{with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from Transfer');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
   messageBeep(0);
   end;     }
//showmessage('请在列表上修改');
//dbgrid1.ReadOnly:=false;
self.Button2.Enabled:=false;
self.Button4.Enabled:=true;
self.Button3.Enabled:=false;
end;
end;

procedure TForm13.Button4Click(Sender: TObject);
var
inputString:String;
chk_no:String[5];
begin
if
(edit1.Text<>'') and
(maskedit1.Text<>'') and
(self.ComboBox1.Text<>'(请选择)') and
(ComboBox2.Text<>'(请选择)') and
(self.ComboBox1.Text<>'') and
(ComboBox2.Text<>'') and
(edit5.Text<>'') and
(edit6.Text<>'')  and
(edit4.Text<>'')  then
begin
//showmessage(' 检测员工号有无重复');
//////检测员工号有无重复
form1.ADOTable1.Active:=false; ////异常重要的一句话
form1.ADOTable1.TableName:='employees';
form1.ADOTable1.Active:=true;
chk_no:=edit1.Text;
if  not form1.adotable1.Locate('员工编号',chk_no,[])  then
begin
showmessage('你所修改的员工号错误，修改员工调动操作失败！');
exit;
end;

inputString:=self.DBGrid1.Fields[7].AsString;
//showmessage(inputString);
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('delete from Transfer where job_id=:job_id');
   parameters[0].Value:=inputString;
   execsql;
  { close;
   sql.Clear;
   sql.Add('select * from Transfer');
  // if form1.ADOQuery1.Active=false  then
    //   form1.ADOQuery1.Active:=true;
   open;
   messageBeep(0);   }
 //  end;
//dbgrid1.ReadOnly:=true;

{form1.ADOTable1.Active:=false; ////异常重要的一句话
form1.ADOTable1.TableName:='Transfer';
form1.ADOTable1.Active:=true;    
     
with Form1.adoquery1 do
begin     }
   close;
   sql.Clear;
   sql.add('insert into Transfer(员工编号,调动日期,调动前职务,调动后职务,调动前部门,调动后部门,调动原因)values(:员工编号,:调动日期,:调动前职务,:调动后职务,:调动前部门,:调动后部门,:调动原因)');
   parameters[0].Value:=edit1.Text;
   parameters[1].Value:=maskedit1.Text;
   parameters[2].Value:=self.ComboBox1.Text;
   parameters[3].Value:=ComboBox2.Text;
   parameters[4].Value:=edit5.Text;
   parameters[5].Value:=edit6.Text;
   parameters[6].Value:=edit4.Text;
   //if form1.ADOQuery1.Active=false  then
   //    form1.ADOQuery1.Active:=true;
        execsql;

   close;
 sql.Clear;
   sql.Add('select * from Transfer');
  // if form1.ADOQuery1.Active=false  then
   //    form1.ADOQuery1.Active:=true;
   open;
   messageBeep(0);
   end;
   self.Button2.Enabled:=true;
   self.Button3.Enabled:=false;
   inputclear;
   showmessage('修改调动数据成功！');
    exit;
  end
  else
showmessage('你所输入数据不足，修改员工操作失败！');



end;

procedure TForm13.Button5Click(Sender: TObject);
begin
form13.close;
end;

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form3.Enabled:=true;
form1.ADOQuery1.SQL.Clear;
end;

procedure TForm13.FormShow(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
inputclear;
self.Button2.Enabled:=true;
self.Button4.Enabled:=false;
self.Button3.Enabled:=true;
 { form1.ADOTable1.Active:=false; ////异常重要的一句话
form1.ADOTable1.TableName:='Transfer';
form1.ADOTable1.Active:=true;    }
//form1.ADOTable1.TableName:='employees';
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from Transfer');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
      execsql;
   //messageBeep(0);
   end;
end;

procedure TForm13.InputClear;
begin
edit1.Text:='';
maskedit1.Text:='';
ComboBox1.Text:='(请选择)';
ComboBox2.Text:='(请选择)';
edit5.Text:='';
edit6.Text:='';
edit4.Text:='';
end;

procedure TForm13.delData(Sender: TObject);
var
inputString:String;
begin
inputString:=self.DBGrid1.Fields[7].AsString;
//showmessage(inputString);
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('delete from Transfer where job_id=:job_id');
   parameters[0].Value:=inputString;
   execsql;
   close;
   sql.Clear;
   sql.Add('select * from Transfer');
  // if form1.ADOQuery1.Active=false  then
    //   form1.ADOQuery1.Active:=true;
   open;
   messageBeep(0);
   end;

end;

procedure TForm13.putdata;
begin
//showmessage('putdata');
edit1.Text:=self.DBGrid1.Fields[0].AsString;
maskedit1.Text:=self.DBGrid1.Fields[1].AsString;
ComboBox1.Text:=self.DBGrid1.Fields[2].AsString;
ComboBox2.Text:=self.DBGrid1.Fields[3].AsString;
edit5.Text:=self.DBGrid1.Fields[4].AsString;
edit6.Text:=self.DBGrid1.Fields[5].AsString;
edit4.Text:=self.DBGrid1.Fields[6].AsString;
end;

end.