kq_banzhiset.pas

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

unit Kq_BanZhiSet;

interface

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

type
  TfrmKq_BanZhiSet = class(TForm)
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qrySysSet: TADOQry;
    DataSource1: TDataSource;
    qrySysSetID: TIntegerField;
    qrySysSetKqDkYxsj: TIntegerField;
    qrySysSetKqDkJgsj: TIntegerField;
    qrySysSetKqJbbjsj: TIntegerField;
    qrySysSetKqJbj1sj: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    panKqJbIfK0fk: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    panKqIfDjjbQq: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label4: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label17: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    qrySysSetJbfdTime: TTimeIntField;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    qrySysSetKqJbIfK0fk: TSmallintField;
    qrySysSetKqIfDjjbQq: TSmallintField;
    qrySysSetKqCrmsSj1: TIntegerField;
    qrySysSetKqCrmsSj2: TIntegerField;
    qrySysSetKqCrmsSj3: TIntegerField;
    qrySysSetCdztBjSj: TIntegerField;
    qrySysSetCdztJkgSj: TIntegerField;
    Label14: TLabel;
    DBEdit9: TDBEdit;
    Label18: TLabel;
    DBEdit10: TDBEdit;
    Label19: TLabel;
    qrySysSetIfJbKg: TBooleanField;
    DBCheckBox1: TDBCheckBox;
    qrySysSetKgSjCdZt: TIntegerField;
    DBEdit11: TDBEdit;
    Label21: TLabel;
    Label22: TLabel;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Modify() :Boolean;
  end;

var
  frmKq_BanZhiSet: TfrmKq_BanZhiSet;

implementation

uses SelfFunc;

{$R *.DFM}

function TfrmKq_BanZhiSet.Modify() :Boolean;
begin
	with qrySysSet do
    begin
    	Close;
        Open;
    end;
    Self.SelectFirst;

    SetRdsIndex(panKqJbIfK0fk, qrySysSetKqJbIfK0fk.Value);
    SetRdsIndex(panKqIfDjjbQq, qrySysSetKqIfDjjbQq.Value);

    Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmKq_BanZhiSet.cmdOKClick(Sender: TObject);
begin
	if not ValidRecord(qrySysSet, ['KqDkYxsj',vrvNull, 'KqDkJgsj',vrvNull
    		,'KqJbbjsj',vrvNull ,'KqJbj1sj',vrvNull])
    	then Exit;
        
    if qrySysSet.State =dsEdit then
    begin
	    qrySysSetKqJbIfK0fk.Value :=GetRdsIndex(panKqJbIfK0fk);
	    qrySysSetKqIfDjjbQq.Value :=GetRdsIndex(panKqIfDjjbQq);

    	qrySysSet.Post;
        Self.ModalResult :=mrOK;
    end
    else Self.ModalResult :=mrCancel;
end;

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

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

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

end.