dslocate.pas

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

unit DsLocate;

interface

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

type
  TfrmDsLocate = class(TForm)
    lblMsg: TLabel;
    edCode: TEdit;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    oField:TField;
  public
    { Public declarations }
	procedure Locate(toField:TField);
  end;

var
  frmDsLocate: TfrmDsLocate;

implementation

uses SelfFunc;

{$R *.DFM}

procedure TfrmDsLocate.Locate(toField:TField);
begin
    oField :=toField;
    if oField.DataSet.IsEmpty then Exit;
    if (not (oField is TStringField)) then
    begin
    	oField :=oField.DataSet.FindField('Code');
        if oField =nil then Exit;

	    if (not (oField is TStringField)) then
	    begin
	    	MessageBeep(0);
	        Exit;
	    end;
    end;

    lblMsg.Caption :=oField.DisplayLabel +':';
	edCode.Text :='';
    Self.ShowModal();
end;

procedure TfrmDsLocate.cmdOKClick(Sender: TObject);
var tv :Variant;
begin
	if edCode.Text ='' then
    begin
    	MsgBox('叫块