zlgxflc.pas

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

unit ZlGxFlC;

interface

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

type
  TfrmZlGxFlC = class(TForm)
    edCode: TEdit;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryGxFl: TADOQry;
    qryCopyGxFl: TADOQry;
    qryCopyGx: TADOQry;
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    qryGxFlCode: TStringField;
    qryGxFlUpCode: TStringField;
    qryGxFlCurCode: TStringField;
    procedure cmdOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  	sOldCode :string;
    function CopyFrom(tsOldCode :string) :Boolean;
    { Public declarations }
  end;

var
  frmZlGxFlC: TfrmZlGxFlC;

implementation

uses SelfFunc;

{$R *.DFM}

function TfrmZlGxFlC.CopyFrom(tsOldCode :string) :Boolean;
begin
	sOldCode :=tsOldCode;
	edit1.Text :=sOldCode;
    Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmZlGxFlC.cmdOKClick(Sender: TObject);
var sNewCode,sNewCurCode :string;
begin
	sNewCode :=Trim(edCode.Text);
	if sNewCode='' then Exit;

	with qryGxFl do
	begin
		Close;
		Parameters[0].Value :=sOldCode;
		Open;
    end;
    if Copy(sNewCode, 1, Length(qryGxFlUpCode.Value)) <> qryGxFlUpCode.Value then
    begin
    	MsgBox('穝玻珇ゲ斗蒓