uemployee.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit uemployee;
              
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ExtDlgs,
  Dialogs, upub1, ActnList, Menus, ImgList, DB, StdCtrls, dxCntner, dxTL, dxDBCtrl,
  dxDBGrid, ExtCtrls, ComCtrls, Buttons,  dxDBTLCl, dxGrClms, DBCtrls, Mask, dxExEdtr,
  dxEdLib, dxDBELib, dxtree,  dxdbtree, wwdbdatetimepicker, dxdbtrel, DBClient, ToolWin;

type
  Tfmemployee = class(Tfmpub1)                  
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    dxDBTreeView1: TdxDBTreeView;
    DataSource2: TDataSource;
    Splitter1: TSplitter;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    dxDBLookupTreeView1: TdxDBLookupTreeView;
    DataSource3: TDataSource;
    Photo: TDBImage;
    PopupMenu1: TPopupMenu;
    miLoad: TMenuItem;
    miClear: TMenuItem;
    miSaveAs: TMenuItem;
    Label6: TLabel;
    DBComboBox1: TDBComboBox;
    Cdept1: TClientDataSet;
    Cdept2: TClientDataSet;
    Label8: TLabel;
    DBEdit3: TDBEdit;
    DBGrid1EmployeeID: TdxDBGridMaskColumn;
    DBGrid1EmployeeE: TdxDBGridMaskColumn;
    DBGrid1EmployeeC: TdxDBGridMaskColumn;
    DBGrid1DeptID: TdxDBGridMaskColumn;
    DBGrid1DeptName: TdxDBGridLookupColumn;
    DBGrid1Sex: TdxDBGridMaskColumn;
    DBGrid1EntryDate: TdxDBGridDateColumn;
    DBGrid1Position: TdxDBGridMaskColumn;
    DBGrid1Picture: TdxDBGridBlobColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1UpdateDate: TdxDBGridDateColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxDBTreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure miLoadClick(Sender: TObject);
    procedure PhotoDblClick(Sender: TObject);
    procedure miClearClick(Sender: TObject);
    procedure miSaveAsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmemployee: Tfmemployee;

implementation

uses SherryLib, udmbase, udata;

{$R *.dfm}

procedure Tfmemployee.FormCreate(Sender: TObject);
begin
  if not DMBase.Cdepartment.Active then
  DMBase.Cdepartment.Active:=True;
  CDept1.Data:=DMBase.Cdepartment.Data;
  CDept2.Data:=DMBase.Cdepartment.Data;
  if Datasource2.DataSet=nil then
  Datasource2.DataSet:=DMBase.Cdepartment;
  if Datasource3.DataSet=nil then
  Datasource3.DataSet:=Cdept2;
  dxDBTreeView1.DisplayField:='DeptID;DeptName';
  dxDBTreeView1.SeparatedSt:=' ';
  OpenData(Datasource2);
  OpenData(Datasource3);
  inherited;
  Dbgrid1.KeyField:='EmployeeID';
  dxDBTreeView1.FullExpand;
end;

procedure Tfmemployee.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  CloseData(Datasource2);
  CloseData(Datasource3);
end;

procedure Tfmemployee.dxDBTreeView1Change(Sender: TObject;
  Node: TTreeNode);
begin
  if not Datasource2.DataSet.Active then exit;
  DMBase.Cemployee.Active:=false;
  DMBase.Cemployee.Params.ParamByName('@DeptID').AsString:=Datasource2.DataSet['DeptID'];
  DMBase.Cemployee.Active:=true;
end;

procedure Tfmemployee.miLoadClick(Sender: TObject);
begin
  LoadPicture(Photo);
end;

procedure Tfmemployee.PhotoDblClick(Sender: TObject);
begin
  Photo.Stretch:=Not Photo.Stretch;
end;

procedure Tfmemployee.miClearClick(Sender: TObject);
begin
  DMBase.Cemployeepicture.Clear;
end;

procedure Tfmemployee.miSaveAsClick(Sender: TObject);
begin
  with TSavePictureDialog.Create(self) do
  begin
    Options:=Options+[ofForceShowHidden,ofCreatePrompt];
    if not DirectoryExists(ExtractFileDir(Application.ExeName)+'\Image') then
      ForceDirectories(ExtractFileDir(Application.ExeName)+'\Image');
    InitialDir:=ExtractFileDir(Application.ExeName)+'\Image';
    DefaultExt:='JPEG Image File (*.jpg;*.jpeg)|*.jpg;*.jpeg';
    Filter:='JPEG Image File (*.jpg;*.jpeg)|*.jpg;*.jpeg';
    if execute then Photo.Picture.Graphic.SaveToFile(Filename);
    free;
  end;
end;

end.