employee_unit.pas

客户关系管理系统 DELPHI7下的

unit Employee_Unit;

interface

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

type
  TfrmEmployee = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBText1: TDBText;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit7: TDBEdit;
    Label11: TLabel;
    DBEdit8: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit9: TDBEdit;
    Label15: TLabel;
    DBEdit10: TDBEdit;
    DBComboBox5: TDBComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBGrid1: TDBGrid;
    btnAdd: TBitBtn;
    btnDel: TBitBtn;
    btnSave: TBitBtn;
    btnFind: TBitBtn;
    btnRefresh: TBitBtn;
    btnCancel: TBitBtn;
    Panel1: TPanel;
    btnClosed: TBitBtn;
    GroupBox1: TGroupBox;
    sbtnBirthdaty: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnClosedClick(Sender: TObject);
    procedure sbtnBirthdatyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEmployee: TfrmEmployee;

implementation

uses DM_Unit, DataChoice_Unit;

{$R *.dfm}

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

procedure TfrmEmployee.FormShow(Sender: TObject);
begin
  DM.cdsEmployees.Open;
end;

procedure TfrmEmployee.btnAddClick(Sender: TObject);
begin
  DM.DataSetInsert(DM.cdsEmployees);
  DM.cdsEmployees.FieldByName('EmployeeID').AsString := DM.GenerateNumber('Employees','EmployeeID');
end;

procedure TfrmEmployee.btnDelClick(Sender: TObject);
begin
  DM.DataSetDelete(DM.cdsEmployees);
end;

procedure TfrmEmployee.btnRefreshClick(Sender: TObject);
begin
  with DM.cdsEmployees do
  begin
    Filtered := False;
    Filter := '';
    Filtered := True;
  end;
end;

procedure TfrmEmployee.btnSaveClick(Sender: TObject);
begin
  DM.DataSetSave(DM.cdsEmployees);
end;

procedure TfrmEmployee.btnFindClick(Sender: TObject);
var
  EmpBool: Boolean;
  EmpID: string;
begin
  EmpID := DBText1.Caption;
  EmpBool := InputQuery('查询','输入要查询的编号',EmpID);
  if EmpBool then
  begin
    with DM.cdsEmployees do
    begin
      Filtered := False;
      Filter := ' EmployeeID=' + QUotedStr(EmpID);
      Filtered := True;
    end;
  end;
end;

procedure TfrmEmployee.btnCancelClick(Sender: TObject);
begin
  DM.DataSetCancel(DM.cdsEmployees); 
end;

procedure TfrmEmployee.btnClosedClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmEmployee.sbtnBirthdatyClick(Sender: TObject);
begin
  Flag := 0;
  frmDataChoice := TfrmDataChoice.Create(Self);
  try
    frmDataChoice.ShowModal;
  finally
    frmDataChoice.Free;
  end;
end;

end.