D7DJlanshan/基础资料维护(BaseInfo.dll)/U_CPKWKCList.pas

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, cxLookAndFeels,
  cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
  dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
  dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;

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 ADOQueryMain do
  begin
    close;
    sql.Clear;
//    sql.Add('select * from KH_Zdy_Attachment A where Type=''CPKW'' and zdyCode='+quotedstr(trim(fkeyNo)));
    sql.Add('select A.C_Code,A.C_CodeName,A.C_Spec,A.C_Color,');
    sql.Add('kcqty=(select sum(kcqty) from CK_BanCP_KC B where B.kckw=' + quotedstr(trim(fkeyNo)) + ' and B.mjid not like ''%C%'' and B.C_CodeName=A.C_CodeName and B.C_Color=A.C_Color),');
    sql.Add('KCqtyunit=(select top 1 KCqtyunit from CK_BanCP_KC B where B.kckw=' + quotedstr(trim(fkeyNo)) + ' and B.mjid not like ''%C%'' and B.C_CodeName=A.C_CodeName and B.C_Color=A.C_Color)');
    sql.Add('from CK_BanCP_KC A  ');
    sql.Add('where  A.kckw=' + quotedstr(trim(fkeyNo)) + ' and A.mjid not like ''%C%''');
    sql.Add(' GROUP BY A.C_CodeName,A.C_Color,A.C_Code,A.C_Spec');      
//    showmessage(sql.text);
    open;
  end;



//  if ADOQueryTmp.FieldByName('defstr3').AsString = '<27>̶<EFBFBD><CCB6><EFBFBD>' 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 = '<27><><EFBFBD><EFBFBD>' 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.