verifypassword.pas

类似于安利公司的奖金制度下的会员层次关系、会员级别、会员奖金等

unit VerifyPassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TFVerifyPassword = class(TForm)
    Button: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ChangeFonts(OldFormWidth:integer;NewFormWidth:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FVerifyPassword: TFVerifyPassword;

implementation
uses Data_Unit1, main;
type
  TFooClass = class(TControl); { needed to get at protected }
                             { font property }
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;

procedure TFVerifyPassword.ChangeFonts(OldFormWidth:integer;NewFormWidth:integer);
var
i: integer;
begin
  NewFormWidth := longint(width) * longint(screen.width) div ScreenWidth;
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
      (NewFormWidth div OldFormWidth) *
      TFooClass(Controls[i]).Font.Size;
end;
{$R *.dfm}

procedure TFVerifyPassword.FormCreate(Sender: TObject);
begin
  scaled := true;
  if (screen.width <> ScreenWidth) then
  begin
    height := longint(height) * longint(screen.height) div ScreenHeight;
    width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
  end;
  ChangeFonts(ScreenWidth,width);
  Try
    DataModule1.ADOConnection1.Open;
  Except
    begin
      showmessage('数据库连接错误！');
      exit;
    end;
  end;
end;

procedure TFVerifyPassword.ButtonClick(Sender: TObject);
begin
  with DataModule1.ADOQuery_S1 do begin
    close;
    SQL.Clear;
    SQL.Add('select * from verify where UserName="'+Edit1.Text+'" and PassWord="'+Edit2.Text+'"');
    open;
  end;
  if DataModule1.ADOQuery_S1.RecordCount = 0 then begin
    Showmessage('非法用户！请输入正确的授权用户名和密码！');
  end
  else begin
    if date>strtodate('2004-9-30') then begin
      showmessage('抱歉，您使用的软件已超过时限，请与作者联系（电话：[phone]）');
    end
    else begin
      Application.CreateForm(TForm1, Form1);
        try
          FVerifyPassword.Hide;
          Form1.ShowModal;
        Finally
          Form1.Release;
          FVerifyPassword.Release;
          application.terminate;
        end
    end;
  end;
end;

procedure TFVerifyPassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

end.