umain.~pas

来自「DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.」· ~PAS 代码 · 共 571 行

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, StdCtrls, ComCtrls, ToolWin, CheckLst, Buttons,
  ActnList,ShellApi;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    PLU1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    PLU2: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    Splitter1: TSplitter;
    ScrollBox1: TScrollBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    baseinfo: TPanel;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    stocks: TPanel;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    whsales: TPanel;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton25: TSpeedButton;
    reports: TPanel;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    system: TPanel;
    SpeedButton33: TSpeedButton;
    SpeedButton34: TSpeedButton;
    SpeedButton35: TSpeedButton;
    stockage: TPanel;
    ToolBar1: TToolBar;
    procedure FormCreate(Sender: TObject);
    procedure Splitter1Moved(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SpeedButton35Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
  private
    { Private declarations }
  public
     arrpopdem:array[1..27] of boolean;
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation

uses Ufiliale, Uprkind, Uprinfo, Uemp, Uclient, Uprovid, Ubusary, Ubook,
  Ustockin, Urefund, Uprsettle, Uwholesale, Uwhref, Uclientset, Uprstorage,
  Uprlack, Uredeploy, Ucheck, Urecloss, Uplusale, Udeptsale, Usalesman,
  Udaliysale, Udataprot, Umodpass, Upopedomset, Ulogin, Ustatistic, uabout;

{$R *.dfm}

procedure Tfrmmain.FormCreate(Sender: TObject);
var
  ayear,amonth,adate:word;
begin
  decodedate(date,ayear,amonth,adate);
  label3.Caption:=inttostr(ayear)+'年'+inttostr(amonth)+'月'+inttostr(adate)+'日 ';
end;

procedure Tfrmmain.Splitter1Moved(Sender: TObject);
begin
  panel1.Left:=splitter1.Left+2;
end;

procedure Tfrmmain.SpeedButton1Click(Sender: TObject);
begin
  baseinfo.Visible:=true;
  reports.Visible:=false;
  stockage.Visible:=false;
  system.Visible:=false;
  whsales.Visible:=false;
  stocks.Visible:=false;
end;

procedure Tfrmmain.SpeedButton2Click(Sender: TObject);
begin
  baseinfo.Visible:=false;
  reports.Visible:=false;
  stockage.Visible:=false;
  system.Visible:=false;
  whsales.Visible:=false;
  stocks.Visible:=true;
end;

procedure Tfrmmain.SpeedButton3Click(Sender: TObject);
begin
  baseinfo.Visible:=false;
  reports.Visible:=false;
  stockage.Visible:=false;
  system.Visible:=false;
  whsales.Visible:=true;
  stocks.Visible:=false;
end;

procedure Tfrmmain.SpeedButton4Click(Sender: TObject);
begin
  baseinfo.Visible:=false;
  reports.Visible:=false;
  stockage.Visible:=true;
  system.Visible:=false;
  whsales.Visible:=false;
  stocks.Visible:=false;
end;

procedure Tfrmmain.SpeedButton5Click(Sender: TObject);
begin
  baseinfo.Visible:=false;
  reports.Visible:=true;
  stockage.Visible:=false;
  system.Visible:=false;
  whsales.Visible:=false;
  stocks.Visible:=false;
end;

procedure Tfrmmain.SpeedButton6Click(Sender: TObject);
begin
  baseinfo.Visible:=false;
  reports.Visible:=false;
  stockage.Visible:=false;
  system.Visible:=true;
  whsales.Visible:=false;
  stocks.Visible:=false;
end;

procedure Tfrmmain.SpeedButton7Click(Sender: TObject);
begin
  if arrpopdem[1]  then
  begin
    Application.CreateForm(Tfrmfiliale, frmfiliale);
    frmfiliale.ShowModal;
    frmfiliale.Release;
  end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton8Click(Sender: TObject);
begin
  if arrpopdem[2] then
  begin
    Application.CreateForm(Tfrmprkind, frmprkind);
    frmprkind.ShowModal;
    frmprkind.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton9Click(Sender: TObject);
begin
  if arrpopdem[3] then
  begin
    Application.CreateForm(Tfrmprinfo, frmprinfo);
    frmprinfo.ShowModal;
    frmprinfo.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton10Click(Sender: TObject);
begin
  if arrpopdem[4] then
  begin
    Application.CreateForm(Tfrmemp, frmemp);
    frmemp.ShowModal;
    frmemp.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton11Click(Sender: TObject);
begin
  if arrpopdem[5] then
  begin
    Application.CreateForm(Tfrmclient, frmclient);
    frmclient.ShowModal;
    frmclient.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton12Click(Sender: TObject);
begin
  if arrpopdem[7] then
  begin
    Application.CreateForm(Tfrmprovid, frmprovid);
    frmprovid.ShowModal;
    frmprovid.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton13Click(Sender: TObject);
begin
  if arrpopdem[6] then
  begin
    Application.CreateForm(Tfrmbusary, frmbusary);
    frmbusary.ShowModal;
    frmbusary.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton14Click(Sender: TObject);
begin
  if arrpopdem[8] then
  begin
    Application.CreateForm(Tfrmbook, frmbook);
    frmbook.ShowModal;
    frmbook.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton15Click(Sender: TObject);
begin
  if arrpopdem[9] then
  begin
    Application.CreateForm(Tfrmstockin, frmstockin);
    frmstockin.Showmodal;
    frmstockin.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton16Click(Sender: TObject);
begin
  if arrpopdem[10] then
  begin
    Application.CreateForm(Tfrmrefund, frmrefund);
    frmrefund.ShowModal;
    frmrefund.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton17Click(Sender: TObject);
begin
  if arrpopdem[11] then
  begin
    application.CreateForm(tfrmprsettle,frmprsettle);
    frmprsettle.ShowModal;
    frmprsettle.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton18Click(Sender: TObject);
begin
  if arrpopdem[12] then
  begin
    application.CreateForm(tfrmwholesale,frmwholesale);
    frmwholesale.ShowModal;
    frmwholesale.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton19Click(Sender: TObject);
begin
  if arrpopdem[13] then
  begin
    Application.CreateForm(Tfrmwhref, frmwhref);
    frmwhref.ShowModal;
    frmwhref.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton20Click(Sender: TObject);
begin
  if arrpopdem[14] then
  begin
    Application.CreateForm(Tfrmclientset, frmclientset);
    frmclientset.ShowModal;
    frmclientset.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton21Click(Sender: TObject);
begin
  if arrpopdem[18] then
  begin
    Application.CreateForm(Tfrmprstorage, frmprstorage);
    frmprstorage.ShowModal;
    frmprstorage.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton22Click(Sender: TObject);
begin
  if arrpopdem[19] then
  begin
    Application.CreateForm(Tfrmprlack, frmprlack);
    frmprlack.ShowModal;
    frmprlack.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton23Click(Sender: TObject);
begin
  if arrpopdem[15] then
  begin
    Application.CreateForm(Tfrmredeploy, frmredeploy);
    frmredeploy.ShowModal;
    frmredeploy.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton24Click(Sender: TObject);
begin
  if arrpopdem[16] then
  begin
    Application.CreateForm(Tfrmcheck, frmcheck);
    frmcheck.ShowModal;
    frmcheck.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton25Click(Sender: TObject);
begin
  if arrpopdem[17] then
  begin
    Application.CreateForm(Tfrmrecloss, frmrecloss);
    frmrecloss.ShowModal;
    frmrecloss.Release;
     end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton27Click(Sender: TObject);
begin
  if arrpopdem[21] then
  begin
    Application.CreateForm(Tfrmplusale, frmplusale);
    frmplusale.ShowModal;
    frmplusale.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton26Click(Sender: TObject);
begin
  if arrpopdem[20] then
  begin
    Application.CreateForm(Tfrmdeptsale, frmdeptsale);
    frmdeptsale.ShowModal;
    frmdeptsale.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton29Click(Sender: TObject);
begin
  if arrpopdem[22] then
  begin
    application.CreateForm(tfrmsalesman,frmsalesman);
    frmsalesman.ShowModal;
    frmsalesman.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);
end;

procedure Tfrmmain.SpeedButton28Click(Sender: TObject);
begin
  if arrpopdem[23] then
  begin
    Application.CreateForm(Tfrmdaliysale, frmdaliysale);
    frmdaliysale.ShowModal;
    frmdaliysale.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton33Click(Sender: TObject);
begin
  if arrpopdem[25] then
  begin
    Application.CreateForm(Tfrmdataprot, frmdataprot);
    frmdataprot.ShowModal;
    frmdataprot.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton34Click(Sender: TObject);
begin
  if arrpopdem[27] then
  begin
    Application.CreateForm(Tfrmmodpass, frmmodpass);
    frmmodpass.ShowModal;
    frmmodpass.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton35Click(Sender: TObject);
begin
  if arrpopdem[26] then
  begin
    Application.CreateForm(Tfrmpopedomset, frmpopedomset);
    frmpopedomset.ShowModal;
    frmpopedomset.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.SpeedButton30Click(Sender: TObject);
begin
  if arrpopdem[24] then
  begin
    application.CreateForm(Tfrmstatistic,frmstatistic);
    frmstatistic.ShowModal;
    frmstatistic.Release;
   end
  else
    messagebox(0,'您没有该权限！','提示',0);  
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
  application.CreateForm(tfrmlogin,frmlogin);
  frmlogin.ShowModal;
  frmlogin.Release;
end;

procedure Tfrmmain.N35Click(Sender: TObject);
begin
  ShellExecute(handle,'','HELP.CHM',nil, nil,SW_SHOW);
end;

procedure Tfrmmain.N34Click(Sender: TObject);
begin
  Application.CreateForm(Tfrmabout, frmabout);
  frmabout.ShowModal;
  frmabout.Release;
end;

end.