uviewemployee.pas

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

unit UViewEmployee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ImgList, Buttons, db, jpeg;

type
  TForm_ViewEmployee = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SBCloseImage: TSpeedButton;
    ScrollBox1: TScrollBox;
    Image2: TImage;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    SB: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SBClick(Sender: TObject);
    procedure SBCloseImageClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    Employeeid: string;
  public
    { Public declarations }
  end;

var
  Form_ViewEmployee: TForm_ViewEmployee;

implementation
uses Umain;
{$R *.dfm}

procedure TForm_ViewEmployee.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure TForm_ViewEmployee.FormShow(Sender: TObject);
var i: integer;
  buf: TMemoryStream; //存放图片的内存流
begin
//清空所有EDIT
  for i := 0 to self.ComponentCount - 1 do
    if Components[i] is TEdit then
      TEdit(Components[i]).Clear;
  edit1.Text := '编号：' + Form_Main.ADOQDBGrid.FieldValues['Employee_id'];
  edit2.Text := '姓名：' + Form_Main.ADOQDBGrid.FieldValues['Employee_name'];
  edit3.Text := '性别：' + Form_Main.ADOQDBGrid.fieldByName('Employee_sex').AsString;
  edit4.Text := '一级部门：' + Form_Main.ADOQDBGrid.fieldByName('Employee_FirstDept').AsString;
  edit5.Text := '二级部门：' + Form_Main.ADOQDBGrid.fieldByName('Employee_SecondDept').AsString;
  edit6.Text := '民族：' + Form_Main.ADOQDBGrid.fieldByName('Employee_folk').AsString;
  edit7.Text := '出生日期：' + FormatDateTime('yyyy年mm月dd日', strtodate(Form_Main.ADOQDBGrid.fieldByName('Employee_Birthday').AsString));
  edit8.Text := '婚姻状况：' + Form_Main.ADOQDBGrid.fieldByName('Employee_marriage').AsString;
  edit9.Text := '教育程度：' + Form_Main.ADOQDBGrid.fieldByName('Employee_educate').AsString;
  edit10.Text := '职工类型：' + Form_Main.ADOQDBGrid.fieldByName('Employee_type').AsString;
  edit11.Text := '职工职称：' + Form_Main.ADOQDBGrid.fieldByName('Employee_post').AsString;
  edit12.Text := '职工职务：' + Form_Main.ADOQDBGrid.fieldByName('Employee_duty').AsString;
  edit13.Text := '开始工作单位日期：' + FormatDateTime('yyyy年mm月dd日', strtodate(Form_Main.ADOQDBGrid.fieldByName('Employee_StartWorkDate').AsString));
  edit14.Text := '入单位日期：' + FormatDateTime('yyyy年mm月dd日', strtodate(Form_Main.ADOQDBGrid.fieldByName('Employee_JoinDate').AsString));
  edit15.Text := '银行类型：' + Form_Main.ADOQDBGrid.fieldByName('Employee_BankType').AsString;
  edit16.Text := '银行账号：' + Form_Main.ADOQDBGrid.fieldByName('Employee_BankNumber').AsString;
  edit17.Text := '工资类型：' + Form_Main.ADOQDBGrid.fieldByName('Employee_PayType').AsString;
  edit18.Text := '养老保险账号：' + Form_Main.ADOQDBGrid.fieldByName('Employee_endowment').AsString;
  edit19.Text := '医疗保险账号：' + Form_Main.ADOQDBGrid.fieldByName('Employee_medicare').AsString;
  edit20.Text := '合同类型：' + Form_Main.ADOQDBGrid.fieldByName('Employee_bargain').AsString;
  edit21.Text := '合同开始日期：' + FormatDateTime('yyyy年mm月dd日', strtodate(Form_Main.ADOQDBGrid.fieldByName('Employee_bargainStart').AsString));
  edit22.Text := '合同结束日期：' + FormatDateTime('yyyy年mm月dd日', strtodate(Form_Main.ADOQDBGrid.fieldByName('Employee_bargainStop').AsString));
  edit23.Text := '电话：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Tel').AsString;
  edit24.Text := '手机：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Moblie').AsString;
  edit25.Text := '其它电话：' + Form_Main.ADOQDBGrid.fieldByName('Employee_OtherTel').AsString;
  edit26.Text := '毕业院校：' + Form_Main.ADOQDBGrid.fieldByName('Employee_School').AsString;
  edit27.Text := 'E-mail：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Email').AsString;
  edit28.Text := '个人主页：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Homepage').AsString;
  edit29.Text := '籍贯：' + Form_Main.ADOQDBGrid.fieldByName('Employee_City').AsString; edit25.Text := '其它电话：' + Form_Main.ADOQDBGrid.fieldByName('Employee_OtherTel').AsString;
  edit30.Text := '现住址：' + Form_Main.ADOQDBGrid.fieldByName('Employee_NowAddress').AsString;
  edit31.Text := '本人长项：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Text').AsString;
  edit32.Text := '基本收入：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Number').AsString;
  Memo1.Text := '备注：' + Form_Main.ADOQDBGrid.fieldByName('Employee_Number').AsString;

   //显示职工相片类型
   //   showmessage('该职工相片类型：　'+FieldValues['employee_PhotoType']);

  if Form_Main.ADOQDBGrid.FieldValues['employee_PhotoType'] <> 'NULL' then
  begin
    buf := TMemoryStream.Create;
    try
      buf.Position := 0;
      tblobfield(Form_Main.ADOQDBGrid.FieldByName('Employee_Photo')).SaveToStream(buf);
      buf.Position := 0;
      Image1.Picture.Graphic := nil;
      if (Form_Main.ADOQDBGrid.FieldValues['employee_PhotoType'] = 'jpg') then
      begin
        Image1.Picture.Graphic := Tjpegimage.create;
        Image1.Picture.Graphic.LoadFromStream(buf);
         // buf.Free;
      end;
      if (Form_Main.ADOQDBGrid.FieldValues['employee_PhotoType'] = 'jpeg') then
      begin
        Image1.Picture.Graphic := Tjpegimage.create;
        Image1.Picture.Graphic.LoadFromStream(buf);
         // buf.Free;
      end;
      if (Form_Main.ADOQDBGrid.FieldValues['employee_PhotoType'] = 'bmp') then
      begin
        Image1.Picture.Bitmap := nil;
        Image1.Picture.Bitmap.LoadFromStream(buf);
         // buf.Free;
      end;
      buf.Free;
    except
      showmessage('载入图片不成功，请检查是否是JPE/BMP/JPEG类型图片');
    end;
  end;
   Image2.Picture:=Image1.Picture;
  end;

procedure TForm_ViewEmployee.SBClick(Sender: TObject);
begin
  if (image1.Picture.Bitmap = nil) or (image1.Picture.Graphic = nil) then
  begin
    beep;
    showmessage('此职工没有相片');
    exit;
  end;
  SBCloseImage.Visible := TRUE;
  image2.Visible:=true;
  GroupBox1.Visible := false;
end;

procedure TForm_ViewEmployee.SBCloseImageClick(Sender: TObject);
begin
  image2.Visible := false;
  SBCloseImage.Visible := false;
  GroupBox1.Visible := true;
end;

procedure TForm_ViewEmployee.SpeedButton1Click(Sender: TObject);
begin
Form_Main.EmployeeCardClick(sender);
end;

end.