u_main.pas

repair repairrepairrepairrepair

unit u_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, jpeg, ExtCtrls, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB,
  DBCtrls;

type
  TF_main = class(TForm)
    Panel1: TPanel;
    b_quit: TBitBtn;
    Image1: TImage;
    SB_login: TSpeedButton;
    SB_query: TSpeedButton;
    SB_system: TSpeedButton;
    SB_logout: TSpeedButton;
    SB_input: TSpeedButton;
    SB_analyse: TSpeedButton;
    Label1: TLabel;
    StaticText1: TStaticText;
    StartMovie: TShockwaveFlash;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    GB_intro: TGroupBox;
    Memo1: TMemo;
    GB_login: TGroupBox;
    Label2: TLabel;
    i_server: TComboBox;
    Label3: TLabel;
    i_user: TEdit;
    Label4: TLabel;
    i_passwd: TEdit;
    B_login: TButton;
    GB_logined: TGroupBox;
    Label5: TLabel;
    o_name: TDBText;
    o_authority: TDBRadioGroup;
    procedure b_quitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure B_loginClick(Sender: TObject);
    procedure SB_loginClick(Sender: TObject);
    procedure SB_logoutClick(Sender: TObject);
    procedure SB_inputClick(Sender: TObject);
    procedure SB_queryClick(Sender: TObject);
    procedure SB_analyseClick(Sender: TObject);
    procedure SB_systemClick(Sender: TObject);
  private
    procedure ShowPanel(PanelID:SmallInt);
    procedure SetSB;
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_data, u_system, u_analyse, u_query, u_input;
{$R *.DFM}

procedure TF_main.ShowPanel(PanelID:SmallInt);
begin
  GB_intro.Visible:=False;
  GB_login.Visible:=False;
  GB_logined.Visible:=False;
  case PanelID of
    0: GB_intro.Visible:=True;
    1: GB_login.Visible:=True;
    2: GB_logined.Visible:=True;
  end;
end;

procedure TF_main.SetSB;
begin
  SB_login.Enabled:=(o_authority.ItemIndex<0);
  SB_logout.Enabled:=(o_authority.ItemIndex>=0);
  SB_query.Enabled:=(o_authority.ItemIndex>=0);
  SB_input.Enabled:=(o_authority.ItemIndex>=1);
  SB_analyse.Enabled:=(o_authority.ItemIndex>=1);
  SB_system.Enabled:=(o_authority.ItemIndex>=2);
end;

procedure TF_main.b_quitClick(Sender: TObject);
begin
  Close;
end;

procedure TF_main.FormShow(Sender: TObject);
begin
  StartMovie.Movie:=ExtractFilePath(Paramstr(0))+'images/start.swf';
  StartMovie.Play;
  Timer1.Enabled:=True;
  ShowPanel(0);
  SetSB;
end;

procedure TF_main.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=False;
  StartMovie.Stop;
  StartMovie.Hide;
end;

procedure TF_main.B_loginClick(Sender: TObject);
begin
  if DM_main.Login(i_server.Text, i_user.Text, i_passwd.Text) then
  begin
    ShowPanel(2);
    SetSB;
  end
  else
    Application.MessageBox('请确认用户名和密码！', '认证失败', MB_OK);
end;

procedure TF_main.SB_loginClick(Sender: TObject);
begin
  ShowPanel(1);
end;

procedure TF_main.SB_logoutClick(Sender: TObject);
begin
  DM_main.Logout;
  ShowPanel(1);
  SetSB;
  i_passwd.Text:='';
end;

procedure TF_main.SB_inputClick(Sender: TObject);
begin
  F_input.Show;
end;

procedure TF_main.SB_queryClick(Sender: TObject);
begin
  F_query.Show;
end;

procedure TF_main.SB_analyseClick(Sender: TObject);
begin
  F_analyse.Show;
end;

procedure TF_main.SB_systemClick(Sender: TObject);
begin
  F_system.Show;
end;

end.