From 31fc78d5e589cc488fa5762dd3cceb28eeaf5535 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 27 Oct 2025 16:45:04 +0800 Subject: [PATCH] 1234 --- .../SampleWarehouse.dof | 2 +- .../SampleWarehouse.dpr | 1 + 样品仓库(SampleWarehouse.dll)/U_DataLink.pas | 15 +++++- 样品仓库(SampleWarehouse.dll)/U_JYGLlist.dfm | 48 +++++++++++++++---- 样品仓库(SampleWarehouse.dll)/U_JYGLlist.pas | 18 ++++++- .../U_JYGLlistCW.dfm | 26 ++++++---- .../U_JYGLlistCW.pas | 16 ++++++- .../U_JYGLlistCX.dfm | 8 +++- .../U_JYGLlistCX.pas | 16 ++++++- .../U_JYGLlistSH.dfm | 26 ++++++---- .../U_JYGLlistSH.pas | 16 ++++++- 11 files changed, 155 insertions(+), 37 deletions(-) diff --git a/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dof b/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dof index eb31b93..ae99cdd 100644 --- a/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dof +++ b/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\\Ʒֿ(SampleWarehouse.dll)\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7gmYushang\Ʒֿ(SampleWarehouse.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dpr b/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dpr index 2780691..b5e88ac 100644 --- a/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dpr +++ b/样品仓库(SampleWarehouse.dll)/SampleWarehouse.dpr @@ -6,6 +6,7 @@ uses forms, WinTypes, WinProcs, + midaslib, U_GetDllForm in 'U_GetDllForm.pas', U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, diff --git a/样品仓库(SampleWarehouse.dll)/U_DataLink.pas b/样品仓库(SampleWarehouse.dll)/U_DataLink.pas index 7ed6434..a16f694 100644 --- a/样品仓库(SampleWarehouse.dll)/U_DataLink.pas +++ b/样品仓库(SampleWarehouse.dll)/U_DataLink.pas @@ -5,7 +5,20 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, SyncObjs, ExtCtrls, - dxSkinsCore, dxSkinsDefaultPainters; + dxSkinsCore, dxSkinsDefaultPainters, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TMyThread = class(TThread) diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlist.dfm b/样品仓库(SampleWarehouse.dll)/U_JYGLlist.dfm index b7d1123..0741d16 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlist.dfm +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlist.dfm @@ -20,7 +20,7 @@ object frmJYGLlist: TfrmJYGLlist object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1370 + Width = 1362 Height = 62 AutoSize = True ButtonHeight = 30 @@ -208,7 +208,7 @@ object frmJYGLlist: TfrmJYGLlist object Panel1: TPanel Left = 0 Top = 62 - Width = 1370 + Width = 1362 Height = 65 Align = alTop BevelInner = bvRaised @@ -358,6 +358,19 @@ object frmJYGLlist: TfrmJYGLlist Font.Style = [fsBold] ParentFont = False end + object Label12: TLabel + Left = 804 + Top = 36 + Width = 53 + Height = 12 + Caption = #26465' '#30721' '#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 @@ -477,12 +490,21 @@ object frmJYGLlist: TfrmJYGLlist TabOrder = 10 OnKeyPress = salesmanKeyPress end + object mjid: TEdit + Tag = 2 + Left = 856 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 11 + OnKeyPress = salesmanKeyPress + end end object cxGrid1: TcxGrid Left = 0 Top = 175 - Width = 1370 - Height = 309 + Width = 1362 + Height = 301 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -491,6 +513,7 @@ object frmJYGLlist: TfrmJYGLlist OnCellClick = Tv1CellClick OnCustomDrawCell = Tv1CustomDrawCell DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item @@ -516,7 +539,6 @@ object frmJYGLlist: TfrmJYGLlist OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True @@ -717,6 +739,12 @@ object frmJYGLlist: TfrmJYGLlist Styles.Header = cxStyle4 Width = 90 end + object Tv1Column11: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 72 + end object v1Note: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' @@ -813,8 +841,8 @@ object frmJYGLlist: TfrmJYGLlist end object GroupBox1: TGroupBox Left = 0 - Top = 484 - Width = 1370 + Top = 476 + Width = 1362 Height = 195 Align = alBottom Caption = #32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 @@ -823,7 +851,7 @@ object frmJYGLlist: TfrmJYGLlist object ScrollBox1: TScrollBox Left = 2 Top = 14 - Width = 1366 + Width = 1358 Height = 179 Align = alClient BevelInner = bvLowered @@ -834,7 +862,7 @@ object frmJYGLlist: TfrmJYGLlist object cxTabControl1: TcxTabControl Left = 0 Top = 127 - Width = 1370 + Width = 1362 Height = 24 Align = alTop Font.Charset = GB2312_CHARSET @@ -912,7 +940,7 @@ object frmJYGLlist: TfrmJYGLlist object cxTabControl2: TcxTabControl Left = 0 Top = 151 - Width = 1370 + Width = 1362 Height = 24 Align = alTop Font.Charset = GB2312_CHARSET diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlist.pas b/样品仓库(SampleWarehouse.dll)/U_JYGLlist.pas index c394431..64586cf 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlist.pas +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlist.pas @@ -12,7 +12,20 @@ uses RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC, cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, - dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; + dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmJYGLlist = class(TForm) @@ -139,6 +152,9 @@ type Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Label12: TLabel; + mjid: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure OrderNoChange(Sender: TObject); diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.dfm b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.dfm index c0b40c6..6548c08 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.dfm +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.dfm @@ -20,7 +20,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1369 + Width = 1361 AutoSize = True ButtonHeight = 30 ButtonWidth = 131 @@ -155,7 +155,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW object Panel1: TPanel Left = 0 Top = 32 - Width = 1369 + Width = 1361 Height = 65 Align = alTop BevelInner = bvRaised @@ -407,8 +407,8 @@ object frmJYGLlistCW: TfrmJYGLlistCW object cxGrid1: TcxGrid Left = 0 Top = 120 - Width = 1369 - Height = 260 + Width = 1361 + Height = 252 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -586,7 +586,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW object cxTabControl1: TcxTabControl Left = 0 Top = 97 - Width = 1369 + Width = 1361 Height = 23 Align = alTop Font.Charset = GB2312_CHARSET @@ -681,16 +681,16 @@ object frmJYGLlistCW: TfrmJYGLlistCW end object cxSplitter1: TcxSplitter Left = 0 - Top = 380 - Width = 1369 + Top = 372 + Width = 1361 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom end object Panel2: TPanel Left = 0 - Top = 388 - Width = 1369 + Top = 380 + Width = 1361 Height = 196 Align = alBottom BevelOuter = bvNone @@ -699,7 +699,7 @@ object frmJYGLlistCW: TfrmJYGLlistCW object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 1369 + Width = 1361 Height = 196 Align = alClient PopupMenu = PopupMenu1 @@ -888,6 +888,12 @@ object frmJYGLlistCW: TfrmJYGLlistCW HeaderAlignmentHorz = taCenter Width = 75 end + object TV2Column7: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 69 + end object TV2Column3: TcxGridDBColumn Caption = #20179#24211#31867#22411 DataBinding.FieldName = 'CKLX' diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.pas b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.pas index 7fb79cb..d1f638c 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.pas +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.pas @@ -13,7 +13,20 @@ uses cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxCalendar, cxSplitter, dxSkinsCore, dxSkinsDefaultPainters, - dxSkinscxPCPainter; + dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmJYGLlistCW = class(TForm) @@ -139,6 +152,7 @@ type TV2Column5: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; TV2Column6: TcxGridDBColumn; + TV2Column7: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure OrderNoChange(Sender: TObject); diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.dfm b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.dfm index fc5be23..fecc262 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.dfm +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.dfm @@ -373,6 +373,7 @@ object frmJYGLlistCX: TfrmJYGLlistCX object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item @@ -398,7 +399,6 @@ object frmJYGLlistCX: TfrmJYGLlistCX OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True @@ -656,6 +656,12 @@ object frmJYGLlistCX: TfrmJYGLlistCX Visible = False Width = 68 end + object Tv1Column8: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 74 + end object Tv1Column7: TcxGridDBColumn Caption = #25552#20132#26102#38388 DataBinding.FieldName = 'TJDATE' diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.pas b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.pas index 2c0dbb6..3651217 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.pas +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlistCX.pas @@ -12,7 +12,20 @@ uses RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC, cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, - cxCalendar, cxSplitter; + cxCalendar, cxSplitter, 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 TfrmJYGLlistCX = class(TForm) @@ -116,6 +129,7 @@ type Label3: TLabel; KUWEI: TEdit; Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure OrderNoChange(Sender: TObject); diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.dfm b/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.dfm index d7372cf..8042e75 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.dfm +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.dfm @@ -20,7 +20,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1369 + Width = 1361 AutoSize = True ButtonHeight = 30 ButtonWidth = 131 @@ -151,7 +151,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH object Panel1: TPanel Left = 0 Top = 32 - Width = 1369 + Width = 1361 Height = 65 Align = alTop BevelInner = bvRaised @@ -445,8 +445,8 @@ object frmJYGLlistSH: TfrmJYGLlistSH object cxGrid1: TcxGrid Left = 0 Top = 120 - Width = 1369 - Height = 351 + Width = 1361 + Height = 343 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -626,7 +626,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH object cxTabControl1: TcxTabControl Left = 0 Top = 97 - Width = 1369 + Width = 1361 Height = 23 Align = alTop Font.Charset = GB2312_CHARSET @@ -720,16 +720,16 @@ object frmJYGLlistSH: TfrmJYGLlistSH end object cxSplitter1: TcxSplitter Left = 0 - Top = 471 - Width = 1369 + Top = 463 + Width = 1361 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom end object Panel2: TPanel Left = 0 - Top = 479 - Width = 1369 + Top = 471 + Width = 1361 Height = 196 Align = alBottom BevelOuter = bvNone @@ -738,7 +738,7 @@ object frmJYGLlistSH: TfrmJYGLlistSH object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 1369 + Width = 1361 Height = 196 Align = alClient PopupMenu = PopupMenu1 @@ -935,6 +935,12 @@ object frmJYGLlistSH: TfrmJYGLlistSH HeaderAlignmentHorz = taCenter Width = 66 end + object TV2Column10: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 70 + end object cxGridDBColumn21: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' diff --git a/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.pas b/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.pas index 6457f92..a6dc8df 100644 --- a/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.pas +++ b/样品仓库(SampleWarehouse.dll)/U_JYGLlistSH.pas @@ -13,7 +13,20 @@ uses cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxCalendar, cxSplitter, dxSkinsCore, dxSkinsDefaultPainters, - dxSkinscxPCPainter; + dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmJYGLlistSH = class(TForm) @@ -147,6 +160,7 @@ type QSDATE: TDateTimePicker; JSDATE: TDateTimePicker; CheckBox1: TCheckBox; + TV2Column10: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure OrderNoChange(Sender: TObject);