mmain.~pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit mmain;

interface

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

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    N18: TMenuItem;
    N20: TMenuItem;
    ToolButton10: TToolButton;
    N22: TMenuItem;
    N23: TMenuItem;
    BOM1: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N21: TMenuItem;
    N30: TMenuItem;
    StatusBar1: TStatusBar;
    N19: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure BOM1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    //procedure N19Click(Sender: TObject);

   
  private
    { Private declarations }
  public
    { Public declarations }
     procedure displayhint(Sender:Tobject);
  end;

var
  main: Tmain;

implementation

uses ttemplate, mmaterialmanager, clientinfo, providerinfo,
  mplan, amend, bom, order, stock, storage, CList, BList, PList, reportmm,
  rreportorder, reportstorage, Maintenance, datamodule;

{$R *.dfm}

procedure Tmain.N2Click(Sender: TObject);
begin
 F_Maintenance:=TF_Maintenance.Create(application);
  F_Maintenance.ShowModal;
  F_Maintenance.free;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
Application.CreateForm(Tf_amend, f_amend);
f_amend.showmodal;
end;

procedure Tmain.N7Click(Sender: TObject);
begin
materialmanager:=tmaterialmanager.Create(application);
materialmanager.show;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
f_clientinfo:=tf_clientinfo.create(application);
f_clientinfo.show;
end;

procedure Tmain.N12Click(Sender: TObject);
begin
f_providerinfo:=tf_providerinfo.Create(application);
f_providerinfo.show;
end;

procedure Tmain.N16Click(Sender: TObject);
begin
f_mplan:=tf_mplan.Create(application);
f_mplan.show;
end;





procedure Tmain.ToolButton1Click(Sender: TObject);
begin
 F_Maintenance:=TF_Maintenance.Create(application);
  F_Maintenance.ShowModal;
  F_Maintenance.free;
end;

procedure Tmain.ToolButton2Click(Sender: TObject);
begin
f_amend.show;
end;

procedure Tmain.ToolButton4Click(Sender: TObject);
begin

materialmanager:=tmaterialmanager.Create(application);
materialmanager.show;
end;

procedure Tmain.ToolButton7Click(Sender: TObject);
begin
f_clientinfo:=tf_clientinfo.create(application);
f_clientinfo.show;
end;

procedure Tmain.ToolButton9Click(Sender: TObject);
begin
f_providerinfo:=tf_providerinfo.Create(application);
f_providerinfo.show;
end;

procedure Tmain.N8Click(Sender: TObject);
begin
bomb:=tbomb.create(application);
bomb.show;
end;

procedure Tmain.N11Click(Sender: TObject);
begin
ordermanager:=tordermanager.create(application);
ordermanager.show;
end;

procedure Tmain.N17Click(Sender: TObject);
begin
sstock:=tsstock.create(application);
end;

procedure Tmain.N20Click(Sender: TObject);
begin
sstorage:=tsstorage.create(application);
end;

procedure Tmain.N23Click(Sender: TObject);
begin
f_clist.QuickRep1.Preview;
end;

procedure Tmain.BOM1Click(Sender: TObject);
begin
f_blist.QuickRep1.Preview;
end;

procedure Tmain.N24Click(Sender: TObject);
begin
f_plist.QuickRep1.Preview;
end;

procedure Tmain.N27Click(Sender: TObject);
begin
rreportmm.quickrep1.preview;
end;

procedure Tmain.N26Click(Sender: TObject);
begin
reportorder.quickrep1.preview;
end;

procedure Tmain.N29Click(Sender: TObject);
begin
rreportstorage.quickrep1.preview;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
close;
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
Application.OnHint:=DisplayHint;
  if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=0 then
   begin
          main.Caption:='main-您是系统管理员';
            end
              else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=1 then
               begin
               main.Caption:='main-您是普通用户';
               main.N2.Enabled:=false;
            end
            else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=2 then
            begin
            main.Caption:='main-您是浏览用户';
               main.N2.Enabled:=false;
            end
end;

//procedure Tmain.N19Click(Sender: TObject);
//begin
//form1.show;
//end;

procedure Tmain.displayhint(Sender:Tobject);
begin
  main.StatusBar1.SimpleText:=Application.Hint;
  //显示提示文本
  //Form1.StatusBar2.SimpleText:=DateToStr(Date);
  //显示当前日期
  //Form1.StatusBar3.SimpleText:=TimeToStr(Time);
  //显示当前时间
end;

procedure Tmain.N31Click(Sender: TObject);
begin
Winexec('CALC.EXE', sw_Normal);
end;

procedure Tmain.N32Click(Sender: TObject);
begin
Winexec('Notepad.exe', sw_Normal);
end;

end.