s_jiezhang.pas

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

unit S_JieZhang;

interface

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

type
  TfrmS_JieZhang = class(TForm)
    DataSource1: TDataSource;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    cmdUndo: TBitBtn;
    qrySessionMemo: TStringField;
    Label1: TLabel;
    cmdLockKq: TBitBtn;
    qryS_JieZhang: TADOQry;
    qryS_JieZhangLastSession: TIntegerField;
    qryS_JieZhangIfGzJie: TIntegerField;
    qryS_JieZhangCzy: TStringField;
    DBEdit1: TDBEdit;
    cmdLockGz: TBitBtn;
    qryS_JieZhangDept: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure cmdUndoClick(Sender: TObject);
    procedure cmdLockKqClick(Sender: TObject);
    procedure cmdLockGzClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmS_JieZhang: TfrmS_JieZhang;

implementation

uses SelfFunc, Main, MainData;

{$R *.DFM}

procedure TfrmS_JieZhang.FormCreate(Sender: TObject);
begin
	with qryS_JieZhang do
    begin
    	Close;
		Parameters[0].Value :=frmMain.czyCode;
    	Open;
    end;

	cmdUndo.Enabled :=(qryS_JieZhangLastSession.Value >0);
	cmdLockGz.Enabled :=frmMain.mnuXzhs.Visible and frmMain.mnuXzhs.Enabled
     and frmMain.mnuGzYjtj.Enabled;
	cmdLockKq.Enabled :=((qryS_JieZhangLastSession.Value =0) or (qryS_JieZhangIfGzJie.Value =1) or (not cmdLockGz.Enabled))
     and frmMain.mnuKaoQin.Visible and frmMain.mnuKaoQin.Enabled
     and frmMain.mnuKqSjcq.Enabled;

	with qrySession do
    begin
    	Close;
        if cmdLockKq.Enabled then
			Parameters[0].Value :=qryS_JieZhangLastSession.Value +1
        else Parameters[0].Value :=qryS_JieZhangLastSession.Value;
    	Open;
    end;
end;

procedure TfrmS_JieZhang.cmdUndoClick(Sender: TObject);
begin
	if qryS_JieZhang.IsEmpty then Exit
    else qryS_JieZhang.Edit;

    qryS_JieZhangIfGzJie.Value :=1;
    qryS_JieZhangLastSession.Value :=qryS_JieZhangLastSession.Value -1; //篗