unit1.pas

来自「本文件为使用Delphi开发的学生信息管理系统,演示了如何使用BDE来开发数据库」· PAS 代码 · 共 78 行

unit Unit1;

interface

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

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    btnsearch: TButton;
    Label2: TLabel;
    Panel3: TPanel;
    btnmaint: TButton;
    Label3: TLabel;
    Panel4: TPanel;
    btnselecourse: TButton;
    Animate1: TAnimate;
    BitBtn1: TBitBtn;
    Panel5: TPanel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure btnsearchClick(Sender: TObject);
    procedure btnmaintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnselecourseClick(Sender: TObject);
  private
    { Private declarations }
  public
    count:integer; //纪录用户登录的次数
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses query, Unit3, upws, uSeleCourse;//引用别的模块单元文件

{$R *.dfm}

procedure TfrmMain.btnsearchClick(Sender: TObject);
begin
  frmsearch.Show; //显示学生信息查询窗体
end;

//显示系统维护窗体
procedure TfrmMain.btnmaintClick(Sender: TObject);
begin
  if count>=3 then //如果登录次数大于3次，则退出
  begin
   showmessage('你没有进入系统的权限');
   exit;
  end
  else
   begin
   //合法用户，则显示系统维护窗体
    if passworddlg.ShowModal=mrok then
    frmmaint.Show;
   end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
 count:=0; //初始化统计次数全局变量
end;

procedure TfrmMain.btnselecourseClick(Sender: TObject);
begin
   frmselecourse.Show;//显示选课窗体
end;

end.