无冲突提交

This commit is contained in:
ddf 2025-11-11 15:09:01 +08:00
parent 1bba6fcaa5
commit d4a941deba
8 changed files with 124 additions and 49 deletions

View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 611 Left = 293
Top = 221 Top = 225
Width = 1117 Width = 1117
Height = 743 Height = 743
Caption = #25351#31034#21333#24405#20837 Caption = #25351#31034#21333#24405#20837
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1109 Width = 1101
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -58,7 +58,7 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1109 Width = 1101
Height = 316 Height = 316
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -200,7 +200,7 @@ object frmOrderInPut: TfrmOrderInPut
end end
object Label26: TLabel object Label26: TLabel
Left = 415 Left = 415
Top = 74 Top = 72
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #24067#31181#32534#21495#65306 Caption = #24067#31181#32534#21495#65306
@ -380,6 +380,19 @@ object frmOrderInPut: TfrmOrderInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label22: TLabel
Left = 578
Top = 72
Width = 65
Height = 12
Caption = #26631#31614#23458#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit object OrderNo: TEdit
Tag = 1 Tag = 1
Left = 97 Left = 97
@ -555,7 +568,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTCode: TEdit object MPRTCode: TEdit
Tag = 1 Tag = 1
Left = 474 Left = 474
Top = 71 Top = 69
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 17 TabOrder = 17
@ -614,19 +627,27 @@ object frmOrderInPut: TfrmOrderInPut
TabOrder = 23 TabOrder = 23
OnChange = PRTColorChange OnChange = PRTColorChange
end end
object LBCustName: TEdit
Tag = 1
Left = 646
Top = 69
Width = 100
Height = 18
TabOrder = 24
end
end end
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 345 Top = 345
Width = 1109 Width = 1101
Height = 367 Height = 359
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet4 Properties.ActivePage = cxTabSheet4
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 8 Properties.Style = 8
ClientRectBottom = 367 ClientRectBottom = 359
ClientRectRight = 1109 ClientRectRight = 1101
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #24037#24207#23450#20041 Caption = #24037#24207#23450#20041
@ -635,7 +656,6 @@ object frmOrderInPut: TfrmOrderInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1101 Width = 1101
Height = 29
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -689,7 +709,7 @@ object frmOrderInPut: TfrmOrderInPut
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1101 Width = 1101
Height = 308 Height = 304
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -735,7 +755,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1109 Width = 1101
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -764,8 +784,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1109 Width = 1101
Height = 312 Height = 304
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView

View File

@ -119,6 +119,8 @@ type
MPRTCF: TEdit; MPRTCF: TEdit;
Label21: TLabel; Label21: TLabel;
PRTKuanNO: TEdit; PRTKuanNO: TEdit;
Label22: TLabel;
LBCustName: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -635,6 +637,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString); CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
LBCustName.Text := Trim(CDS_HZ.fieldbyname('CoHRName').AsString);
CustomerNoName.TxtCode := Trim(CDS_HZ.fieldbyname('CoCode').AsString); CustomerNoName.TxtCode := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
YWY.Text := Trim(CDS_HZ.fieldbyname('Salesman').AsString); YWY.Text := Trim(CDS_HZ.fieldbyname('Salesman').AsString);
end; end;

View File

@ -10,7 +10,21 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, MMSystem, Menus, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, MMSystem, Menus,
BtnEdit, RM_e_Xls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; BtnEdit, RM_e_Xls, 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 type
TfrmPBKcList = class(TForm) TfrmPBKcList = class(TForm)

View File

@ -21,6 +21,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1272 Width = 1272
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -85,12 +86,13 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
AutoSize = True AutoSize = True
Caption = #21253#26631#31614#35774#32622 Caption = #21253#26631#31614#35774#32622
ImageIndex = 15 ImageIndex = 15
Wrap = True
Visible = False Visible = False
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 510 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #21253#26631#31614#27979#35797#39044#35272 Caption = #21253#26631#31614#27979#35797#39044#35272
ImageIndex = 14 ImageIndex = 14
@ -98,24 +100,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 633 Left = 123
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #30382#37325#35774#32622'(Kg)' Caption = #30382#37325#35774#32622'(Kg)'
ImageIndex = 11 ImageIndex = 11
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 744 Left = 234
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #31995#25968#35774#32622 Caption = #31995#25968#35774#32622
ImageIndex = 11 ImageIndex = 11
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object PiZhong: TEdit object PiZhong: TEdit
Left = 831 Left = 321
Top = 0 Top = 30
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -127,8 +129,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
TabOrder = 0 TabOrder = 0
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 952 Left = 442
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -137,7 +139,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1272 Width = 1272
Height = 67 Height = 67
Align = alTop Align = alTop
@ -358,13 +360,13 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 129
Width = 1272 Width = 1272
Height = 463 Height = 432
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -508,8 +510,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Caption = #25442#31639#31995#25968 Caption = #25442#31639#31995#25968
DataBinding.FieldName = 'Xs' DataBinding.FieldName = 'Xs'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
VisibleForCustomization = False
Width = 75 Width = 75
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
@ -526,8 +528,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
VisibleForCustomization = False
Width = 109 Width = 109
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn

View File

@ -10,7 +10,22 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit,
cxDropDownEdit; cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, 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,
cxNavigator;
type type
TfrmProductOrderLBNameSet = class(TForm) TfrmProductOrderLBNameSet = class(TForm)

View File

@ -1,6 +1,6 @@
object frmProductOrderList: TfrmProductOrderList object frmProductOrderList: TfrmProductOrderList
Left = 288 Left = 226
Top = 72 Top = 163
Width = 1256 Width = 1256
Height = 754 Height = 754
Caption = #29983#20135#25351#31034#21333 Caption = #29983#20135#25351#31034#21333
@ -19,7 +19,7 @@ object frmProductOrderList: TfrmProductOrderList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1248 Width = 1240
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -162,16 +162,16 @@ object frmProductOrderList: TfrmProductOrderList
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 162 Top = 162
Width = 1248 Width = 1240
Height = 561 Height = 553
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet4 Properties.ActivePage = cxTabSheet4
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 8 Properties.Style = 8
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 561 ClientRectBottom = 553
ClientRectRight = 1248 ClientRectRight = 1240
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #22383#24067#24211#21015#34920 Caption = #22383#24067#24211#21015#34920
@ -198,7 +198,7 @@ object frmProductOrderList: TfrmProductOrderList
Left = 0 Left = 0
Top = 22 Top = 22
Width = 1240 Width = 1240
Height = 479 Height = 508
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBtnShadow Font.Color = clBtnShadow
@ -412,7 +412,7 @@ object frmProductOrderList: TfrmProductOrderList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1248 Width = 1240
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
@ -426,14 +426,14 @@ object frmProductOrderList: TfrmProductOrderList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1248 ClientRectRight = 1240
ClientRectTop = 22 ClientRectTop = 22
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 22 Top = 22
Width = 1248 Width = 1240
Height = 516 Height = 508
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
@ -632,6 +632,12 @@ object frmProductOrderList: TfrmProductOrderList
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
end end
object Tv1Column2: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'PRTKuanNo'
HeaderAlignmentHorz = taCenter
Width = 67
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -642,7 +648,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1248 Width = 1240
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -817,7 +823,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1248 Width = 1240
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

View File

@ -150,6 +150,7 @@ type
V2Column6: TcxGridDBColumn; V2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -275,7 +276,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select AA.* from ('); SQL.Add('select AA.* from (');
sql.add('select A.*,B.SubId,B.XHNo,B.PRTColor,B.PRTPs,B.PRTOrderQty,B.OrderUnit'); sql.add('select A.*,B.SubId,B.XHNo,B.PRTColor,B.PRTPs,B.PRTOrderQty,B.OrderUnit,B.PRTKuanNo');
sql.add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId'); sql.add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId');
sql.Add('where A.FILLTime>=' + Quotedstr(formatdateTime('yyyy-MM-dd', begdate.Date))); sql.Add('where A.FILLTime>=' + Quotedstr(formatdateTime('yyyy-MM-dd', begdate.Date)));
sql.Add('and A.FILLTime<' + Quotedstr(formatdateTime('yyyy-MM-dd', enddate.Date + 1))); sql.Add('and A.FILLTime<' + Quotedstr(formatdateTime('yyyy-MM-dd', enddate.Date + 1)));

View File

@ -12,7 +12,21 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxTextEdit, 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 type
TfrmZdyAttachment = class(TForm) TfrmZdyAttachment = class(TForm)