untgoodsorder.~pas

这是一个不错的数据库管理程序

unit untGoodsOrder;

interface

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

type
  TfrmGoodsOrder = class(TForm)
    MainMenu1: TMainMenu;
    ImgGoodsOrder: TImageList;
    sbGoodsOrder: TStatusBar;
    tbGoodsOrder: TToolBar;
    fgh1: TMenuItem;
    miCustOrder: TMenuItem;
    AccAmount: TMenuItem;
    N4: TMenuItem;
    miExit: TMenuItem;
    N6: TMenuItem;
    miOutStock: TMenuItem;
    miInStock: TMenuItem;
    N1: TMenuItem;
    miCustList: TMenuItem;
    miStockList: TMenuItem;
    miInStockList: TMenuItem;
    miOutStockList: TMenuItem;
    miCustStat: TMenuItem;
    miStockStat: TMenuItem;
    miInStockStat: TMenuItem;
    btnCustOrder: TToolButton;
    btnAccAmount: TToolButton;
    ToolButton3: TToolButton;
    btnOutStock: TToolButton;
    btnInStock: TToolButton;
    ToolButton6: TToolButton;
    btnExit: TToolButton;
    procedure FormCreate(Sender:Tobject);
    procedure miCustOrderClick(Sender: TObject);
    procedure miCustListClick(Sender: TObject);
    procedure miExitClick(Sender: TObject);
    procedure AccAmountClick(Sender: TObject);
    procedure miOutStockClick(Sender: TObject);
    procedure btnCustOrderClick(Sender: TObject);
    procedure btnAccAmountClick(Sender: TObject);
    procedure btnOutStockClick(Sender: TObject);
    procedure btnInStockClick(Sender: TObject);
    procedure miInStockClick(Sender: TObject);
    procedure miStockListClick(Sender: TObject);
    procedure miInStockListClick(Sender: TObject);
    procedure miOutStockListClick(Sender: TObject);
    procedure miCustStatClick(Sender: TObject);
    procedure miStockStatClick(Sender: TObject);
    procedure miInStockStatClick(Sender: TObject);
    

  private
        procedure StatusHint(Sender:Tobject);
    { Private declarations }
  public

    { Public declarations }
  end;

var
        frmGoodsOrder: TfrmGoodsOrder;

implementation

uses untCustOrder,untAccAmount,untInStock,untOutStock;
procedure TfrmGoodsOrder.StatusHint(Sender:TObject);
begin
        sbGoodsOrder.Panels[0].Text:=Application.Hint;
        sbGoodsOrder.Panels[1].Text:=FormatDateTime('YYYY-MM-DD',Now);
        sbGoodsOrder.Panels[2].Text:=FormatDateTime('HH:NN:SS',Now);
    {$R *.DFM}
end;
procedure TfrmGoodsOrder.FormCreate(Sender:Tobject);
begin
        Application.OnHint:=StatusHint;
end;

procedure TfrmGoodsOrder.miCustOrderClick(Sender: TObject);
var
        frmCustOrder:TfrmCustOrder;
begin
        frmCustOrder:=TfrmCustOrder.Create(Application);
        try
                frmCustOrder.Execute;
        finally
                frmCustOrder.Free;
        end;
       
end;

procedure TfrmGoodsOrder.miCustListClick(Sender: TObject);
begin
        ShowMessage('你选择了'+miCustList.Caption);
end;

procedure TfrmGoodsOrder.miExitClick(Sender: TObject);
begin
ShowMessage('再见');
close;
end;

procedure TfrmGoodsOrder.AccAmountClick(Sender: TObject);

var
        frmAccAmount:TfrmAccAmount;
begin
        frmAccAmount:=TfrmAccAmount.Create(Application);
        try
                frmAccAmount.Execute;
        finally
                frmAccAmount.Free;
        end;

end;

procedure TfrmGoodsOrder.miOutStockClick(Sender: TObject);
var
        frmOutStock:TfrmOutStock;
begin
        frmOutStock:=TfrmOutStock.Create(Application);
        try
                frmOutStock.Execute;
        finally
                frmOutStock.Free;
        end;

end;

procedure TfrmGoodsOrder.btnCustOrderClick(Sender: TObject);
var
        frmCustOrder:TfrmCustOrder;
begin
        frmCustOrder:=TfrmCustOrder.Create(Application);
        try
                frmCustOrder.Execute;
        finally
                frmCustOrder.Free;
        end;

end;

procedure TfrmGoodsOrder.btnAccAmountClick(Sender: TObject);
var
        frmAccAmount:TfrmAccAmount;
begin
        frmAccAmount:=TfrmAccAmount.Create(Application);
        try
                frmAccAmount.Execute;
        finally
                frmAccAmount.Free;
        end;
        end;
        

procedure TfrmGoodsOrder.btnOutStockClick(Sender: TObject);

var
        frmOutStock:TfrmOutStock;
begin
        frmOutStock:=TfrmOutStock.Create(Application);
        try
                frmOutStock.Execute;
        finally
                frmOutStock.Free;
        end;

end;

procedure TfrmGoodsOrder.btnInStockClick(Sender: TObject);
var
      frmInStock:  TfrmInStock;
begin
       frmInStock:=TfrmInStock.Create(Application);
        try
                frmInStock.Execute;
        finally
               frmInStock.Free;
end;
end;

procedure TfrmGoodsOrder.miInStockClick(Sender: TObject);
var
      frmInStock:  TfrmInStock;
begin
       frmInStock:=TfrmInStock.Create(Application);
        try
                frmInStock.Execute;
        finally
               frmInStock.Free;
end;
end;
procedure TfrmGoodsOrder.miStockListClick(Sender: TObject);
begin
ShowMessage('你选择了'+miStockList.Caption);
end;

procedure TfrmGoodsOrder.miInStockListClick(Sender: TObject);
begin
ShowMessage('你选择了'+miInStockList.Caption);
end;

procedure TfrmGoodsOrder.miOutStockListClick(Sender: TObject);
begin
ShowMessage('你选择了'+miOutStockList.Caption);
end;

procedure TfrmGoodsOrder.miCustStatClick(Sender: TObject);
begin
ShowMessage('你选择了'+miCustStat.Caption);
end;

procedure TfrmGoodsOrder.miStockStatClick(Sender: TObject);
begin
ShowMessage('你选择了'+miStockStat.Caption);
end;

procedure TfrmGoodsOrder.miInStockStatClick(Sender: TObject);
begin
ShowMessage('你选择了'+miInStockStat.Caption);
end;



end.