gl_qry_chginfocredenceh.pas

一个MRPII系统源代码版本

unit Gl_Qry_ChgInfoCredenceH;

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_ChgInfoCredenceH = Class(TFrm_Base_Qry)
    AdoQry_MainCharacterno: TStringField;
    AdoQry_MainCredencedate: TDateTimeField;
    AdoQry_MainCredenceno: TIntegerField;
    AdoQry_MainCredenceType: TIntegerField;
    AdoQry_MaInBillAmount: TIntegerField;
    AdoQry_MainTotaldebitAmount: TFloatField;
    AdoQry_MainTotalcreditAmount: TFloatField;
    AdoQry_MaincreateEmployeeCode: TStringField;
    AdoQry_MaincreateEmployeeName: TStringField;
    AdoQry_MaincashierEmployeeCode: TStringField;
    AdoQry_MaincashierEmployeeName: TStringField;
    AdoQry_MaintallyEmployeeCode: TStringField;
    AdoQry_MaintallyEmployeeName: TStringField;
    AdoQry_MainassessorEmployeeCode: TStringField;
    AdoQry_MainassessorEmployeeName: 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_ChgInfoCredenceH: TFrm_Gl_Qry_ChgInfoCredenceH;

implementation
uses Sys_Global,Gl_Qry_ChgInfoCredenceH_C;
{$R *.DFM}
procedure TFrm_Gl_Qry_ChgInfoCredenceH.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var sqltext:string;
    date1,date2:string;
    createdate1,createdate2:string;
    customerCode1,customerCode2:string;
    EmployeeCode1,EmployeeCode2:string;
begin
  Application.ProcessMessages;
  inherited;
  date1:='';
  date2:='';
  createdate1:='';
  createdate2:='';
  EmployeeCode1:='';
  EmployeeCode2:='';
  with TFrm_Gl_Qry_ChgInfoCredenceH_C.Create(self) do
  begin
    try
    AdoQry_tmp.Connection:=dbconnect;
    showmodal;
    if modalResult=mrok then
     begin
        createdate1:=medt_Createdate1.text;
        createdate2:=medt_Createdate2.text;
        date1:=medts.Text;
        date2:=medte.Text;
        EmployeeCode1:=edt_EmployeeCode1.Text;
        EmployeeCode2:=edt_EmployeeCode2.text;
     end;
    finally
     Frm_Gl_Qry_ChgInfoCredenceH_C.Free;
     Frm_Gl_Qry_ChgInfoCredenceH_C:=nil;
    end;
  end;
  sqltext:=' select Characterno,Credencedate,Credenceno,CredenceType,  '
           +'        BillAmount,TotaldebitAmount,TotalcreditAmount,createEmployeeCode, '
           +'        e1.EmployeeName as createEmployeeName,                            '
           +'        cashierEmployeeCode,                                              '
           +'        e2.EmployeeName as cashierEmployeeName,                           '
           +'        tallyEmployeeCode,                                                '
           +'        e3.EmployeeName as tallyEmployeeName,                             '
           +'        assessorEmployeeCode ,                                            '
           +'        e4.EmployeeName as assessorEmployeeName,                          '
           +'        chgType,chgEmployeeCode,                                          '
           +'        e5.EmployeeName as chgEmployeeName,                               '
           +'        chgtime                                                           '
           +' into #QryCredenceHistory  '
           +' from  Gl_CredenceHistory                                                 '
           +' left join Employee e1 on Gl_CredenceHistory.CreateEmployeeCode=e1.EmployeeCode  '
           +' left join Employee e2 on Gl_CredenceHistory.cashierEmployeeCode=e2.EmployeeCode '
           +' left join Employee e3 on Gl_CredenceHistory.tallyEmployeeCode=e3.EmployeeCode   '
           +' left join Employee e4 on Gl_CredenceHistory.assessorEmployeeCode=e4.EmployeeCode'
           +' left join Employee e5 on Gl_CredenceHistory.chgEmployeeCode=e5.EmployeeCode     ';
  Executesql(AdoQry_tmp,sqltext,1)        ;
//****************************************************************************************************88888888888888
  selectfromsql:='select * from #QryCredenceHistory';
  condition:= ' chgtime between '+quotedstr(date1)+' and '+quotedstr(date2+' 23:59:59')
           +'   and Credencedate between '+quotedstr(createdate1)+' and '+quotedstr(createdate2)
           +'   and chgEmployeeCode between '+quotedstr(EmployeeCode1)+' and  '+quotedstr(EmployeeCode2);
  Orderbyfields:=' Credencedate ';
  getdata;
  lbl_Condition.Caption:='制单日期从 '+createdate1+' 到 '+createdate2+' /操作员代码从 '+EmployeeCode1+' 到 '+EmployeeCode2+' /操作日期从 '+date1+' 到 '+date2;
end;

procedure TFrm_Gl_Qry_ChgInfoCredenceH.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Gl_Qry_ChgInfoCredenceH:=nil;
end;

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

end.