login.~pas

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· ~PAS 代码 · 共 81 行

unit Login;

interface

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

type
  TLoginForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;

implementation

{$R *.dfm}
uses
Unit1,ReaderMain,UserSettingForm,UserDocuForm,UserDocumentForm,BookSettingForm,BookDocuForm,
BookOrderForm,BookBorrowForm,BookReturnForm,BookOverdueForm,
ForfeitForm;

procedure TLoginForm.Button1Click(Sender: TObject);
var
admin:TMain;
reader:TMain;
begin
if (edit1.text='reader') and (edit2.text='888')and radiobutton1.Checked then
//Main.Show;
begin
reader:=TMain.create(application);
reader.show;
reader.N2.Visible:=false;
reader.N5.Visible:=false;
reader.N8.Visible:=false;
reader.N9.Visible:=false;
reader.N10.Visible:=false;
reader.N12.Visible:=false;

end;
//admin.caption:='读者查询窗口';
if (edit1.text='admin') and (edit2.text='888')and radiobutton2.Checked then
begin
admin:=TMain.create(application);
admin.show;
end;

//reader:=TReaderForm.create(application);
//reader.caption:='管理员管理图书窗口';
//reader.show;

end;

procedure TLoginForm.Button2Click(Sender: TObject);
begin
close;
end;

end.