fmemployeeu.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMEmployeeU;

interface

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

type
  TFMEmployee = class(TFMSingle)
    cdsMainfEmpId: TSmallintField;
    cdsMainfEmpName: TWideStringField;
    cdsMainfTelNo: TWideStringField;
    cdsMainfPhone: TWideStringField;
    cdsMainfSeriNo: TWideStringField;
    cdsMainfAddre: TWideStringField;
    cdsMainfState: TSmallintField;
    cdsMainfFFU: TWideStringField;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    dsState: TDataSource;
    cdsState: TADODataSet;
    cdsMainfStateName: TStringField;
    Label1: TLabel;
    dbfEmpId: TDBEdit;
    Label2: TLabel;
    dbfEmpName: TDBEdit;
    Label3: TLabel;
    dbfTelNo: TDBEdit;
    Label4: TLabel;
    dbfPhone: TDBEdit;
    Label5: TLabel;
    dbfSeriNo: TDBEdit;
    Label6: TLabel;
    dbfAddre: TDBEdit;
    Label7: TLabel;
    dbfStateName: TDBLookupComboBox;
    cdsMainfType: TSmallintField;
    Label8: TLabel;
    dbfType: TDBLookupComboBox;
    cdsType: TADODataSet;
    dsType: TDataSource;
    cdsMainfTypeName: TStringField;
    procedure btnQueryClick(Sender: TObject);
    procedure cdsMainNewRecord(DataSet: TDataSet);
    procedure btnAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    function DelCheck:boolean ; override ;
  end;

var
  FMEmployee: TFMEmployee;

implementation

{$R *.dfm}

function TFMEmployee.DelCheck:boolean;
begin
  result :=true ;
  QrySQL.Active :=false ;
  QrySQL.SQL.Text :='select count(*) from ts_receive_head where fEmpId='+#39+cdsMain.FieldByName('fEmpId').AsString+#39;
  QrySQL.Active :=true ;
  if QrySQL.Fields[0].AsInteger >0 then
    begin
      result :=false ;
      aErrMsg :='该员工处理过验收单,不能删除.';
    end ;
end ;


procedure TFMEmployee.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_employee';
  inherited;
end;

procedure TFMEmployee.cdsMainNewRecord(DataSet: TDataSet);
begin
  inherited;
  cdsMain.FieldByName('fEmpId').AsString :=GetNextId('ts_employee','fEmpId');
  cdsMain.FieldByName('fState').AsString :='0';
end;

procedure TFMEmployee.btnAddClick(Sender: TObject);
begin
  inherited;
  dbfEmpName.SetFocus ;
end;

procedure TFMEmployee.FormCreate(Sender: TObject);
begin
  inherited;
  cdsState.Active :=false ; cdsState.Active :=true ;
  cdsType.Active :=false ; cdsType.Active :=true ;
end;

procedure TFMEmployee.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  cdsState.Active :=false ; cdsType.Active :=false ;
  inherited;
end;

end.