zlemployee.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 130 行

unit ZlEmployee;

interface

uses ZlEmployeeE,ZlEmployeeL,ZlEmployeeF,ZlEmployeeD,
 EmpDiaoZhiE,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, AdoCodeEd,
  MacroQuery, StoreForm, ADOQry, ADODB, AdoMacroQry;

type
  TfrmZlEmployee = class(TForm)
    DataSource1: TDataSource;
    MyGrid1: TMyGrid;
    Panel1: TPanel;
    cmdDel: TBitBtn;
    cmdEdit: TBitBtn;
    cmdAdd: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    cmdLz: TBitBtn;
    qryBrowseDept: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseCardNo: TStringField;
    qryBrowseName: TStringField;
    qryBrowseSfz: TStringField;
    qryBrowseBornDate: TDateTimeField;
    qryBrowsePyDate: TDateTimeField;
    qryBrowseSyMonths: TIntegerField;
    qryBrowseZzDate: TDateTimeField;
    qryBrowseLzDate: TDateTimeField;
    qryBrowseLzCause: TStringField;
    qryBrowseZhiWu: TStringField;
    qryBrowseXueLi: TStringField;
    qryBrowseHunYin: TStringField;
    qryBrowseJiGuan: TStringField;
    qryBrowseNation: TStringField;
    qryBrowseRoomBed: TStringField;
    qryBrowseMemo: TStringField;
    qryBrowseID: TIntegerField;
    qryBrowsesSex: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowsesXueLi: TStringField;
    qryBrowsesHunYin: TStringField;
    qryBrowsesJiGuan: TStringField;
    qryBrowsesNation: TStringField;
    qryBrowsesLzCause: TStringField;
    cmdDiaoZhiE: TBitBtn;
    qryBrowsesDept: TStringField;
    qryDelCheck: TADOQry;
    qryDelChecklCanDel: TIntegerField;
    qryBrowseIfDaKa: TBooleanField;
    qryBrowseState: TSmallintField;
    qryBrowseZhiJi: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowseJxfs: TStringField;
    qryBrowsesJxfs: TStringField;
    qryBrowseDeptName: TStringField;
    cmdQuery: TBitBtn;
    cmdLocate: TBitBtn;
    lblCount: TStaticText;
    qrySysSet: TADOQry;
    qrySysSetEmpRpts: TStringField;
    cmdPrint: TBitBtn;
    cboRptName: TComboBox;
    qryBrowseBanZu: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdLzClick(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure qryBrowseAfterOpen(DataSet: TDataSet);
    procedure cmdDiaoZhiEClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure MyGrid1DblClick(Sender: TObject);
    procedure qryBrowseAfterScroll(DataSet: TDataSet);
    procedure cmdPrintClick(Sender: TObject);
  private
	dlgMultiFilter :TfrmZlEmployeeF;

    dlgZlEmployeeE :TfrmZlEmployeeE;
    dlgZlEmployeeD :TfrmZlEmployeeD;
    dlgZlEmployeeL :TfrmZlEmployeeL;

    dlgEmpDiaoZhiE :TfrmEmpDiaoZhiE;
  public
    { Public declarations }
  end;

var
  frmZlEmployee: TfrmZlEmployee;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

procedure TfrmZlEmployee.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmZlEmployee.cmdAddClick(Sender: TObject);
begin
	if dlgZlEmployeeE.Add(dlgMultiFilter.cedDept.CodeText) then
    	RefreshQuery(qryBrowse);
end;

procedure TfrmZlEmployee.cmdDelClick(Sender: TObject);
begin
	if not cmdEdit.Enabled then
    begin
    	cmdDel.Enabled :=False;
        Exit;
    end;
	if qryBrowse.IsEmpty then
    begin
    	MessageBeep(0);
        Exit;
    end;
	if not MsgBoxSel('琌