11.11cxz

合同管理(ContractManagement.dll)/ContractManagement.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\凌志超开发代码\项目代码\宇尚\合同管理(ContractManagement.dll)\testDll.exe
+HostApplication=D:\Project\D7gmYushang\合同管理(ContractManagement.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

合同管理(ContractManagement.dll)/ProjectGroup1.bpg

@@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe ProductPrice.dll
+PROJECTS = testDll.exe ContractManagement.dll
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
@@ -17,7 +17,7 @@ default: $(PROJECTS)
 testDll.exe: testDll.dpr
   $(DCC)
 
-ProductPrice.dll: ProductPrice.dpr
+ContractManagement.dll: ContractManagement.dpr
   $(DCC)
 
 

合同管理(ContractManagement.dll)/U_ContractListNX.dfm

@@ -1,6 +1,6 @@
 object frmContractListNX: TfrmContractListNX
-  Left = 115
+  Left = 534
-  Top = 42
+  Top = 260
   Width = 1382
   Height = 754
   Caption = #20869#38144#21512#21516
@@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1366
+    Width = 1374
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -149,20 +149,20 @@ object frmContractListNX: TfrmContractListNX
       AutoSize = True
       Caption = #25764#38144#23457#26680
       ImageIndex = 52
-      Wrap = True
       Visible = False
       OnClick = TnochkClick
     end
     object ToolButton7: TToolButton
-      Left = 0
+      Left = 1014
-      Top = 30
+      Top = 0
       AutoSize = True
       Caption = #35843#24230#23457#26680
       ImageIndex = 31
+      Wrap = True
       OnClick = ToolButton7Click
     end
     object ToolButton8: TToolButton
-      Left = 87
+      Left = 0
       Top = 30
       AutoSize = True
       Caption = #35843#24230#25764#38144#23457#26680
@@ -170,13 +170,21 @@ object frmContractListNX: TfrmContractListNX
       OnClick = ToolButton8Click
     end
     object ToolButton9: TToolButton
-      Left = 198
+      Left = 111
       Top = 30
       AutoSize = True
       Caption = #35843#24230#22791#27880
       ImageIndex = 22
       OnClick = ToolButton9Click
     end
+    object ToolButton10: TToolButton
+      Left = 198
+      Top = 30
+      AutoSize = True
+      Caption = #23376#34920#22791#27880
+      ImageIndex = 22
+      OnClick = ToolButton10Click
+    end
     object btnSXChk: TToolButton
       Left = 285
       Top = 30
@@ -245,7 +253,7 @@ object frmContractListNX: TfrmContractListNX
   object cxGrid1: TcxGrid
     Left = 0
     Top = 177
-    Width = 1366
+    Width = 1374
     Height = 278
     Align = alTop
     TabOrder = 3
@@ -449,7 +457,7 @@ object frmContractListNX: TfrmContractListNX
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1366
+    Width = 1374
     Height = 71
     Align = alTop
     BevelInner = bvRaised
@@ -779,7 +787,7 @@ object frmContractListNX: TfrmContractListNX
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 133
-    Width = 1366
+    Width = 1374
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -797,13 +805,13 @@ object frmContractListNX: TfrmContractListNX
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1366
+    ClientRectRight = 1374
     ClientRectTop = 19
   end
   object cxSplitter1: TcxSplitter
     Left = 0
-    Top = 707
+    Top = 715
-    Width = 1366
+    Width = 1374
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salBottom
@@ -811,8 +819,8 @@ object frmContractListNX: TfrmContractListNX
   object cxGrid2: TcxGrid
     Left = 0
     Top = 455
-    Width = 1366
+    Width = 1374
-    Height = 252
+    Height = 260
     Align = alClient
     TabOrder = 4
     object TV2: TcxGridDBTableView
@@ -1087,7 +1095,7 @@ object frmContractListNX: TfrmContractListNX
   object cxTabControl2: TcxTabControl
     Left = 0
     Top = 155
-    Width = 1366
+    Width = 1374
     Height = 22
     Align = alTop
     TabOrder = 7
@@ -1104,7 +1112,7 @@ object frmContractListNX: TfrmContractListNX
       #20840#37096)
     OnChange = cxTabControl2Change
     ClientRectBottom = 22
-    ClientRectRight = 1366
+    ClientRectRight = 1374
     ClientRectTop = 19
   end
   object Panel2: TPanel
@@ -1461,6 +1469,88 @@ object frmContractListNX: TfrmContractListNX
       TabOrder = 3
     end
   end
+  object Panel6: TPanel
+    Left = 548
+    Top = 234
+    Width = 225
+    Height = 191
+    Color = clSkyBlue
+    TabOrder = 11
+    Visible = False
+    object Label21: TLabel
+      Left = 24
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label23: TLabel
+      Left = 24
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#21517#31216
+    end
+    object Label24: TLabel
+      Left = 24
+      Top = 58
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Button12: TButton
+      Left = 32
+      Top = 156
+      Width = 60
+      Height = 22
+      Caption = #30830#23450
+      TabOrder = 0
+      OnClick = Button12Click
+    end
+    object Button13: TButton
+      Left = 128
+      Top = 156
+      Width = 60
+      Height = 21
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button13Click
+    end
+    object mmo1: TMemo
+      Left = 20
+      Top = 76
+      Width = 185
+      Height = 65
+      TabOrder = 2
+    end
+    object Edit7: TEdit
+      Tag = 2
+      Left = 77
+      Top = 7
+      Width = 124
+      Height = 20
+      ReadOnly = True
+      TabOrder = 3
+    end
+    object Edit8: TEdit
+      Tag = 2
+      Left = 77
+      Top = 30
+      Width = 124
+      Height = 20
+      ReadOnly = True
+      TabOrder = 4
+    end
+    object Edit9: TEdit
+      Tag = 2
+      Left = 77
+      Top = 53
+      Width = 124
+      Height = 20
+      ReadOnly = True
+      TabOrder = 5
+    end
+  end
   object cxGridPopupMenu1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>

合同管理(ContractManagement.dll)/U_ContractListNX.pas

@@ -11,7 +11,20 @@ uses
   cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
   cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  dxBarBuiltInMenu;
+  dxBarBuiltInMenu, 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
   TfrmContractListNX = class(TForm)
@@ -176,6 +189,17 @@ type
     TV2Column2: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
+    ToolButton10: TToolButton;
+    Panel6: TPanel;
+    Label21: TLabel;
+    Button12: TButton;
+    Button13: TButton;
+    mmo1: TMemo;
+    Edit7: TEdit;
+    Label23: TLabel;
+    Edit8: TEdit;
+    Label24: TLabel;
+    Edit9: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -225,6 +249,9 @@ type
     procedure Button11Click(Sender: TObject);
     procedure ToolButton9Click(Sender: TObject);
     procedure ComboBox4Change(Sender: TObject);
+    procedure ToolButton10Click(Sender: TObject);
+    procedure Button12Click(Sender: TObject);
+    procedure Button13Click(Sender: TObject);
   private
     procedure InitGrid();
     procedure InitForm();
@@ -288,6 +315,7 @@ begin
   ToolButton7.Visible := False;
   ToolButton8.Visible := False;
   ToolButton9.Visible := False;
+  ToolButton10.Visible := False;
   if Trim(canshu1) = '¼Èë' then
   begin
     ToolButton2.Visible := true;
@@ -411,7 +439,7 @@ begin
   if Trim(canshu1) = 'ÏúÊÛÉóºË' then
   begin
     TBAdd.Visible := true;
-
+    ToolButton10.Visible := True;
     case cxTabControl1.TabIndex of
       0:
         begin
@@ -445,6 +473,7 @@ begin
   begin
     TBAdd.Visible := true;
     ToolButton6.Visible := True;
+
     case cxTabControl1.TabIndex of
       0:
         begin
@@ -1616,5 +1645,54 @@ begin
   InitGrid();
 end;
 
+procedure TfrmContractListNX.ToolButton10Click(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then
+    exit;
+  edit7.Text := trim(CDS_Sub.FieldByName('SCSCode').AsString);
+   edit8.Text := trim(CDS_Sub.FieldByName('SCSName').AsString);
+    edit9.Text := trim(CDS_Sub.FieldByName('SCSColor').AsString);
+  mmo1.Text := trim(CDS_Sub.FieldByName('SCSNote').AsString);
+
+  Panel6.Visible := True;
+end;
+
+procedure TfrmContractListNX.Button12Click(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then
+    exit;
+
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  SalesContract_sub SET ');
+      sql.Add('SCSNote=' + quotedstr(trim(Mmo1.Text)));
+      sql.Add('where SubId=' + quotedstr(trim(CDS_Sub.fieldbyname('SubId').AsString)));
+
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' ' + quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(',' + quotedstr(trim(self.Caption)));
+      sql.Add(',' + quotedstr(trim('子表备注')));
+      sql.Add(',' + quotedstr(trim('子表编号：' + trim(CDS_Sub.FieldByName('SubId').AsString))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('备注成功！', '提示信息');
+    TBRafresh.Click;
+  except
+    application.MessageBox('备注失败！', '提示信息', 0);
+  end;
+  Panel6.Visible := False;
+end;
+
+procedure TfrmContractListNX.Button13Click(Sender: TObject);
+begin
+  Panel6.Visible := False;
+end;
+
 end.
 

合同管理(ContractManagement.dll)/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;  {数据库连接参数}

合同管理(ContractManagement.dll)/U_GetDllForm.pas

@@ -68,20 +68,22 @@ begin
   SetLength(dtbase, 255);
   SetLength(user, 255);
   SetLength(pswd, 255);
-
+  if Trim(DataBaseStr) = '' then
-  server := '47.103.192.8,7781';
+  begin
-//  server := '.';
+    server := '47.103.192.8,7781';
-  dtbase := 'yushangdata';
+    dtbase := 'yushangdata';
-  user := 'yushangsa';
+    user := 'yushangsa';
-//  user := 'sa';
+    pswd := 'rightsoft@7112';
-  pswd := 'rightsoft@7112';
+    DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-//  pswd := 'rightsoft';
-
-  DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-  DConString := DataBaseStr;
 //   DName:='³ÂÇí';
-//   DParameters1:='¸ßȨÏÞ';
+   DParameters1:='¸ßȨÏÞ';
    //DParameters3:='1';
+  end
+  else
+  begin
+    DConString := DataBaseStr;
+  end;
+
   if not ConnData() then
   begin
     result := 0;

样品(YPGL.dll)/ProjectGroup1.bpg

@@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe ProductPrice.dll
+PROJECTS = testDll.exe YPGL.dll
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
@@ -17,7 +17,7 @@ default: $(PROJECTS)
 testDll.exe: testDll.dpr
   $(DCC)
 
-ProductPrice.dll: ProductPrice.dpr
+YPGL.dll: YPGL.dpr
   $(DCC)
 
 

样品(YPGL.dll)/U_CPManage.dfm

@@ -1,6 +1,6 @@
 object frmCPManage: TfrmCPManage
-  Left = 160
+  Left = 444
-  Top = 146
+  Top = 159
   Width = 1504
   Height = 664
   Caption = #20135#21697#26723#26696
@@ -20,7 +20,7 @@ object frmCPManage: TfrmCPManage
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1488
+    Width = 1496
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 83
@@ -144,7 +144,8 @@ object frmCPManage: TfrmCPManage
       Text = #26679#21697#26631#31614
       Items.Strings = (
         #26679#21697#26631#31614
-        #26679#21697#26631#31614'1')
+        #26679#21697#26631#31614'1'
+        #26679#24067#26631#31614)
     end
     object ToolButton8: TToolButton
       Left = 819
@@ -175,14 +176,14 @@ object frmCPManage: TfrmCPManage
     Left = 220
     Top = 105
     Width = 8
-    Height = 520
+    Height = 528
     HotZoneClassName = 'TcxMediaPlayer9Style'
     Control = Panel5
   end
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1488
+    Width = 1496
     Height = 74
     Align = alTop
     BevelInner = bvRaised
@@ -428,7 +429,7 @@ object frmCPManage: TfrmCPManage
     Left = 0
     Top = 105
     Width = 220
-    Height = 520
+    Height = 528
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -437,7 +438,7 @@ object frmCPManage: TfrmCPManage
       Left = 2
       Top = 2
       Width = 216
-      Height = 516
+      Height = 524
       Align = alClient
       Bands = <
         item
@@ -470,8 +471,8 @@ object frmCPManage: TfrmCPManage
   object Panel3: TPanel
     Left = 228
     Top = 105
-    Width = 1260
+    Width = 1268
-    Height = 520
+    Height = 528
     Align = alClient
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -480,8 +481,8 @@ object frmCPManage: TfrmCPManage
     object cxGrid1: TcxGrid
       Left = 2
       Top = 2
-      Width = 1256
+      Width = 1264
-      Height = 321
+      Height = 329
       Align = alClient
       PopupMenu = PopupMenu1
       TabOrder = 0
@@ -740,8 +741,8 @@ object frmCPManage: TfrmCPManage
     end
     object GroupBox1: TGroupBox
       Left = 2
-      Top = 323
+      Top = 331
-      Width = 1256
+      Width = 1264
       Height = 195
       Align = alBottom
       Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
@@ -749,7 +750,7 @@ object frmCPManage: TfrmCPManage
       object ScrollBox1: TScrollBox
         Left = 2
         Top = 14
-        Width = 1252
+        Width = 1260
         Height = 179
         Align = alClient
         BevelInner = bvLowered

样品(YPGL.dll)/U_CPManage.pas

@@ -13,7 +13,20 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, jpeg, U_SLT, ComObj, Menus,
   cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
-  cxTextEdit;
+  cxTextEdit, 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
   FdDy = record
@@ -525,7 +538,12 @@ begin
           Moudle := LoadLibrary('MakeQRBarcode.dll');
           @Makebar := GetProcAddress(Moudle, 'Make');
           @Mixtext := GetProcAddress(Moudle, 'MixText');
-          Txt := Trim(CDS_Main.fieldbyname('CYID').AsString);
+          if trim(ComboBox1.Text) = 'Ñù²¼±êÇ©' then
+          begin
+            Txt := Trim(CDS_Main.fieldbyname('CYNo').AsString)+','+Trim(CDS_Main.fieldbyname('CYName').AsString)+','+Trim(CDS_Main.fieldbyname('CYSpec').AsString)+','+Trim(CDS_Main.fieldbyname('CYCF').AsString)+','+Trim(CDS_Main.fieldbyname('CYPrice').AsString);
+          end
+          else
+            Txt := Trim(CDS_Main.fieldbyname('CYID').AsString);
           fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
           if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
             CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
@@ -861,7 +879,12 @@ begin
           Moudle := LoadLibrary('MakeQRBarcode.dll');
           @Makebar := GetProcAddress(Moudle, 'Make');
           @Mixtext := GetProcAddress(Moudle, 'MixText');
-          Txt := Trim(CDS_Main.fieldbyname('CYID').AsString);
+          if trim(ComboBox1.Text) = 'Ñù²¼±êÇ©' then
+          begin
+            Txt := Trim(CDS_Main.fieldbyname('CYNo').AsString)+','+Trim(CDS_Main.fieldbyname('CYName').AsString)+','+Trim(CDS_Main.fieldbyname('CYSpec').AsString)+','+Trim(CDS_Main.fieldbyname('CYCF').AsString)+','+Trim(CDS_Main.fieldbyname('CYPrice').AsString);
+          end
+          else
+            Txt := Trim(CDS_Main.fieldbyname('CYID').AsString);
           fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
           if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
             CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);

样品(YPGL.dll)/U_CPType.dfm

@@ -19,7 +19,7 @@ object frmCPType: TfrmCPType
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 981
+    Width = 989
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 83
@@ -77,15 +77,15 @@ object frmCPType: TfrmCPType
     Left = 0
     Top = 33
     Width = 249
-    Height = 497
+    Height = 504
     Align = alLeft
     Bands = <
       item
       end>
-    BufferedPaint = False
     DataController.DataSource = DataSource1
     DataController.ParentField = 'CPParent'
     DataController.KeyField = 'CPID'
+    Navigator.Buttons.CustomButtons = <>
     OptionsBehavior.ExpandOnDblClick = False
     OptionsSelection.CellSelect = False
     OptionsView.CellAutoHeight = True
@@ -99,9 +99,11 @@ object frmCPType: TfrmCPType
     object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
       DataBinding.FieldName = 'CPName'
       Width = 210
-      Position.ColIndex = 1
+      Position.ColIndex = 0
       Position.RowIndex = 0
       Position.BandIndex = 0
+      Summary.FooterSummaryItems = <>
+      Summary.GroupFooterSummaryItems = <>
     end
   end
   object Panel1: TPanel

样品(YPGL.dll)/U_CPType.pas

@@ -6,7 +6,21 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
   cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
-  StdCtrls, ExtCtrls, DBClient;
+  StdCtrls, ExtCtrls, DBClient, cxLookAndFeels, cxLookAndFeelPainters,
+  cxTLdxBarBuiltInMenu, 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;
 
 type
   TfrmCPType = class(TForm)
@@ -55,7 +69,7 @@ var
 
 implementation
 uses
-  U_DataLink,U_Fun;
+  U_DataLink, U_Fun;
 
 {$R *.dfm}
 

样品(YPGL.dll)/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;  {数据库连接参数}

样品(YPGL.dll)/U_GetDllForm.pas

@@ -65,17 +65,19 @@ begin
   SetLength(user, 255);
   SetLength(pswd, 255);
 
-  server := '47.103.192.8,7781';
+  if Trim(DataBaseStr) = '' then
-//  server := '.';
+  begin
-  dtbase := 'yushangdata';
+    server := '47.103.192.8,7781';
-  user := 'yushangsa';
+    dtbase := 'yushangdata';
-//  user := 'sa';
+    user := 'yushangsa';
-  pswd := 'rightsoft@7112';
+    pswd := 'rightsoft@7112';
-//  pswd := 'rightsoft';
+    DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-  DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
+  end
-  DConString := DataBaseStr;
+  else
-//   DParameters1:='高权限';
+  begin
-//  DName := '王俊佑';
+    DConString := DataBaseStr;
+  end;
+
   if not ConnData() then
   begin
     result := 0;

样品(YPGL.dll)/YPGL.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\凌志超开发代码\项目代码\宇尚\样品(YPGL.dll)\testDll.exe
+HostApplication=D:\Project\D7gmYushang\ÑùÆ·(YPGL.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

样品(YPGL.dll)/YPGL.~dpr

@@ -11,15 +11,15 @@ uses
   U_iniParam in 'U_iniParam.pas',
   U_CPType in 'U_CPType.pas' {frmCPType},
   U_CPAddPN in 'U_CPAddPN.pas' {frmCPAddPN},
-  U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
+  U_SelExportField in '..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
-  U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
+  U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
-  U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
+  U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
-  U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
+  U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
-  U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
+  U_ZDYHelp in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
-  U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
+  U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
-  U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
+  U_Fun10 in '..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas',
   U_CPManage in 'U_CPManage.pas' {frmCPManage},
-  U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
+  U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
   U_SLT in 'U_SLT.pas' {frmSLT: TFrame},
   U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}  ;