dl.pas

一个简单的学生费用管理系统

unit dl;

interface

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

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses xitong , DM, Share;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var
results:variant;
begin
  SFRH:=edit1.text;
  results:=adotable1.lookup('sfrh',edit1.text,'mm');{检索数据库中对应收费人号的密码项}   //先定位到数据库中edit1.text那条记录
  if results=edit2.Text then
    begin

      Form1.N1.Enabled:=false;    //登陆后防止再次登陆把按纽变灰
      Form1.N2.Enabled:=true;
      Form1.N3.Enabled:=true;
      Form1.N4.Enabled:=true;
    end
  else
    showmessage('错误的收费人号或密码！');
  close;{退出}
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOTable1.Active:=true;
end;

end.