mrp_qry_saleorder.pas

一个MRPII系统源代码版本

unit Mrp_Qry_SaleOrder;
Interface

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

Type
  TFrm_Mrp_Qry_SaleOrder = Class(TFrm_Base_Check)
    DBText2: TDBText;
    Label2: TLabel;
    AdoQry_Headslocheck: TIntegerField;
    AdoQry_Headcreatedate: TDateTimeField;
    AdoQry_Headslono: TStringField;
    AdoQry_Headslolineno: TIntegerField;
    AdoQry_HeadItemCode: TStringField;
    AdoQry_HeadItemName: TStringField;
    AdoQry_HeadItemflag: TStringField;
    AdoQry_Headslolinestatus: TIntegerField;
    AdoQry_Headslolinedate: TDateTimeField;
    AdoQry_Headsloqty: TFloatField;
    AdoQry_HeadcustomerCode: TStringField;
    AdoQry_HeadcustomerName: TStringField;
    AdoQry_Headcustomerflag: TStringField;
    AdoQry_HeadSaleTypeName: TStringField;
    AdoQry_HeadSaleTypeflag: TStringField;
    AdoQry_HeadSaleDeptCode: TStringField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadDeptflag: TStringField;
    AdoQry_HeadSaleEmployeeCode: TStringField;
    AdoQry_HeadEmployeeName: TStringField;
    AdoQry_HeadEmployeeflag: TStringField;
    AdoQry_HeadslolineremArk: TStringField;
    AdoQry_Headlastoperationtime: TDateTimeField;
    AdoQry_HeadSaleTypeCode: TStringField;
    AdoQry_HeadShipqty: TFloatField;
    Label1: TLabel;
    DBText1: TDBText;
    procedure FormDestroy(Sender: TObject);
    procedure AdoQry_HeadBeforeInsert(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure Act_ExcelExecute(Sender: TObject);
  private
    Flag:Boolean;
    { Private declarations }
  public
    slonoandlineno:string;
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
          Frm_Mrp_Qry_SaleOrder: TFrm_Mrp_Qry_SaleOrder;
          i:integer;
implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Mrp_Qry_SaleOrder.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
var sqltext,customerCode:string;
    linestatus:integer;
begin
  Application.ProcessMessages;
  Inherited;
  selectfromsql:='select t2.slocheck,      '
           +'      t1.Createdate,     '
           +'      t2.slono,          '
           +'      t2.slolineno,     '
           +'      t2.ItemCode,      '
           +'      Item.ItemName,    '
           +'      t2.ItemCode+'' ''+Item.ItemName as Itemflag,  '
           +'      t2.slolinestatus, '
           +'      t2.slolinedate,   '
           +'      t2.sloqty,        '
           +'      t2.Shipqty,       '
         //  +'      t2.noFinishsloqty, '
           +'      t1.customerCode,   '
           +'      customer.customerName,  '
           +'      t1.customerCode+'' ''+customer.customerName as customerflag, '
           +'      t1.SaleTypeCode,            '
           +'      SaleType.SaleTypeName,  '
           +'      t1.SaleTypeCode+'' ''+SaleType.SaleTypeName as SaleTypeflag,  '
           +'      t1.SaleDeptCode,        '
          +'       Dept.DeptName,          '
          +'       t1.SaleDeptCode+'' ''+Dept.DeptName as Deptflag,  '
          +'       t1.SaleEmployeeCode,    '
          +'       Employee.EmployeeName,  '
          +'       t1.SaleEmployeeCode+'' ''+Employee.EmployeeName as Employeeflag, '
          +'       t2.lastoperationtime,   '
          +'       t2.slolineremArk        '
//        +'   into #tMpSaleOrderPass  '
        +'  from  sa_SaleOrderline t2       '
        +'  join sa_SaleOrder t1 on t2.slono=t1.slono   '
        +'  left outer join Item on t2.ItemCode=Item.ItemCode  '
        +'  left outer join customer on t1.customerCode=customer.customerCode  '
        +'  left outer join SaleType on t1.SaleTypeCode=SaleType.SaleTypeCode    '
        +'  left outer join Dept on t1.SaleDeptCode=Dept.DeptCode            '
        +'  left outer join Employee on t1.SaleEmployeeCode=Employee.EmployeeCode  ';
// condition:='slolinestatus=1';
 conditionuserDefine:='t2.slono+convert(varchAr,slolineno)='+quotedstr(slonoandlineno);
 Orderbyfields:='createdate,slono,slolineno';
// Executesql(AdoQry_Head,sqltext,1);
// selectfromsql:='select * from #tMpSaleOrderPass';
// Executesql(AdoQry_Head,'select * from #tMpSaleOrderPass where slolinestatus=1',0);
 getdata;
 Flag:=False;
end;

procedure TFrm_Mrp_Qry_SaleOrder.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_SaleOrder:=Nil;
end;

procedure TFrm_Mrp_Qry_SaleOrder.AdoQry_HeadBeforeInsert(
  DataSet: TDataSet);
begin
  inherited;
  Abort;
end;

procedure TFrm_Mrp_Qry_SaleOrder.FormCreate(Sender: TObject);
begin
  inherited;
ToolButton6.Action:=act_excel;
end;

procedure TFrm_Mrp_Qry_SaleOrder.Act_ExcelExecute(Sender: TObject);
begin
 // inherited;
 dbgridehtoexcel(dbgrideh);
end;

end.