kq_bzzgz.pas

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

unit Kq_bzZgz;

interface

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

type
  TfrmKq_bzZgz = class(TForm)
    qrySysSet: TADOQry;
    DataSource1: TDataSource;
    qrySysSetKqDkYxsj: TIntegerField;
    qrySysSetKqDkJgsj: TIntegerField;
    qrySysSetKqJbbjsj: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    panKqJbIfK0fk: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label4: TLabel;
    qrySysSetJbfdTime: TTimeIntField;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    qrySysSetKqJbIfK0fk: TSmallintField;
    qrySysSetCdztBjSj: TIntegerField;
    qrySysSetCdztJkgSj: TIntegerField;
    qrySysSetIfJbKg: TBooleanField;
    DBCheckBox1: TDBCheckBox;
    qrySysSetKgSjCdZt: TIntegerField;
    qrySysSetID: TIntegerField;
    GroupBox1: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label6: TLabel;
    panKg_cdzt: TPanel;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    qrySysSetKgSjCdZtH: TFloatField;
    Label22: TLabel;
    DBEdit11: TDBEdit;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Label7: TLabel;
    Label8: TLabel;
    panQqUnit: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label13: TLabel;
    panKgUnit: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    DBEdit4: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit16: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    Bevel3: TBevel;
    Panel4: TPanel;
    Image1: TImage;
    Label31: TLabel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qrySysSetQqUnit: TSmallintField;
    qrySysSetKgUnit: TSmallintField;
    qrySysSetQqdjJy1: TIntegerField;
    qrySysSetQqdjJy2: TIntegerField;
    qrySysSetQqdjJr1: TIntegerField;
    qrySysSetQqdjJr2: TIntegerField;
    qrySysSetQqdjTs: TIntegerField;
    qrySysSetNianJr1: TIntegerField;
    qrySysSetNianJr2: TIntegerField;
    qrySysSetNianJr3: TIntegerField;
    qrySysSetQkTs: TIntegerField;
    qrySysSetQkIfSh: TBooleanField;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    qrySysSetDayHours: TFloatField;
    Label32: TLabel;
    DBEdit6: TDBEdit;
    Label33: TLabel;
    Label34: TLabel;
    qrySysSetCqUnit: TSmallintField;
    Label35: TLabel;
    panCqUnit: TPanel;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    qrySysSetIfJbdjBdk: TBooleanField;
    qrySysSetIfGChaiBdk: TBooleanField;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    qrySysSetCdztCs2Sj: TIntegerField;
    DBEdit7: TDBEdit;
    Label36: TLabel;
    qrySysSetKqJbQzSj: TIntegerField;
    Label37: TLabel;
    DBEdit8: TDBEdit;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure DBEdit11Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKq_bzZgz: TfrmKq_bzZgz;

implementation

uses SelfFunc, Main;

{$R *.DFM}

procedure TfrmKq_bzZgz.cmdOKClick(Sender: TObject);
begin
	if not ValidRecord(qrySysSet, ['KqDkYxsj',vrvNull, 'KqDkJgsj',vrvNull
    		,'KqJbbjsj',vrvNull])
    	then Exit;
        
    if qrySysSet.State =dsEdit then
    begin
    	if (GetRdsIndex(panKg_CdZt) =0) or (qrySysSetKgSjCdZtH.Value =0) then
        begin
    		qrySysSetKgSjCdZtH.Clear;
            qrySysSetKgSjCdZt.Clear;
        end
        else qrySysSetKgSjCdZt.Value :=Trunc(qrySysSetKgSjCdZtH.Value *60 +0.5);

		qrySysSetKqJbIfK0fk.Value :=GetRdsIndex(panKqJbIfK0fk);
		qrySysSetCqUnit.Value :=GetRdsIndex(panCqUnit);
		qrySysSetQqUnit.Value :=GetRdsIndex(panQqUnit);
		qrySysSetKgUnit.Value :=GetRdsIndex(panKgUnit);

    	qrySysSet.Post;
    end;
    Close;
end;

procedure TfrmKq_bzZgz.FormKeyPress(Sender: TObject; var Key: Char);
begin
	if Key =#13 then
    begin
    	Key :=#0;
        Self.SelectNext(Self.ActiveControl, True,True);
    end;
end;

procedure TfrmKq_bzZgz.RadioButton1Click(Sender: TObject);
begin
	if not TRadioButton(Sender).Focused then Exit;

	if not (qrySysSet.State in [dsEdit,dsInsert])
    	then qrySysSet.Edit;
end;

procedure TfrmKq_bzZgz.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    qrySysSet.Open;
    if qrySysSetKgSjCdZtH.IsNull then
    	SetRdsIndex(panKg_CdZt, 0)
    else SetRdsIndex(panKg_CdZt, 1);
    SetRdsIndex(panKqJbIfK0fk, qrySysSetKqJbIfK0fk.Value);
    SetRdsIndex(panCqUnit, qrySysSetCqUnit.Value);
    SetRdsIndex(panQqUnit, qrySysSetQqUnit.Value);
    SetRdsIndex(panKgUnit, qrySysSetKgUnit.Value);
end;

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

procedure TfrmKq_bzZgz.DBEdit11Enter(Sender: TObject);
begin
	SetRdsIndex(panKg_cdzt, 1);
end;

end.