inv_otheriohsum.pas

一个MRPII系统源代码版本

unit Inv_OtherIoHSum;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBCtrls,pr_PrintReportType;

Type
  TFrm_Inv_OtherIoHSum = Class(TFrm_Base_Qry)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GetData; Override;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    procedure initReport;Override;
  end;

var
  Frm_Inv_OtherIoHSum: TFrm_Inv_OtherIoHSum;

implementation

uses Inv_OtherIoHSum_C;

{$R *.DFM}
procedure TFrm_Inv_OtherIoHSum.initReport;
var
   i:integer;
   userName:string;
begin
  inherited;
  with AdoQry_tmp do
  begin
    Close;
    sql.Text:='select * from Employee where EmployeeCode='''+userCode+'''';
    open;
    userName:=fieldbyname('EmployeeName').asstring;
  end;
  if Param1='0299' then
  begin
    ExtprintReport.PAperType:=ptA3;
    {
    for i:=3 to dbgrideh.Columns.Count-1 do
    begin
      ExtPrintReport.Headers[i-2].sum:=True;
      ExtPrintReport.Headers[i-2].style:=dSconcise;
    end;
    }
  end
  else if Param1='0199' then
    ExtprintReport.PAperType:=ptA4;

  ExtprintReport.Foot1:='制　表：'+userName+'        审核：';
 // ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SumAmount')].sum:=True;

end;
procedure TFrm_Inv_OtherIoHSum.GetData;
var
  i:Integer;
begin
  AdoQry_Main.Close;
  AdoQry_Main.SQL.Text:=Condition;
  AdoQry_Main.Open;
  DBGridEh.Columns[0].Title.Alignment:=taCenter;
  DBGridEh.Columns[0].Width:=100;
  DBGridEh.Columns[0].Visible:=False;
  DBGridEh.Columns[1].Title.Alignment:=taCenter;
  DBGridEh.Columns[1].Width:=200;
  DBGridEh.Columns[1].Visible:=False;
  DBGridEh.Columns[2].Title.Alignment:=taCenter;
  DBGridEh.Columns[2].Width:=300;
  for i:=3 to DBGridEh.Columns.Count-1 do
  begin
    DBGridEh.Columns[i].Title.Alignment:=taCenter;
    DBGridEh.Columns[i].Width:=100;
  end;
  Lbl_Order.Caption:=DBGridEh.Columns[2].Title.Caption;
  AdoQry_Main.Sort:=DBGridEh.Columns[2].FieldName;
end;

procedure TFrm_Inv_OtherIoHSum.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
begin
  inherited;
  AmountFields:='';
  PriceFields:='';
  if(Param1='0199')then
  begin
    Caption:='其它入库横式汇总表';
    Pnl_Title.Caption:='其它入库横式汇总表';
  end
  else if(Param1='0299')then
  begin
    Caption:='其它出库横式汇总表';
    Pnl_Title.Caption:='其它出库横式汇总表';
  end;
  Frm_Sys_Condition:=TFrm_Inv_OtherIoHSum_C.Create(Self);
  Act_Filter.Execute;
end;

end.