unitinstocklist.pas

仓储系统

unit UnitInStockList;

interface

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

type
  TfrmInStockList = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    ds_CgRk: TDataSource;
    ADOQuery_sql: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInStockList: TfrmInStockList;

implementation

uses UnitDm;

{$R *.dfm}

procedure TfrmInStockList.FormShow(Sender: TObject);
var
  str:string;
begin
  str:=' select b.mate_code as 物料编码,b.mate_name as 物料名称,b.mate_type as 规格型号,                     '+
       '      a.In_date as 入库日期,a.In_Amount as  入库数量,a.In_Price as 入库单价,a.In_Post as 过帐标志,   '+
       '      c.Gys_name as 供应商,                                                                          '+
       '      d.Dept_name as 部门名称,                                                                       '+
       '      e.Storeroom_name as 库房名称,                                                                  '+
       '      f.StorePlace_name as 库位名称,                                                                 '+
       '      g.InOut_ClassName as 出入库类别名称,                                                           '+
       '      a.In_man as 经手人,a.Exam_man as 检验人,a.Oper_id as 制单人                                    '+
       '   from mate_CgRk a                                                                                  '+
       ' left outer join mate_basic b on a.mate_code=b.mate_code                                             '+
       ' left outer join GysArchives c on a.Gys=c.Gys_code                                                   '+
       ' left outer join Department d on a.Dept_id=d.Dept_id                                                 '+
       ' left outer join StoreRoom e on a.KfNo=e.Storeroom_zip                                               '+
       ' left outer join Storeposition f on a.KfNo+a.KwNo=f.Storeroom_zip+f.Storeplace_zip                   '+
       ' left outer join InOutClass g on a.In_Type=g.InOut_ClassNo     ' ;
  with ADOQuery_sql do
  begin
    close;
    sql.clear;
    sql.add(str);
    open;
  end;
end;

procedure TfrmInStockList.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

end.