sysset.pas

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

unit SysSet;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask,
  TimeIntField, MyGrid, ADODB, ADOQry;

type
  TfrmSysSet = class(TForm)
    qrySysSet: TADOQry;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Image1: TImage;
    Label7: TLabel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qrySysSetDownLoadPath: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    cmdGetDownLoadExe: TBitBtn;
    Bevel2: TBevel;
    OpenDialog1: TOpenDialog;
    qrySysSetID: TIntegerField;
    qrySysSetEmpRpts: TStringField;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    qrySysSetGxCostNum: TIntegerField;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    qrySysSetKqRpts: TStringField;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    qrySysSetGzDayRpts: TStringField;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    qrySysSetGzRptsDept: TStringField;
    Label8: TLabel;
    DBEdit6: TDBEdit;
    qrySysSetEmpCodeAuto: TBooleanField;
    qrySysSetEmpCodeUnique: TBooleanField;
    qrySysSetEmpCodeLen: TIntegerField;
    GroupBox1: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    qrySysSetUserName: TStringField;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    qrySysSetCqRpts: TStringField;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    qrySysSetCardRpts: TStringField;
    Label12: TLabel;
    DBEdit10: TDBEdit;
    Label13: TLabel;
    qrySysSetKqSumRpts: TStringField;
    Label4: TLabel;
    DBEdit11: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure cmdGetDownLoadExeClick(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysSet: TfrmSysSet;

implementation

uses Main, SelfFunc;

{$R *.DFM}

procedure TfrmSysSet.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);
    qrySysSet.Open;
end;

procedure TfrmSysSet.cmdGetDownLoadExeClick(Sender: TObject);
begin
	if not OpenDialog1.Execute then Exit;

    if not (qrySysSet.State =dsEdit) then qrySysSet.Edit;
    qrySysSetDownLoadPath.Value :=OpenDialog1.FileName;
end;

procedure TfrmSysSet.cmdOKClick(Sender: TObject);
begin
	if qrySysSetEmpCodeAuto.Value then
    if qrySysSetEmpCodeLen.Value <=0 then
    begin
    	MsgBox('