unit7.~pas

这是我给一单位开以的支票打印系统,开发环境为delphi,控件为fastreport

unit Unit7;

interface

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

type
  Tadmin = class(TForm)
    Panel1: TPanel;
    name1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    pass1: TEdit;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  admin: Tadmin;

implementation

uses unit2;
var dl:integer;

{$R *.dfm}

procedure Tadmin.FormShow(Sender: TObject);
begin
      name1.Items.Clear ;
      while not(data.users.Eof )do
      begin
           name1.Items.Add(data.users.Fields[1].AsString );
           data.users.Next ;
      end;
end;

procedure Tadmin.BitBtn1Click(Sender: TObject);
begin
    inc(dl);
    with data.yh do
    begin
       data.yh.SQL.Clear ;
       data.yh.SQL.Add('select * from admin') ;
       data.yh.SQL.Add('where user_name='''+name1.Text+'''');
       data.yh.SQL.Add('and password='''+pass1.Text+'''') ;
      data.yh.Open ;
    end;
 if data.yh.RecordCount>0 then
      close
 else        
 if dl<>3 then
      begin
          Application.MessageBox(PChar('口令有误，请重新输入'),'登录提示');
          name1.SetFocus;
          pass1.Clear;
      end
    else
      Application.Terminate;
end;

procedure Tadmin.BitBtn2Click(Sender: TObject);
begin
     Application.Terminate;
end;
end.