143 lines
4.5 KiB
ObjectPascal
143 lines
4.5 KiB
ObjectPascal
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.
|
||
|