inv300_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Inv300_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_03, dxExEdtr, Buttons, StdCtrls, wwdbdatetimepicker,
  ActnList, DB, ADODB, Menus, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls,
  ComCtrls, ToolWin;

type
  TInv300_01Form = class(TBas200_03Form)
    lblWhs: TLabel;
    cbWhs: TComboBox;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    sbSearch: TSpeedButton;
    ADOQuery1I150_001: TAutoIncField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1I150_004: TWideStringField;
    ADOQuery1I140_003: TWideStringField;
    ADOQuery1FOpen: TFloatField;
    ADOQuery1FIn: TFloatField;
    ADOQuery1FOut: TFloatField;
    ADOQuery1FBalance: TFloatField;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1I150_004: TdxDBGridColumn;
    dxDBGrid1I140_003: TdxDBGridColumn;
    dxDBGrid1FOpen: TdxDBGridMaskColumn;
    dxDBGrid1FIn: TdxDBGridMaskColumn;
    dxDBGrid1FOut: TdxDBGridMaskColumn;
    dxDBGrid1FBalance: TdxDBGridMaskColumn;
    adsLists: TADODataSet;
    adsListsFNo: TIntegerField;
    adsListsFName: TStringField;
    adsListsFParent: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure dxDBGrid1I150_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Inv300_01Form: TInv300_01Form;

implementation

uses SYSDATA, CommFun, InvComm, Inv310_01;

{$R *.dfm}

procedure TInv300_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('INV30001001');  //仓库状况查询
  lblWhs.Caption:=GetDBString('INV30001002');  //仓库
  lblDate.Caption:=GetDBString('INV30001003');  //日期
  sbSearch.Caption:=GetDBString('INV30001004');  //查询
  ADOQuery1.FieldByName('I150_002').DisplayLabel:=GetDBString('INV30001005');  //料品编号
  ADOQuery1.FieldByName('I150_003').DisplayLabel:=GetDBString('INV30001006');  //料品名称
  ADOQuery1.FieldByName('I140_003').DisplayLabel:=GetDBString('INV30001007');  //计量单位
  ADOQuery1.FieldByName('FOpen').DisplayLabel:=GetDBString('INV30001008');  //期初数量
  ADOQuery1.FieldByName('FIn').DisplayLabel:=GetDBString('INV30001009');  //入库数量
  ADOQuery1.FieldByName('FOut').DisplayLabel:=GetDBString('INV30001010');  //出库数量
  ADOQuery1.FieldByName('FBalance').DisplayLabel:=GetDBString('INV30001011');  //库存数量
end;

procedure TInv300_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  inherited;
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  //取得所有仓库库位列表
  adsLists.Close;
  adsLists.CreateDataSet;
  GetAllWhs(adsLists,cbWhs);
  sbSearch.Click;
end;

procedure TInv300_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  adsLists.Close;
end;

procedure TInv300_01Form.sbSearchClick(Sender: TObject);
var
  AWhsNo,ALocNo:Integer;
  AFromDate,AToDate:TDateTime;
begin
  inherited;
  if adsLists.IsEmpty then Exit;
  adsLists.Locate('FName',cbWhs.Text,[]);
  AWhsNo:=adsLists.FieldByName('FNo').AsInteger;
  ALocNo:=0;
  if AWhsNo<0 then
    AWhsNo:=AWhsNo*-1
  else if AWhsNo>0 then
  begin
    ALocNo:=AWhsNo;
    AWhsNo:=0;
  end;
  if (edtFromDate.Text='') or (edtToDate.Text='') then
  begin
    ShowMsg('UMS10000319');  //起止日期不可为空
    if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
    Abort;
  end;
  if edtFromDate.Date>edtToDate.Date then
  begin
    ShowMsg('UMS10000320');  //结束日期不能小于起始日期
    edtToDate.SetFocus;
    Abort;
  end;
  AFromDate:=edtFromDate.Date;
  AToDate:=edtToDate.Date;

  //取得所有物料的出入数量及库存数量
  GetAllItemInvBalance(ADOQuery1,AWhsNo,ALocNo,AFromDate,AToDate);
  ARecordCount:=GetDataSetCount(ADOQuery1);
end;

procedure TInv300_01Form.dxDBGrid1I150_002DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AColor:=clWhite;
  AText:=GetDBString('COM00004002')+IntToStr(ARecordCount);  //记录总数：
end;

procedure TInv300_01Form.BrowseEvent;
var
  AWhsNo,AItemNo:Integer;
  AFromDate,AToDate:TDateTime;
begin
  inherited;
  if adsLists.IsEmpty then Exit;
  adsLists.Locate('FName',cbWhs.Text,[]);
  AWhsNo:=adsLists.FieldByName('FNo').AsInteger;
  AItemNo:=ADOQuery1.FieldByName('I150_001').AsInteger;
  AFromDate:=edtFromDate.Date;
  AToDate:=edtToDate.Date;
  Inv310_01Form:=TInv310_01Form.Create(Application);
  Inv310_01Form.OpenData(AWhsNo,AItemNo,AFromDate,AToDate);
  Inv310_01Form.ShowModal;
end;

procedure TInv300_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

initialization
  RegisterClass(TInv300_01Form);

finalization
  UnRegisterClass(TInv300_01Form);

end.