rptdisgn.pas

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

unit RptDisgn;

interface

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

type
  TfrmRptDisgn = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Image1: TImage;
    Label7: TLabel;
    cmdDel: TBitBtn;
    cmdEdit: TBitBtn;
    cmdAdd: TBitBtn;
    cmdExit: TBitBtn;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    qryList: TADOQry;
    qryListRptName: TStringField;
    cmdFilter: TBitBtn;
    qryNewRpt: TADOQry;
    qryRptDoc: TADOQry;
    cmdImport: TBitBtn;
    cmdExport: TBitBtn;
    qryRptDocRptName: TStringField;
    qryRptDocExcelDoc: TBlobField;
    oOleDoc: TOleContainer;
    OpenDialog1: TOpenDialog;
    qryFormStorage: TADOQry;
    qryFormStorageFormClass: TStringField;
    qryFormStorageFormStorage: TBlobField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tblEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure FormCreate(Sender: TObject);
    procedure qryListBeforeInsert(DataSet: TDataSet);
    procedure qryListBeforeDelete(DataSet: TDataSet);
    procedure qryListBeforePost(DataSet: TDataSet);
    procedure cmdFilterClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure cmdImportClick(Sender: TObject);
    procedure cmdExportClick(Sender: TObject);
  private
	dlgFindByCode :TfrmFindByCode;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRptDisgn: TfrmRptDisgn;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmRptDisgn.cmdAddClick(Sender: TObject);
begin
	if qryList.IsEmpty then Exit;

	dlgFindByCode.Caption :='蝋