uemployeeadd.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit UemployeeAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,JPEG, ComCtrls, Menus, Buttons, ExtDlgs;

type
  TfrmEmployeeAdd = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    ComboBox2: TComboBox;
    Label7: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label8: TLabel;
    ComboBox3: TComboBox;
    Label9: TLabel;
    Edit4: TEdit;
    Label10: TLabel;
    Edit5: TEdit;
    Label11: TLabel;
    ComboBox4: TComboBox;
    Label12: TLabel;
    Edit6: TEdit;
    Label13: TLabel;
    Edit7: TEdit;
    Label14: TLabel;
    Memo1: TMemo;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    bbtnSave: TBitBtn;
    bbtnExit: TBitBtn;
    OpenPictureDialog1: TOpenPictureDialog;
    Edit3: TEdit;
    SavePictureDialog1: TSavePictureDialog;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure bbtnSaveClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEmployeeAdd: TfrmEmployeeAdd;
    pic:tpicture;
    JPEG:tjpegimage;
implementation

uses Mydata, UemployeeMgr;

{$R *.dfm}

procedure TfrmEmployeeAdd.N1Click(Sender: TObject);
begin
      if openpicturedialog1.Execute=true then
        begin
          pic:=tpicture.create;
          jpeg:=tjpegimage.create;
        try
          pic.loadfromfile(openpicturedialog1.filename);
        if pic.bitmap.empty=false then
          jpeg.assign(pic.bitmap)
        else
          jpeg.loadfromfile(openpicturedialog1.filename);
        finally
        pic.free;
        jpeg.free;
        end;
          image1.Picture.LoadFromFile(openpicturedialog1.FileName)
        end ;
end;

procedure TfrmEmployeeAdd.N2Click(Sender: TObject);
begin
 image1.Picture.Assign(nil);
end;

procedure TfrmEmployeeAdd.N3Click(Sender: TObject);
begin
  if savepicturedialog1.Execute then
  image1.Picture.SaveToFile(savepicturedialog1.FileName);
end;

procedure TfrmEmployeeAdd.bbtnSaveClick(Sender: TObject);
begin
  if (edit2.Text='') or (edit3.Text='') or (edit5.Text='') or (combobox4.Text='') then
  begin
   showmessage('请认真填写上面内容！');
   Exit;
  end;
  if datetimepicker1.Date=now then
    begin
      showmessage('出生日期有误，请认真填写！');
      Exit;
    end;
  with dm.AQEmpInfo do
   begin
     close;
     sql.Clear;
     sql.Add('INSERT INTO Employees(Empno,EmpName,Sex,Telephone,IDCard,Birthday,Post,Department,HireDate,Address,School,Status,photo,IsMarry,Notes)');
     sql.Add('values(');
     sql.Add(':Empno,:EmpName,:Sex,:Telephone,:IDCard,:Birthday,:Post,:Department,:HireDate,:Address,:School,:Status,:photo,:IsMarry,:Notes');
     sql.Add(')');
     Parameters.ParamByName('Empno').Value:=Trim(Edit1.Text);
     Parameters.ParamByName('empname').Value:=Trim(Edit2.Text);
     Parameters.ParamByName('sex').Value:=Trim(ComboBox1.Text);
     Parameters.ParamByName('Telephone').Value:=Trim(Edit6.Text);
     Parameters.ParamByName('IDCard').Value:=Trim(Edit3.Text);
     Parameters.ParamByName('Birthday').Value:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date);
     Parameters.ParamByName('Post').Value:=Trim(edit5.Text);
     Parameters.ParamByName('Department').Value:=Trim(combobox4.Text);
     Parameters.ParamByName('HireDate').Value:=formatdatetime('yyyy-mm-dd',datetimepicker2.Date);
     Parameters.ParamByName('Address').Value:=Trim(edit6.Text);
     Parameters.ParamByName('School').Value:=Trim(Edit4.Text);
     Parameters.ParamByName('Status').Value:=Trim(ComboBox3.Text);
     Parameters.ParamByName('IsMarry').Value:=Trim(ComboBox2.Text);
     Parameters.ParamByName('Notes').Value:=Trim(Memo1.Text);
      //-------------------保存图片
   if image1.Picture.Graphic=nil  then
   begin
    ShowMessage('新员工照片不能为空！');
    Exit;
   end;
   pic:=tpicture.create;
   jpeg:=tjpegimage.create;
    try
        pic.loadfromfile(openpicturedialog1.filename);
      if pic.bitmap.empty=false then
        jpeg.assign(pic.bitmap)
    else
        jpeg.loadfromfile(openpicturedialog1.filename);
        Parameters.ParamByName('photo').Assign(jpeg);
    finally
      pic.free;
      jpeg.free;
    end;
   ExecSQL;
   end;
    showmessage('新员工个人信息已经保存到数据库中！');
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    edit6.Text:='';
    edit7.Text:='';
    memo1.Text:='';
    combobox1.Text:='';
    combobox2.Text:='';
    combobox3.Text:='';
    combobox4.Text:='';
    frmEmployeeMgr.FormShow(Sender);
    dm.ATEmpInfo.Close;
    dm.ATEmpInfo.Open;
    Image1.Picture.Assign(nil);
end;

procedure TfrmEmployeeAdd.bbtnExitClick(Sender: TObject);
begin
  self.Close;
end;

procedure TfrmEmployeeAdd.FormShow(Sender: TObject);
 var i:integer;
      empno_id:string;
begin
  dm.AQEmpInfo.Close;
  dm.AQEmpInfo.SQL.Clear;
  dm.AQEmpInfo.SQL.Add('select max(empno) as maxempno from employees');
  dm.AQEmpInfo.Open;
  i:=dm.AQEmpInfo.FieldValues['maxempno'];
  if (i>0) and (i<9) then
  begin
  empno_id:='00000'+inttostr(i+1);
  end
  else
  if (i>=9) and (i<99) then
  begin
   empno_id:='0000'+inttostr(i+1);
  end
  else
  if (i>=99) and (i<999) then
  begin
   empno_id:='000'+inttostr(i+1);
  end
  else
  if (i>=999) and (i<9999) then
  begin
   empno_id:='00'+inttostr(i+1);
  end;
  dm.AQEmpInfo.Close;
  dm.AQEmpInfo.Open;
  Edit1.Text:=empno_id;
end;

end.