main.pas

随着计算机的日益普及

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList, ExtCtrls, StdActns, ActnList;

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    M_System: TMenuItem;
    M_Login: TMenuItem;
    M_Loginout: TMenuItem;
    M_Separator: TMenuItem;
    M_Pass_Modify: TMenuItem;
    M_Quit: TMenuItem;
    M_Quality: TMenuItem;
    M_analyse: TMenuItem;
    M_Help: TMenuItem;
    M_Product_Analyse: TMenuItem;
    M_Produce_Analyse: TMenuItem;
    M_Materials_Quality: TMenuItem;
    M_Product_Quality: TMenuItem;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure M_LoginClick(Sender: TObject);
    procedure M_Materials_QualityClick(Sender: TObject);
    procedure M_QuitClick(Sender: TObject);
    procedure M_LoginoutClick(Sender: TObject);
    procedure M_Product_QualityClick(Sender: TObject);
    procedure M_Product_AnalyseClick(Sender: TObject);
    procedure M_Produce_AnalyseClick(Sender: TObject);
    procedure M_HelpClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  MainFrm: TMainFrm;

implementation
   uses Login,DataModule,Materials_Quality,Product_Quality,Product_Analyse,AboutBox;
{$R *.dfm}



procedure TMainFrm.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[2].Text:=DateTimeToStr(Now);
end;

procedure TMainFrm.M_LoginClick(Sender: TObject);
begin
  DM.UserDS.Enabled:=true;
  Application.CreateForm(TLoginFrm,LoginFrm);
  LoginFrm.ShowModal;
  if LoginFrm.Login then
    begin
    StatusBar1.Panels[1].Text:='登录用户：'+LoginFrm.User;
    end;
end;

procedure TMainFrm.M_Materials_QualityClick(Sender: TObject);
begin
  Application.CreateForm(TMaterials_QualityFrm,Materials_QualityFrm);
  Materials_QualityFrm.Show;
  DM.AQ_Materials_QualityDS.Enabled:=true;
  DM.AT_Materials_QualityDS.Enabled:=true;
end;

procedure TMainFrm.M_QuitClick(Sender: TObject);
begin
  MainFrm.Close;
end;

procedure TMainFrm.M_LoginoutClick(Sender: TObject);
begin
  DM.UserDS.Enabled:=false;
  StatusBar1.Panels[1].Text:='尚未登录,请按F2登录！';
end;

procedure TMainFrm.M_Product_QualityClick(Sender: TObject);
begin
  Application.CreateForm(TProduct_QualityFrm,Product_QualityFrm);
  Product_QualityFrm.Show;
end;

procedure TMainFrm.M_Product_AnalyseClick(Sender: TObject);
begin
   Application.CreateForm(TProduct_AnalyseFrm,Product_AnalyseFrm);
   Product_AnalyseFrm.Show;
   Product_AnalyseFrm.RadioGroup1.ItemIndex:=0;
end;

procedure TMainFrm.M_Produce_AnalyseClick(Sender: TObject);
begin
  Application.CreateForm(TProduct_AnalyseFrm,Product_AnalyseFrm);
  Product_AnalyseFrm.Show;
  Product_AnalyseFrm.RadioGroup1.ItemIndex:=1;
end;

procedure TMainFrm.M_HelpClick(Sender: TObject);
begin
  Application.CreateForm(TABoxFrm,ABoxFrm);
  ABoxFrm.Show;
end;

end.