untgoodsorder.~pas

数据库实习个人作品

unit untGoodsOrder;

interface

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

type
  TfrmGoodsOrder = class(TForm)
    MainMenu: TMainMenu;
    miCustOrder: TMenuItem;
    miAccAmount: TMenuItem;
    N5: TMenuItem;
    miOutStock: TMenuItem;
    miInStock: TMenuItem;
    tbGoodsOrder: TToolBar;
    imgGoodsOrder: TImageList;
    sbGoodsOrder: TStatusBar;
    miExit: TMenuItem;
    miCustList: TMenuItem;
    miStockList: TMenuItem;
    miInStockList: TMenuItem;
    miOutStockList: TMenuItem;
    miCustStat: TMenuItem;
    miStockStat: TMenuItem;
    miInStockStat: TMenuItem;
    miOutStockStat: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    btnCustOrder: TToolButton;
    btnAccAmount: TToolButton;
    ToolButton3: TToolButton;
    btnOutStock: TToolButton;
    btnInStock: TToolButton;
    ToolButton6: TToolButton;
    btnExit: TToolButton;
    N4: TMenuItem;
    About: TMenuItem;
    Help: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure miCustOrderClick(Sender: TObject);
    procedure miExitClick(Sender: TObject);
    procedure miAccAmountClick(Sender: TObject);
    procedure miOutStockClick(Sender: TObject);
    procedure miInStockClick(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure miCustListClick(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);
    procedure miOutStockStatClick(Sender: TObject);
  private
    procedure StatusHint(Sender:TObject);
  public
    { Public declarations }
  end;

var
  frmGoodsOrder: TfrmGoodsOrder;

implementation

uses untCustOrder,untAccAmount,untOutStock, untInStock, untAbout, untQuery,
  untStat;

{$R *.dfm}

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);
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.miExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmGoodsOrder.miAccAmountClick(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.ShowModal;
    frmOutStock.Execute;
  finally
    frmOutStock.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.AboutClick(Sender: TObject);
var
  AboutBox : TAboutBox;
begin
  AboutBox := TAboutBox.Create(Application);
  AboutBox.ShowModal;
end;

procedure TfrmGoodsOrder.miCustListClick(Sender: TObject);
var
  frmQuery: TfrmQuery;
begin
  frmQuery := TfrmQuery.Create(Application);
  try
    frmQuery.Execute('Cust');
  finally
    frmQuery.Free;
  end;
end;

procedure TfrmGoodsOrder.miStockListClick(Sender: TObject);
var
  frmQuery: TfrmQuery;
begin
  frmQuery := TfrmQuery.Create(Application);
  try
    frmQuery.Execute('Stock');
  finally
    frmQuery.Free;
  end;
end;

procedure TfrmGoodsOrder.miInStockListClick(Sender: TObject);
var
  frmQuery: TfrmQuery;
begin
  frmQuery := TfrmQuery.Create(Application);
  try
    frmQuery.Execute('InStock');
  finally
    frmQuery.Free;
  end;
end;

procedure TfrmGoodsOrder.miOutStockListClick(Sender: TObject);
var
  frmQuery: TfrmQuery;
begin
  frmQuery := TfrmQuery.Create(Application);
  try
    frmQuery.Execute('OutStock');
  finally
    frmQuery.Free;
  end;
end;

procedure TfrmGoodsOrder.miCustStatClick(Sender: TObject);
var
  frmStat: TfrmStat;
begin
  frmStat := TfrmStat.Create(Application);
  frmStat.ShowModal;
end;

procedure TfrmGoodsOrder.miStockStatClick(Sender: TObject);
var
  frmStat: TfrmStat;
begin
  frmStat := TfrmStat.Create(Application);
  frmStat.ShowModal;
end;

procedure TfrmGoodsOrder.miInStockStatClick(Sender: TObject);
var
  frmStat: TfrmStat;
begin
  frmStat := TfrmStat.Create(Application);
  frmStat.ShowModal;
end;

procedure TfrmGoodsOrder.miOutStockStatClick(Sender: TObject);
var
  frmStat: TfrmStat;
begin
  frmStat := TfrmStat.Create(Application);
  frmStat.ShowModal;
end;

end.