upersonalchange.pas

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

unit UpersonalChange;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dbcgrids, Grids, DBGrids, ExtCtrls, Mask,
  DBCtrls, ComCtrls;

type
  TfrmPersonalChange = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    sbtnShowAll: TBitBtn;
    bbtnSelect: TBitBtn;
    ControlBar1: TControlBar;
    StaticText1: TStaticText;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Label8: TLabel;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    bbtnSave: TBitBtn;
    bbtnExit: TBitBtn;
    bbtnModify: TBitBtn;
    Edit2: TEdit;
    Memo1: TMemo;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnSelectClick(Sender: TObject);
    procedure bbtnModifyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure sbtnShowAllClick(Sender: TObject);
    procedure bbtnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPersonalChange: TfrmPersonalChange;

implementation

uses Mydata, UemployeeMgr;

{$R *.dfm}

procedure TfrmPersonalChange.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmPersonalChange.bbtnSelectClick(Sender: TObject);
var
 SelectFields,FieldsValue:String;
begin
  if ComboBox1.Text='' then Exit;
   if combobox1.Text='员工编号' then
    begin
     SelectFields:='Empno';
    end
   else if ComboBox1.Text='姓名' then
    begin
     SelectFields:='EmpName';
    end
   else if ComboBox1.Text='所在部门' then
    begin
     SelectFields:='Department';
    end
   else if ComboBox1.Text='职位' then
    begin
     SelectFields:='Post';
    end;
  FieldsValue:='%'+Trim(Edit1.Text)+'%';
  with dm.AQEmpInfo do
   begin
    close;
    sql.Clear;
    sql.Add('select * from Employees where '+SelectFields+' like '''+FieldsValue+'''');
    open;
    dm.ATEmpInfo.Clone(dm.AQEmpInfo);
   end;
end;

procedure TfrmPersonalChange.bbtnModifyClick(Sender: TObject);
begin
  bbtnsave.Enabled:=true;
  combobox2.Enabled:=true;
  edit2.Enabled:=true;
  combobox3.Enabled:=true;
  memo1.Enabled:=true;
  combobox3.Enabled:=true;
  dm.ATEmpInfo.Edit;
end;

procedure TfrmPersonalChange.FormCreate(Sender: TObject);
begin
  bbtnsave.Enabled:=false;
  combobox3.Enabled:=false;
  edit2.Enabled:=false;
end;

procedure TfrmPersonalChange.bbtnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmPersonalChange.sbtnShowAllClick(Sender: TObject);
begin
  dm.ATEmpInfo.Close;
  dm.ATEmpInfo.Open;
end;

procedure TfrmPersonalChange.bbtnSaveClick(Sender: TObject);
begin
  with dm.ATEmpInfo do
   begin
     Edit;
     FieldByName('Status').Value:=Trim(ComboBox2.Text);
     FieldByName('Post').Value:=Trim(Edit2.Text);
     FieldByName('Department').Value:=Trim(ComboBox3.Text);
     FieldByName('Notes').Value:=Trim(Memo1.Text);
     Post;
     ShowMessage('已存盘！');
     Close;
     Open;
   end;

end;

end.