empchoice.pas

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

unit EmpChoice;

interface

uses MidasLib,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, Mask, AdoCodeEd, ExtCtrls, Db,
  MacroQuery, MyGrid, FormStore, DBClient, Provider, ComCtrls, StoreForm,
  AdoMacroQry, ADODB, ADOQry;

type
  TfrmEmpChoice = class(TForm)
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    panTools: TPanel;
    Label3: TLabel;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    DataSource2: TDataSource;
    qryEmp: TAdoMacroQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpsDept: TStringField;
    qryEmpsZhiWu: TStringField;
    qryEmpsZhiJi: TStringField;
    qryEmpCardNo: TStringField;
    qryEmpPyDate: TDateTimeField;
    qryEmpsSex: TStringField;
    panState: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    cedZhiWu: TAdoCodeEd;
    qryE_ZhiWu: TADOQry;
    qryE_ZhiWuCode: TStringField;
    qryE_ZhiWuName: TStringField;
    Label2: TLabel;
    cedZhiJi: TAdoCodeEd;
    qryE_ZhiJi: TADOQry;
    qryE_ZhiJiCode: TStringField;
    qryE_ZhiJiName: TStringField;
    DBGrid1: TMyGrid;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    StoreForm1: TStoreForm;
    cmdSelAll: TBitBtn;
    cmdUnSel: TBitBtn;
    qryEmpSelected: TIntegerField;
    qryBrowse: TClientDataSet;
    qryBrowseID: TIntegerField;
    qryBrowseSelected: TIntegerField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowseCardNo: TStringField;
    qryBrowsePyDate: TDateTimeField;
    qryBrowsesDept: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowsesZhiJi: TStringField;
    Label5: TLabel;
    Label4: TLabel;
    dpZzDate1: TDateTimePicker;
    dpZzDate0: TDateTimePicker;
    qryEmpBanZu: TStringField;
    qryBrowseBanZu: TStringField;
    Label6: TLabel;
    edBanZu: TEdit;
    edRoom: TEdit;
    Label7: TLabel;
    cedDept2: TAdoCodeEd;
    Label8: TLabel;
    cedZhiWu2: TAdoCodeEd;
    Label9: TLabel;
    qryE_ZhiWu2: TADOQry;
    qryDept2: TADOQry;
    qryDept2Code: TStringField;
    qryDept2LongName: TStringField;
    qryE_ZhiWu2Code: TStringField;
    qryE_ZhiWu2Name: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cedZhiWuGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedZhiJiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure cmdSelAllClick(Sender: TObject);
    procedure cmdUnSelClick(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure qryBrowseSelectedGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cedDept2GetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedZhiWu2GetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
  public
    { Public declarations }
    sChoicesID :string;
    function Choose() :Boolean;
  end;

var
  frmEmpChoice: TfrmEmpChoice;

implementation

uses SelfFunc, Main;

{$R *.DFM}

function TfrmEmpChoice.Choose() :Boolean;
begin
	Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmEmpChoice.FormCreate(Sender: TObject);
var ts :string;
	n :integer;
begin
	if frmMain.czyQxDept <>'' then //场