unit U_CPKWKCList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, cxDropDownEdit,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB;

type
  TfrmCPKWKCList = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    TBClose: TToolButton;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v2Column1: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    v1C_Color: TcxGridDBColumn;
    v1Column6: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    v2Column6: TcxGridDBColumn;
    v1Column7: TcxGridDBColumn;
    v1KCROllNum: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    DataSource1: TDataSource;
    ADOQueryMain: TADOQuery;
    ADOQueryTmp: TADOQuery;
    procedure FormDestroy(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure InitGrid();
    { Private declarations }
  public
    fkeyNo:string;
     {public declarations }
  end;

var
  frmCPKWKCList: TfrmCPKWKCList;

implementation
uses
  U_DataLink,U_Fun;
{$R *.dfm}
procedure TfrmCPKWKCList.InitGrid();
begin
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from KH_Zdy_Attachment A where Type=''CPKW'' and zdyCode='+quotedstr(trim(fkeyNo)));
    open;
  end;

  IF ADOQueryTmp.FieldByName('defstr3').AsString='¹Ì¶¨¼Ü' then
  begin
    with ADOQueryMain do
    begin
      close;
      sql.Clear;
      sql.Add('select * from CK_BanCP_KC X where KCKW='+quotedstr(trim(ADOQueryTmp.fieldbyname('zdyCode').AsString)));
      sql.Add('and kcQty>0');
      open;
    end;
  end;

  IF ADOQueryTmp.FieldByName('defstr3').AsString='´ò¶Ñ' then
  begin
    with ADOQueryMain do
    begin
      close;
      sql.Clear;
      sql.Add('select * from CK_BanCP_KC X where C_CodeName='+quotedstr(trim(ADOQueryTmp.fieldbyname('defstr1').AsString)));
      sql.Add('and C_CodeName='+quotedstr(trim(ADOQueryTmp.fieldbyname('defstr2').AsString)));
      sql.Add('and kcQty>0');
      open;
    end;
  end;
end;
procedure TfrmCPKWKCList.FormDestroy(Sender: TObject);
begin
  frmCPKWKCList:=nil;
end;

procedure TfrmCPKWKCList.ToolButton1Click(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then Exit;
    TcxGridToExcel(self.Caption,cxgrid2);
end;

procedure TfrmCPKWKCList.TBCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmCPKWKCList.FormCreate(Sender: TObject);
begin
  cxGrid2.Align:=alclient;
end;

procedure TfrmCPKWKCList.FormShow(Sender: TObject);
begin
  InitGrid();
end;

end.