unit_productforcust.~pas

用友ERP功能扩展

unit Unit_ProductForCust;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, dxtree, dxdbtree, Grids, DBGrids, Unit_Data,
  cxControls, cxContainer, cxTreeView, Menus, cxLookAndFeelPainters,
  StdCtrls, cxButtons, ImgList, cxGraphics, cxEdit, cxGroupBox, dxStatusBar,
  cxRadioGroup, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl,
  dxGrClms, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, Buttons,Comobj;

type
  TForm_ProductForCust = class(TForm)
    StatusBar: TdxStatusBar;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid2: TdxDBGrid;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid4: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridColumn;
    dxDBGrid4cCusCode: TdxDBGridColumn;
    dxDBGrid4cCusAbbname: TdxDBGridColumn;
    dxDBGrid4cInvCode: TdxDBGridColumn;
    dxDBGrid4cInvName: TdxDBGridColumn;
    dxDBGrid4dNewDate: TdxDBGridDateColumn;
    dxDBGrid4dStartDate: TdxDBGridDateColumn;
    dxDBGrid4State: TdxDBGridMaskColumn;
    dxDBGrid4SupplyState: TdxDBGridMaskColumn;
    dxDBGrid4iInvSCost: TdxDBGridMaskColumn;
    dxDBGrid4iInvnowCost: TdxDBGridCurrencyColumn;
    dxDBGrid4NewProd: TdxDBGridMaskColumn;
    dxDBGrid4bSale: TdxDBGridMaskColumn;
    dxDBGrid4bPurchase: TdxDBGridMaskColumn;
    dxDBGrid5: TdxDBGrid;
    dxDBGrid5YearMM: TdxDBGridMaskColumn;
    dxDBGrid5cInvCode: TdxDBGridColumn;
    dxDBGrid5cCusCode: TdxDBGridColumn;
    dxDBGrid5SaleQTY: TdxDBGridMaskColumn;
    dxDBGrid5ReturnQTY: TdxDBGridMaskColumn;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_ProductForCust: TForm_ProductForCust;

implementation
{$R *.dfm}




procedure TForm_ProductForCust.SpeedButton1Click(Sender: TObject);
Var
    ExcelGL:OleVariant;
    Sspdm,Shkmc,Sphrq,yyyymm01:string;
    iSheets,iGh,iGs,iBc,G01,G02:integer;
begin
  try
    ExcelGL := CreateOLEObject('Excel.Application');
  except
    Application.MessageBox('Excel is Not Install! ', '????', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    Exit;
  end;
  ExcelGL.Visible := False;
  ExcelGL.WorkBooks.Add;
  Form_Data.Table__ProductForCust.First;
  G01:=2;
  G02:=0;

  if Form_Data.Table__ProductForCust.FieldCount > 65536 then showmessage('Data is to big !');
    while G02 < Form_Data.Table__ProductForCust.FieldCount do
    begin
   ExcelGL.WorkSheets[1].Cells[1,G02+1].Value := Form_Data.Table__ProductForCust.Fields[G02].Name;
    G02:=G02+1;
    end;
    G02:=0;
 while NOT Form_Data.Table__ProductForCust.Eof  do
  begin
    while G02 < Form_Data.Table__ProductForCust.FieldCount do
    begin
    if Form_Data.Table__ProductForCust.Fields[G02].DataType =ftString Then
    ExcelGL.WorkSheets[1].Cells[G01,G02+1].Value :=''''+Form_Data.Table__ProductForCust.Fields[G02].AsString
    Else ExcelGL.WorkSheets[1].Cells[G01,G02+1].Value :=Form_Data.Table__ProductForCust.Fields[G02].AsString;
    G02:=G02+1;
    end;
   Form_Data.Table__ProductForCust.Next;
   G01:=G01+1;
   G02:=0;
   end;
  ExcelGL.Visible := True;

end;

end.