gl_qry_chginfocredence.pas

一个MRPII系统源代码版本

unit Gl_Qry_ChgInfoCredence;

Interface

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

Type
  TFrm_Gl_Qry_ChgInfoCredence = Class(TFrm_Base_Qry)
    AdoQry_MaindocketName: TStringField;
    AdoQry_MainkmCode: TStringField;
    AdoQry_MainkmName: TStringField;
    AdoQry_MaindebitAmount: TFloatField;
    AdoQry_MaincreditAmount: TFloatField;
    AdoQry_MainFCurrencyRate: TFloatField;
    AdoQry_MainFdebitAmount: TFloatField;
    AdoQry_MainFcreditAmount: TFloatField;
    AdoQry_MainAmount: TFloatField;
    AdoQry_MainPrice: TFloatField;
    AdoQry_MaindepArtCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainpersonEmployeeCode: TStringField;
    AdoQry_MainpersonEmployeeName: TStringField;
    AdoQry_MaincustomerCode: TStringField;
    AdoQry_MaincustomerName: TStringField;
    AdoQry_MaInvendorCode: TStringField;
    AdoQry_MaInvendorName: TStringField;
    AdoQry_MainprojectCode: TStringField;
    AdoQry_MainprojectName: TStringField;
    AdoQry_MainBalanceTypeCode: TStringField;
    AdoQry_MainBalanceTypeName: TStringField;
    AdoQry_MaInBillno: TStringField;
    AdoQry_MainchgType: TStringField;
    AdoQry_MainchgEmployeeCode: TStringField;
    AdoQry_MainchgEmployeeName: TStringField;
    AdoQry_Mainchgtime: TDateTimeField;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Gl_Qry_ChgInfoCredence: TFrm_Gl_Qry_ChgInfoCredence;

implementation
uses Sys_Global,Gl_Qry_ChgInfoCredence_C;
{$R *.DFM}
procedure TFrm_Gl_Qry_ChgInfoCredence.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var sqltext:string;
    date1,date2:string;
    kmCode1,kmCode2:string;
    EmployeeCode1,EmployeeCode2:string;
begin
  Application.ProcessMessages;
  inherited;
    date1:='';
    date2:='';
    kmCode1:='';
    kmCode2:='';
    EmployeeCode1:='';
    EmployeeCode2:='';
  with TFrm_Gl_Qry_ChgInfoCredence_C.Create(self) do
  begin
    try
    AdoQry_tmp.Connection:=dbconnect;
    showmodal;
    if modalResult=mrok then
     begin
        date1:=medts.Text;
        date2:=medte.Text;
        kmCode1:=edt_kmCode1.Text;
        kmCode2:=edt_kmCode2.Text;
        EmployeeCode1:=edt_EmployeeCode1.Text;
        EmployeeCode2:=edt_EmployeeCode2.text;
     end;
    finally
     Frm_Gl_Qry_ChgInfoCredence_C.Free;
     Frm_Gl_Qry_ChgInfoCredence_C:=nil;
    end;
  end;
  sqltext:=' select docketName,Gl_CredenceLineHistory.kmCode,kmName,debitAmount,creditAmount,FCurrencyRate,  '
           +'        FdebitAmount,FcreditAmount,Amount,Price,depArtCode,DeptName,                             '
           +'        personEmployeeCode,e1.EmployeeName as personEmployeeName ,                                '
           +'        Gl_CredenceLineHistory.customerCode,customerName,                                        '
           +'        Gl_CredenceLineHistory.VendorCode,VendorName,projectCode,''                '' as projectName,              '
           +'        Gl_CredenceLineHistory.BalanceTypeCode,BalanceTypeName,Billno,chgType,                   '
           +'        chgEmployeeCode,e2.EmployeeName as chgEmployeeName,chgtime                               '
           +' into #QryCredenceLineHistory  '
           +' from Gl_CredenceLineHistory                                                                     '
           +' left join Employee e1 on Gl_CredenceLineHistory.personEmployeeCode=e1.EmployeeCode              '
           +' left join Employee e2 on Gl_CredenceLineHistory.chgEmployeeCode=e2.EmployeeCode                 '
           +' left join Gl_AccountSubject on Gl_CredenceLineHistory.kmCode=Gl_AccountSubject.kmCode           '
           +' left join Dept on Gl_CredenceLineHistory.depArtCode=Dept.DeptName                               '
           +' left join customer on Gl_CredenceLineHistory.customerCode=customer.customerCode                 '
           +' left join Vendor on Gl_CredenceLineHistory.VendorCode=Vendor.VendorCode                         '
           +' left join BalanceType on Gl_CredenceLineHistory.BalanceTypeCode=BalanceType.BalanceTypeCode     ';
           
  Executesql(AdoQry_tmp,sqltext,1)        ;
//****************************************************************************************************88888888888888
  selectfromsql:='select * from #QryCredenceLineHistory';
  condition:= ' chgtime between '+quotedstr(date1)+' and '+quotedstr(date2+' 23:59:59')
           +'   and kmCode between '+quotedstr(kmCode1)+' and '+quotedstr(kmCode2)
           +'   and chgEmployeeCode between '+quotedstr(EmployeeCode1)+' and  '+quotedstr(EmployeeCode2);
  Orderbyfields:=' kmCode';
  getdata;
  lbl_Condition.Caption:='会计科目代码从 '+kmCode1+' 到 '+kmCode2+' /操作员代码从 '+EmployeeCode1+' 到 '+EmployeeCode2+' /操作日期从 '+date1+' 到 '+date2;
end;

procedure TFrm_Gl_Qry_ChgInfoCredence.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Gl_Qry_ChgInfoCredence:=nil;
end;

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

end.