zlemployeea.pas

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

unit ZlEmployeeA;

interface

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

type
  TfrmZlEmployeeA = class(TForm)
    oPages: TPageControl;
    TabSheet5: TTabSheet;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet4: TTabSheet;
    qryDiaoZhi: TADOQry;
    qryDiaoZhiID: TIntegerField;
    qryDiaoZhiEmpID: TIntegerField;
    qryDiaoZhiFDate: TDateTimeField;
    qryDiaoZhiOldDept: TStringField;
    qryDiaoZhisOldDept: TStringField;
    qryDiaoZhiNewDept: TStringField;
    qryDiaoZhisNewDept: TStringField;
    qryDiaoZhiOldZhiWu: TStringField;
    qryDiaoZhisOldZhiWu: TStringField;
    qryDiaoZhiNewZhiWu: TStringField;
    qryDiaoZhisNewZhiWu: TStringField;
    qryDiaoZhiOldCode: TStringField;
    qryDiaoZhiNewCode: TStringField;
    qryDiaoZhiNote: TStringField;
    DataSource3: TDataSource;
    MyGrid5: TMyGrid;
    qryJiaTing: TADOQry;
    qryJiaTingID: TIntegerField;
    qryJiaTingEmpID: TIntegerField;
    qryJiaTingName: TStringField;
    qryJiaTingRelation: TStringField;
    qryJiaTingUnit: TStringField;
    qryJiaTingBornDate: TDateTimeField;
    qryJiaTingZhiWu: TStringField;
    DataSource4: TDataSource;
    MyGrid1: TMyGrid;
    qryJiaoYu: TADOQry;
    qryJiaoYuID: TIntegerField;
    qryJiaoYuEmpID: TIntegerField;
    qryJiaoYuDate0: TDateTimeField;
    qryJiaoYuDate1: TDateTimeField;
    qryJiaoYuSchool: TStringField;
    qryJiaoYuClass: TStringField;
    qryJiaoYuXueLi: TStringField;
    qryJiaoYuByzNo: TStringField;
    qryJiaoYusXueLi: TStringField;
    DataSource5: TDataSource;
    tblXueLi: TADOTbl;
    MyGrid2: TMyGrid;
    qryGongZuo: TADOQry;
    qryGongZuoID: TIntegerField;
    qryGongZuoEmpID: TIntegerField;
    qryGongZuoDate0: TDateTimeField;
    qryGongZuoDate1: TDateTimeField;
    qryGongZuoUnit: TStringField;
    qryGongZuoZhiWu: TStringField;
    qryGongZuoXinJin: TFloatField;
    qryGongZuoLzyy: TStringField;
    DataSource6: TDataSource;
    MyGrid3: TMyGrid;
    qryJiangLi: TADOQry;
    qryJiangLiID: TIntegerField;
    qryJiangLiEmpID: TIntegerField;
    qryJiangLiFDate: TDateTimeField;
    qryJiangLiJlType: TStringField;
    qryJiangLiJlJe: TFloatField;
    qryJiangLiWjbh: TStringField;
    qryJiangLiQsr: TStringField;
    qryJiangLiNote: TStringField;
    DataSource7: TDataSource;
    MyGrid6: TMyGrid;
    qryChengFa: TADOQry;
    qryChengFaID: TIntegerField;
    qryChengFaEmpID: TIntegerField;
    qryChengFaFDate: TDateTimeField;
    qryChengFaCfType: TStringField;
    qryChengFaCfJe: TFloatField;
    qryChengFaWjbh: TStringField;
    qryChengFaQsr: TStringField;
    qryChengFaNote: TStringField;
    DataSource8: TDataSource;
    MyGrid7: TMyGrid;
    qryPeiXun: TADOQry;
    qryPeiXunID: TIntegerField;
    qryPeiXunEmpID: TIntegerField;
    qryPeiXunDate0: TDateTimeField;
    qryPeiXunDate1: TDateTimeField;
    qryPeiXunKcCode: TStringField;
    qryPeiXunSxss: TFloatField;
    qryPeiXunCjpy: TStringField;
    DataSource9: TDataSource;
    MyGrid8: TMyGrid;
    qryDaShi: TADOQry;
    qryDaShiID: TIntegerField;
    qryDaShiEmpID: TIntegerField;
    qryDaShiFDate: TDateTimeField;
    qryDaShiJlr: TStringField;
    qryDaShiWjbh: TStringField;
    qryDaShiNote: TStringField;
    qryDaShiNotes: TStringField;
    DataSource10: TDataSource;
    MyGrid4: TMyGrid;
    Panel1: TPanel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cmdAdd: TBitBtn;
    cmdDel: TBitBtn;
    cmdPrint: TBitBtn;
    StoreForm1: TStoreForm;
    qryDiaoZhiNewZhiJi: TStringField;
    qryDiaoZhiOldZhiJi: TStringField;
    qryDiaoZhisOldZhiJi: TStringField;
    qryDiaoZhisNewZhiJi: TStringField;
    qryJiangLisJlType: TStringField;
    qryChengFasCfType: TStringField;
    qryPeiXunKcName: TStringField;
    Image1: TImage;
    Label1: TLabel;
    qryEmp: TADOQry;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure oPagesChange(Sender: TObject);
    procedure qryJiaTingNewRecord(DataSet: TDataSet);
    procedure qryJiaoYuNewRecord(DataSet: TDataSet);
    procedure qryGongZuoNewRecord(DataSet: TDataSet);
    procedure qryDaShiNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
    nID :integer;
    oQuerys :Array[1..8] of TADOQry;
    procedure FModify(tnID:integer);
  public
	{ Public declarations }
	Function Edit(tnID:integer) :Boolean;
	procedure View(tnID:integer);
  end;

var
  frmZlEmployeeA: TfrmZlEmployeeA;

implementation

uses SelfFunc, ZlEmployee, Main, RptExcel;

{$R *.DFM}

procedure TfrmZlEmployeeA.FModify(tnID:integer);
var i :integer;
begin
	nID :=tnID;
	for i :=1 to 8 do
    begin
    	oQuerys[i].Close;
        oQuerys[i].Parameters[0].Value :=tnID;
    end;
    oPages.OnChange(nil);
end;

Function TfrmZlEmployeeA.Edit(tnID:integer):Boolean;
begin
    FModify(tnID);
    Self.ActiveControl :=cmdCancel;
    Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmZlEmployeeA.View(tnID:integer);
begin
    FModify(tnID);
    Self.ActiveControl :=cmdCancel;
    Self.ShowModal();
end;

procedure TfrmZlEmployeeA.FormKeyPress(Sender: TObject; var Key: Char);
begin
	if Key =#13 then
    begin
    	Key :=#0;
        Self.SelectNext(Self.ActiveControl, True,True);
    end;
end;

procedure TfrmZlEmployeeA.cmdAddClick(Sender: TObject);
begin
	oQuerys[oPages.ActivePageIndex +1].Append;
    oPages.ActivePage.SetFocus;
end;

procedure TfrmZlEmployeeA.cmdDelClick(Sender: TObject);
begin
	if oQuerys[oPages.ActivePageIndex +1].IsEmpty then Exit;
    if not MsgBoxSel('琌