comeinformunit.pas

来自「学生信息管理系统是使用DELPHI集成环境编写的一款软件」· PAS 代码 · 共 88 行

unit ComeInFormUnit;

interface

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

type
  TComeInForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    Label2: TLabel;
    Edit2: TEdit;
    Memo2: TMemo;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ComeInForm: TComeInForm;

implementation

uses UpDateDataModuleUnit, QueryDataModuleUnit, QueryFormUnit,
  DataUpdateFormUnit, PasswordFormUnit, MainFormUnit;

{$R *.dfm}

procedure TComeInForm.BitBtn1Click(Sender: TObject);
begin
  if(Edit1.Text='123')OR(Edit1.Text=Memo1.Lines.Text) then
  begin
    Application.CreateForm(TMainForm,MainForm);
    Application.CreateForm(TUpDateDataModule,UpDateDataModule);
    Application.CreateForm(TQueryDataModule,QueryDataModule);
    Application.CreateForm(TQueryForm,QueryForm);
    Application.CreateForm(TDataUpdateForm,DataUpdateForm);
    Application.CreateForm(TPasswordForm,PasswordForm);
    ComeInForm.Hide;
    Mainform.Show;
    end else begin
      ShowMessage('密码不正确！');
      ComeInForm.Close;
    end;
end;

procedure TComeInForm.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(application.GetNamePath+'aaa.mia');
Memo2.Lines.LoadFromFile(application.GetNamePath+'bbb.mia');
end;

procedure TComeInForm.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TComeInForm.BitBtn3Click(Sender: TObject);
begin
   if(Edit2.Text='999')OR(Edit2.Text=Memo2.Lines.Text) then
  begin
    Application.CreateForm(TMainForm,MainForm);

    Application.CreateForm(TQueryDataModule,QueryDataModule);
    Application.CreateForm(TQueryForm,QueryForm);
    
    Application.CreateForm(TPasswordForm,PasswordForm);
    ComeInForm.Hide;
    Mainform.Show;
    end else begin
      ShowMessage('密码不正确！');
      ComeInForm.Close;
    end;
end;

end.