softregist.pas

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

unit SoftRegist;

interface

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

type
  TfrmSoftRegist = class(TForm)
    edRegDate: TEdit;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qrySysSet: TADOQry;
    qrySysSetID: TIntegerField;
    qrySysSetUserName: TStringField;
    qrySysSetUserKey: TStringField;
    DataSource1: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    lblAuthor: TLabel;
    Label9: TLabel;
    lblCopyRight: TLabel;
    lblTel: TLabel;
    Bevel1: TBevel;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    tdRegDate:TDate;
  public
    { Public declarations }
	function ShowRegist(tdDate:TDate) :Boolean;
  end;

var
  frmSoftRegist: TfrmSoftRegist;

implementation

uses SelfFunc;

{$R *.DFM}

function TfrmSoftRegist.ShowRegist(tdDate:TDate) :Boolean;
begin
    tdRegDate :=tdDate;
    edRegDate.Text :=DateToStr(tdRegDate);

    qrySysSet.Close;
    qrySysSet.Open;

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

procedure TfrmSoftRegist.cmdOKClick(Sender: TObject);
begin
	if Length(qrySysSetUserName.Value) <8 then
    begin
      	MsgBox('癸ぃ癬,ノめ