bomexp.pas

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

unit BomExp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, StdCtrls, ExtCtrls, ComCtrls,
  ToolWin;

type
  TfrmBomExp = class(TForm)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    QurOutput: TADOQuery;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    btnFresh: TToolButton;
    ToolButton2: TToolButton;
    btnNew: TToolButton;
    btnEdit: TToolButton;
    btnDelete: TToolButton;
    ToolButton6: TToolButton;
    ToolButton3: TToolButton;
    btnExit: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    BtnOut: TToolButton;
    btnPrint: TToolButton;
    ToolButton4: TToolButton;
    procedure Edit1Change(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnFreshClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BtnOutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBomExp: TfrmBomExp;

implementation

uses database, BomInput, MyMath;

{$R *.dfm}

procedure TfrmBomExp.Edit1Change(Sender: TObject);
begin
  QurOutput.Close;
  QurOutput.SQL.Clear;
  QurOutput.SQL.Add('select * from 仓库信息 where 物品编码 like ''%'+Edit1.text+'%'' '
  +' or 物品名称 like ''%'+Edit1.text+'%'' or 物品单价 like ''%'+Edit1.text+'%'' '
  +' or 物品数量 like ''%'+Edit1.text+'%''    '    );
  QurOutput.open;
end;

procedure TfrmBomExp.btnNewClick(Sender: TObject);
begin
  if assigned(FrmBomInput)=false then
    FrmBomInput:=TFrmBomInput.Create(self);
  FrmBomInput.FormStyle:=fsMDIChild;
  FrmBomInput.Show;
  FrmBomInput.iniBom;
  FrmBomInput.BringToFront;
end;

procedure TfrmBomExp.btnEditClick(Sender: TObject);
begin
  if assigned(FrmBomInput)=false then
    FrmBomInput:=TFrmBomInput.Create(self);
  FrmBomInput.FormStyle:=fsMDIChild;
  FrmBomInput.Show;
  FrmBomInput.EditBom(QurOutput.fieldbyname('数据编码').Value);
  FrmBomInput.BringToFront;
end;

procedure TfrmBomExp.btnFreshClick(Sender: TObject);
begin
  edit1.clear;
  QurOutput.Close;
  quroutput.SQL.Clear;
  quroutput.SQL.Add('select 数据编码,物品编码,物品名称,物品单价,物品数量,(物品单价*物品数量) as 金额 from 仓库信息');
  quroutput.Open;
end;

procedure TfrmBomExp.btnDeleteClick(Sender: TObject);
begin
  if QueryDlg('确定删除物品<'+quroutput.FieldByName('物品名称').AsString+'>?')=false then exit;
  if not quroutput.IsEmpty then quroutput.Delete;
end;

procedure TfrmBomExp.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmBomExp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmBomExp:=Nil;
  Action:=Cafree;
end;

procedure TfrmBomExp.FormShow(Sender: TObject);
begin
  btnFreshClick(Sender);
  frmbomexp.Height:=464;
  frmbomexp.Width:=628;
  frmbomexp.Top:=0;
  frmbomexp.Left:=0;
end;

procedure TfrmBomExp.BtnOutClick(Sender: TObject);
begin
  ExPortEh(DBGridEh1);
end;

end.