~

应收应付/U_DataLink.pas

@@ -4,7 +4,21 @@ interface
 
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
+  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
 var
    DConString:String;   {全局连接字符串}
    server, dtbase, user, pswd: String;  {数据库连接参数}

应收应付/U_GetDllForm.pas

@@ -1,25 +1,24 @@
-
 unit U_GetDllForm;
-interface
-uses
-   Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,ActiveX,dxCore;
 
-function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer;
+interface
-                  Language: integer; WinStyle:integer;
+
-                  GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
+uses
-                  Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
+  Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, ActiveX,
-                  Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
+  dxCore;
-                  Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;export;stdcall;
+
+function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
+
 function ConnData(): Boolean;
 
 implementation
+
 uses
-  U_DataLink,U_Fun,U_YFCR,U_FKCR,
+  U_DataLink, U_Fun, U_YFCR, U_FKCR, U_YFFKList, U_YSCR, U_SKCR, U_YSSKList,
-  U_YFFKList,U_YSCR,U_SKCR,U_YSSKList,U_ProductOrderCost,U_YFFP,U_YSFP
+  U_ProductOrderCost, U_YFFP, U_YSFP, U_YFCRLZ, U_YSCRLZ, U_YSHZMX, U_YFCRYCL,
-  ,U_YFCRLZ,U_YSCRLZ,U_YSHZMX,U_YFCRYCL,U_YSCROL,U_SKCROLJ,U_YSHZMXOLJ
+  U_YSCROL, U_SKCROLJ, U_YSHZMXOLJ, U_SKCRLZ, U_YSHZMXDL, U_FKCRLZ, U_YSHZMXView,
-  ,U_SKCRLZ,U_YSHZMXDL,U_FKCRLZ,U_YSHZMXView,U_YFCRLZView,U_YFCRLZQty,
+  U_YFCRLZView, U_YFCRLZQty, U_YSCRJZC, U_YSCR_Gd, U_SKCR_Gd, U_YFZDList_MX,
-  U_YSCRJZC,U_YSCR_Gd,U_SKCR_Gd,U_YFZDList_MX,U_YSZDList_MX,U_YFMXlist,U_YSMXlist,
+  U_YSYGGJList, U_YSZDList_MX, U_YFMXlist, U_YSMXlist, U_YKHXList, U_FDINVOICE,
-  U_YKHXList,U_FDINVOICE,U_FPINVOICE_TJ;
+  U_FPINVOICE_TJ;
 
        /////////////////////////////////////////////////////////////////
       //         묘콘綱츠:혤Dll櫓돤눗竟                              //
@@ -29,21 +28,14 @@ uses
   //                 Language>>刀喇蘆잚;                         //
  //                 WinStyle>>눗왯잚謹；                        //
 /////////////////////////////////////////////////////////////////
-function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer;
+function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
-                 Language: integer; WinStyle:integer;
-                 GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
-                 Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
-                 Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
-                 Parameters9:PChar;Parameters10:PChar;
-                 DataBaseStr:PChar):hwnd;
-
 var
   mnewHandle: hwnd;
   mstyle: TFormStyle;     // 0:綾눗왯; 1：팹繫눗왯
   mstate: TWindowState;
   mborderstyle: TFormBorderStyle;
 begin
-   mNewHandle:=0;
+  mnewHandle := 0;
   DName := GName;
   DCode := GCode;
   DdataBase := DataBase;
@@ -59,7 +51,6 @@ begin
   DParameters9 := Parameters9;
   DParameters10 := Parameters10;
 
-
   MainApplication := App;
   DCurHandle := FormH;
   IsDelphiLanguage := Language;
@@ -134,7 +125,7 @@ begin
    end; }
   /////////////////////
   //딧痰綾친욥눗왯
-   case FormId of
+  case FormID of
     1:  //壇마운되션
       begin
         if frmYFCR = nil then
@@ -152,7 +143,27 @@ begin
         else
           frmYFCR.BringToFront;
        //얌깨
-       mNewHandle:=frmYFCR.Handle;
+        mnewHandle := frmYFCR.Handle;
+
+      end;
+    221:  //Ô±¹¤¹¤¼Û¶ÔÕ˵¥
+      begin
+        if frmYSYGGJList = nil then
+        begin
+          frmYSYGGJList := TfrmYSYGGJList.Create(application.MainForm);
+          with frmYSYGGJList do
+          begin
+            caption := Trim(Title);
+            FormStyle := mstyle;
+            windowState := mstate;
+            BorderStyle := mborderstyle;
+           //show;
+          end;
+        end
+        else
+          frmYSYGGJList.BringToFront;
+       //¾ä±ú
+        mnewHandle := frmYSYGGJList.Handle;
 
       end;
     15:  //壇마운되션 툰꼈 횡롤 속묏롤
@@ -172,7 +183,7 @@ begin
         else
           frmYFCRLZ.BringToFront;
        //얌깨
-       mNewHandle:=frmYFCRLZ.Handle;
+        mnewHandle := frmYFCRLZ.Handle;
 
       end;
     12:  //壇마운되션  覩꼼죕꾑욋
@@ -192,7 +203,7 @@ begin
         else
           frmYFCRYCL.BringToFront;
        //얌깨
-       mNewHandle:=frmYFCRYCL.Handle;
+        mnewHandle := frmYFCRYCL.Handle;
 
       end;
     11:  //壇마운되션  覩꼼죕꾑욋
@@ -212,7 +223,7 @@ begin
         else
           frmYFCRLZQty.BringToFront;
        //얌깨
-       mNewHandle:=frmYFCRLZQty.Handle;
+        mnewHandle := frmYFCRLZQty.Handle;
 
       end;
     13:  //壇마운되션 툰꼈 횡롤 속묏롤꿴璂
@@ -232,7 +243,7 @@ begin
         else
           frmYFCRLZView.BringToFront;
        //얌깨
-       mNewHandle:=frmYFCRLZView.Handle;
+        mnewHandle := frmYFCRLZView.Handle;
 
       end;
     2:  //마운되션
@@ -252,7 +263,7 @@ begin
         else
           frmFKCR.BringToFront;
        //얌깨
-       mNewHandle:=frmFKCR.Handle;
+        mnewHandle := frmFKCR.Handle;
 
       end;
     21:  //마운되션(쨌嵐 憩庫)
@@ -272,7 +283,7 @@ begin
         else
           frmFKCRLZ.BringToFront;
        //얌깨
-       mNewHandle:=frmFKCRLZ.Handle;
+        mnewHandle := frmFKCRLZ.Handle;
 
       end;
     3:  //壇마운마운固셕
@@ -292,7 +303,7 @@ begin
         else
           frmYFFKList.BringToFront;
        //얌깨
-       mNewHandle:=frmYFFKList.Handle;
+        mnewHandle := frmYFFKList.Handle;
 
       end;
     31:  //壇마운츠玖瑯데
@@ -312,7 +323,7 @@ begin
         else
           frmYFZDList_MX.BringToFront;
        //얌깨
-       mNewHandle:=frmYFZDList_MX.Handle;
+        mnewHandle := frmYFZDList_MX.Handle;
 
       end;
     4:  //壇澗운되션
@@ -332,7 +343,7 @@ begin
         else
           frmYSCR.BringToFront;
        //얌깨
-       mNewHandle:=frmYSCR.Handle;
+        mnewHandle := frmYSCR.Handle;
 
       end;
     41:  //壇澗운되션
@@ -352,7 +363,7 @@ begin
         else
           frmYSCRLZ.BringToFront;
        //얌깨
-       mNewHandle:=frmYSCRLZ.Handle;
+        mnewHandle := frmYSCRLZ.Handle;
 
       end;
     42:  //壇澗운되션
@@ -372,7 +383,7 @@ begin
         else
           frmYSCROL.BringToFront;
        //얌깨
-       mNewHandle:=frmYSCROL.Handle;
+        mnewHandle := frmYSCROL.Handle;
 
       end;
     43:  //壇澗운되션(쏩廉꽈)
@@ -392,7 +403,7 @@ begin
         else
           frmYSCRJZC.BringToFront;
        //얌깨
-       mNewHandle:=frmYSCRJZC.Handle;
+        mnewHandle := frmYSCRJZC.Handle;
 
       end;
     44:  //壇澗운되션(밤땜)
@@ -412,7 +423,7 @@ begin
         else
           frmYSCR_Gd.BringToFront;
        //얌깨
-       mNewHandle:=frmYSCR_Gd.Handle;
+        mnewHandle := frmYSCR_Gd.Handle;
 
       end;
     5:  //澗운되션
@@ -424,7 +435,7 @@ begin
           begin
             caption := Trim(Title);
          //  IsHx:=1;
-           IsHx:=strtointdef(database,0);
+            IsHx := strtointdef(DataBase, 0);
             FormStyle := mstyle;
             windowState := mstate;
             BorderStyle := mborderstyle;
@@ -434,7 +445,7 @@ begin
         else
           frmSKCR.BringToFront;
        //얌깨
-       mNewHandle:=frmSKCR.Handle;
+        mnewHandle := frmSKCR.Handle;
 
       end;
     51:  //澗운되션
@@ -454,7 +465,7 @@ begin
         else
           frmSKCROLJ.BringToFront;
        //얌깨
-       mNewHandle:=frmSKCROLJ.Handle;
+        mnewHandle := frmSKCROLJ.Handle;
 
       end;
     52:  //澗운되션(쨌嵐)
@@ -474,7 +485,7 @@ begin
         else
           frmSKCRLZ.BringToFront;
        //얌깨
-       mNewHandle:=frmSKCRLZ.Handle;
+        mnewHandle := frmSKCRLZ.Handle;
 
       end;
     54:  //澗운되션(밤땜)
@@ -494,7 +505,7 @@ begin
         else
           frmSKCR_Gd.BringToFront;
        //얌깨
-       mNewHandle:=frmSKCR_Gd.Handle;
+        mnewHandle := frmSKCR_Gd.Handle;
 
       end;
     6:  //壇澗운澗운固셕
@@ -514,7 +525,7 @@ begin
         else
           frmYSSKList.BringToFront;
        //얌깨
-       mNewHandle:=frmYSSKList.Handle;
+        mnewHandle := frmYSSKList.Handle;
 
       end;
     61:  //壇澗운澗운固셕
@@ -534,7 +545,7 @@ begin
         else
           frmYSZDList_MX.BringToFront;
        //얌깨
-       mNewHandle:=frmYSZDList_MX.Handle;
+        mnewHandle := frmYSZDList_MX.Handle;
 
       end;
     7:  //땐데뵙炬固셕꿴璂
@@ -554,7 +565,7 @@ begin
         else
           frmProductOrderCost.BringToFront;
        //얌깨
-       mNewHandle:=frmProductOrderCost.Handle;
+        mnewHandle := frmProductOrderCost.Handle;
 
       end;
 
@@ -575,7 +586,7 @@ begin
         else
           frmYFFP.BringToFront;
        //얌깨
-       mNewHandle:=frmYFFP.Handle;
+        mnewHandle := frmYFFP.Handle;
 
       end;
     81:  //饋淃랙튿되션
@@ -595,7 +606,7 @@ begin
         else
           frmYSFP.BringToFront;
        //얌깨
-       mNewHandle:=frmYSFP.Handle;
+        mnewHandle := frmYSFP.Handle;
 
       end;
     9:
@@ -615,7 +626,7 @@ begin
         else
           frmYKHXList.BringToFront;
        //얌깨
-       mNewHandle:=frmYKHXList.Handle;
+        mnewHandle := frmYKHXList.Handle;
 
       end;
     10:  //壇澗瑯운츠玖
@@ -635,7 +646,7 @@ begin
         else
           frmYSHZMX.BringToFront;
        //얌깨
-       mNewHandle:=frmYSHZMX.Handle;
+        mnewHandle := frmYSHZMX.Handle;
 
       end;
 
@@ -656,7 +667,7 @@ begin
         else
           frmYSHZMXDL.BringToFront;
        //얌깨
-       mNewHandle:=frmYSHZMXDL.Handle;
+        mnewHandle := frmYSHZMXDL.Handle;
 
       end;
     103:  //壇澗瑯운츠玖꿴璂
@@ -676,7 +687,7 @@ begin
         else
           frmYSHZMXView.BringToFront;
        //얌깨
-       mNewHandle:=frmYSHZMXView.Handle;
+        mnewHandle := frmYSHZMXView.Handle;
 
       end;
     101:  //壇澗瑯운츠玖OLJ
@@ -696,7 +707,7 @@ begin
         else
           frmYSHZMXOLJ.BringToFront;
        //얌깨
-       mNewHandle:=frmYSHZMXOLJ.Handle;
+        mnewHandle := frmYSHZMXOLJ.Handle;
 
       end;
     20:  //壇澗瑯운츠玖OLJ
@@ -716,7 +727,7 @@ begin
         else
           frmYFMXlist.BringToFront;
        //얌깨
-       mNewHandle:=frmYFMXlist.Handle;
+        mnewHandle := frmYFMXlist.Handle;
 
       end;
     201:  //壇澗瑯운츠玖OLJ
@@ -736,7 +747,7 @@ begin
         else
           frmYSMXlist.BringToFront;
        //얌깨
-       mNewHandle:=frmYSMXlist.Handle;
+        mnewHandle := frmYSMXlist.Handle;
 
       end;
     202:  //랙튿밗잿
@@ -758,7 +769,7 @@ begin
         else
           frmFDINVOICE.BringToFront;
        //얌깨
-       mNewHandle:=frmFDINVOICE.Handle;
+        mnewHandle := frmFDINVOICE.Handle;
       end;
 
     203:  //랙튿固셕꿴璂
@@ -780,7 +791,7 @@ begin
         else
           frmFPInvoice_TJ.BringToFront;
        //얌깨
-       mNewHandle:=frmFPInvoice_TJ.Handle;
+        mnewHandle := frmFPInvoice_TJ.Handle;
       end;
   end;  // end case
 
@@ -790,11 +801,12 @@ end;
 //===========================================================
   //쉔접鑒앴욋젯쌈넥
 //===========================================================
+
 function ConnData(): Boolean;
 begin
   if not Assigned(DataLink_YSYF) then
     DataLink_YSYF := TDataLink_YSYF.Create(Application);
-  Try
+  try
     with DataLink_YSYF.ADOLink do
     begin
       //if not Connected then
@@ -806,20 +818,22 @@ begin
       end;
     end;
     Result := true;
-  Except
+  except
     Result := false;
     application.MessageBox('鑒앴욋젯쌈呵겨！', '댄轎', mb_Ok + MB_ICONERROR);
   end;
 
 end;
+
 initialization
   CoInitialize(nil);
   dxUnitsLoader.Initialize;
 
-finalization
 
+finalization
   DataLink_YSYF.Free;
   application := NewDllApp;
   dxUnitsLoader.Finalize;
+
 end.
 

应收应付/U_YFCR.pas

@@ -13,7 +13,21 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit;
+  dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, 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
   TfrmYFCR = class(TForm)
@@ -1355,8 +1369,8 @@ end;
 
 procedure TfrmYFCR.ToolButton6Click(Sender: TObject);
 begin
-  frmCKJYList := TfrmCKJYList.create(self);
+  frmYSYGGJList := TfrmYSYGGJList.create(self);
-  with frmCKJYList do
+  with frmYSYGGJList do
   begin
     show;
   end;

应收应付/U_YSYGGJList.dfm

@@ -1,4 +1,4 @@
-object frmCKJYList: TfrmCKJYList
+object frmYSYGGJList: TfrmYSYGGJList
   Left = 403
   Top = 314
   Width = 1333

应收应付/U_YSYGGJList.pas

@@ -27,7 +27,7 @@ uses
   dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
-  TfrmCKJYList = class(TForm)
+  TfrmYSYGGJList = class(TForm)
     ToolBar1: TToolBar;
     TBRafresh: TToolButton;
     TBFind: TToolButton;
@@ -113,7 +113,7 @@ type
   end;
 
 var
-  frmCKJYList: TfrmCKJYList;
+  frmYSYGGJList: TfrmYSYGGJList;
 
 implementation
 
@@ -122,24 +122,24 @@ uses
 
 {$R *.dfm}
 
-procedure TfrmCKJYList.FormDestroy(Sender: TObject);
+procedure TfrmYSYGGJList.FormDestroy(Sender: TObject);
 begin
-  frmCKJYList := nil;
+  frmYSYGGJList := nil;
 end;
 
-procedure TfrmCKJYList.FormClose(Sender: TObject; var Action: TCloseAction);
+procedure TfrmYSYGGJList.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   Action := caFree;
 end;
 
-procedure TfrmCKJYList.FormCreate(Sender: TObject);
+procedure TfrmYSYGGJList.FormCreate(Sender: TObject);
 begin
   //cxGrid1.Align:=alClient;
   BegDate.DateTime := SGetServerDateTime(ADOQueryTemp)-30;
   EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
 end;
 
-procedure TfrmCKJYList.InitGrid();
+procedure TfrmYSYGGJList.InitGrid();
 begin
   try
     ADOQueryMain.DisableControls;                 
@@ -167,7 +167,7 @@ begin
   end;
 end;
 
-procedure TfrmCKJYList.TBRafreshClick(Sender: TObject);
+procedure TfrmYSYGGJList.TBRafreshClick(Sender: TObject);
 begin
   //BegDate.SetFocus;
   MovePanel2.Visible := True;
@@ -176,7 +176,7 @@ begin
   MovePanel2.Visible := False;
 end;
 
-procedure TfrmCKJYList.ConNoMChange(Sender: TObject);
+procedure TfrmYSYGGJList.ConNoMChange(Sender: TObject);
 begin
   if ADOQueryMain.Active then
   begin
@@ -184,13 +184,13 @@ begin
   end;
 end;
 
-procedure TfrmCKJYList.TBCloseClick(Sender: TObject);
+procedure TfrmYSYGGJList.TBCloseClick(Sender: TObject);
 begin
   WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库1');
   Close;
 end;
 
-procedure TfrmCKJYList.FormShow(Sender: TObject);
+procedure TfrmYSYGGJList.FormShow(Sender: TObject);
 begin
 
   ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库1');
@@ -205,14 +205,14 @@ begin
   //InitGrid();
 end;
 
-procedure TfrmCKJYList.TBExportClick(Sender: TObject);
+procedure TfrmYSYGGJList.TBExportClick(Sender: TObject);
 begin
   if ADOQueryMain.IsEmpty then
     exit;
   TcxGridToExcel('库存汇总列表', cxGrid2);
 end;
 
-procedure TfrmCKJYList.TBFindClick(Sender: TObject);
+procedure TfrmYSYGGJList.TBFindClick(Sender: TObject);
 begin
   if ADOQueryMain.Active then
   begin
@@ -222,12 +222,12 @@ begin
   end;
 end;
 
-procedure TfrmCKJYList.MPRTCodeNameChange(Sender: TObject);
+procedure TfrmYSYGGJList.MPRTCodeNameChange(Sender: TObject);
 begin
   TBFind.Click;
 end;
 
-procedure TfrmCKJYList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+procedure TfrmYSYGGJList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -257,18 +257,18 @@ begin
   end;
 end;
 
-procedure TfrmCKJYList.PRTColorChange(Sender: TObject);
+procedure TfrmYSYGGJList.PRTColorChange(Sender: TObject);
 begin
   TBFind.Click;
 end;
 
-procedure TfrmCKJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+procedure TfrmYSYGGJList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
   FLeft := X;
   FTop := Y;
 end;
 
-procedure TfrmCKJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+procedure TfrmYSYGGJList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
 begin
   Panel4.Left := FLeft;
   Panel4.Top := FTop + 110;
@@ -278,12 +278,12 @@ begin
   application.ProcessMessages;
 end;
 
-procedure TfrmCKJYList.Image2Click(Sender: TObject);
+procedure TfrmYSYGGJList.Image2Click(Sender: TObject);
 begin
   Panel4.Visible := False;
 end;
 
-procedure TfrmCKJYList.cxTabControl1Change(Sender: TObject);
+procedure TfrmYSYGGJList.cxTabControl1Change(Sender: TObject);
 begin
   TBRafresh.Click;
 end;

艾登贸易管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\갔되\갔되처弄밗잿\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7FZaideng\艾登贸易管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

艾登贸易管理/U_BpkclistZSD.dfm

@@ -0,0 +1,521 @@
+object frmBpkclistZSD: TfrmBpkclistZSD
+  Left = 378
+  Top = 334
+  Width = 1416
+  Height = 588
+  Caption = #24211#23384#20449#24687#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  WindowState = wsMaximized
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1400
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #26597#35810
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TOk: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #30830#23450
+      ImageIndex = 41
+      Visible = False
+      OnClick = TOkClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1400
+    Height = 65
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #20837#24211#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 64
+      Top = 40
+      Width = 13
+      Height = 12
+      Caption = #33267
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 228
+      Top = 40
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 440
+      Top = 40
+      Width = 39
+      Height = 12
+      Caption = #21152#24037#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 228
+      Top = 16
+      Width = 52
+      Height = 12
+      Caption = #20837#24211#31867#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 288
+      Top = 72
+      Width = 24
+      Height = 12
+      Caption = #20179#24211
+    end
+    object Label7: TLabel
+      Left = 440
+      Top = 16
+      Width = 39
+      Height = 12
+      Caption = #20379#24212#21830
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 616
+      Top = 16
+      Width = 26
+      Height = 12
+      Caption = #32568#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 11
+      Width = 100
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ShowCheckbox = True
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 76
+      Top = 35
+      Width = 100
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ShowCheckbox = True
+      TabOrder = 1
+    end
+    object P_CodeName: TEdit
+      Tag = 2
+      Left = 284
+      Top = 36
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = P_CodeNameChange
+    end
+    object factoryName: TEdit
+      Tag = 2
+      Left = 484
+      Top = 36
+      Width = 100
+      Height = 20
+      TabOrder = 3
+      OnChange = P_CodeNameChange
+    end
+    object CRType: TComboBox
+      Tag = 2
+      Left = 284
+      Top = 12
+      Width = 100
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      ItemIndex = 0
+      TabOrder = 4
+      OnChange = P_CodeNameChange
+      Items.Strings = (
+        ''
+        #29983#20135#20837#24211)
+    end
+    object CheckBox1: TCheckBox
+      Left = 772
+      Top = 12
+      Width = 97
+      Height = 17
+      Caption = #21547#24211#23384#20026#38646
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 5
+    end
+    object ckName: TComboBox
+      Left = 320
+      Top = 68
+      Width = 100
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      ItemIndex = 0
+      TabOrder = 6
+      Text = #26679#21697#20179#24211
+      Items.Strings = (
+        #26679#21697#20179#24211)
+    end
+    object cust: TEdit
+      Tag = 2
+      Left = 484
+      Top = 12
+      Width = 100
+      Height = 20
+      TabOrder = 7
+      OnChange = P_CodeNameChange
+    end
+    object gangNO: TEdit
+      Tag = 2
+      Left = 648
+      Top = 12
+      Width = 100
+      Height = 20
+      TabOrder = 8
+      OnChange = P_CodeNameChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 97
+    Width = 1400
+    Height = 316
+    Align = alTop
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+          Column = v1P_CodeName
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1RollNum
+        end
+        item
+          Kind = skSum
+          Column = v1Qty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Ssel: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'Ssel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'cust'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21152#24037#21378
+        DataBinding.FieldName = 'factoryName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1CRTime: TcxGridDBColumn
+        Caption = #20837#24211#26085#26399
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1CRType: TcxGridDBColumn
+        Caption = #20837#24211#31867#22411
+        DataBinding.FieldName = 'CRType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object v1MJID: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 60
+      end
+      object v1MJXH: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 60
+      end
+      object v1P_CodeName: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'P_CodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1P_SPEC: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'P_SPEC'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Sorting = False
+        Width = 90
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'P_Color'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'gangNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1P_MF: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'P_MF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1P_KZ: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'P_KZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1CPType: TcxGridDBColumn
+        Caption = #31561#32423
+        DataBinding.FieldName = 'CPType'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 60
+      end
+      object v1RollNum: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'RollNum'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Content = DataLink_TradeManage.FontBlue
+        Styles.Footer = DataLink_TradeManage.FontBlue
+        Styles.Header = DataLink_TradeManage.FontBlue
+        Width = 59
+      end
+      object v1Qty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Content = DataLink_TradeManage.FontBlue
+        Styles.Footer = DataLink_TradeManage.FontBlue
+        Styles.Header = DataLink_TradeManage.FontBlue
+        Width = 59
+      end
+      object v1QtyUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'Kg')
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1Note: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #39044#25187#38500#25968#37327
+        DataBinding.FieldName = 'PreBPqty'
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 680
+    Top = 8
+  end
+  object ADOQueryTmp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 536
+    Top = 4
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 576
+    Top = 1
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 612
+    Top = 5
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 504
+    Top = 12
+  end
+end

艾登贸易管理/U_BpkclistZSD.pas

@@ -0,0 +1,264 @@
+unit U_BpkclistZSD;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
+  cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+  cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox,
+  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
+  TfrmBpkclistZSD = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBExport: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1P_CodeName: TcxGridDBColumn;
+    v1P_SPEC: TcxGridDBColumn;
+    v1P_MF: TcxGridDBColumn;
+    v1P_KZ: TcxGridDBColumn;
+    v1RollNum: TcxGridDBColumn;
+    v1Qty: TcxGridDBColumn;
+    v1QtyUnit: TcxGridDBColumn;
+    v1Note: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1CRType: TcxGridDBColumn;
+    v1CRTime: TcxGridDBColumn;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    P_CodeName: TEdit;
+    factoryName: TEdit;
+    CRType: TComboBox;
+    Label5: TLabel;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryTmp: TADOQuery;
+    DataSource1: TDataSource;
+    CDS_Main: TClientDataSet;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    TOk: TToolButton;
+    v1Ssel: TcxGridDBColumn;
+    CheckBox1: TCheckBox;
+    v1MJID: TcxGridDBColumn;
+    v1MJXH: TcxGridDBColumn;
+    v1CPType: TcxGridDBColumn;
+    ckName: TComboBox;
+    Label6: TLabel;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cust: TEdit;
+    Label7: TLabel;
+    gangNO: TEdit;
+    Label8: TLabel;
+    v1Column4: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure P_CodeNameChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TOkClick(Sender: TObject);
+  private
+    procedure InitGrid();
+    procedure SetComboBox();
+    { Private declarations }
+  public
+    fType: integer;
+    fCKName, FMainid: string;
+    
+    { Public declarations }
+  end;
+
+var
+  frmBpkclistZSD: TfrmBpkclistZSD;
+
+implementation
+
+uses
+  U_DataLink, U_Fun10, U_ZDYHelp;   //, U_BpRk
+{$R *.dfm}
+
+procedure TfrmBpkclistZSD.SetComboBox();
+begin
+  ckName.Items.Clear;
+  with adoQueryTmp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from KH_ZDY where Type=''BPCK'' ');
+    if trim(fCKName) <> '' then
+      sql.Add('and zdyName=' + quotedstr(trim(fCKName)));
+    open;
+    while not eof do
+    begin
+      ckName.Items.Add(trim(fieldbyname('zdyName').AsString));
+      next;
+    end;
+  end;
+  if ckName.Items.Count > 0 then
+    ckName.ItemIndex := 0;
+
+  CRType.Items.Clear;
+  CRType.Items.Add('');
+  with adoQueryTmp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from KH_ZDY where Type=''BPRKTYPE''');
+    if trim(fCKName) <> '' then
+      sql.Add('and note=' + quotedstr(trim(fCKName)));
+    open;
+    while not eof do
+    begin
+      CRType.Items.Add(trim(fieldbyname('zdyName').AsString));
+      next;
+    end;
+  end;
+  if CRType.Items.Count > 0 then
+    CRType.ItemIndex := 0;
+end;
+
+procedure TfrmBpkclistZSD.InitGrid();
+begin
+  try
+    with adoqueryTmp do
+    begin
+      close;
+      sql.Clear;
+//      sql.Add('select A.*,B.cust,B.factoryName from BP_KC A');
+//      sql.Add('inner join BP_inout B on B.KCID=A.KCID and B.CRFlag=''Èë¿â'' ');
+//      sql.Add('where 1=1');        sum(([dbo].[Get_ShuZi](defstr3))   sum((cast(ISNULL(defstr2,0) as float))
+//      SQL.Add('SELECT count(A.mxid) as RollNum,sum(A.kcqty2) as qty,B.cust,B.factoryName,B.CRTime,B.CRType,B.P_CodeName,B.P_SPEC,B.P_Color,B.gangNo,B.P_KZ,B.P_MF,B.QtyUnit,B.ckName ');
+//      SQL.Add(',PreBPqty=(select sum(([dbo].[Get_ShuZi](defstr2))*(isnull(prtorderqty,0))) from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid ');
+//      SQL.Add(' where M.defstr1=B.P_CodeName and  M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''A''   and N.Status=''0'')');  // M.CBColor in (B.P_Color)
+//      SQL.Add('+(select  sum(([dbo].[Get_ShuZi](defstr3))*(isnull(prtorderqty,0)))from JYOrder_Sub X  inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid  ');
+//      SQL.Add(' where M.defstr1=B.P_CodeName and  M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''C''  and N.Status=''0'' )');   //and  M.CBColor=B.P_Color
+//      sql.Add('FROM CK_SXPB_CRMX A inner join BP_InOut  B  on  A.crnos=B.crnos ');
+//      sql.Add(' where A.crzt=''Èë¿â'' ');
+//      SQL.Add('and   exists(select crnoS from BP_KC   d where  D.crnos=A.crnos)');
+//      if begdate.Checked then
+//        sql.Add('and B.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
+//      if enddate.Checked then
+//        sql.Add('and B.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
+////      if not CheckBox1.Checked then
+////        sql.Add('and (A.RollNum<>0 or A.qty<>0 ) ');
+//      if trim(FckName) <> '' then
+//        sql.Add('and B.ckName=' + quotedstr(trim(FckName)));
+//      sql.Add('	GROUP BY A.crnoS,B.cust,B.factoryName,B.CRTime,B.CRType,B.P_CodeName,B.P_SPEC,B.P_Color,B.gangNo,B.P_KZ,B.P_MF,B.QtyUnit,B.ckName ');
+      sql.Add('exec P_Get_BPKC_ZSD ');
+      sql.Add('@mainid=''' + Trim(FMainid) + ''' ');
+//      ShowMessage(SQL.text);
+      open;
+    end;
+    SCreateCDS20(adoqueryTmp, CDS_Main);      
+    SInitCDSData20(adoqueryTmp, CDS_Main);
+  finally
+  end;
+end;
+
+procedure TfrmBpkclistZSD.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  writeCxGrid(self.Caption, Tv1, '²¼Æ¥²Ö¿â');
+  if fType = 10 then
+    Action := cahide
+  else
+    Action := cafree;
+end;
+
+procedure TfrmBpkclistZSD.FormDestroy(Sender: TObject);
+begin
+  frmBpkclistZSD := nil;
+end;
+
+procedure TfrmBpkclistZSD.P_CodeNameChange(Sender: TObject);
+begin
+  if ADOQueryTmp.Active = False then
+    Exit;
+  SDofilter(ADOQueryTmp, SGetFilters(Panel1, 1, 2));
+  SCreateCDS20(ADOQueryTmp, CDS_Main);
+  SInitCDSData20(ADOQueryTmp, CDS_Main);
+end;
+
+procedure TfrmBpkclistZSD.FormShow(Sender: TObject);
+begin
+  if fType = 10 then
+  begin
+    TOk.Visible := true;
+    v1Ssel.Visible := true;
+  end;
+  readCxGrid(self.Caption, Tv1, '²¼Æ¥²Ö¿â');
+  SetComboBox();
+  InitGrid();
+end;
+
+procedure TfrmBpkclistZSD.FormCreate(Sender: TObject);
+begin
+  BegDate.Date := DServerDate - 7;
+  EndDate.Date := DServerDate;
+  cxGrid1.Align := alclient;
+
+end;
+
+procedure TfrmBpkclistZSD.TBCloseClick(Sender: TObject);
+begin
+  close;
+end;
+
+procedure TfrmBpkclistZSD.TBRafreshClick(Sender: TObject);
+begin
+
+  initGrid();
+end;
+
+procedure TfrmBpkclistZSD.TBPrintClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  TcxGridToExcel(self.Caption, cxgrid1);
+end;
+
+procedure TfrmBpkclistZSD.TBExportClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  TcxGridToExcel(self.Caption, cxgrid1);
+end;
+
+procedure TfrmBpkclistZSD.TOkClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  ModalResult := 1;
+end;
+
+end.
+

艾登贸易管理/U_ProductOrderNewList.dfm

@@ -244,6 +244,14 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       ImageIndex = 57
       OnClick = TnochkClick
     end
+    object ToolButton9: TToolButton
+      Left = 909
+      Top = 30
+      AutoSize = True
+      Caption = #26597#30475#36741#26009#24211#23384
+      ImageIndex = 9
+      OnClick = ToolButton9Click
+    end
   end
   object Panel1: TPanel
     Left = 0
@@ -478,6 +486,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       OnCellDblClick = Tv1CellDblClick
+      OnCustomDrawCell = Tv1CustomDrawCell
       OnFocusedRecordChanged = Tv1FocusedRecordChanged
       DataController.DataSource = DataSource1
       DataController.Filter.AutoDataSetFilter = True
@@ -631,6 +640,11 @@ object frmProductOrderNewList: TfrmProductOrderNewList
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column5: TcxGridDBColumn
+        DataBinding.FieldName = 'MLKCStatus'
+        HeaderAlignmentHorz = taCenter
+        Width = 20
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

艾登贸易管理/U_ProductOrderNewList.pas

@@ -177,6 +177,8 @@ type
     ToolButton14: TToolButton;
     Tchk: TToolButton;
     Tnochk: TToolButton;
+    ToolButton9: TToolButton;
+    Tv1Column5: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -227,6 +229,8 @@ type
     procedure ToolButton14Click(Sender: TObject);
     procedure TchkClick(Sender: TObject);
     procedure TnochkClick(Sender: TObject);
+    procedure ToolButton9Click(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
   private
     DQdate: TDateTime;
     procedure InitGrid();
@@ -252,7 +256,8 @@ var
 implementation
 
 uses
-  U_DataLink, U_OrderInPut, U_Fun, U_LabelList, U_LabelListts, U_FjList_RZ;
+  U_DataLink, U_OrderInPut, U_Fun, U_LabelList, U_LabelListts, U_FjList_RZ,
+  U_BpkclistZSD;
 
 {$R *.dfm}
 procedure TfrmProductOrderNewList.SetStatus();
@@ -1910,5 +1915,28 @@ begin
   end;
 end;
 
+procedure TfrmProductOrderNewList.ToolButton9Click(Sender: TObject);
+begin
+  try
+    frmBpkclistZSD := TfrmBpkclistZSD.Create(Application);
+    with frmBpkclistZSD do
+    begin
+      FMainid := Trim(Order_Main.fieldbyname('Mainid').AsString);
+      if ShowModal = 1 then
+      begin
+//        InitGrid();
+      end;
+    end;
+  finally
+    frmBpkclistZSD.Free;
+  end;
+end;
+
+procedure TfrmProductOrderNewList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('MLKCStatus').Index] = '2' then
+    ACanvas.Brush.Color := clRed;
+end;
+
 end.