bas_qry_bomlog.pas

一个MRPII系统源代码版本

unit Bas_Qry_BomLog;

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_Bas_Qry_BomLog = Class(TFrm_Base_Qry)
    AdoQry_MainLogDate: TDateTimeField;
    AdoQry_MainoperatorB: TStringField;
    AdoQry_Mainlogaction: TIntegerField;
    AdoQry_Mainite_ItemB: TStringField;
    AdoQry_MainItemB: TStringField;
    AdoQry_MainBomItemType: TIntegerField;
    AdoQry_MainBomQty: TFloatField;
    AdoQry_MainBomScrAp_Percent: TFloatField;
    AdoQry_MainBomstatus: TIntegerField;
    AdoQry_MainDeptB: TStringField;
    AdoQry_MainBommArk: TIntegerField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainIte_ItemCode: TStringField;
    AdoQry_Mainite_ItemName: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure DBGridEhDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Bas_Qry_BomLog: TFrm_Bas_Qry_BomLog;

implementation
uses Bas_Qry_BomLog_D,Bas_Qry_BomLog_C;
{$R *.DFM}
{ TFrm_Bas_Qry_BomLog }

procedure TFrm_Bas_Qry_BomLog.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:='select BomChangeInfo.LogDate,'+
                 ' BomChangeInfo.EmployeeCode,'+
                 ' BomChangeInfo.EmployeeCode+'' ''+Employee.EmployeeName as operatorB,'+
                 ' BomChangeInfo.logaction,'+
                 ' BomChangeInfo.Ite_ItemCode,B.Ite_ItemName,'+
                 ' BomChangeInfo.Ite_ItemCode+'' ''+B.Ite_ItemName as ite_ItemB,'+
                 ' BomChangeInfo.ItemCode,a.ItemName ,'+
                 ' BomChangeInfo.ItemCode+'' ''+a.ItemName as ItemB,'+
                 ' BomChangeInfo.BomItemType,BomChangeInfo.BomQty,'+
                 ' BomChangeInfo.BomScrAp_Percent,BomChangeInfo.Bomstatus,'+
                 ' BomChangeInfo.DeptCode+'' ''+Dept.DeptName as DeptB,BomChangeInfo.BommArk,BomChangeInfo.RemArk'+
            ' from  BomChangeInfo'+
            ' join Employee on BomChangeInfo.EmployeeCode=Employee.EmployeeCode'+
            ' join (Select ItemCode,ItemName As Ite_ItemName From  Item) B on BomChangeInfo.ite_ItemCode=B.ItemCode'+
            ' join (select * from Item) a on BomChangeInfo.ItemCode=a.ItemCode '+
            ' join Dept on BomChangeInfo.DeptCode=Dept.DeptCode'; //Order by LogDate DESC';
  OrderByFields:='LogDate DESC';
  Frm_Sys_Condition:=TFrm_Bas_Qry_BomLog_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;

procedure TFrm_Bas_Qry_BomLog.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Bas_Qry_BomLog:=nil;
end;

procedure TFrm_Bas_Qry_BomLog.DBGridEhDblClick(Sender: TObject);
begin
  inherited;
  try
    Frm_Bas_Qry_BomLog_D:=TFrm_Bas_Qry_BomLog_D.Create(self);
    with  Frm_Bas_Qry_BomLog_D do
    begin
      Label2.Caption:=DBgrideh.Columns[0].DisplayText;
      Label4.Caption:=DBgrideh.Columns[2].DisplayText;
      Label6.Caption:=DBgrideh.Columns[3].DisplayText;
      Label8.Caption:=DBgrideh.Columns[4].DisplayText;
      Label10.Caption:=DBgrideh.Columns[5].DisplayText;
      Label12.Caption:=DBgrideh.Columns[6].DisplayText;
      Label14.Caption:=DBgrideh.Columns[7].DisplayText;
      Label16.Caption:=DBgrideh.Columns[8].DisplayText;
      Label18.Caption:=DBgrideh.Columns[9].DisplayText;
      Label20.Caption:=DBgrideh.Columns[10].DisplayText;
      Label22.Caption:=DBgrideh.Columns[11].DisplayText;
      Label24.Caption:=DBgrideh.Columns[12].DisplayText;
    end;
    Frm_Bas_Qry_BomLog_D.ShowModal;
  finally
    Frm_Bas_Qry_BomLog_D.Free;
  end;
end;

end.