kaoqinmain.pas

在Dephi中可执行 多多支持

unit KaoQinMain;

interface

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

type
  TFormKaoQinMain = class(TForm)
    ButtonKaoQin: TButton;
    ButtonGongZi: TButton;
    ButtonJiBen: TButton;
    ButtonXiShu: TButton;
    procedure ButtonKaoQinClick(Sender: TObject);
    procedure ButtonGongZiClick(Sender: TObject);
    procedure ButtonJiBenClick(Sender: TObject);
    procedure ButtonXiShuClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormKaoQinMain: TFormKaoQinMain;

implementation

uses KaoQin, GongZi, JiBen, XiShu, Login;

{$R *.DFM}

procedure TFormKaoQinMain.ButtonKaoQinClick(Sender: TObject);
begin
   FormKaoQin.ShowModal;
end;

procedure TFormKaoQinMain.ButtonGongZiClick(Sender: TObject);
begin
   FormGongZi.ShowModal;
end;

procedure TFormKaoQinMain.ButtonJiBenClick(Sender: TObject);
begin
   FormJiBen.ShowModal;
end;

procedure TFormKaoQinMain.ButtonXiShuClick(Sender: TObject);
begin
   FormXiShu.ShowModal;
end;

procedure TFormKaoQinMain.FormShow(Sender: TObject);
begin
   FormLogin.ShowModal;
end;

procedure TFormKaoQinMain.FormActivate(Sender: TObject);
begin
    ButtonJiBen.Enabled:=False;
    ButtonKaoQin.Enabled:=False;
    ButtonGongZi.Enabled:=False;
    ButtonXiShu.Enabled:=False;
    If Login.QuanXian='geren' Then
       Begin
       ButtonJiBen.Enabled:=True;
       ButtonKaoQin.Enabled:=True;
       ButtonGongZi.Enabled:=True;
       ButtonXiShu.Enabled:=True;
       End
    Else If Login.QuanXian='renshi' Then
       Begin
       ButtonJiBen.Enabled:=True;
       ButtonKaoQin.Enabled:=True;
       End
    Else If Login.QuanXian='caiwu' Then
       Begin
       ButtonGongZi.Enabled:=True;
       ButtonXiShu.Enabled:=True;
       End;
end;

end.