e_pxjcjs.pas

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

unit E_pxjcjs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, ADODB, AdoObeyTbl, ADOTbl,
  AdoCodeEd, ADOQry;

type
  TfrmE_pxjcjs = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    tblEdit: TAdoObeyTbl;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    cmdAdd: TBitBtn;
    cmdSave: TBitBtn;
    cmdDel: TBitBtn;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Image1: TImage;
    tblPxjs: TADOTbl;
    cedPxjc: TAdoCodeEd;
    Label8: TLabel;
    tblEditPxjc: TStringField;
    tblEditPxjs: TStringField;
    tblPxjsCode: TStringField;
    tblPxjsName: TStringField;
    tblEditsPxjs: TStringField;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    qryPxjc: TADOQry;
    qryPxjcCode: TStringField;
    qryPxjcName: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tblEditAfterEdit(DataSet: TDataSet);
    procedure tblEditAfterPost(DataSet: TDataSet);
    procedure tblEditNewRecord(DataSet: TDataSet);
    procedure tblEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure tblEditBeforePost(DataSet: TDataSet);
    procedure cmdSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cedPxjcCodeChange(Sender: TObject);
    procedure cedPxjcGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmE_pxjcjs: TfrmE_pxjcjs;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmE_pxjcjs.cmdAddClick(Sender: TObject);
begin
	if tblEdit.State in [dsInsert,dsEdit] then
    	tblEdit.PostTable;

	if cedPxjc.CodeText ='' then Exit;
    tblEdit.Append;
    tblEditSPxjs.FocusControl;
end;

procedure TfrmE_pxjcjs.cmdDelClick(Sender: TObject);
begin
	if tblEdit.IsEmpty then MessageBeep(0)
	else if MsgBoxSel('琌