initsys.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 88 行

unit InitSys;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, Db, ExtCtrls, ADODB, ADOQry;

type
  TfrmInitSys = class(TForm)
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    dpDate: TDateTimePicker;
    qrySetSession: TADOQry;
    qryClearZl: TADOQry;
    qryClearGz: TADOQry;
    qrySetDemo: TADOQry;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    qryClearGzzl: TADOQry;
    qryClearKq: TADOQry;
    qryClearKqzl: TADOQry;
    qryClearRs: TADOQry;
    qryClearRszl: TADOQry;
    qryClearCr: TADOQry;
    qryClearJc: TADOQry;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    procedure cmdCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure dpDateExit(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInitSys: TfrmInitSys;

implementation

uses SelfFunc;

{$R *.DFM}

procedure TfrmInitSys.cmdCancelClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmInitSys.FormCreate(Sender: TObject);
var nYear,nMonth,nDay:word;
begin
	DecodeDate(Date(), nYear,nMonth,nDay);
	dpDate.date :=EncodeDate(nYear,nMonth,1);
end;

procedure TfrmInitSys.cmdOKClick(Sender: TObject);
begin
	if CheckBox1.Checked then qryClearGz.ExecSQL;
	if CheckBox2.Checked then qryClearGzzl.ExecSQL;
	if CheckBox3.Checked then qryClearKq.ExecSQL;
	if CheckBox4.Checked then qryClearKqzl.ExecSQL;
	if CheckBox5.Checked then qryClearRs.ExecSQL;
	if CheckBox6.Checked then qryClearRszl.ExecSQL;
	if CheckBox7.Checked then qryClearCr.ExecSQL;
	if CheckBox8.Checked then qryClearJc.ExecSQL;

	//砞竚