ar_qry_araging1.pas

一个MRPII系统源代码版本

  begin
  AdoQry_Main.Fields[i].DisplayLabel:='联系人';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=7 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='营销业务员代码';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=8 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='营销业务员名称';
  AdoQry_Main.Fields[i].DisplayWidth:=16;
  end;
 if i=9 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='营销业务员标识';
  AdoQry_Main.Fields[i].DisplayWidth:=14;
  end;
 if i=10 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='信用额度';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
  
 if i=11 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='应收余额';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
 if i=12 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='货币代码';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
 if i=13 then 
 begin
  AdoQry_Main.Fields[i].DisplayLabel:='货币名称';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
 if i=14 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='货币标识';
  AdoQry_Main.Fields[i].DisplayWidth:=9;

  end;
 if i=15 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='帐期内金额';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=16 then 
  begin
    AdoQry_Main.Fields[i].DisplayLabel:='帐期内比率';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
if i>16 then 
  AdoQry_Main.Fields[i].DisplayWidth:=11;
  
 AdoQry_Main.Fields[i].Origin:='#Result';
end;
dbgrideh.Columns[0].Visible:=False;
dbgrideh.Columns[1].Visible:=False;
dbgrideh.Columns[3].Visible:=False;
dbgrideh.Columns[4].Visible:=False;
dbgrideh.Columns[7].Visible:=False;
dbgrideh.Columns[8].Visible:=False;
dbgrideh.Columns[12].Visible:=False;
dbgrideh.Columns[13].Visible:=False;
dbgrideh.FrozenCols:=5;
lbl_Condition.Caption:='客户代码从 '+customerCode1+' 到 '+customerCode2+' / 销售区域从        '+AreaCode1+' 到 '+AreaCode2+' / 销售类型从        '+SaleTypeCode1+' 到 '+SaleTypeCode2
                      +#13+'销售部门代码从 '+DeptCode1+' 到 '+DeptCode2+' / 营销业务员代码从 '+EmployeeCode1+' 到 '+EmployeeCode2
                      +#13+'货币代码 '+currencyCode;
end;

procedure TFrm_Ar_Qry_ArAging1.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ar_Qry_ArAging1:=nil;
end;

procedure TFrm_Ar_Qry_ArAging1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
try
 Executesql(AdoQry_tmp,'drop table #Result,#tmpAccountAging',1);
except
end;
end;

procedure TFrm_Ar_Qry_ArAging1.Act_FilterExecute(Sender: TObject);
var i:integer;
begin
  inherited;
for i:=0 to AdoQry_Main.FieldCount-1 do
begin
 if i=0 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='销售客户代码';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=1 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='销售客户名称';
  AdoQry_Main.Fields[i].DisplayWidth:=16;
  end;
 if i=2 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='销售客户标识';
  AdoQry_Main.Fields[i].DisplayWidth:=19;
  end;
 if i=3 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='销售区域代码';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=4 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='销售区域名称';
  AdoQry_Main.Fields[i].DisplayWidth:=16;
  end;
 if i=5 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='销售区域标识';
  AdoQry_Main.Fields[i].DisplayWidth:=19;
  end;
 if i=6 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='联系人';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=7 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='营销业务员代码';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=8 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='营销业务员名称';
  AdoQry_Main.Fields[i].DisplayWidth:=16;
  end;
 if i=9 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='营销业务员标识';
  AdoQry_Main.Fields[i].DisplayWidth:=14;
  end;
 if i=10 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='信用额度';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
  
 if i=11 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='应收余额';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
 if i=12 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='货币代码';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
 if i=13 then 
 begin
  AdoQry_Main.Fields[i].DisplayLabel:='货币名称';
  AdoQry_Main.Fields[i].DisplayWidth:=8;
  end;
 if i=14 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='货币标识';
  AdoQry_Main.Fields[i].DisplayWidth:=9;

  end;
 if i=15 then 
  begin
  AdoQry_Main.Fields[i].DisplayLabel:='帐期内金额';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
 if i=16 then 
  begin
    AdoQry_Main.Fields[i].DisplayLabel:='帐期内比率';
  AdoQry_Main.Fields[i].DisplayWidth:=13;
  end;
if i>16 then 
  AdoQry_Main.Fields[i].DisplayWidth:=11;
  
 AdoQry_Main.Fields[i].Origin:='#Result';
end;
dbgrideh.Columns[0].Visible:=False;
dbgrideh.Columns[1].Visible:=False;
dbgrideh.Columns[3].Visible:=False;
dbgrideh.Columns[4].Visible:=False;
dbgrideh.Columns[7].Visible:=False;
dbgrideh.Columns[8].Visible:=False;
dbgrideh.Columns[12].Visible:=False;
dbgrideh.Columns[13].Visible:=False;
dbgrideh.FrozenCols:=5;
end;

end.