Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-08 09:22:54 +08:00
parent 25211fde53
commit dda179af58
73 changed files with 2628 additions and 2179 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
云翔生产管理(MYSC.dll)/U_BPZdy_LRM.dfm
View File

@ -1,6 +1,6 @@
object frmBPZDY_LRM: TfrmBPZDY_LRM object frmBPZDY_LRM: TfrmBPZDY_LRM
Left = 193 Left = 534
Top = 58 Top = 240
Width = 1157 Width = 1157
Height = 712 Height = 712
Caption = #26825#21697#21517#24405#20837 Caption = #26825#21697#21517#24405#20837
@ -22,7 +22,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1141 Width = 1149
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -104,16 +104,16 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1141 Width = 1149
Height = 642 Height = 650
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 519 Top = 527
Width = 1137 Width = 1145
Height = 121 Height = 121
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
@ -430,8 +430,8 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
object Panel6: TPanel object Panel6: TPanel
Left = 204 Left = 204
Top = 2 Top = 2
Width = 935 Width = 943
Height = 517 Height = 525
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -439,8 +439,8 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 33 Top = 33
Width = 931 Width = 939
Height = 482 Height = 490
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -562,7 +562,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 2 Left = 2
Top = 2 Top = 2
Width = 931 Width = 939
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -627,7 +627,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
Left = 2 Left = 2
Top = 2 Top = 2
Width = 202 Width = 202
Height = 517 Height = 525
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -636,7 +636,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM
Left = 2 Left = 2
Top = 33 Top = 33
Width = 198 Width = 198
Height = 482 Height = 490
Align = alClient Align = alClient
Bands = < Bands = <
item item

15
云翔生产管理(MYSC.dll)/U_BPZdy_LRM.pas
View File

@ -11,7 +11,20 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxButtonEdit, BtnEdit, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxButtonEdit, BtnEdit,
cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxContainer, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxContainer,
cxCurrencyEdit, cxCheckBox, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxCurrencyEdit, cxCheckBox, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, cxTLdxBarBuiltInMenu; cxNavigator, 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, dxSkinscxPCPainter;
type type
TfrmBPZDY_LRM = class(TForm) TfrmBPZDY_LRM = class(TForm)

172
云翔生产管理(MYSC.dll)/U_BPZdy_LRX.dfm
View File

@ -7,7 +7,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -17,12 +17,12 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1141 Width = 1149
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -104,123 +104,123 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1141 Width = 1149
Height = 641 Height = 650
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 508 Top = 527
Width = 1137 Width = 1145
Height = 131 Height = 121
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
object Label6: TLabel object Label6: TLabel
Left = 356 Left = 329
Top = 150 Top = 138
Width = 52 Width = 47
Height = 13 Height = 12
Caption = #21697' '#21517' ' Caption = #21697' '#21517' '
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label7: TLabel object Label7: TLabel
Left = 269 Left = 248
Top = 145 Top = 134
Width = 38 Width = 36
Height = 18 Height = 17
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label8: TLabel object Label8: TLabel
Left = 467 Left = 431
Top = 13 Top = 12
Width = 38 Width = 36
Height = 18 Height = 17
Caption = #39068#33394 Caption = #39068#33394
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 347 Left = 320
Top = 13 Top = 12
Width = 38 Width = 36
Height = 18 Height = 17
Caption = #32447#21495 Caption = #32447#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label14: TLabel object Label14: TLabel
Left = 347 Left = 320
Top = 48 Top = 44
Width = 38 Width = 36
Height = 18 Height = 17
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label15: TLabel object Label15: TLabel
Left = 593 Left = 547
Top = 13 Top = 12
Width = 38 Width = 36
Height = 18 Height = 17
Caption = #21333#20215 Caption = #21333#20215
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label16: TLabel object Label16: TLabel
Left = 51 Left = 47
Top = 22 Top = 20
Width = 32 Width = 29
Height = 61 Height = 56
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -61 Font.Height = -56
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Button1: TButton object Button1: TButton
Left = 496 Left = 458
Top = 79 Top = 73
Width = 96 Width = 88
Height = 40 Height = 37
Caption = #20445#23384 Caption = #20445#23384
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -230,14 +230,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object BPColNo: TEdit object BPColNo: TEdit
Tag = 2 Tag = 2
Left = 392 Left = 362
Top = 9 Top = 8
Width = 49 Width = 45
Height = 26 Height = 26
CharCase = ecUpperCase CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -246,14 +246,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object BPColor: TEdit object BPColor: TEdit
Tag = 2 Tag = 2
Left = 511 Left = 472
Top = 9 Top = 8
Width = 55 Width = 50
Height = 26 Height = 26
CharCase = ecUpperCase CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -262,14 +262,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object BPName: TEdit object BPName: TEdit
Tag = 2 Tag = 2
Left = 315 Left = 291
Top = 141 Top = 130
Width = 132 Width = 122
Height = 26 Height = 26
CharCase = ecUpperCase CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -279,14 +279,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object BPNote: TEdit object BPNote: TEdit
Tag = 2 Tag = 2
Left = 392 Left = 362
Top = 44 Top = 41
Width = 298 Width = 275
Height = 26 Height = 26
CharCase = ecUpperCase CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -295,14 +295,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object BPPrice: TEdit object BPPrice: TEdit
Tag = 2 Tag = 2
Left = 639 Left = 590
Top = 9 Top = 8
Width = 50 Width = 46
Height = 26 Height = 26
CharCase = ecUpperCase CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -311,10 +311,10 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
end end
object Panel6: TPanel object Panel6: TPanel
Left = 221 Left = 204
Top = 2 Top = 2
Width = 918 Width = 943
Height = 506 Height = 525
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -322,12 +322,12 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 33 Top = 33
Width = 914 Width = 939
Height = 471 Height = 490
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV1CellDblClick OnCellDblClick = TV1CellDblClick
OnFocusedRecordChanged = TV1FocusedRecordChanged OnFocusedRecordChanged = TV1FocusedRecordChanged
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
@ -384,7 +384,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 2 Left = 2
Top = 2 Top = 2
Width = 914 Width = 939
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -432,8 +432,8 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 219 Width = 202
Height = 506 Height = 525
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -441,21 +441,21 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
object cxDBTreeList1: TcxDBTreeList object cxDBTreeList1: TcxDBTreeList
Left = 2 Left = 2
Top = 33 Top = 33
Width = 215 Width = 198
Height = 471 Height = 490
Align = alClient Align = alClient
Bands = < Bands = <
item item
end> end>
BufferedPaint = False
DataController.DataSource = DataSource4 DataController.DataSource = DataSource4
DataController.ParentField = 'CPParent' DataController.ParentField = 'CPParent'
DataController.KeyField = 'CPID' DataController.KeyField = 'CPID'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
Navigator.Buttons.CustomButtons = <>
OptionsBehavior.ExpandOnDblClick = False OptionsBehavior.ExpandOnDblClick = False
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
@ -470,15 +470,17 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CP' DataBinding.FieldName = 'CP'
Width = 210 Width = 210
Position.ColIndex = 1 Position.ColIndex = 0
Position.RowIndex = 0 Position.RowIndex = 0
Position.BandIndex = 0 Position.BandIndex = 0
Summary.FooterSummaryItems = <>
Summary.GroupFooterSummaryItems = <>
end end
end end
object ToolBar3: TToolBar object ToolBar3: TToolBar
Left = 2 Left = 2
Top = 2 Top = 2
Width = 215 Width = 198
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 71 ButtonWidth = 71
@ -18445,6 +18447,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 728 Left = 728
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
Color = clSkyBlue Color = clSkyBlue
@ -18458,6 +18461,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX
end end
object cxStyleRepository2: TcxStyleRepository object cxStyleRepository2: TcxStyleRepository
Left = 641 Left = 641
PixelsPerInch = 96
object cxStyle2: TcxStyle object cxStyle2: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

17
云翔生产管理(MYSC.dll)/U_BPZdy_LRX.pas
View File

@ -10,7 +10,22 @@ uses
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL,
cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter; cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter,
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, cxTLdxBarBuiltInMenu;
type type
TfrmBPZDY_LRX = class(TForm) TfrmBPZDY_LRX = class(TForm)

12
云翔生产管理(MYSC.dll)/U_CGCX.dfm
View File

@ -21,7 +21,7 @@ object frmCGCX: TfrmCGCX
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1076 Width = 1084
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -100,8 +100,8 @@ object frmCGCX: TfrmCGCX
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 109 Top = 109
Width = 1076 Width = 1084
Height = 296 Height = 304
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -166,7 +166,7 @@ object frmCGCX: TfrmCGCX
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1076 Width = 1084
Height = 77 Height = 77
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -280,8 +280,8 @@ object frmCGCX: TfrmCGCX
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 405 Top = 413
Width = 1076 Width = 1084
Height = 242 Height = 242
Align = alBottom Align = alBottom
TabOrder = 3 TabOrder = 3

16
云翔生产管理(MYSC.dll)/U_CGCX.pas
View File

@ -10,7 +10,21 @@ 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, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxDropDownEdit, BtnEdit, 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
TfrmCGCX = class(TForm) TfrmCGCX = class(TForm)

246
云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.dfm
View File

@ -7,22 +7,22 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
OnClose = FormClose OnClose = FormClose
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 17 TextHeight = 15
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1367 Width = 1375
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 69 ButtonWidth = 65
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -40,7 +40,7 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 73 Left = 69
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
@ -48,7 +48,7 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 146 Left = 138
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -56,7 +56,7 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 219 Left = 207
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -67,82 +67,82 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1367 Width = 1375
Height = 79 Height = 70
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 38 Left = 34
Top = 15 Top = 13
Width = 64 Width = 61
Height = 16 Height = 15
Caption = #20379' '#24212' '#21830 Caption = #20379' '#24212' '#21830
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 233 Left = 206
Top = 46 Top = 41
Width = 32 Width = 30
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
end end
object Label12: TLabel object Label12: TLabel
Left = 417 Left = 368
Top = 15 Top = 13
Width = 64 Width = 60
Height = 16 Height = 15
Caption = #21333#20215#23457#26680 Caption = #21333#20215#23457#26680
end end
object Label5: TLabel object Label5: TLabel
Left = 38 Left = 34
Top = 46 Top = 41
Width = 64 Width = 60
Height = 16 Height = 15
Caption = #26159#21542#21547#31246 Caption = #26159#21542#21547#31246
end end
object Label1: TLabel object Label1: TLabel
Left = 619 Left = 546
Top = 14 Top = 12
Width = 64 Width = 60
Height = 16 Height = 15
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 417 Left = 368
Top = 46 Top = 41
Width = 64 Width = 62
Height = 16 Height = 15
Caption = #39068' '#33394 Caption = #39068' '#33394
end end
object GYSJCName: TEdit object GYSJCName: TEdit
Tag = 2 Tag = 2
Left = 111 Left = 98
Top = 11 Top = 10
Width = 193 Width = 170
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
@ -151,20 +151,20 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
OnKeyPress = GYSJCNameKeyPress OnKeyPress = GYSJCNameKeyPress
end end
object begdate: TDateTimePicker object begdate: TDateTimePicker
Left = 685 Left = 604
Top = 10 Top = 9
Width = 120 Width = 106
Height = 24 Height = 23
Date = 41256.918237847230000000 Date = 41256.918237847230000000
Time = 41256.918237847230000000 Time = 41256.918237847230000000
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
end end
object Enddate: TDateTimePicker object Enddate: TDateTimePicker
Left = 685 Left = 604
Top = 41 Top = 36
Width = 120 Width = 106
Height = 24 Height = 23
Date = 41256.918237847230000000 Date = 41256.918237847230000000
Time = 41256.918237847230000000 Time = 41256.918237847230000000
TabOrder = 2 TabOrder = 2
@ -172,30 +172,30 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
object P_CodeName: TEdit object P_CodeName: TEdit
Tag = 2 Tag = 2
Left = 268 Left = 236
Top = 42 Top = 37
Width = 128 Width = 113
Height = 24 Height = 24
TabOrder = 3 TabOrder = 3
OnChange = GYSJCNameChange OnChange = GYSJCNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 614 Left = 542
Top = 44 Top = 39
Width = 69 Width = 61
Height = 19 Height = 17
Caption = #25353#26085#26399 Caption = #25353#26085#26399
TabOrder = 4 TabOrder = 4
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object ChkStatusP: TComboBox object ChkStatusP: TComboBox
Tag = 2 Tag = 2
Left = 486 Left = 429
Top = 11 Top = 10
Width = 105 Width = 92
Height = 24 Height = 23
Style = csDropDownList Style = csDropDownList
ItemHeight = 16 ItemHeight = 15
TabOrder = 5 TabOrder = 5
OnChange = GYSJCNameChange OnChange = GYSJCNameChange
Items.Strings = ( Items.Strings = (
@ -205,12 +205,12 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
object HanShui: TComboBox object HanShui: TComboBox
Tag = 2 Tag = 2
Left = 111 Left = 98
Top = 42 Top = 37
Width = 94 Width = 83
Height = 24 Height = 23
Style = csDropDownList Style = csDropDownList
ItemHeight = 16 ItemHeight = 15
TabOrder = 6 TabOrder = 6
OnChange = GYSJCNameChange OnChange = GYSJCNameChange
Items.Strings = ( Items.Strings = (
@ -220,22 +220,22 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
object P_Color: TEdit object P_Color: TEdit
Tag = 2 Tag = 2
Left = 486 Left = 429
Top = 43 Top = 38
Width = 105 Width = 92
Height = 24 Height = 24
TabOrder = 7 TabOrder = 7
OnChange = GYSJCNameChange OnChange = GYSJCNameChange
end end
object FactoryNo: TEdit object FactoryNo: TEdit
Tag = 2 Tag = 2
Left = 305 Left = 269
Top = 11 Top = 10
Width = 91 Width = 80
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
@ -244,67 +244,67 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
OnKeyPress = FactoryNoKeyPress OnKeyPress = FactoryNoKeyPress
end end
object Panel3: TPanel object Panel3: TPanel
Left = 1182 Left = 1212
Top = 2 Top = 2
Width = 183 Width = 161
Height = 75 Height = 66
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 9 TabOrder = 9
object Label13: TLabel object Label13: TLabel
Left = 15 Left = 13
Top = 5 Top = 4
Width = 81 Width = 72
Height = 30 Height = 27
AutoSize = False AutoSize = False
Caption = ' ' Caption = ' '
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -30 Font.Height = -27
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object Label14: TLabel object Label14: TLabel
Left = 97 Left = 86
Top = 11 Top = 10
Width = 68 Width = 64
Height = 16 Height = 15
Caption = #65306#26410#23457#26680 Caption = #65306#26410#23457#26680
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label15: TLabel object Label15: TLabel
Left = 15 Left = 13
Top = 41 Top = 36
Width = 81 Width = 72
Height = 30 Height = 27
AutoSize = False AutoSize = False
Caption = ' ' Caption = ' '
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -30 Font.Height = -27
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object Label16: TLabel object Label16: TLabel
Left = 97 Left = 86
Top = 48 Top = 42
Width = 68 Width = 64
Height = 16 Height = 15
Caption = #65306#24050#23457#26680 Caption = #65306#24050#23457#26680
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -313,17 +313,17 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 110 Top = 101
Width = 479 Width = 423
Height = 515 Height = 533
Align = alLeft Align = alLeft
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
OnMouseDown = Tv2MouseDown OnMouseDown = Tv2MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -369,9 +369,9 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = v2P_SpecPropertiesButtonClick Properties.OnButtonClick = v2P_SpecPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
VisibleForCustomization = False
Width = 147 Width = 147
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
@ -385,14 +385,14 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
end end
object cxGridPB: TcxGrid object cxGridPB: TcxGrid
Left = 513 Left = 453
Top = 385 Top = 340
Width = 667 Width = 588
Height = 236 Height = 208
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSourcePB DataController.DataSource = DataSourcePB
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -518,14 +518,14 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
end end
object cxGridM: TcxGrid object cxGridM: TcxGrid
Left = 483 Left = 426
Top = 114 Top = 101
Width = 365 Width = 322
Height = 259 Height = 228
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSourceM DataController.DataSource = DataSourceM
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -650,14 +650,14 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
end end
object cxGridX: TcxGrid object cxGridX: TcxGrid
Left = 994 Left = 877
Top = 107 Top = 94
Width = 297 Width = 262
Height = 264 Height = 233
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 5 TabOrder = 5
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSourceX DataController.DataSource = DataSourceX
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -804,17 +804,17 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 652 Left = 575
Top = 324 Top = 286
Width = 337 Width = 298
Height = 47 Height = 41
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.pas
View File

@ -12,7 +12,22 @@ 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, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus; cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus, 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
TfrmCGPriceChk_BF = class(TForm) TfrmCGPriceChk_BF = class(TForm)

23
云翔生产管理(MYSC.dll)/U_CGRKList.dfm
View File

@ -1,6 +1,6 @@
object frmCGRKList: TfrmCGRKList object frmCGRKList: TfrmCGRKList
Left = 189 Left = 480
Top = 135 Top = 284
Width = 1217 Width = 1217
Height = 669 Height = 669
Caption = #37319#36141#20837#24211#30331#35760 Caption = #37319#36141#20837#24211#30331#35760
@ -20,7 +20,7 @@ object frmCGRKList: TfrmCGRKList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1201 Width = 1209
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -77,7 +77,6 @@ object frmCGRKList: TfrmCGRKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -114,8 +113,8 @@ object frmCGRKList: TfrmCGRKList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 99
Width = 1201 Width = 1209
Height = 531 Height = 539
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
@ -233,7 +232,7 @@ object frmCGRKList: TfrmCGRKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1201 Width = 1209
Height = 67 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -310,7 +309,7 @@ object frmCGRKList: TfrmCGRKList
Left = 286 Left = 286
Top = 9 Top = 9
Width = 118 Width = 118
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -355,7 +354,7 @@ object frmCGRKList: TfrmCGRKList
Left = 70 Left = 70
Top = 9 Top = 9
Width = 106 Width = 106
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -370,7 +369,7 @@ object frmCGRKList: TfrmCGRKList
Left = 286 Left = 286
Top = 35 Top = 35
Width = 144 Width = 144
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -385,7 +384,7 @@ object frmCGRKList: TfrmCGRKList
Left = 70 Left = 70
Top = 35 Top = 35
Width = 106 Width = 106
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -400,7 +399,7 @@ object frmCGRKList: TfrmCGRKList
Left = 485 Left = 485
Top = 9 Top = 9
Width = 75 Width = 75
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15

15
云翔生产管理(MYSC.dll)/U_CGRKList.pas
View File

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; 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
TfrmCGRKList = class(TForm) TfrmCGRKList = class(TForm)

294
云翔生产管理(MYSC.dll)/U_CPListDML.dfm
View File

@ -7,7 +7,7 @@ object frmCPListDML: TfrmCPListDML
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmCPListDML: TfrmCPListDML
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1263 Width = 1271
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -109,7 +109,6 @@ object frmCPListDML: TfrmCPListDML
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -123,16 +122,16 @@ object frmCPListDML: TfrmCPListDML
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 104 Top = 98
Width = 1263 Width = 1271
Height = 449 Height = 467
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -218,8 +217,8 @@ object frmCPListDML: TfrmCPListDML
Caption = #23454#29289#22270#29255 Caption = #23454#29289#22270#29255
DataBinding.FieldName = 'ImageFileTP' DataBinding.FieldName = 'ImageFileTP'
PropertiesClassName = 'TcxImageProperties' PropertiesClassName = 'TcxImageProperties'
Properties.FitMode = ifmProportionalStretch
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.Stretch = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 96 Width = 96
@ -281,8 +280,8 @@ object frmCPListDML: TfrmCPListDML
object Panel11: TPanel object Panel11: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1263 Width = 1271
Height = 45 Height = 41
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -291,64 +290,64 @@ object frmCPListDML: TfrmCPListDML
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 373 Width = 344
Height = 41 Height = 37
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 0 TabOrder = 0
object Label3: TLabel object Label3: TLabel
Left = 14 Left = 13
Top = 13 Top = 12
Width = 68 Width = 64
Height = 16 Height = 15
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 218 Left = 201
Top = 13 Top = 12
Width = 17 Width = 16
Height = 16 Height = 15
Caption = #33267 Caption = #33267
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 83 Left = 77
Top = 9 Top = 8
Width = 133 Width = 122
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 239 Left = 221
Top = 9 Top = 8
Width = 133 Width = 122
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -356,115 +355,115 @@ object frmCPListDML: TfrmCPListDML
end end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 375 Left = 346
Top = 2 Top = 2
Width = 886 Width = 923
Height = 41 Height = 37
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 17 Left = 16
Top = 13 Top = 12
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 145 Left = 134
Top = 13 Top = 12
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 270 Left = 249
Top = 13 Top = 12
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #24037#33402 Caption = #24037#33402
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 545 Left = 503
Top = 13 Top = 12
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #20462#25913#20154 Caption = #20462#25913#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 399 Left = 368
Top = 13 Top = 12
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #30331#35760#20154 Caption = #30331#35760#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 826 Left = 762
Top = 13 Top = 12
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 694 Left = 641
Top = 13 Top = 12
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #23458#25143 Caption = #23458#25143
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object ZIID: TEdit object ZIID: TEdit
Tag = 2 Tag = 2
Left = 54 Left = 50
Top = 9 Top = 8
Width = 78 Width = 72
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -473,13 +472,13 @@ object frmCPListDML: TfrmCPListDML
end end
object ZIName: TEdit object ZIName: TEdit
Tag = 2 Tag = 2
Left = 182 Left = 168
Top = 9 Top = 8
Width = 75 Width = 69
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -488,13 +487,13 @@ object frmCPListDML: TfrmCPListDML
end end
object ZIGY: TEdit object ZIGY: TEdit
Tag = 2 Tag = 2
Left = 307 Left = 283
Top = 9 Top = 8
Width = 80 Width = 74
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -503,13 +502,13 @@ object frmCPListDML: TfrmCPListDML
end end
object Editer: TEdit object Editer: TEdit
Tag = 2 Tag = 2
Left = 598 Left = 552
Top = 9 Top = 8
Width = 80 Width = 74
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -518,13 +517,13 @@ object frmCPListDML: TfrmCPListDML
end end
object Filler: TEdit object Filler: TEdit
Tag = 2 Tag = 2
Left = 453 Left = 418
Top = 9 Top = 8
Width = 80 Width = 74
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -533,13 +532,13 @@ object frmCPListDML: TfrmCPListDML
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 863 Left = 797
Top = 9 Top = 8
Width = 81 Width = 74
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -548,13 +547,13 @@ object frmCPListDML: TfrmCPListDML
end end
object KHNameHZ: TEdit object KHNameHZ: TEdit
Tag = 2 Tag = 2
Left = 732 Left = 676
Top = 9 Top = 8
Width = 81 Width = 74
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -564,16 +563,16 @@ object frmCPListDML: TfrmCPListDML
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 468 Left = 432
Top = 234 Top = 216
Width = 270 Width = 249
Height = 44 Height = 41
BevelOuter = bvNone BevelOuter = bvNone
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -582,95 +581,96 @@ object frmCPListDML: TfrmCPListDML
end end
object cxTabControl2: TcxTabControl object cxTabControl2: TcxTabControl
Left = 0 Left = 0
Top = 77 Top = 73
Width = 1263 Width = 1271
Height = 27 Height = 25
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Style = 8
TabOrder = 4 TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 8
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ClientRectBottom = 27 ClientRectBottom = 25
ClientRectRight = 1263 ClientRectRight = 1271
ClientRectTop = 0 ClientRectTop = 0
end end
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 553 Top = 565
Width = 1263 Width = 1271
Height = 44 Height = 41
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 5 TabOrder = 5
object Label9: TLabel object Label9: TLabel
Left = 15 Left = 14
Top = 13 Top = 12
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #21512#35745#65306 Caption = #21512#35745#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 147 Left = 136
Top = 13 Top = 12
Width = 17 Width = 16
Height = 16 Height = 15
Caption = #39029 Caption = #39029
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 296 Left = 273
Top = 13 Top = 12
Width = 69 Width = 66
Height = 16 Height = 15
Caption = '('#20135#21697#25968')' Caption = '('#20135#21697#25968')'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 505 Left = 466
Top = 13 Top = 12
Width = 103 Width = 98
Height = 16 Height = 15
Caption = '('#25346#38057#24211#23384#25968')' Caption = '('#25346#38057#24211#23384#25968')'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object YeHZ: TEdit object YeHZ: TEdit
Tag = 2 Tag = 2
Left = 64 Left = 59
Top = 9 Top = 8
Width = 78 Width = 72
Height = 24 Height = 24
Color = clMenu Color = clMenu
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -680,14 +680,14 @@ object frmCPListDML: TfrmCPListDML
end end
object CPHZ: TEdit object CPHZ: TEdit
Tag = 2 Tag = 2
Left = 218 Left = 201
Top = 9 Top = 8
Width = 78 Width = 72
Height = 24 Height = 24
Color = clMenu Color = clMenu
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -697,14 +697,14 @@ object frmCPListDML: TfrmCPListDML
end end
object GGHZ: TEdit object GGHZ: TEdit
Tag = 2 Tag = 2
Left = 428 Left = 395
Top = 9 Top = 8
Width = 78 Width = 72
Height = 24 Height = 24
Color = clMenu Color = clMenu
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_CPListDML.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage,StrUtils; Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage,StrUtils,
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, dxBarBuiltInMenu;
type type
TfrmCPListDML = class(TForm) TfrmCPListDML = class(TForm)

1
云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm
View File

@ -102,7 +102,6 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton

78
云翔生产管理(MYSC.dll)/U_GYSList.dfm
View File

@ -7,7 +7,7 @@ object frmGYSList: TfrmGYSList
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -16,12 +16,12 @@ object frmGYSList: TfrmGYSList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1107 Width = 1117
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -82,9 +82,9 @@ object frmGYSList: TfrmGYSList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 82 Top = 72
Width = 1107 Width = 1117
Height = 557 Height = 583
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -129,6 +129,12 @@ object frmGYSList: TfrmGYSList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 114 Width = 114
end end
object Tv1Column1: TcxGridDBColumn
Caption = #20379#24212#21830#20840#31216
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Width = 138
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -137,75 +143,75 @@ object frmGYSList: TfrmGYSList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1107 Width = 1117
Height = 50 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
Left = 284 Left = 227
Top = 19 Top = 15
Width = 80 Width = 65
Height = 15 Height = 12
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 24 Left = 19
Top = 19 Top = 15
Width = 80 Width = 65
Height = 15 Height = 12
Caption = #20379#24212#21830#32534#21495 Caption = #20379#24212#21830#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label34: TLabel object Label34: TLabel
Left = 546 Left = 437
Top = 19 Top = 15
Width = 96 Width = 78
Height = 15 Height = 12
Caption = #20379#24212#21830#31867#22411#65306 Caption = #20379#24212#21830#31867#22411#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object KHNameJC: TEdit object KHNameJC: TEdit
Tag = 2 Tag = 2
Left = 368 Left = 294
Top = 14 Top = 11
Width = 156 Width = 125
Height = 20 Height = 23
TabOrder = 0 TabOrder = 0
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object KHNo: TEdit object KHNo: TEdit
Tag = 2 Tag = 2
Left = 108 Left = 86
Top = 14 Top = 11
Width = 156 Width = 125
Height = 20 Height = 23
TabOrder = 1 TabOrder = 1
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object KHType: TBtnEditC object KHType: TBtnEditC
Tag = 1 Tag = 1
Left = 638 Left = 510
Top = 14 Top = 11
Width = 151 Width = 121
Height = 23 Height = 23
ReadOnly = True ReadOnly = True
TabOrder = 2 TabOrder = 2
@ -283,7 +289,7 @@ object frmGYSList: TfrmGYSList
Top = 160 Top = 160
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 120 PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = 4707838 Color = 4707838

16
云翔生产管理(MYSC.dll)/U_GYSList.pas
View File

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, Menus, cxButtonEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; 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
TfrmGYSList = class(TForm) TfrmGYSList = class(TForm)
@ -45,6 +58,7 @@ type
v1KHLXR: TcxGridDBColumn; v1KHLXR: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

233
云翔生产管理(MYSC.dll)/U_JGCKList.dfm
View File

@ -7,7 +7,7 @@ object frmJGCKList: TfrmJGCKList
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmJGCKList: TfrmJGCKList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1644 Width = 1654
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -69,7 +69,6 @@ object frmJGCKList: TfrmJGCKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
@ -105,9 +104,9 @@ object frmJGCKList: TfrmJGCKList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 115 Top = 98
Width = 1644 Width = 1654
Height = 663 Height = 696
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -315,152 +314,152 @@ object frmJGCKList: TfrmJGCKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1644 Width = 1654
Height = 83 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label34: TLabel object Label34: TLabel
Left = 259 Left = 207
Top = 16 Top = 13
Width = 77 Width = 66
Height = 18 Height = 15
Caption = #21152' '#24037' '#21378 Caption = #21152' '#24037' '#21378
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 19 Left = 15
Top = 16 Top = 13
Width = 38 Width = 32
Height = 18 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 19 Left = 15
Top = 50 Top = 40
Width = 38 Width = 32
Height = 18 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 259 Left = 207
Top = 50 Top = 40
Width = 76 Width = 64
Height = 18 Height = 15
Caption = #25910#36135#21333#20301 Caption = #25910#36135#21333#20301
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 564 Left = 451
Top = 16 Top = 13
Width = 57 Width = 48
Height = 18 Height = 15
Caption = #21046#20316#20154 Caption = #21046#20316#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 564 Left = 451
Top = 50 Top = 40
Width = 58 Width = 50
Height = 18 Height = 15
Caption = #31867' '#22411 Caption = #31867' '#22411
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 783 Left = 626
Top = 16 Top = 13
Width = 76 Width = 64
Height = 18 Height = 15
Caption = #25351#31034#21333#21495 Caption = #25351#31034#21333#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 783 Left = 626
Top = 50 Top = 40
Width = 78 Width = 68
Height = 18 Height = 15
Caption = #23458' '#25143 Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 1007 Left = 806
Top = 50 Top = 40
Width = 95 Width = 80
Height = 18 Height = 15
Caption = #22383#24067#32852#31995#21495 Caption = #22383#24067#32852#31995#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 1007 Left = 806
Top = 14 Top = 11
Width = 88 Width = 77
Height = 18 Height = 15
Caption = #39068' '#33394 Caption = #39068' '#33394
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object KHNameHZ: TEdit object KHNameHZ: TEdit
Tag = 2 Tag = 2
Left = 344 Left = 275
Top = 11 Top = 9
Width = 197 Width = 158
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -468,30 +467,30 @@ object frmJGCKList: TfrmJGCKList
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 1356 Left = 1085
Top = 11 Top = 9
Width = 159 Width = 127
Height = 26 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 1356 Left = 1085
Top = 45 Top = 36
Width = 159 Width = 127
Height = 26 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -499,13 +498,13 @@ object frmJGCKList: TfrmJGCKList
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 61 Left = 49
Top = 11 Top = 9
Width = 177 Width = 141
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -514,13 +513,13 @@ object frmJGCKList: TfrmJGCKList
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 61 Left = 49
Top = 45 Top = 36
Width = 177 Width = 141
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -528,15 +527,15 @@ object frmJGCKList: TfrmJGCKList
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 1249 Left = 999
Top = 15 Top = 12
Width = 102 Width = 82
Height = 20 Height = 16
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Checked = True Checked = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -546,13 +545,13 @@ object frmJGCKList: TfrmJGCKList
end end
object JCDanWeiJC: TEdit object JCDanWeiJC: TEdit
Tag = 2 Tag = 2
Left = 344 Left = 275
Top = 45 Top = 36
Width = 197 Width = 158
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -561,13 +560,13 @@ object frmJGCKList: TfrmJGCKList
end end
object filler: TEdit object filler: TEdit
Tag = 2 Tag = 2
Left = 629 Left = 503
Top = 11 Top = 9
Width = 129 Width = 103
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -576,31 +575,31 @@ object frmJGCKList: TfrmJGCKList
end end
object MYTypeFlag: TComboBox object MYTypeFlag: TComboBox
Tag = 1 Tag = 1
Left = 630 Left = 504
Top = 45 Top = 36
Width = 130 Width = 104
Height = 26 Height = 23
Style = csDropDownList Style = csDropDownList
DropDownCount = 20 DropDownCount = 20
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemHeight = 18 ItemHeight = 15
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 8
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object MLOrderNo: TEdit object MLOrderNo: TEdit
Tag = 2 Tag = 2
Left = 864 Left = 691
Top = 10 Top = 8
Width = 119 Width = 95
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -609,13 +608,13 @@ object frmJGCKList: TfrmJGCKList
end end
object KHNameHZZ: TEdit object KHNameHZZ: TEdit
Tag = 2 Tag = 2
Left = 864 Left = 691
Top = 45 Top = 36
Width = 119 Width = 95
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -624,13 +623,13 @@ object frmJGCKList: TfrmJGCKList
end end
object PBBatchNo: TEdit object PBBatchNo: TEdit
Tag = 2 Tag = 2
Left = 1104 Left = 883
Top = 45 Top = 36
Width = 137 Width = 110
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -639,13 +638,13 @@ object frmJGCKList: TfrmJGCKList
end end
object MYColor: TEdit object MYColor: TEdit
Tag = 2 Tag = 2
Left = 1104 Left = 883
Top = 9 Top = 7
Width = 136 Width = 109
Height = 26 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

16
云翔生产管理(MYSC.dll)/U_JGCKList.pas
View File

@ -11,7 +11,21 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; 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
TfrmJGCKList = class(TForm) TfrmJGCKList = class(TForm)

13
云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm
View File

@ -20,7 +20,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1548
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -118,7 +118,6 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
@ -165,8 +164,8 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1540 Width = 1548
Height = 621 Height = 629
Align = alClient Align = alClient
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 2 TabOrder = 2
@ -369,7 +368,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1540 Width = 1548
Height = 66 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -1199,7 +1198,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1540 Width = 1548
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 6 TabOrder = 6
@ -1211,7 +1210,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
#20986#24211) #20986#24211)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1540 ClientRectRight = 1548
ClientRectTop = 19 ClientRectTop = 19
end end
object Panel5: TPanel object Panel5: TPanel

6
云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas
View File

@ -272,7 +272,7 @@ begin
sql.Add('select AA.* '); sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
sql.Add('from('); sql.Add('from(');
sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
@ -312,7 +312,7 @@ begin
// sql.add(' and A.filler='''+trim(DName)+''''); // sql.add(' and A.filler='''+trim(DName)+'''');
// end; // end;
sql.Add(')AA'); sql.Add(')AA');
// ShowMessage(SQL.text); // ShowMessage(SQL.text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
@ -1035,7 +1035,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' '); sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' ');
// sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
// sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
// sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
// sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');

1
云翔生产管理(MYSC.dll)/U_LLCKList.dfm
View File

@ -69,7 +69,6 @@ object frmLLCKList: TfrmLLCKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton

11
云翔生产管理(MYSC.dll)/U_LLKCList.dfm
View File

@ -1,6 +1,6 @@
object frmLLKCList: TfrmLLKCList object frmLLKCList: TfrmLLKCList
Left = 291 Left = 311
Top = 163 Top = 283
Width = 1556 Width = 1556
Height = 781 Height = 781
Caption = #24211#23384 Caption = #24211#23384
@ -118,7 +118,6 @@ object frmLLKCList: TfrmLLKCList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
@ -233,7 +232,7 @@ object frmLLKCList: TfrmLLKCList
end end
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #23458#25143#32534#21495 Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'KHNOKH' DataBinding.FieldName = 'KHCode'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -241,7 +240,7 @@ object frmLLKCList: TfrmLLKCList
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'KHNameJCZ' DataBinding.FieldName = 'KHName'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -709,7 +708,7 @@ object frmLLKCList: TfrmLLKCList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 276 Left = 276
Top = 126 Top = 158
Width = 509 Width = 509
Height = 379 Height = 379
Color = clSkyBlue Color = clSkyBlue

4
云翔生产管理(MYSC.dll)/U_LLKCList.pas
View File

@ -272,7 +272,7 @@ begin
sql.Add('select AA.* '); sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
sql.Add('from('); sql.Add('from(');
sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
@ -1035,7 +1035,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' '); sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' ');
// sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
// sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
// sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
// sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');

82
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm
View File

@ -20,7 +20,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1316 Width = 1324
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 79 ButtonWidth = 79
@ -99,8 +99,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1316 Width = 1324
Height = 572 Height = 580
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -108,7 +108,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
object Panel4: TPanel object Panel4: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1312 Width = 1320
Height = 64 Height = 64
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -172,7 +172,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
object Panel15: TPanel object Panel15: TPanel
Left = 2 Left = 2
Top = 30 Top = 30
Width = 1308 Width = 1316
Height = 32 Height = 32
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
@ -222,7 +222,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 456 Left = 456
Top = 6 Top = 6
Width = 77 Width = 77
Height = 28 Height = 24
Color = clScrollBar Color = clScrollBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -238,7 +238,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 111 Left = 111
Top = 5 Top = 5
Width = 345 Width = 345
Height = 29 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -267,7 +267,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 853 Left = 853
Top = 6 Top = 6
Width = 104 Width = 104
Height = 28 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -282,7 +282,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 854 Left = 854
Top = 5 Top = 5
Width = 104 Width = 104
Height = 28 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -296,7 +296,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 112 Left = 112
Top = 3 Top = 3
Width = 345 Width = 345
Height = 29 Height = 25
Color = clScrollBar Color = clScrollBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -313,7 +313,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 458 Left = 458
Top = 5 Top = 5
Width = 77 Width = 77
Height = 28 Height = 24
Color = clScrollBar Color = clScrollBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -328,8 +328,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 66 Top = 66
Width = 1312 Width = 1320
Height = 504 Height = 512
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Label12: TLabel object Label12: TLabel
@ -729,7 +729,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 332 Left = 332
Top = 7 Top = 7
Width = 37 Width = 37
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -743,7 +743,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 220 Left = 220
Top = 7 Top = 7
Width = 33 Width = 33
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -757,7 +757,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 492 Left = 492
Top = 8 Top = 8
Width = 51 Width = 51
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -772,7 +772,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 577 Left = 577
Top = 7 Top = 7
Width = 74 Width = 74
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -787,7 +787,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 682 Left = 682
Top = 8 Top = 8
Width = 72 Width = 72
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -802,7 +802,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 492 Left = 492
Top = 41 Top = 41
Width = 51 Width = 51
Height = 25 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -817,7 +817,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 577 Left = 577
Top = 41 Top = 41
Width = 75 Width = 75
Height = 25 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -833,7 +833,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 682 Left = 682
Top = 41 Top = 41
Width = 72 Width = 72
Height = 25 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -849,7 +849,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 492 Left = 492
Top = 74 Top = 74
Width = 51 Width = 51
Height = 25 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -865,7 +865,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 577 Left = 577
Top = 74 Top = 74
Width = 75 Width = 75
Height = 25 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -881,7 +881,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 682 Left = 682
Top = 74 Top = 74
Width = 72 Width = 72
Height = 25 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -930,7 +930,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 1300 Left = 1300
Top = 260 Top = 260
Width = 73 Width = 73
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -946,7 +946,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 65 Left = 65
Top = 40 Top = 40
Width = 100 Width = 100
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -960,7 +960,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 65 Left = 65
Top = 73 Top = 73
Width = 268 Width = 268
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -974,7 +974,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 242 Left = 242
Top = 40 Top = 40
Width = 92 Width = 92
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -988,7 +988,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 268 Left = 268
Top = 378 Top = 378
Width = 41 Width = 41
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -1003,7 +1003,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 838 Left = 838
Top = 7 Top = 7
Width = 75 Width = 75
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -1017,7 +1017,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 838 Left = 838
Top = 41 Top = 41
Width = 75 Width = 75
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -1070,7 +1070,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 253 Left = 253
Top = 5 Top = 5
Width = 83 Width = 83
Height = 28 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -16 Font.Height = -16
@ -1150,7 +1150,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 838 Left = 838
Top = 74 Top = 74
Width = 75 Width = 75
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -1165,7 +1165,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 111 Left = 111
Top = 155 Top = 155
Width = 768 Width = 768
Height = 33 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20
@ -1179,7 +1179,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 355 Left = 355
Top = 189 Top = 189
Width = 420 Width = 420
Height = 34 Height = 29
Color = clScrollBar Color = clScrollBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1196,7 +1196,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 775 Left = 775
Top = 190 Top = 190
Width = 104 Width = 104
Height = 33 Height = 28
Color = clScrollBar Color = clScrollBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1244,7 +1244,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 504 Left = 504
Top = 118 Top = 118
Width = 252 Width = 252
Height = 26 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -15 Font.Height = -15
@ -1258,7 +1258,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 838 Left = 838
Top = 116 Top = 116
Width = 62 Width = 62
Height = 26 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -15 Font.Height = -15
@ -1272,7 +1272,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 66 Left = 66
Top = 7 Top = 7
Width = 100 Width = 100
Height = 25 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -1422,7 +1422,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 61 Left = 61
Top = 28 Top = 28
Width = 134 Width = 134
Height = 23 Height = 20
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -12 Font.Height = -12
@ -1450,7 +1450,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG
Left = 83 Left = 83
Top = 185 Top = 185
Width = 285 Width = 285
Height = 33 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20

16
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas
View File

@ -13,7 +13,21 @@ uses
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView, IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView,
cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters; cxGridDBBandedTableView, 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;
type type
TfrmLLRKInPutMH_PBCG = class(TForm) TfrmLLRKInPutMH_PBCG = class(TForm)

2
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas
View File

@ -1014,7 +1014,7 @@ begin
ClientDataSet1.Delete; ClientDataSet1.Delete;
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) = IDYES then
begin begin
with ADOCmd do with ADOCmd do
begin begin

11
云翔生产管理(MYSC.dll)/U_LLRKList.dfm
View File

@ -60,7 +60,6 @@ object frmLLRKList: TfrmLLRKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -1219,7 +1218,7 @@ object frmLLRKList: TfrmLLRKList
Top = 8 Top = 8
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 190 Left = 110
Top = 241 Top = 241
object N1: TMenuItem object N1: TMenuItem
Caption = #20462#25913 Caption = #20462#25913
@ -1302,14 +1301,14 @@ object frmLLRKList: TfrmLLRKList
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 196 Left = 156
Top = 271 Top = 255
end end
object ADOQuery2: TADOQuery object ADOQuery2: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 232 Left = 200
Top = 267 Top = 259
end end
end end

283
云翔生产管理(MYSC.dll)/U_LLRKList_CP.dfm
View File

@ -7,7 +7,7 @@ object frmLLRKList_CP: TfrmLLRKList_CP
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmLLRKList_CP: TfrmLLRKList_CP
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1345 Width = 1353
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -60,7 +60,6 @@ object frmLLRKList_CP: TfrmLLRKList_CP
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -105,15 +104,15 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 110 Top = 104
Width = 1345 Width = 1353
Height = 548 Height = 563
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -312,87 +311,87 @@ object frmLLRKList_CP: TfrmLLRKList_CP
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1345 Width = 1353
Height = 78 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
object Label34: TLabel object Label34: TLabel
Left = 214 Left = 198
Top = 16 Top = 15
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #20379#24212#21830 Caption = #20379#24212#21830
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 427 Left = 394
Top = 16 Top = 15
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 427 Left = 394
Top = 47 Top = 43
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 42 Left = 39
Top = 16 Top = 15
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #39068#33394 Caption = #39068#33394
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 214 Left = 198
Top = 47 Top = 43
Width = 68 Width = 64
Height = 16 Height = 15
Caption = #26469#36135#21333#20301 Caption = #26469#36135#21333#20301
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object KHName: TEdit object KHName: TEdit
Tag = 2 Tag = 2
Left = 270 Left = 249
Top = 12 Top = 11
Width = 100 Width = 93
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -400,30 +399,30 @@ object frmLLRKList_CP: TfrmLLRKList_CP
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 699 Left = 645
Top = 12 Top = 11
Width = 124 Width = 115
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 699 Left = 645
Top = 43 Top = 40
Width = 124 Width = 115
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -431,13 +430,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 464 Left = 428
Top = 12 Top = 11
Width = 84 Width = 78
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -446,13 +445,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 464 Left = 428
Top = 43 Top = 40
Width = 114 Width = 106
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -461,13 +460,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
object MYColor: TEdit object MYColor: TEdit
Tag = 2 Tag = 2
Left = 79 Left = 73
Top = 12 Top = 11
Width = 84 Width = 77
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -475,15 +474,15 @@ object frmLLRKList_CP: TfrmLLRKList_CP
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 606 Left = 559
Top = 15 Top = 14
Width = 89 Width = 83
Height = 17 Height = 16
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Checked = True Checked = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -493,13 +492,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
object JCDanWei: TEdit object JCDanWei: TEdit
Tag = 2 Tag = 2
Left = 288 Left = 266
Top = 43 Top = 40
Width = 82 Width = 76
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -507,64 +506,64 @@ object frmLLRKList_CP: TfrmLLRKList_CP
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object Button2: TButton object Button2: TButton
Left = 371 Left = 342
Top = 11 Top = 10
Width = 31 Width = 29
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 8 TabOrder = 8
OnClick = Button2Click OnClick = Button2Click
end end
object Button3: TButton object Button3: TButton
Left = 371 Left = 342
Top = 42 Top = 39
Width = 31 Width = 29
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 9 TabOrder = 9
OnClick = Button3Click OnClick = Button3Click
end end
object Button5: TButton object Button5: TButton
Left = 549 Left = 507
Top = 11 Top = 10
Width = 31 Width = 28
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 10 TabOrder = 10
OnClick = Button5Click OnClick = Button5Click
end end
object Button6: TButton object Button6: TButton
Left = 164 Left = 151
Top = 11 Top = 10
Width = 31 Width = 29
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 11 TabOrder = 11
OnClick = Button6Click OnClick = Button6Click
end end
end end
object cxGroupBox2: TcxGroupBox object cxGroupBox2: TcxGroupBox
Left = 952 Left = 879
Top = 137 Top = 126
Caption = #30721#21333'('#25991#20214')'#19978#20256 Caption = #30721#21333'('#25991#20214')'#19978#20256
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Style.Color = clBtnFace Style.Color = clBtnFace
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clBlue Style.Font.Color = clBlue
Style.Font.Height = -16 Style.Font.Height = -15
Style.Font.Name = #24494#36719#38597#40657 Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
Height = 218 Height = 202
Width = 354 Width = 327
object Image3: TImage object Image3: TImage
Left = 327 Left = 302
Top = 2 Top = 2
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -610,14 +609,14 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
object ListView1: TListView object ListView1: TListView
Left = 2 Left = 2
Top = 25 Top = 24
Width = 350 Width = 323
Height = 191 Height = 176
Align = alClient Align = alClient
Columns = <> Columns = <>
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
LargeImages = ImageList1 LargeImages = ImageList1
@ -627,34 +626,34 @@ object frmLLRKList_CP: TfrmLLRKList_CP
OnDblClick = ListView1DblClick OnDblClick = ListView1DblClick
end end
object Panel12: TPanel object Panel12: TPanel
Left = 15 Left = 14
Top = 66 Top = 61
Width = 323 Width = 298
Height = 106 Height = 98
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
object Label8: TLabel object Label8: TLabel
Left = 11 Left = 10
Top = 35 Top = 32
Width = 64 Width = 56
Height = 15 Height = 13
Caption = #25991#20214#21517#31216 Caption = #25991#20214#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Button4: TButton object Button4: TButton
Left = 15 Left = 14
Top = 65 Top = 60
Width = 83 Width = 76
Height = 27 Height = 25
Caption = #26159 Caption = #26159
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -664,8 +663,8 @@ object frmLLRKList_CP: TfrmLLRKList_CP
object Panel13: TPanel object Panel13: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 321 Width = 296
Height = 23 Height = 21
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
@ -673,16 +672,16 @@ object frmLLRKList_CP: TfrmLLRKList_CP
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
object Image4: TImage object Image4: TImage
Left = 297 Left = 274
Top = 2 Top = 2
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -728,27 +727,27 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
end end
object WJName: TEdit object WJName: TEdit
Left = 80 Left = 74
Top = 30 Top = 28
Width = 232 Width = 214
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object Button7: TButton object Button7: TButton
Left = 228 Left = 210
Top = 65 Top = 60
Width = 81 Width = 75
Height = 27 Height = 25
Caption = #21542 Caption = #21542
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -756,27 +755,27 @@ object frmLLRKList_CP: TfrmLLRKList_CP
OnClick = Button7Click OnClick = Button7Click
end end
object WJPach: TEdit object WJPach: TEdit
Left = 94 Left = 87
Top = 208 Top = 192
Width = 323 Width = 298
Height = 29 Height = 29
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -20
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object Button8: TButton object Button8: TButton
Left = 119 Left = 110
Top = 65 Top = 60
Width = 83 Width = 76
Height = 27 Height = 25
Caption = #30830#23450 Caption = #30830#23450
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -785,16 +784,16 @@ object frmLLRKList_CP: TfrmLLRKList_CP
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 37 Left = 34
Top = 110 Top = 102
Width = 283 Width = 261
Height = 34 Height = 31
BevelOuter = bvNone BevelOuter = bvNone
Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_LLRKList_CP.pas
View File

@ -12,7 +12,22 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils; IdFTP,ShellAPI, ImgList,StrUtils, 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
TfrmLLRKList_CP = class(TForm) TfrmLLRKList_CP = class(TForm)

19
云翔生产管理(MYSC.dll)/U_LLRKList_WJG.dfm
View File

@ -20,7 +20,7 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1370 Width = 1378
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -60,7 +60,6 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -107,13 +106,13 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG
Left = 0 Left = 0
Top = 104 Top = 104
Width = 1069 Width = 1069
Height = 556 Height = 563
Align = alLeft Align = alLeft
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -312,7 +311,7 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1370 Width = 1378
Height = 72 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -732,9 +731,9 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG
end end
object ListView1: TListView object ListView1: TListView
Left = 2 Left = 2
Top = 22 Top = 24
Width = 323 Width = 323
Height = 177 Height = 175
Align = alClient Align = alClient
Columns = <> Columns = <>
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -927,14 +926,14 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1069 Left = 1069
Top = 104 Top = 104
Width = 301 Width = 309
Height = 556 Height = 563
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 5 TabOrder = 5
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

17
云翔生产管理(MYSC.dll)/U_LLRKList_WJG.pas
View File

@ -12,7 +12,22 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils; IdFTP,ShellAPI, ImgList,StrUtils, 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
TfrmLLRKList_WJG = class(TForm) TfrmLLRKList_WJG = class(TForm)

634
云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas
View File

File diff suppressed because it is too large Load Diff

1
云翔生产管理(MYSC.dll)/U_MCGCKList.dfm
View File

@ -93,7 +93,6 @@ object frmMCGCKList: TfrmMCGCKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton

15
云翔生产管理(MYSC.dll)/U_MCGCKList.pas
View File

@ -13,7 +13,20 @@ uses
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
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 type
TfrmMCGCKList = class(TForm) TfrmMCGCKList = class(TForm)

19
云翔生产管理(MYSC.dll)/U_MCGKCList.dfm
View File

@ -1,6 +1,6 @@
object frmMCGKCList: TfrmMCGKCList object frmMCGKCList: TfrmMCGKCList
Left = 30 Left = 237
Top = 11 Top = 83
Width = 1556 Width = 1556
Height = 819 Height = 819
Caption = #26825#24211#23384#27719#24635 Caption = #26825#24211#23384#27719#24635
@ -20,7 +20,7 @@ object frmMCGKCList: TfrmMCGKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1548
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -96,7 +96,6 @@ object frmMCGKCList: TfrmMCGKCList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -134,8 +133,8 @@ object frmMCGKCList: TfrmMCGKCList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 952 Width = 960
Height = 675 Height = 683
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -240,7 +239,7 @@ object frmMCGKCList: TfrmMCGKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1540 Width = 1548
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -531,10 +530,10 @@ object frmMCGKCList: TfrmMCGKCList
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 952 Left = 960
Top = 105 Top = 105
Width = 588 Width = 588
Height = 675 Height = 683
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
@ -542,7 +541,7 @@ object frmMCGKCList: TfrmMCGKCList
Left = 1 Left = 1
Top = 336 Top = 336
Width = 586 Width = 586
Height = 338 Height = 346
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0

16
云翔生产管理(MYSC.dll)/U_MCGKCList.pas
View File

@ -12,7 +12,21 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; 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
TfrmMCGKCList = class(TForm) TfrmMCGKCList = class(TForm)

69
云翔生产管理(MYSC.dll)/U_MCGRKList.dfm
View File

@ -20,7 +20,8 @@ object frmMCGRKList: TfrmMCGRKList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1133 Width = 1141
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -86,37 +87,12 @@ object frmMCGRKList: TfrmMCGRKList
AutoSize = True AutoSize = True
Caption = #21367#25968#31995#25968 Caption = #21367#25968#31995#25968
ImageIndex = 25 ImageIndex = 25
Wrap = True
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton
Left = 474
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 4
Visible = False
OnClick = ToolButton4Click
end
object TBExport: TToolButton
Left = 543
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 97
Visible = False
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 612
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
object labMYType: TLabel object labMYType: TLabel
Left = 681 Left = 0
Top = 0 Top = 30
Width = 292 Width = 292
Height = 30 Height = 30
Caption = ' '#36741#26009#37319#36141#20837#24211' ' Caption = ' '#36741#26009#37319#36141#20837#24211' '
@ -127,12 +103,37 @@ object frmMCGRKList: TfrmMCGRKList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object ToolButton4: TToolButton
Left = 292
Top = 30
AutoSize = True
Caption = #25171#21360
ImageIndex = 4
Visible = False
OnClick = ToolButton4Click
end
object TBExport: TToolButton
Left = 361
Top = 30
AutoSize = True
Caption = #23548#20986
ImageIndex = 97
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 430
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 109 Top = 139
Width = 1133 Width = 1141
Height = 501 Height = 479
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -317,8 +318,8 @@ object frmMCGRKList: TfrmMCGRKList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1133 Width = 1141
Height = 77 Height = 77
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

16
云翔生产管理(MYSC.dll)/U_MCGRKList.pas
View File

@ -12,7 +12,21 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; 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
TfrmMCGRKList = class(TForm) TfrmMCGRKList = class(TForm)

191
云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.dfm
View File

@ -1,13 +1,13 @@
object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
Left = 190 Left = 470
Top = 136 Top = 204
Width = 1214 Width = 1214
Height = 686 Height = 686
Caption = #20179#24211#24211#23384#27719#24635#26597#35810 Caption = #20179#24211#24211#23384#27719#24635#26597#35810
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1198 Width = 1206
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -69,7 +69,6 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -106,75 +105,75 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1198 Width = 1206
Height = 45 Height = 41
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 187 Left = 173
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 36 Left = 33
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 720 Left = 665
Top = 14 Top = 13
Width = 68 Width = 64
Height = 16 Height = 15
Caption = #20179#24211#31867#22411 Caption = #20179#24211#31867#22411
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label3: TLabel object Label3: TLabel
Left = 480 Left = 443
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #24211#20301 Caption = #24211#20301
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 225 Left = 208
Top = 10 Top = 9
Width = 239 Width = 220
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -183,13 +182,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 74 Left = 68
Top = 10 Top = 9
Width = 77 Width = 71
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -198,13 +197,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
object MYType: TEdit object MYType: TEdit
Tag = 2 Tag = 2
Left = 792 Left = 731
Top = 10 Top = 9
Width = 77 Width = 71
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -213,10 +212,10 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
OnChange = MYCodeChange OnChange = MYCodeChange
end end
object Button2: TButton object Button2: TButton
Left = 871 Left = 804
Top = 9 Top = 8
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
@ -224,13 +223,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
object KUwei: TEdit object KUwei: TEdit
Tag = 2 Tag = 2
Left = 518 Left = 478
Top = 10 Top = 9
Width = 181 Width = 167
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -240,14 +239,14 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 104 Top = 98
Width = 1198 Width = 1206
Height = 542 Height = 557
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -352,32 +351,32 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 400 Left = 369
Top = 143 Top = 132
Width = 299 Width = 276
Height = 254 Height = 234
Color = clSkyBlue Color = clSkyBlue
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 33 Left = 30
Top = 25 Top = 23
Width = 102 Width = 95
Height = 60 Height = 55
Caption = #22383#24067 Caption = #22383#24067
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object Image2: TImage object Image2: TImage
Left = 273 Left = 252
Top = 3 Top = 3
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -422,56 +421,56 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
OnClick = Image2Click OnClick = Image2Click
end end
object SpeedButton2: TSpeedButton object SpeedButton2: TSpeedButton
Left = 168 Left = 155
Top = 25 Top = 23
Width = 102 Width = 94
Height = 60 Height = 55
Caption = #38754#26009 Caption = #38754#26009
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton2Click OnClick = SpeedButton2Click
end end
object SpeedButton3: TSpeedButton object SpeedButton3: TSpeedButton
Left = 168 Left = 155
Top = 103 Top = 95
Width = 102 Width = 94
Height = 60 Height = 55
Caption = #26825 Caption = #26825
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton3Click OnClick = SpeedButton3Click
end end
object SpeedButton4: TSpeedButton object SpeedButton4: TSpeedButton
Left = 33 Left = 30
Top = 101 Top = 93
Width = 102 Width = 95
Height = 60 Height = 56
Caption = #32447 Caption = #32447
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton4Click OnClick = SpeedButton4Click
end end
object SpeedButton5: TSpeedButton object SpeedButton5: TSpeedButton
Left = 73 Left = 67
Top = 177 Top = 163
Width = 159 Width = 147
Height = 63 Height = 59
Caption = #26080#32442#24067 Caption = #26080#32442#24067
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -480,22 +479,23 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 77 Top = 73
Width = 1198 Width = 1206
Height = 27 Height = 25
Align = alTop Align = alTop
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Style = 8
TabIndex = 0
TabOrder = 4 TabOrder = 4
Tabs.Strings = ( Properties.CustomButtons.Buttons = <>
Properties.Style = 8
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#38754#26009' ' ' '#38754#26009' '
#32452#21512#38754#26009 #32452#21512#38754#26009
' '#22383#24067' ' ' '#22383#24067' '
@ -504,9 +504,9 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
' '#26080#32442#24067' ' ' '#26080#32442#24067' '
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 27 ClientRectBottom = 26
ClientRectRight = 1198 ClientRectRight = 1206
ClientRectTop = 27 ClientRectTop = 26
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2
@ -616,6 +616,7 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC
end end
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clScrollBar Color = clScrollBar

239
云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.pas
View File

@ -6,11 +6,24 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; cxDropDownEdit, cxPC, Buttons, 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, dxBarBuiltInMenu;
type type
TfrmMCGRKList_HBKC = class(TForm) TfrmMCGRKList_HBKC = class(TForm)
@ -97,14 +110,14 @@ type
procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject);
private private
canshu1:string; canshu1: string;
DQdate:TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
function DelData():Boolean; function DelData(): Boolean;
{ Private declarations } { Private declarations }
public public
FFInt,FCloth:Integer; FFInt, FCloth: Integer;
{ Public declarations } { Public declarations }
end; end;
@ -113,33 +126,33 @@ var
frmMCGRKList_HBKC: TfrmMCGRKList_HBKC; frmMCGRKList_HBKC: TfrmMCGRKList_HBKC;
implementation implementation
uses uses
U_DataLink,U_RTFun, U_QCRKInPut,U_ZDYHelp,U_LLRKInPut,U_GYSList,U_RCCKInPut, U_DataLink, U_RTFun, U_QCRKInPut, U_ZDYHelp, U_LLRKInPut, U_GYSList,
U_LLRKInPutMH,U_LLRKInPutX,U_LLRKInPut_CG,U_LLRKInPutMH_CG,U_LLRKInPutMH_PBCG, U_RCCKInPut, U_LLRKInPutMH, U_LLRKInPutX, U_LLRKInPut_CG, U_LLRKInPutMH_CG,
U_LLRKInPutMH_PBKCCG,U_BPZdy_LRPB,U_LLRKInPutMH_MCG,U_BPZdy_LRM,U_MCGRKList_MKC_CX, U_LLRKInPutMH_PBCG, U_LLRKInPutMH_PBKCCG, U_BPZdy_LRPB, U_LLRKInPutMH_MCG,
U_MCGRKList_HBKC_CX; U_BPZdy_LRM, U_MCGRKList_MKC_CX, U_MCGRKList_HBKC_CX;
{$R *.dfm} {$R *.dfm}
procedure TfrmMCGRKList_HBKC.FormDestroy(Sender: TObject); procedure TfrmMCGRKList_HBKC.FormDestroy(Sender: TObject);
begin begin
frmMCGRKList_HBKC:=nil; frmMCGRKList_HBKC := nil;
end; end;
procedure TfrmMCGRKList_HBKC.FormClose(Sender: TObject; procedure TfrmMCGRKList_HBKC.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmMCGRKList_HBKC.FormCreate(Sender: TObject); procedure TfrmMCGRKList_HBKC.FormCreate(Sender: TObject);
begin begin
canshu1:=Trim(DParameters1); canshu1 := Trim(DParameters1);
end; end;
procedure TfrmMCGRKList_HBKC.TBCloseClick(Sender: TObject); procedure TfrmMCGRKList_HBKC.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('仓库汇总库存1',Tv2,'贸易生产管理'); WriteCxGrid('仓库汇总库存1', Tv2, '贸易生产管理');
Close; Close;
end; end;
@ -149,7 +162,7 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select AA.*'); sql.Add('select AA.*');
@ -163,37 +176,37 @@ begin
sql.Add(' group by A.MYCode,B.KUwei,A.MYType '); sql.Add(' group by A.MYCode,B.KUwei,A.MYType ');
SQL.Add(' ) AA '); SQL.Add(' ) AA ');
sql.Add(' where (AA.PS>0 or Qty>0 or KgQty>0)'); sql.Add(' where (AA.PS>0 or Qty>0 or KgQty>0)');
if cxTabControl1.TabIndex=0 then if cxTabControl1.TabIndex = 0 then
begin begin
sql.Add(' and CKType=''ÃæÁÏ'''); sql.Add(' and CKType=''ÃæÁÏ''');
V2PS.Caption:='匹数'; V2PS.Caption := '匹数';
V2Qty.Caption:='米数'; V2Qty.Caption := '米数';
end; end;
if cxTabControl1.TabIndex=1 then if cxTabControl1.TabIndex = 1 then
begin begin
sql.Add(' and CKType=''×éºÏÃæÁÏ'''); sql.Add(' and CKType=''×éºÏÃæÁÏ''');
V2PS.Caption:='匹数'; V2PS.Caption := '匹数';
V2Qty.Caption:='米数'; V2Qty.Caption := '米数';
end; end;
if cxTabControl1.TabIndex=2 then if cxTabControl1.TabIndex = 2 then
begin begin
sql.Add(' and CKType=''Å÷²¼'''); sql.Add(' and CKType=''Å÷²¼''');
V2PS.Caption:='匹数'; V2PS.Caption := '匹数';
V2Qty.Caption:='米数'; V2Qty.Caption := '米数';
end; end;
if cxTabControl1.TabIndex=3 then if cxTabControl1.TabIndex = 3 then
begin begin
sql.Add(' and CKType=''Ïß'''); sql.Add(' and CKType=''Ïß''');
V2PS.Caption:='件数'; V2PS.Caption := '件数';
V2Qty.Caption:='只数'; V2Qty.Caption := '只数';
end; end;
if cxTabControl1.TabIndex=4 then if cxTabControl1.TabIndex = 4 then
begin begin
sql.Add(' and CKType=''ÃÞ'''); sql.Add(' and CKType=''ÃÞ''');
V2PS.Caption:='匹数'; V2PS.Caption := '匹数';
V2Qty.Caption:='米数'; V2Qty.Caption := '米数';
end; end;
if cxTabControl1.TabIndex=5 then if cxTabControl1.TabIndex = 5 then
begin begin
sql.Add(' and CKType=''Î޷IJ¼'''); sql.Add(' and CKType=''Î޷IJ¼''');
end; end;
@ -201,37 +214,38 @@ begin
//ShowMessage(sql.Text); //ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmMCGRKList_HBKC.InitForm(); procedure TfrmMCGRKList_HBKC.InitForm();
begin begin
ReadCxGrid('仓库汇总库存1',Tv2,'贸易生产管理'); ReadCxGrid('仓库汇总库存1', Tv2, '贸易生产管理');
InitGrid(); InitGrid();
end; end;
procedure TfrmMCGRKList_HBKC.TBFindClick(Sender: TObject); procedure TfrmMCGRKList_HBKC.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
function TfrmMCGRKList_HBKC.DelData():Boolean; function TfrmMCGRKList_HBKC.DelData(): Boolean;
begin begin
end; end;
procedure TfrmMCGRKList_HBKC.TBExportClick(Sender: TObject); procedure TfrmMCGRKList_HBKC.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel(Self.Caption,cxGrid2); Exit;
TcxGridToExcel(Self.Caption, cxGrid2);
end; end;
procedure TfrmMCGRKList_HBKC.TBRafreshClick(Sender: TObject); procedure TfrmMCGRKList_HBKC.TBRafreshClick(Sender: TObject);
@ -256,42 +270,43 @@ end;
procedure TfrmMCGRKList_HBKC.ToolButton1Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.ToolButton1Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
exit;
try try
frmMCGRKList_HBKC_CX:=TfrmMCGRKList_HBKC_CX.Create(Application); frmMCGRKList_HBKC_CX := TfrmMCGRKList_HBKC_CX.Create(Application);
with frmMCGRKList_HBKC_CX do with frmMCGRKList_HBKC_CX do
begin begin
FMYCode:=Trim(Self.Order_Main.fieldbyname('MYCode').AsString); FMYCode := Trim(Self.Order_Main.fieldbyname('MYCode').AsString);
FMYName:=Trim(Self.Order_Main.fieldbyname('MYName').AsString); FMYName := Trim(Self.Order_Main.fieldbyname('MYName').AsString);
FKUWei:=Trim(Self.Order_Main.fieldbyname('KUWei').AsString); FKUWei := Trim(Self.Order_Main.fieldbyname('KUWei').AsString);
if cxTabControl1.TabIndex=0 then if cxTabControl1.TabIndex = 0 then
begin begin
labMYType.Caption:=' 面料库存汇总'; labMYType.Caption := ' 面料库存汇总';
end; end;
if cxTabControl1.TabIndex=1 then if cxTabControl1.TabIndex = 1 then
begin begin
labMYType.Caption:=' 组合面料库存汇总'; labMYType.Caption := ' 组合面料库存汇总';
end; end;
if cxTabControl1.TabIndex=2 then if cxTabControl1.TabIndex = 2 then
begin begin
labMYType.Caption:=' 坯布库存汇总'; labMYType.Caption := ' 坯布库存汇总';
cxGrid2.PopupMenu:=PopupMenu1; cxGrid2.PopupMenu := PopupMenu1;
end; end;
if cxTabControl1.TabIndex=3 then if cxTabControl1.TabIndex = 3 then
begin begin
labMYType.Caption:=' 线库存汇总'; labMYType.Caption := ' 线库存汇总';
end; end;
if cxTabControl1.TabIndex=4 then if cxTabControl1.TabIndex = 4 then
begin begin
labMYType.Caption:=' 棉库存汇总'; labMYType.Caption := ' 棉库存汇总';
end; end;
if cxTabControl1.TabIndex=5 then if cxTabControl1.TabIndex = 5 then
begin begin
labMYType.Caption:=' 无纺布库存汇总'; labMYType.Caption := ' 无纺布库存汇总';
end; end;
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
end; end;
finally finally
@ -301,28 +316,31 @@ end;
procedure TfrmMCGRKList_HBKC.CustomerNoNameChange(Sender: TObject); procedure TfrmMCGRKList_HBKC.CustomerNoNameChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmMCGRKList_HBKC.N2Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.N2Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_MYSC_CR_MX where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); sql.Add('select * from CK_MYSC_CR_MX where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('已产生明细数据，不能删除!','提示',0); Application.MessageBox('已产生明细数据，不能删除!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then if DelData() then
begin begin
//Order_Main.Delete; //Order_Main.Delete;
@ -341,29 +359,32 @@ end;
procedure TfrmMCGRKList_HBKC.ToolButton4Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.ToolButton4Click(Sender: TObject);
var var
fPrintFile:string; fPrintFile: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
if Trim(Order_Main.fieldbyname('Chker').AsString)='' then exit; Exit;
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\检测报告.rmf'; if Trim(Order_Main.fieldbyname('Chker').AsString) = '' then
RMXLSExport2:= TRMXLSExport.Create(RMXLSExport2); exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf';
RMXLSExport2 := TRMXLSExport.Create(RMXLSExport2);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from Test_Report where TRId='''+Trim(Order_Main.fieldbyname('TRId').AsString)+''''); sql.Add('select * from Test_Report where TRId=''' + Trim(Order_Main.fieldbyname('TRId').AsString) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
//RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; //RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value;
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\检测报告.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf'), '提示', 0);
end; end;
end; end;
@ -374,17 +395,17 @@ end;
procedure TfrmMCGRKList_HBKC.KHNameChange(Sender: TObject); procedure TfrmMCGRKList_HBKC.KHNameChange(Sender: TObject);
begin begin
SDofilter(ADOQueryCmd,SGetFilters(Panel1,3,4)); SDofilter(ADOQueryCmd, SGetFilters(Panel1, 3, 4));
SCreateCDS20(ADOQueryCmd,PB_MX); SCreateCDS20(ADOQueryCmd, PB_MX);
SInitCDSData20(ADOQueryCmd,PB_MX); SInitCDSData20(ADOQueryCmd, PB_MX);
end; end;
procedure TfrmMCGRKList_HBKC.N1Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.N1Click(Sender: TObject);
begin begin
frmRCCKInPut:=TfrmRCCKInPut.Create(self); frmRCCKInPut := TfrmRCCKInPut.Create(self);
with frmRCCKInPut do with frmRCCKInPut do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
@ -394,10 +415,11 @@ end;
procedure TfrmMCGRKList_HBKC.MYCodeChange(Sender: TObject); procedure TfrmMCGRKList_HBKC.MYCodeChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmMCGRKList_HBKC.TV2DblClick(Sender: TObject); procedure TfrmMCGRKList_HBKC.TV2DblClick(Sender: TObject);
@ -407,42 +429,43 @@ end;
procedure TfrmMCGRKList_HBKC.Button2Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.Button2Click(Sender: TObject);
begin begin
panel2.Visible:=true; panel2.Visible := true;
end; end;
procedure TfrmMCGRKList_HBKC.Image2Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.Image2Click(Sender: TObject);
begin begin
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
procedure TfrmMCGRKList_HBKC.SpeedButton1Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.SpeedButton1Click(Sender: TObject);
begin begin
MYType.Text:='坯布'; MYType.Text := '坯布';
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
procedure TfrmMCGRKList_HBKC.SpeedButton2Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.SpeedButton2Click(Sender: TObject);
begin begin
MYType.Text:='染色'; MYType.Text := '染色';
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
procedure TfrmMCGRKList_HBKC.SpeedButton4Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.SpeedButton4Click(Sender: TObject);
begin begin
MYType.Text:='线'; MYType.Text := '线';
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
procedure TfrmMCGRKList_HBKC.SpeedButton3Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.SpeedButton3Click(Sender: TObject);
begin begin
MYType.Text:='棉'; MYType.Text := '棉';
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
procedure TfrmMCGRKList_HBKC.SpeedButton5Click(Sender: TObject); procedure TfrmMCGRKList_HBKC.SpeedButton5Click(Sender: TObject);
begin begin
MYType.Text:='无纺布'; MYType.Text := '无纺布';
Panel2.Visible:=false; Panel2.Visible := false;
end; end;
end. end.

12
云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.dfm
View File

@ -1,6 +1,6 @@
object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL
Left = 42 Left = 490
Top = 104 Top = 300
Width = 1472 Width = 1472
Height = 765 Height = 765
Caption = #26222#36890#26448#26009#20837#24211#30331#35760 Caption = #26222#36890#26448#26009#20837#24211#30331#35760
@ -20,7 +20,7 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1456 Width = 1464
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -114,8 +114,8 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 100 Top = 100
Width = 1456 Width = 1464
Height = 626 Height = 634
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -279,7 +279,7 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1456 Width = 1464
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

15
云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.pas
View File

@ -13,7 +13,20 @@ uses
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator; 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
TfrmMCGRKList_PTCL = class(TForm) TfrmMCGRKList_PTCL = class(TForm)

37
云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.dfm
View File

@ -1,6 +1,6 @@
object frmMCGRKList_THCK: TfrmMCGRKList_THCK object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 189 Left = 491
Top = 134 Top = 255
Width = 1293 Width = 1293
Height = 687 Height = 687
Caption = #26825#36864#36135#20986#24211#30331#35760 Caption = #26825#36864#36135#20986#24211#30331#35760
@ -20,7 +20,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1277 Width = 1285
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -76,7 +76,6 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -113,14 +112,14 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 99
Width = 1277 Width = 1285
Height = 550 Height = 557
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -260,7 +259,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1277 Width = 1285
Height = 67 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -339,7 +338,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 139 Left = 139
Top = 9 Top = 9
Width = 119 Width = 119
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -408,7 +407,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 139 Left = 139
Top = 36 Top = 36
Width = 119 Width = 119
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -432,7 +431,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 450 Left = 450
Top = 9 Top = 9
Width = 93 Width = 93
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -447,7 +446,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 79 Left = 79
Top = 68 Top = 68
Width = 112 Width = 112
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -463,7 +462,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 79 Left = 79
Top = 95 Top = 95
Width = 140 Width = 140
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -489,7 +488,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 286 Left = 286
Top = 9 Top = 9
Width = 82 Width = 82
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -504,7 +503,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 286 Left = 286
Top = 36 Top = 36
Width = 82 Width = 82
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -653,9 +652,9 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
end end
object ListView1: TListView object ListView1: TListView
Left = 2 Left = 2
Top = 22 Top = 24
Width = 354 Width = 354
Height = 230 Height = 228
Align = alClient Align = alClient
Columns = <> Columns = <>
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -774,7 +773,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 74 Left = 74
Top = 30 Top = 30
Width = 214 Width = 214
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -13 Font.Height = -13
@ -802,7 +801,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK
Left = 87 Left = 87
Top = 192 Top = 192
Width = 298 Width = 298
Height = 29 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20

17
云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.pas
View File

@ -12,7 +12,22 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils; IdFTP,ShellAPI, ImgList,StrUtils, 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
TfrmMCGRKList_THCK = class(TForm) TfrmMCGRKList_THCK = class(TForm)

62
云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.dfm
View File

@ -1,13 +1,13 @@
object frmMCGRKList_XKC: TfrmMCGRKList_XKC object frmMCGRKList_XKC: TfrmMCGRKList_XKC
Left = 193 Left = 465
Top = 135 Top = 229
Width = 1308 Width = 1308
Height = 679 Height = 679
Caption = #32447#24211#23384 Caption = #32447#24211#23384
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1292 Width = 1300
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -69,7 +69,6 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -106,48 +105,48 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1292 Width = 1300
Height = 45 Height = 41
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 187 Left = 173
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 36 Left = 33
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 225 Left = 208
Top = 10 Top = 9
Width = 239 Width = 220
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -156,13 +155,13 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC
end end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 74 Left = 68
Top = 10 Top = 9
Width = 77 Width = 71
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -172,14 +171,14 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 77 Top = 73
Width = 1292 Width = 1300
Height = 562 Height = 575
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -389,6 +388,7 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC
end end
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clScrollBar Color = clScrollBar

17
云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, 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
TfrmMCGRKList_XKC = class(TForm) TfrmMCGRKList_XKC = class(TForm)

13
云翔生产管理(MYSC.dll)/U_MPDCKListNew.dfm
View File

@ -1,6 +1,6 @@
object frmMPDCKListNew: TfrmMPDCKListNew object frmMPDCKListNew: TfrmMPDCKListNew
Left = 159 Left = 616
Top = 89 Top = 331
Width = 1352 Width = 1352
Height = 714 Height = 714
Caption = #26825#30424#28857#20986#24211#65288#26032#65289 Caption = #26825#30424#28857#20986#24211#65288#26032#65289
@ -20,7 +20,7 @@ object frmMPDCKListNew: TfrmMPDCKListNew
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1336 Width = 1344
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -76,7 +76,6 @@ object frmMPDCKListNew: TfrmMPDCKListNew
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -104,8 +103,8 @@ object frmMPDCKListNew: TfrmMPDCKListNew
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1336 Width = 1344
Height = 577 Height = 585
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -257,7 +256,7 @@ object frmMPDCKListNew: TfrmMPDCKListNew
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1336 Width = 1344
Height = 66 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

16
云翔生产管理(MYSC.dll)/U_MPDCKListNew.pas
View File

@ -12,7 +12,21 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; 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
TfrmMPDCKListNew = class(TForm) TfrmMPDCKListNew = class(TForm)

15
云翔生产管理(MYSC.dll)/U_MPDRKList.dfm
View File

@ -1,6 +1,6 @@
object frmMPDRKList: TfrmMPDRKList object frmMPDRKList: TfrmMPDRKList
Left = 159 Left = 455
Top = 89 Top = 231
Width = 1352 Width = 1352
Height = 714 Height = 714
Caption = #26825#37319#36141#20837#24211#30331#35760 Caption = #26825#37319#36141#20837#24211#30331#35760
@ -20,7 +20,7 @@ object frmMPDRKList: TfrmMPDRKList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1336 Width = 1344
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -76,7 +76,6 @@ object frmMPDRKList: TfrmMPDRKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -104,13 +103,13 @@ object frmMPDRKList: TfrmMPDRKList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1336 Width = 1344
Height = 578 Height = 585
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -257,7 +256,7 @@ object frmMPDRKList: TfrmMPDRKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1336 Width = 1344
Height = 66 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

17
云翔生产管理(MYSC.dll)/U_MPDRKList.pas
View File

@ -12,7 +12,22 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils; IdFTP,ShellAPI, ImgList,StrUtils, 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
TfrmMPDRKList = class(TForm) TfrmMPDRKList = class(TForm)

13
云翔生产管理(MYSC.dll)/U_MPDRKListNew.dfm
View File

@ -1,6 +1,6 @@
object frmMPDRKListNew: TfrmMPDRKListNew object frmMPDRKListNew: TfrmMPDRKListNew
Left = 159 Left = 643
Top = 89 Top = 385
Width = 1352 Width = 1352
Height = 714 Height = 714
Caption = #26825#30424#28857#20837#24211#65288#26032#65289 Caption = #26825#30424#28857#20837#24211#65288#26032#65289
@ -20,7 +20,7 @@ object frmMPDRKListNew: TfrmMPDRKListNew
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1336 Width = 1344
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -76,7 +76,6 @@ object frmMPDRKListNew: TfrmMPDRKListNew
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -104,8 +103,8 @@ object frmMPDRKListNew: TfrmMPDRKListNew
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1336 Width = 1344
Height = 577 Height = 585
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -257,7 +256,7 @@ object frmMPDRKListNew: TfrmMPDRKListNew
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1336 Width = 1344
Height = 66 Height = 66
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

15
云翔生产管理(MYSC.dll)/U_MPDRKListNew.pas
View File

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; 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
TfrmMPDRKListNew = class(TForm) TfrmMPDRKListNew = class(TForm)

13
云翔生产管理(MYSC.dll)/U_MPZKCListNew.dfm
View File

@ -1,6 +1,6 @@
object frmMPZKCListNew: TfrmMPZKCListNew object frmMPZKCListNew: TfrmMPZKCListNew
Left = 138 Left = 691
Top = 45 Top = 373
Width = 1145 Width = 1145
Height = 734 Height = 734
Caption = #26825#24211#23384#27719#24635'('#26032')' Caption = #26825#24211#23384#27719#24635'('#26032')'
@ -20,7 +20,7 @@ object frmMPZKCListNew: TfrmMPZKCListNew
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1129 Width = 1137
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 125 ButtonWidth = 125
@ -69,7 +69,6 @@ object frmMPZKCListNew: TfrmMPZKCListNew
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -84,8 +83,8 @@ object frmMPZKCListNew: TfrmMPZKCListNew
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1129 Width = 1137
Height = 590 Height = 598
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -152,7 +151,7 @@ object frmMPZKCListNew: TfrmMPZKCListNew
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1129 Width = 1137
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

16
云翔生产管理(MYSC.dll)/U_MPZKCListNew.pas
View File

@ -12,7 +12,21 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; 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
TfrmMPZKCListNew = class(TForm) TfrmMPZKCListNew = class(TForm)

95
云翔生产管理(MYSC.dll)/U_MainWFBCKList.dfm
View File

@ -1,13 +1,13 @@
object frmMainWFBCKList: TfrmMainWFBCKList object frmMainWFBCKList: TfrmMainWFBCKList
Left = 201 Left = 517
Top = 81 Top = 275
Width = 1489 Width = 1489
Height = 755 Height = 755
Caption = #26825'&'#26080#32442#24067#20986#24211#26597#35810 Caption = #26825'&'#26080#32442#24067#20986#24211#26597#35810
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmMainWFBCKList: TfrmMainWFBCKList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1471 Width = 1481
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -60,7 +60,6 @@ object frmMainWFBCKList: TfrmMainWFBCKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -75,61 +74,61 @@ object frmMainWFBCKList: TfrmMainWFBCKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1471 Width = 1481
Height = 51 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 737 Left = 590
Top = 16 Top = 13
Width = 76 Width = 64
Height = 18 Height = 15
Caption = #36741#26009#21517#31216 Caption = #36741#26009#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 36 Left = 29
Top = 16 Top = 13
Width = 38 Width = 32
Height = 18 Height = 15
Caption = #26085#26399 Caption = #26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 414 Left = 331
Top = 16 Top = 13
Width = 76 Width = 64
Height = 18 Height = 15
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MLName: TEdit object MLName: TEdit
Tag = 2 Tag = 2
Left = 820 Left = 656
Top = 13 Top = 10
Width = 133 Width = 106
Height = 23 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -137,15 +136,15 @@ object frmMainWFBCKList: TfrmMainWFBCKList
OnChange = MYCodeChange OnChange = MYCodeChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 85 Left = 68
Top = 12 Top = 10
Width = 154 Width = 123
Height = 26 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -153,15 +152,15 @@ object frmMainWFBCKList: TfrmMainWFBCKList
TabOrder = 1 TabOrder = 1
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 241 Left = 193
Top = 12 Top = 10
Width = 150 Width = 120
Height = 26 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -170,13 +169,13 @@ object frmMainWFBCKList: TfrmMainWFBCKList
end end
object MLCodeName: TEdit object MLCodeName: TEdit
Tag = 2 Tag = 2
Left = 495 Left = 396
Top = 13 Top = 10
Width = 204 Width = 163
Height = 23 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -186,9 +185,9 @@ object frmMainWFBCKList: TfrmMainWFBCKList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 83 Top = 72
Width = 1471 Width = 1481
Height = 627 Height = 652
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -370,7 +369,7 @@ object frmMainWFBCKList: TfrmMainWFBCKList
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 552 Left = 552
PixelsPerInch = 120 PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clScrollBar Color = clScrollBar

15
云翔生产管理(MYSC.dll)/U_MainWFBCKList.pas
View File

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; 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
TfrmMainWFBCKList = class(TForm) TfrmMainWFBCKList = class(TForm)

87
云翔生产管理(MYSC.dll)/U_MianWFBKCList.dfm
View File

@ -1,13 +1,13 @@
object frmMianWFBKCList: TfrmMianWFBKCList object frmMianWFBKCList: TfrmMianWFBKCList
Left = 109 Left = 518
Top = 71 Top = 270
Width = 1516 Width = 1516
Height = 739 Height = 739
Caption = #26825#24211#23384 Caption = #26825#24211#23384
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmMianWFBKCList: TfrmMianWFBKCList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1498 Width = 1508
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -60,7 +60,6 @@ object frmMianWFBKCList: TfrmMianWFBKCList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -75,61 +74,61 @@ object frmMianWFBKCList: TfrmMianWFBKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1498 Width = 1508
Height = 51 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 326 Left = 261
Top = 16 Top = 13
Width = 38 Width = 32
Height = 18 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 181 Left = 145
Top = 16 Top = 13
Width = 38 Width = 32
Height = 18 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 24 Left = 19
Top = 16 Top = 13
Width = 38 Width = 32
Height = 18 Height = 15
Caption = #31867#22411 Caption = #31867#22411
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 370 Left = 296
Top = 11 Top = 9
Width = 275 Width = 220
Height = 23 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -138,13 +137,13 @@ object frmMianWFBKCList: TfrmMianWFBKCList
end end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 225 Left = 180
Top = 11 Top = 9
Width = 89 Width = 71
Height = 23 Height = 26
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -153,17 +152,17 @@ object frmMianWFBKCList: TfrmMianWFBKCList
end end
object DataType: TComboBox object DataType: TComboBox
Tag = 1 Tag = 1
Left = 68 Left = 54
Top = 11 Top = 9
Width = 103 Width = 83
Height = 26 Height = 23
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemHeight = 18 ItemHeight = 15
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnChange = DataTypeChange OnChange = DataTypeChange
@ -175,9 +174,9 @@ object frmMianWFBKCList: TfrmMianWFBKCList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 83 Top = 72
Width = 1498 Width = 1508
Height = 611 Height = 636
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -398,7 +397,7 @@ object frmMianWFBKCList: TfrmMianWFBKCList
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 272 Left = 272
Top = 8 Top = 8
PixelsPerInch = 120 PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clScrollBar Color = clScrollBar

15
云翔生产管理(MYSC.dll)/U_MianWFBKCList.pas
View File

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; 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
TfrmMianWFBKCList = class(TForm) TfrmMianWFBKCList = class(TForm)

5
云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm
View File

@ -1,6 +1,6 @@
object frmPBCGRKList: TfrmPBCGRKList object frmPBCGRKList: TfrmPBCGRKList
Left = 142 Left = 364
Top = 18 Top = 154
Width = 1556 Width = 1556
Height = 765 Height = 765
Caption = #22383#24067#37319#36141#20837#24211#30331#35760 Caption = #22383#24067#37319#36141#20837#24211#30331#35760
@ -78,7 +78,6 @@ object frmPBCGRKList: TfrmPBCGRKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton

199
云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.dfm
View File

@ -7,7 +7,7 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1278 Width = 1286
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -77,7 +77,6 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -113,15 +112,15 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 99
Width = 1278 Width = 1286
Height = 524 Height = 539
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -244,87 +243,87 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1278 Width = 1286
Height = 73 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
object Label34: TLabel object Label34: TLabel
Left = 269 Left = 248
Top = 14 Top = 13
Width = 85 Width = 80
Height = 16 Height = 15
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 39 Left = 36
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 39 Left = 36
Top = 43 Top = 40
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 269 Left = 248
Top = 43 Top = 40
Width = 102 Width = 96
Height = 16 Height = 15
Caption = #36827#20179#21333#20301#31616#31216 Caption = #36827#20179#21333#20301#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 571 Left = 527
Top = 14 Top = 13
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #25805#20316#20154 Caption = #25805#20316#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object KHNameJC: TEdit object KHNameJC: TEdit
Tag = 2 Tag = 2
Left = 377 Left = 348
Top = 10 Top = 9
Width = 128 Width = 118
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -332,30 +331,30 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 909 Left = 839
Top = 10 Top = 9
Width = 122 Width = 113
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 909 Left = 839
Top = 39 Top = 36
Width = 122 Width = 113
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -363,13 +362,13 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 76 Left = 70
Top = 10 Top = 9
Width = 121 Width = 112
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -378,13 +377,13 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 76 Left = 70
Top = 39 Top = 36
Width = 153 Width = 141
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -392,14 +391,14 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 815 Left = 752
Top = 14 Top = 13
Width = 89 Width = 82
Height = 17 Height = 16
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -407,23 +406,23 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object Button2: TButton object Button2: TButton
Left = 506 Left = 467
Top = 9 Top = 8
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 6 TabOrder = 6
OnClick = Button2Click OnClick = Button2Click
end end
object JCDanWeiJC: TEdit object JCDanWeiJC: TEdit
Tag = 2 Tag = 2
Left = 377 Left = 348
Top = 39 Top = 36
Width = 128 Width = 118
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -431,32 +430,32 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object Button1: TButton object Button1: TButton
Left = 506 Left = 467
Top = 38 Top = 35
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 8 TabOrder = 8
OnClick = Button1Click OnClick = Button1Click
end end
object Button3: TButton object Button3: TButton
Left = 199 Left = 184
Top = 9 Top = 8
Width = 29 Width = 26
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 9 TabOrder = 9
OnClick = Button3Click OnClick = Button3Click
end end
object filler: TEdit object filler: TEdit
Tag = 2 Tag = 2
Left = 628 Left = 580
Top = 10 Top = 9
Width = 153 Width = 141
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -465,32 +464,32 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 409 Left = 378
Top = 195 Top = 180
Width = 232 Width = 214
Height = 134 Height = 124
Color = clSkyBlue Color = clSkyBlue
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 35 Left = 32
Top = 37 Top = 34
Width = 70 Width = 65
Height = 58 Height = 54
Caption = #21152#24037 Caption = #21152#24037
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object Image2: TImage object Image2: TImage
Left = 205 Left = 189
Top = 3 Top = 3
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -535,14 +534,14 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK
OnClick = Image2Click OnClick = Image2Click
end end
object SpeedButton2: TSpeedButton object SpeedButton2: TSpeedButton
Left = 126 Left = 116
Top = 37 Top = 34
Width = 70 Width = 65
Height = 58 Height = 54
Caption = #38144#21806 Caption = #38144#21806
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, 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
TfrmPBCGRKList_PBCK = class(TForm) TfrmPBCGRKList_PBCK = class(TForm)

66
云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.dfm
View File

@ -7,7 +7,7 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1063 Width = 1071
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -69,7 +69,6 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -106,48 +105,48 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1063 Width = 1071
Height = 44 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label2: TLabel object Label2: TLabel
Left = 148 Left = 137
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 14 Left = 13
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 186 Left = 172
Top = 10 Top = 9
Width = 239 Width = 220
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -155,23 +154,23 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
OnChange = MYCodeChange OnChange = MYCodeChange
end end
object Button3: TButton object Button3: TButton
Left = 426 Left = 393
Top = 9 Top = 8
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 1 TabOrder = 1
OnClick = Button3Click OnClick = Button3Click
end end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 53 Left = 49
Top = 10 Top = 9
Width = 77 Width = 71
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -181,13 +180,13 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 76 Top = 72
Width = 1063 Width = 1071
Height = 585 Height = 598
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV2CellDblClick OnCellDblClick = TV2CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -406,6 +405,7 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 6 Left = 6
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clScrollBar Color = clScrollBar

17
云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, 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
TfrmPBCGRKList_QCKC = class(TForm) TfrmPBCGRKList_QCKC = class(TForm)

1
云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm
View File

@ -69,7 +69,6 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton

13
云翔生产管理(MYSC.dll)/U_PBKCList.dfm
View File

@ -1,6 +1,6 @@
object frmPBKCList: TfrmPBKCList object frmPBKCList: TfrmPBKCList
Left = 29 Left = 384
Top = 63 Top = 163
Width = 1556 Width = 1556
Height = 765 Height = 765
Caption = #22383#24067#24211#23384#26597#35810 Caption = #22383#24067#24211#23384#26597#35810
@ -20,7 +20,7 @@ object frmPBKCList: TfrmPBKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1548
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -61,7 +61,6 @@ object frmPBKCList: TfrmPBKCList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -76,8 +75,8 @@ object frmPBKCList: TfrmPBKCList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 71 Top = 71
Width = 1540 Width = 1548
Height = 655 Height = 663
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -338,7 +337,7 @@ object frmPBKCList: TfrmPBKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1540 Width = 1548
Height = 39 Height = 39
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

15
云翔生产管理(MYSC.dll)/U_PBKCList.pas
View File

@ -11,7 +11,20 @@ uses
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, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxLookAndFeelPainters, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, cxTextEdit; cxNavigator, 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 type
TfrmPBKCList = class(TForm) TfrmPBKCList = class(TForm)

373
云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.dfm
View File

@ -1,13 +1,13 @@
object frmPMCGRKList_TH: TfrmPMCGRKList_TH object frmPMCGRKList_TH: TfrmPMCGRKList_TH
Left = 189 Left = 734
Top = 133 Top = 305
Width = 1293 Width = 1293
Height = 687 Height = 687
Caption = #27873#32501#36864#36135#30331#35760 Caption = #27873#32501#36864#36135#30331#35760
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1277 Width = 1285
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -78,7 +78,6 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -114,15 +113,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 99
Width = 1277 Width = 1285
Height = 542 Height = 557
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -283,128 +282,128 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1277 Width = 1285
Height = 73 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label34: TLabel object Label34: TLabel
Left = 25 Left = 23
Top = 14 Top = 13
Width = 85 Width = 80
Height = 16 Height = 15
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 25 Left = 23
Top = 43 Top = 40
Width = 102 Width = 96
Height = 16 Height = 15
Caption = #36827#20179#21333#20301#31616#31216 Caption = #36827#20179#21333#20301#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 402 Left = 371
Top = 14 Top = 13
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #25805#20316#20154 Caption = #25805#20316#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 48 Left = 44
Top = 114 Top = 105
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label1: TLabel object Label1: TLabel
Left = 48 Left = 44
Top = 143 Top = 132
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label5: TLabel object Label5: TLabel
Left = 402 Left = 371
Top = 43 Top = 40
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #37319#36141#20154 Caption = #37319#36141#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 580 Left = 535
Top = 14 Top = 13
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #39068#33394 Caption = #39068#33394
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 580 Left = 535
Top = 43 Top = 40
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object KHNameJC: TEdit object KHNameJC: TEdit
Tag = 2 Tag = 2
Left = 133 Left = 123
Top = 10 Top = 9
Width = 129 Width = 119
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -413,15 +412,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 845 Left = 780
Top = 10 Top = 9
Width = 122 Width = 113
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -429,15 +428,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
TabOrder = 3 TabOrder = 3
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 845 Left = 780
Top = 39 Top = 36
Width = 122 Width = 113
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -445,15 +444,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
TabOrder = 8 TabOrder = 8
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 751 Left = 693
Top = 13 Top = 12
Width = 89 Width = 82
Height = 17 Height = 16
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Checked = True Checked = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -462,23 +461,23 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object Button2: TButton object Button2: TButton
Left = 262 Left = 242
Top = 9 Top = 8
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 0 TabOrder = 0
OnClick = Button2Click OnClick = Button2Click
end end
object JCDanWeiJC: TEdit object JCDanWeiJC: TEdit
Tag = 2 Tag = 2
Left = 133 Left = 123
Top = 39 Top = 36
Width = 129 Width = 119
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -487,23 +486,23 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object Button1: TButton object Button1: TButton
Left = 262 Left = 242
Top = 38 Top = 35
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 5 TabOrder = 5
OnClick = Button1Click OnClick = Button1Click
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 617 Left = 570
Top = 39 Top = 36
Width = 100 Width = 92
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -512,13 +511,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 86 Left = 79
Top = 139 Top = 128
Width = 151 Width = 140
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -528,23 +527,23 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object Button3: TButton object Button3: TButton
Left = 718 Left = 663
Top = 38 Top = 35
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 9 TabOrder = 9
OnClick = Button3Click OnClick = Button3Click
end end
object KHNo: TEdit object KHNo: TEdit
Tag = 2 Tag = 2
Left = 292 Left = 270
Top = 10 Top = 9
Width = 89 Width = 82
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -554,13 +553,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
object JCKHNo: TEdit object JCKHNo: TEdit
Tag = 2 Tag = 2
Left = 292 Left = 270
Top = 39 Top = 36
Width = 89 Width = 82
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -569,13 +568,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
object MYColor: TEdit object MYColor: TEdit
Tag = 2 Tag = 2
Left = 617 Left = 570
Top = 10 Top = 9
Width = 100 Width = 92
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -583,65 +582,65 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object filler: TComboBox object filler: TComboBox
Left = 457 Left = 422
Top = 10 Top = 9
Width = 99 Width = 91
Height = 24 Height = 23
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 15
ParentFont = False ParentFont = False
TabOrder = 13 TabOrder = 13
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CGName: TComboBox object CGName: TComboBox
Left = 457 Left = 422
Top = 39 Top = 36
Width = 99 Width = 91
Height = 24 Height = 23
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 15
ParentFont = False ParentFont = False
TabOrder = 14 TabOrder = 14
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 403 Left = 372
Top = 156 Top = 144
Width = 232 Width = 214
Height = 146 Height = 135
Color = clSkyBlue Color = clSkyBlue
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 81 Left = 75
Top = 43 Top = 40
Width = 62 Width = 57
Height = 54 Height = 50
Caption = #27873#32501 Caption = #27873#32501
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object Image2: TImage object Image2: TImage
Left = 205 Left = 189
Top = 3 Top = 3
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -687,27 +686,27 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
end end
object cxGroupBox2: TcxGroupBox object cxGroupBox2: TcxGroupBox
Left = 650 Left = 600
Top = 133 Top = 123
Caption = #30721#21333'('#25991#20214')'#19978#20256 Caption = #30721#21333'('#25991#20214')'#19978#20256
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Style.Color = clBtnFace Style.Color = clBtnFace
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clBlue Style.Font.Color = clBlue
Style.Font.Height = -16 Style.Font.Height = -15
Style.Font.Name = #24494#36719#38597#40657 Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
Height = 275 Height = 254
Width = 388 Width = 358
object Image3: TImage object Image3: TImage
Left = 361 Left = 333
Top = 3 Top = 3
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -753,14 +752,14 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
object ListView1: TListView object ListView1: TListView
Left = 2 Left = 2
Top = 25 Top = 24
Width = 384 Width = 354
Height = 248 Height = 228
Align = alClient Align = alClient
Columns = <> Columns = <>
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
LargeImages = ImageList1 LargeImages = ImageList1
@ -770,34 +769,34 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnDblClick = ListView1DblClick OnDblClick = ListView1DblClick
end end
object Panel12: TPanel object Panel12: TPanel
Left = 35 Left = 32
Top = 88 Top = 81
Width = 324 Width = 299
Height = 106 Height = 98
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
object Label8: TLabel object Label8: TLabel
Left = 11 Left = 10
Top = 35 Top = 32
Width = 64 Width = 56
Height = 15 Height = 13
Caption = #25991#20214#21517#31216 Caption = #25991#20214#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Button4: TButton object Button4: TButton
Left = 15 Left = 14
Top = 65 Top = 60
Width = 83 Width = 76
Height = 27 Height = 25
Caption = #26159 Caption = #26159
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -807,8 +806,8 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
object Panel13: TPanel object Panel13: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 322 Width = 297
Height = 23 Height = 21
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
@ -816,16 +815,16 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
object Image1: TImage object Image1: TImage
Left = 297 Left = 274
Top = 2 Top = 2
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -871,13 +870,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
end end
object WJName: TEdit object WJName: TEdit
Left = 80 Left = 74
Top = 33 Top = 30
Width = 232 Width = 214
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -885,14 +884,14 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
TabOrder = 1 TabOrder = 1
end end
object Button7: TButton object Button7: TButton
Left = 228 Left = 210
Top = 65 Top = 60
Width = 81 Width = 75
Height = 27 Height = 25
Caption = #21542 Caption = #21542
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -900,13 +899,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
OnClick = Button7Click OnClick = Button7Click
end end
object WJPach: TEdit object WJPach: TEdit
Left = 94 Left = 87
Top = 208 Top = 192
Width = 323 Width = 298
Height = 29 Height = 29
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -20
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -914,14 +913,14 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
TabOrder = 5 TabOrder = 5
end end
object Button8: TButton object Button8: TButton
Left = 119 Left = 110
Top = 65 Top = 60
Width = 83 Width = 76
Height = 27 Height = 25
Caption = #30830#23450 Caption = #30830#23450
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -930,16 +929,16 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 67 Left = 62
Top = 133 Top = 123
Width = 282 Width = 260
Height = 34 Height = 31
BevelOuter = bvNone BevelOuter = bvNone
Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.pas
View File

@ -12,7 +12,22 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils; IdFTP,ShellAPI, ImgList,StrUtils, 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
TfrmPMCGRKList_TH = class(TForm) TfrmPMCGRKList_TH = class(TForm)

151
云翔生产管理(MYSC.dll)/U_QCCKList_CK.dfm
View File

@ -7,7 +7,7 @@ object frmQCCKList_CK: TfrmQCCKList_CK
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmQCCKList_CK: TfrmQCCKList_CK
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1365 Width = 1373
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -86,7 +86,6 @@ object frmQCCKList_CK: TfrmQCCKList_CK
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -113,15 +112,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 111 Top = 104
Width = 811 Width = 749
Height = 557 Height = 573
Align = alLeft Align = alLeft
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -217,87 +216,87 @@ object frmQCCKList_CK: TfrmQCCKList_CK
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1365 Width = 1373
Height = 79 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
object Label34: TLabel object Label34: TLabel
Left = 258 Left = 238
Top = 17 Top = 16
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 26 Left = 24
Top = 17 Top = 16
Width = 70 Width = 68
Height = 16 Height = 15
Caption = #21697' '#21517 Caption = #21697' '#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 258 Left = 238
Top = 49 Top = 45
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 28 Left = 26
Top = 49 Top = 45
Width = 68 Width = 64
Height = 16 Height = 15
Caption = #24037#33402#21517#31216 Caption = #24037#33402#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 451 Left = 416
Top = 17 Top = 16
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #39068#33394 Caption = #39068#33394
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 295 Left = 272
Top = 13 Top = 12
Width = 135 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -305,15 +304,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 759 Left = 701
Top = 13 Top = 12
Width = 133 Width = 122
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -321,15 +320,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK
Visible = False Visible = False
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 759 Left = 701
Top = 45 Top = 42
Width = 133 Width = 122
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -338,13 +337,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 99 Left = 91
Top = 13 Top = 12
Width = 135 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -353,13 +352,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 295 Left = 272
Top = 45 Top = 42
Width = 135 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -368,13 +367,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK
end end
object GYLXName: TEdit object GYLXName: TEdit
Tag = 2 Tag = 2
Left = 99 Left = 91
Top = 45 Top = 42
Width = 135 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -382,14 +381,14 @@ object frmQCCKList_CK: TfrmQCCKList_CK
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 661 Left = 610
Top = 16 Top = 15
Width = 98 Width = 91
Height = 19 Height = 17
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -398,13 +397,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK
end end
object MYColor: TEdit object MYColor: TEdit
Tag = 2 Tag = 2
Left = 488 Left = 450
Top = 13 Top = 12
Width = 135 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -413,15 +412,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK
end end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 811 Left = 749
Top = 111 Top = 104
Width = 554 Width = 624
Height = 557 Height = 573
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV2CellDblClick OnCellDblClick = TV2CellDblClick
DataController.DataSource = DataSource2 DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]

17
云翔生产管理(MYSC.dll)/U_QCCKList_CK.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC; Menus, cxButtonEdit, cxDropDownEdit, cxPC, 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
TfrmQCCKList_CK = class(TForm) TfrmQCCKList_CK = class(TForm)

159
云翔生产管理(MYSC.dll)/U_QCRKList.dfm
View File

@ -7,7 +7,7 @@ object frmQCRKList: TfrmQCRKList
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmQCRKList: TfrmQCRKList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1342 Width = 1350
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -77,7 +77,6 @@ object frmQCRKList: TfrmQCRKList
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -113,14 +112,14 @@ object frmQCRKList: TfrmQCRKList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 110 Top = 104
Width = 1342 Width = 1350
Height = 560 Height = 575
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -213,48 +212,48 @@ object frmQCRKList: TfrmQCRKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1342 Width = 1350
Height = 78 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
object Label34: TLabel object Label34: TLabel
Left = 28 Left = 26
Top = 46 Top = 42
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 28 Left = 26
Top = 15 Top = 14
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 67 Left = 62
Top = 42 Top = 39
Width = 136 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -262,15 +261,15 @@ object frmQCRKList: TfrmQCRKList
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 381 Left = 352
Top = 11 Top = 10
Width = 133 Width = 122
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -278,15 +277,15 @@ object frmQCRKList: TfrmQCRKList
Visible = False Visible = False
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 381 Left = 352
Top = 42 Top = 39
Width = 133 Width = 122
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -295,13 +294,13 @@ object frmQCRKList: TfrmQCRKList
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 67 Left = 62
Top = 11 Top = 10
Width = 136 Width = 125
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -309,14 +308,14 @@ object frmQCRKList: TfrmQCRKList
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 280 Left = 258
Top = 13 Top = 12
Width = 98 Width = 91
Height = 19 Height = 18
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -324,30 +323,30 @@ object frmQCRKList: TfrmQCRKList
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object Button1: TButton object Button1: TButton
Left = 204 Left = 188
Top = 8 Top = 7
Width = 34 Width = 32
Height = 30 Height = 28
Caption = '...' Caption = '...'
TabOrder = 5 TabOrder = 5
OnClick = Button1Click OnClick = Button1Click
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 698 Left = 644
Top = 116 Top = 107
Width = 207 Width = 191
Height = 405 Height = 374
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
object Image2: TImage object Image2: TImage
Left = 179 Left = 165
Top = 4 Top = 4
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -392,70 +391,70 @@ object frmQCRKList: TfrmQCRKList
OnClick = Image2Click OnClick = Image2Click
end end
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 27 Left = 25
Top = 23 Top = 21
Width = 149 Width = 137
Height = 64 Height = 59
Caption = #26377#32534#21495 Caption = #26377#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton2: TSpeedButton object SpeedButton2: TSpeedButton
Left = 27 Left = 25
Top = 176 Top = 162
Width = 149 Width = 137
Height = 64 Height = 60
Caption = #26080#32534#21495 Caption = #26080#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton2Click OnClick = SpeedButton2Click
end end
object SpeedButton3: TSpeedButton object SpeedButton3: TSpeedButton
Left = 27 Left = 25
Top = 99 Top = 91
Width = 149 Width = 137
Height = 64 Height = 59
Caption = 'Y'#23383#32534#21495 Caption = 'Y'#23383#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton3Click OnClick = SpeedButton3Click
end end
object SpeedButton4: TSpeedButton object SpeedButton4: TSpeedButton
Left = 27 Left = 25
Top = 252 Top = 233
Width = 149 Width = 137
Height = 64 Height = 59
Caption = #28907#37329#32534#21495 Caption = #28907#37329#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton4Click OnClick = SpeedButton4Click
end end
object SpeedButton5: TSpeedButton object SpeedButton5: TSpeedButton
Left = 27 Left = 25
Top = 328 Top = 303
Width = 149 Width = 137
Height = 64 Height = 59
Caption = 'YH'#21360#33457#32534#21495 Caption = 'YH'#21360#33457#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_QCRKList.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, 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
TfrmQCRKList = class(TForm) TfrmQCRKList = class(TForm)

335
云翔生产管理(MYSC.dll)/U_XCGRKList_TH.dfm
View File

@ -7,7 +7,7 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -15,12 +15,12 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1362 Width = 1370
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -78,7 +78,6 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
@ -114,15 +113,15 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 114 Top = 107
Width = 1362 Width = 1370
Height = 541 Height = 557
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -287,100 +286,100 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1362 Width = 1370
Height = 82 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label34: TLabel object Label34: TLabel
Left = 255 Left = 235
Top = 20 Top = 18
Width = 85 Width = 80
Height = 16 Height = 15
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 38 Left = 35
Top = 20 Top = 18
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 38 Left = 35
Top = 48 Top = 44
Width = 34 Width = 32
Height = 16 Height = 15
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 255 Left = 235
Top = 48 Top = 44
Width = 102 Width = 96
Height = 16 Height = 15
Caption = #36827#20179#21333#20301#31616#31216 Caption = #36827#20179#21333#20301#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 631 Left = 582
Top = 20 Top = 18
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #21046#20316#20154 Caption = #21046#20316#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 631 Left = 582
Top = 48 Top = 44
Width = 51 Width = 48
Height = 16 Height = 15
Caption = #37319#36141#20154 Caption = #37319#36141#20154
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object KHNameJC: TEdit object KHNameJC: TEdit
Tag = 2 Tag = 2
Left = 363 Left = 335
Top = 15 Top = 14
Width = 128 Width = 118
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -388,30 +387,30 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 895 Left = 826
Top = 15 Top = 14
Width = 129 Width = 119
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 895 Left = 826
Top = 44 Top = 41
Width = 129 Width = 119
Height = 24 Height = 23
Date = 40768.458268587970000000 Date = 40768.458268587970000000
Time = 40768.458268587970000000 Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -419,13 +418,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object MYName: TEdit object MYName: TEdit
Tag = 2 Tag = 2
Left = 76 Left = 70
Top = 15 Top = 14
Width = 152 Width = 140
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -434,13 +433,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 76 Left = 70
Top = 44 Top = 41
Width = 152 Width = 140
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -448,14 +447,14 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 803 Left = 741
Top = 18 Top = 17
Width = 89 Width = 82
Height = 17 Height = 15
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -463,23 +462,23 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object Button2: TButton object Button2: TButton
Left = 492 Left = 454
Top = 14 Top = 13
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 0 TabOrder = 0
OnClick = Button2Click OnClick = Button2Click
end end
object JCDanWeiJC: TEdit object JCDanWeiJC: TEdit
Tag = 2 Tag = 2
Left = 363 Left = 335
Top = 44 Top = 41
Width = 128 Width = 118
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -487,23 +486,23 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object Button1: TButton object Button1: TButton
Left = 492 Left = 454
Top = 43 Top = 40
Width = 29 Width = 27
Height = 26 Height = 24
Caption = '...' Caption = '...'
TabOrder = 7 TabOrder = 7
OnClick = Button1Click OnClick = Button1Click
end end
object filler: TEdit object filler: TEdit
Tag = 2 Tag = 2
Left = 686 Left = 633
Top = 15 Top = 14
Width = 90 Width = 83
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -512,13 +511,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object KHNo: TEdit object KHNo: TEdit
Tag = 2 Tag = 2
Left = 522 Left = 482
Top = 15 Top = 14
Width = 89 Width = 82
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -527,13 +526,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object JCKHNo: TEdit object JCKHNo: TEdit
Tag = 2 Tag = 2
Left = 522 Left = 482
Top = 44 Top = 41
Width = 89 Width = 82
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -542,13 +541,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object CGName: TEdit object CGName: TEdit
Tag = 2 Tag = 2
Left = 686 Left = 633
Top = 43 Top = 40
Width = 91 Width = 84
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -557,27 +556,27 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
end end
object cxGroupBox2: TcxGroupBox object cxGroupBox2: TcxGroupBox
Left = 840 Left = 775
Top = 141 Top = 130
Caption = #30721#21333'('#25991#20214')'#19978#20256 Caption = #30721#21333'('#25991#20214')'#19978#20256
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Style.Color = clBtnFace Style.Color = clBtnFace
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clBlue Style.Font.Color = clBlue
Style.Font.Height = -16 Style.Font.Height = -15
Style.Font.Name = #24494#36719#38597#40657 Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
Height = 266 Height = 246
Width = 385 Width = 356
object Image3: TImage object Image3: TImage
Left = 358 Left = 330
Top = 2 Top = 2
Width = 24 Width = 23
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -623,14 +622,14 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
object ListView1: TListView object ListView1: TListView
Left = 2 Left = 2
Top = 25 Top = 24
Width = 381 Width = 352
Height = 239 Height = 220
Align = alClient Align = alClient
Columns = <> Columns = <>
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
LargeImages = ImageList1 LargeImages = ImageList1
@ -639,34 +638,34 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnDblClick = ListView1DblClick OnDblClick = ListView1DblClick
end end
object Panel12: TPanel object Panel12: TPanel
Left = 33 Left = 30
Top = 75 Top = 69
Width = 323 Width = 299
Height = 106 Height = 98
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
object Label8: TLabel object Label8: TLabel
Left = 11 Left = 10
Top = 35 Top = 32
Width = 64 Width = 56
Height = 15 Height = 13
Caption = #25991#20214#21517#31216 Caption = #25991#20214#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Button3: TButton object Button3: TButton
Left = 15 Left = 14
Top = 65 Top = 60
Width = 83 Width = 76
Height = 27 Height = 25
Caption = #26159 Caption = #26159
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -676,8 +675,8 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
object Panel13: TPanel object Panel13: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 321 Width = 297
Height = 23 Height = 21
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
@ -685,16 +684,16 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
object Image1: TImage object Image1: TImage
Left = 297 Left = 274
Top = 2 Top = 2
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -740,27 +739,27 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
end end
object WJName: TEdit object WJName: TEdit
Left = 80 Left = 74
Top = 30 Top = 28
Width = 232 Width = 214
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object Button7: TButton object Button7: TButton
Left = 228 Left = 210
Top = 65 Top = 60
Width = 81 Width = 75
Height = 27 Height = 25
Caption = #21542 Caption = #21542
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -768,27 +767,27 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnClick = Button7Click OnClick = Button7Click
end end
object WJPach: TEdit object WJPach: TEdit
Left = 94 Left = 87
Top = 208 Top = 192
Width = 323 Width = 298
Height = 29 Height = 29
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -20
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object Button8: TButton object Button8: TButton
Left = 119 Left = 110
Top = 65 Top = 60
Width = 83 Width = 76
Height = 27 Height = 25
Caption = #30830#23450 Caption = #30830#23450
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -797,16 +796,16 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 62 Left = 57
Top = 119 Top = 110
Width = 283 Width = 261
Height = 34 Height = 31
BevelOuter = bvNone BevelOuter = bvNone
Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -16 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -815,20 +814,20 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1092 Left = 1008
Top = 167 Top = 154
Width = 207 Width = 191
Height = 194 Height = 179
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
object Image4: TImage object Image4: TImage
Left = 178 Left = 164
Top = 3 Top = 3
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -873,28 +872,28 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH
OnClick = Image4Click OnClick = Image4Click
end end
object SpeedButton3: TSpeedButton object SpeedButton3: TSpeedButton
Left = 28 Left = 26
Top = 25 Top = 23
Width = 149 Width = 137
Height = 64 Height = 59
Caption = #38754#32447 Caption = #38754#32447
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = SpeedButton3Click OnClick = SpeedButton3Click
end end
object SpeedButton4: TSpeedButton object SpeedButton4: TSpeedButton
Left = 28 Left = 26
Top = 106 Top = 98
Width = 149 Width = 137
Height = 64 Height = 59
Caption = #24213#32447 Caption = #24213#32447
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False

17
云翔生产管理(MYSC.dll)/U_XCGRKList_TH.pas
View File

@ -12,7 +12,22 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP,ShellAPI, ImgList,StrUtils; IdFTP,ShellAPI, ImgList,StrUtils, 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
TfrmXCGRKList_TH = class(TForm) TfrmXCGRKList_TH = class(TForm)