photo.pas

关于DEPHI7.0的人力资源信息管理系统源代码

unit Photo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, Buttons, ExtDlgs, DB;

type
  TFormPhoto = class(TForm)
    EditEMPNAME: TDBEdit;
    Label3: TLabel;
    Label15: TLabel;
    Label2: TLabel;
    EditEMPID: TDBEdit;
    Label5: TLabel;
    Label9: TLabel;
    EditIDCARD: TDBEdit;
    Label20: TLabel;
    EditPOLITY: TDBEdit;
    Label19: TLabel;
    EditEDU: TDBEdit;
    Label13: TLabel;
    EditENTERDATE: TDBEdit;
    Label16: TLabel;
    EditTECHTITLE: TDBEdit;
    Label17: TLabel;
    EditPOSITIONTITLE: TDBEdit;
    Label4: TLabel;
    EditADMINPOSITION: TDBEdit;
    Label25: TLabel;
    EditPOSTCLASS: TDBEdit;
    Label24: TLabel;
    EditEMPSTATE: TDBEdit;
    Label6: TLabel;
    EditNATION: TDBEdit;
    Label8: TLabel;
    DBEdit11: TDBEdit;
    Label21: TLabel;
    EditHEALTH: TDBEdit;
    Label18: TLabel;
    EditMARRIAGE: TDBEdit;
    Label10: TLabel;
    EditNATIVE: TDBEdit;
    BTNSelect: TBitBtn;
    BTNSave: TBitBtn;
    BTNCancel: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Bevel2: TBevel;
    OpenPictureDialog1: TOpenPictureDialog;
    DBImage1: TDBImage;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    procedure BTNSelectClick(Sender: TObject);
    procedure BTNSaveClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPhoto: TFormPhoto;
  FilePath : String;

implementation

uses Data, EmpInfoManage;

{$R *.dfm}

procedure TFormPhoto.BTNSelectClick(Sender: TObject);
begin
OpenPictureDialog1.Title := '请选择照片文件！';
OpenPictureDialog1.Filter := '照片文件(*.BMP)|*.BMP';
if  OpenPictureDialog1.Execute then
    begin
    if DataModule1.Table7.State <> dsEdit then
       DataModule1.Table7.Edit;
    FilePath :=  OpenPictureDialog1.FileName;
    DBImage1.Picture.LoadFromFile(FilePath);
    end
else
   begin
   FilePath := '';
   end;
end;

procedure TFormPhoto.BTNSaveClick(Sender: TObject);
begin
 try
   DataModule1.Table7.Post;
 except
   Application.MessageBox('无法保存图片信息','操作失败', MB_OKCANCEL + MB_DEFBUTTON1);
   raise;
 end;
end;

procedure TFormPhoto.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FilePath := '';
  FormEmpInfoManage.Show;
  Self.Destroy;
end;

procedure TFormPhoto.BTNCancelClick(Sender: TObject);
begin
 Self.Close;
end;

end.