mainmenu.~pas

是一款针对啤酒行业的销售进销存管理系统,包括基本的进货,销售,库存

unit MainMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus, XPStyleActnCtrls,
  ActnList, ImgList, ComCtrls, ExtCtrls, StdStyleActnCtrls, ActnColorMaps,
  DB, ADODB, XpButton;

type
  TMain = class(TForm)
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    ActionToolBar1: TActionToolBar;
    provider_info: TAction;
    StatusBar1: TStatusBar;
    XPColorMap1: TXPColorMap;
    XPColorMap2: TXPColorMap;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Terminal_info: TAction;
    Goods_info: TAction;
    area_info: TAction;
    provider_find: TAction;
    stock_Find: TAction;
    Data_backup: TAction;
    Data_Disk: TAction;
    System_Quit: TAction;
    Stock: TAction;
    provider_out: TAction;
    office_out: TAction;
    returnLidx: TAction;
    returnBottlex: TAction;
    traderTotal: TAction;
    profitTotal: TAction;
    StorePD: TAction;
    saleReport: TAction;
    saleOrder: TAction;
    Clerk: TAction;
    ReturnPay: TAction;
    returnLidFindx: TAction;
    returnBottleFindx: TAction;
    returnPayFindx: TAction;
    Terminal_sale: TAction;
    procedure provider_infoExecute(Sender: TObject);
    procedure System_QuitExecute(Sender: TObject);
    procedure Terminal_infoExecute(Sender: TObject);
    procedure area_infoExecute(Sender: TObject);
    procedure Goods_infoExecute(Sender: TObject);
    procedure StockExecute(Sender: TObject);
    procedure provider_outExecute(Sender: TObject);
    procedure returnLidxExecute(Sender: TObject);
    procedure returnBottlexExecute(Sender: TObject);
    procedure provider_findExecute(Sender: TObject);
    procedure stock_FindExecute(Sender: TObject);
    procedure StorePDExecute(Sender: TObject);
    procedure traderTotalExecute(Sender: TObject);
    procedure profitTotalExecute(Sender: TObject);
    procedure saleReportExecute(Sender: TObject);
    procedure saleOrderExecute(Sender: TObject);
    procedure ClerkExecute(Sender: TObject);
    procedure ReturnPayExecute(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure office_outExecute(Sender: TObject);
    procedure Terminal_saleExecute(Sender: TObject);
  private
    { Private declarations }
    procedure WMPaint(var m:TWMPaint);message WM_paint;
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

{$R *.dfm}
uses Provider_T,Terminate,AreaInfo,ProductInfo,StockInfo1,Sale_providerInfo,
returnLidInfo,returnBottleInfo,TraderFindInfo,StockFindInfo,StorePileInfo,
AreaTotalInfo,ProviderProfitInfo,saleTotalInfo,saleListInfo,clerkInInfo,
returnPayInfo,saleTerminal,TerminalFindInfo;
procedure TMain.WMPaint(var m:TWMPaint);
var
    DC : HDC;
    OldPen : HPen;
    Pen : HPen;
    OldBrush : HBrush;
begin
   //
  inherited;
  DC := GetWindowDC(Handle);
  Pen := CreatePen(PS_SOLID,1,$00AD7539);
  OldBrush := SelectObject(DC,GetStockObject(NULL_BRUSH));
  OldPen := SelectObject(DC,Pen);
  Rectangle(DC,0,0,Self.Width,Self.Height);
  SelectObject(DC,OldPen);
  SelectObject(DC,OldBrush);
  DeleteObject(Pen);
  ReleaseDC(Handle,DC);
end;
procedure TMain.provider_infoExecute(Sender: TObject);
begin
      Provider_Two:=TProvider_Two.Create(Application);
      Provider_Two.ShowModal;
end;

procedure TMain.System_QuitExecute(Sender: TObject);
begin
   Application.Terminate; 
end;

procedure TMain.Terminal_infoExecute(Sender: TObject);
begin
      terminal_inf:=Tterminal_inf.Create(Application); 
      terminal_inf.ShowModal; 
end;

procedure TMain.area_infoExecute(Sender: TObject);
begin
    areap:=Tareap.Create(Application); 
    areap.ShowModal; 
end;

procedure TMain.Goods_infoExecute(Sender: TObject);
begin
     Product:=TProduct.Create(Application);
     Product.ShowModal;

end;

procedure TMain.StockExecute(Sender: TObject);
begin
     Stock1.Showmodal;
end;

procedure TMain.provider_outExecute(Sender: TObject);
begin
     Sale_provider.ShowModal; 
end;

procedure TMain.returnLidxExecute(Sender: TObject);
begin
     returnLid:=TreturnLid.Create(Application); 
     returnLid.ShowModal;
end;

procedure TMain.returnBottlexExecute(Sender: TObject);
begin
     returnBottle:=TreturnBottle.Create(Application);
     returnBottle.ShowModal; 
end;

procedure TMain.provider_findExecute(Sender: TObject);
begin
     traderFind:=TtraderFind.Create(Application); 
     TraderFind.ShowModal;
end;

procedure TMain.stock_FindExecute(Sender: TObject);
begin
     Stockfind:=TStockFind.Create(Application); 
     StockFind.ShowModal;
end;

procedure TMain.StorePDExecute(Sender: TObject);
begin
     StorePile:=TStorePile.Create(Application);
     StorePile.ShowModal;
end;

procedure TMain.traderTotalExecute(Sender: TObject);
begin
     AreaTotal:=TAreaTotal.Create(Application);
     AreaTotal.ShowModal;
end;

procedure TMain.profitTotalExecute(Sender: TObject);
begin
     ProviderProfit:=TProviderProfit.create(Application);
     providerProfit.showmodal;
end;

procedure TMain.saleReportExecute(Sender: TObject);
begin
     saleTotal:=TsaleTotal.Create(Application);
     saleTotal.ShowModal;
end;

procedure TMain.saleOrderExecute(Sender: TObject);
begin
     saleList:=TsaleList.Create(Application);
     saleList.ShowModal;  
end;

procedure TMain.ClerkExecute(Sender: TObject);
begin
     clerkIn:=TclerkIn.Create(Application);
     clerkIn.ShowModal;
end;

procedure TMain.ReturnPayExecute(Sender: TObject);
begin
     returnPayin:=TreturnPayin.Create(Application);
     returnPayIn.ShowModal;  
end;

procedure TMain.FormPaint(Sender: TObject);
var
  bmp:TBitmap;
  CurrentPath:string;
begin
     bmp:=TBitmap.Create;
     CurrentPath:=extractFilepath(paramStr(0));
     //showmessage(currentpath);
     bmp.LoadFromFile(CurrentPath+'\skin3.bmp');
     main.Canvas.Draw(0,0,bmp); 
end;

procedure TMain.FormCreate(Sender: TObject);
begin
     main.left:=20;
     main.Top:=20;
     main.Width:=screen.Width;
     main.Height:=screen.Height;
end;

procedure TMain.office_outExecute(Sender: TObject);
begin
     sale_Terminal:=Tsale_Terminal.Create(Application);
     sale_Terminal.ShowModal;  
end;

procedure TMain.Terminal_saleExecute(Sender: TObject);
begin
     TerminalFind:=TterminalFind.Create(Application);
     TerminalFind.ShowModal;  
end;

end.