bm_zhiyuan_addu.pas

Delphi办公管理系统

unit BM_ZHIYUAN_ADDU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls, DBCtrls, Mask, Buttons, Db, DBClient, jpeg;

type
  TBM_ZHIYUAN_ADDF = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label12: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Image1: TImage;
    Edit9: TEdit;
    cb1: TComboBox;
    Label10: TLabel;
    Memo1: TMemo;
    cb0: TComboBox;
    SpeedButton3: TSpeedButton;
    OpenDialog1: TOpenDialog;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
    procedure insertimage;
  public
    { Public declarations }
  end;

var
  BM_ZHIYUAN_ADDF: TBM_ZHIYUAN_ADDF;

MStream:TMemoryStream;
implementation

uses BM_DMU, BM_ZHIYUANU;


{$R *.DFM}

procedure TBM_ZHIYUAN_ADDF.SpeedButton1Click(Sender: TObject);
var
  s_zgbh: string;
begin

  if trim(edit1.text) = '' then
  begin
    application.messagebox('职工编号不能为空', '物资管理系统', mb_iconinformation + mb_defbutton1);
    edit1.setfocus;
    exit;
  end;
 s_zgbh := edit1.Text;
  DM.ZHIGONG.IndexFieldNames := '职工编号';
  DM.ZHIGONG.Refresh;
  if DM.ZHIGONG.state = dsinsert then
  begin
   if DM.ZHIGONG.Locate('职工编号',s_zgbh,[])  then
    begin
      application.MessageBox('职工编号已重复', '北明办公管理系统', mb_iconinformation + mb_defbutton1);
      edit1.SetFocus;
      exit;
    end;
  end;
  if trim(cb0.text) = '' then
  begin
    application.messagebox('所属部门编码不能为空', '北明办公管理系统', mb_iconinformation + mb_defbutton1);
    edit5.setfocus;
    exit;
  end;

  if trim(edit3.text) = '' then
  begin
    application.messagebox('职工姓名不能为空', '物资管理系统', mb_iconinformation + mb_defbutton1);
    edit3.setfocus;
    exit;
  end;
  with DM.ZHIGONG do
  begin
  append;

  fieldbyname('职工编号').AsString :=edit1.Text ;
  fieldbyname('部门编码').AsString :=cb0.Text ;
  fieldbyname('职工姓名').AsString :=edit3.Text ;
  fieldbyname('性别').AsString :=cb1.Text ;
  fieldbyname('出生年月').AsString :=edit5.Text ;
  fieldbyname('政治面貌').AsString :=edit6.Text ;
  fieldbyname('职称').AsString :=edit7.Text ;
  fieldbyname('职务').AsString :=edit8.Text ;
  fieldbyname('职工属性').AsString :=edit9.Text ;

 try
   insertimage;
    TBlobField(FieldByName('照片')).LoadFromStream(MStream);
    Post;
  except
    ON E:Exception do
      begin
       MStream.Free;
       Showmessage(E.Message);
       Exit;
      end;
    end;
  MStream.Free;
  end;
  BM_ZHIYUANF.frashform;

  close;

end;

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

procedure TBM_ZHIYUAN_ADDF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.ZHIGONG.cancel;
end;

procedure TBM_ZHIYUAN_ADDF.BitBtn1Click(Sender: TObject);
begin
 DM.ZHIGONG.FieldByName('所属部门编码').Value := '678';
end;

procedure TBM_ZHIYUAN_ADDF.SpeedButton3Click(Sender: TObject);
var
   bmp : TBitMap;
begin
     if OpenDialog1.Execute then
  begin
    bmp := TBitMap.Create;
    bmp.LoadFromFile(OpenDialog1.FileName);
    Image1.Picture.Bitmap := bmp;
    bmp.Free;
  end;
end;

procedure TBM_ZHIYUAN_ADDF.insertimage;

begin
  MStream := TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(MStream);
  MStream.Position := 0;
end;

end.