empjiating.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit EmpJiaTing;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, Grids, DBGrids, MyGrid, FormStore, StoreForm, ADODB,
  ADOQry;

type
  TfrmEmpJiaTing = class(TForm)
    DataSource1: TDataSource;
    panTools: TPanel;
    Panel2: TPanel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cmdAdd: TBitBtn;
    cmdDel: TBitBtn;
    cmdPrint: TBitBtn;
    MyGrid1: TMyGrid;
    qryList: TADOQry;
    qryListID: TIntegerField;
    qryListEmpID: TIntegerField;
    qryListName: TStringField;
    qryListRelation: TStringField;
    qryListUnit: TStringField;
    qryListBornDate: TDateTimeField;
    qryListZhiWu: TStringField;
    dsEmp: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    StoreForm1: TStoreForm;
    procedure cmdOKClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure qryListNewRecord(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    nID :integer;
    procedure FModify(tnID:integer);
  public
	{ Public declarations }
	Function Edit(tnID:integer):Boolean;
	procedure View(tnID:integer);
  end;

var
  frmEmpJiaTing: TfrmEmpJiaTing;

implementation

uses SelfFunc, ZlEmployee, RptExcel;

{$R *.DFM}

procedure TfrmEmpJiaTing.FModify(tnID:integer);
begin
    with qryList do
    begin
    	Close;
        Parameters[0].Value :=tnID;
        Open;
	end;
    Self.SelectFirst;
end;

Function TfrmEmpJiaTing.Edit(tnID:integer):Boolean;
begin
	nID :=tnID;
    FModify(tnID);

    Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmEmpJiaTing.View(tnID:integer);
begin
	nID :=tnID;
    FModify(tnID);

    cmdOK.Enabled :=False;
    Self.ShowModal();
    cmdOK.Enabled :=True;
end;

procedure TfrmEmpJiaTing.cmdOKClick(Sender: TObject);
begin
	qryList.UpdateBatch;

    Self.ModalResult :=mrOK;
end;

procedure TfrmEmpJiaTing.cmdAddClick(Sender: TObject);
begin
	qryList.Append;
    MyGrid1.SetFocus;
end;

procedure TfrmEmpJiaTing.cmdDelClick(Sender: TObject);
begin
	if qryList.IsEmpty then Exit;
    if not MsgBoxSel('琌