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

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

@ -11,7 +11,20 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxButtonEdit, BtnEdit,
cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxContainer,
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
TfrmBPZDY_LRM = class(TForm)

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

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

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

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

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

@ -10,7 +10,21 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
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
TfrmCGCX = class(TForm)

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

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

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

@ -12,7 +12,22 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
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
TfrmCGPriceChk_BF = class(TForm)

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

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

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

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
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
TfrmCGRKList = class(TForm)

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

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

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

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
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
TfrmCPListDML = class(TForm)

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

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

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

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

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

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

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

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

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

@ -11,7 +11,21 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
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
TfrmJGCKList = class(TForm)

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

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

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

@ -272,7 +272,7 @@ begin
sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
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(' 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 ');
@ -1035,7 +1035,7 @@ begin
Close;
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(' 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(' ,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) ');

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

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

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

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

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

@ -272,7 +272,7 @@ begin
sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
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(' 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 ');
@ -1035,7 +1035,7 @@ begin
Close;
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(' 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(' ,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) ');

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

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

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

@ -13,7 +13,21 @@ uses
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
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
TfrmLLRKInPutMH_PBCG = class(TForm)

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

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

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

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

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

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

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

@ -4,30 +4,28 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, 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;
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, 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
TfrmLLRKMXInPut = class(TForm)
@ -118,21 +116,17 @@ type
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ShuiXiSuoLvClick(Sender: TObject);
procedure ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure UnitMClick(Sender: TObject);
procedure UnitKgClick(Sender: TObject);
procedure QtyLRMKeyPress(Sender: TObject; var Key: Char);
procedure QtyLRKgKeyPress(Sender: TObject; var Key: Char);
procedure BtnQXClick(Sender: TObject);
procedure MYNameKeyPress(Sender: TObject; var Key: Char);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Button6Click(Sender: TObject);
procedure BtnDelClick(Sender: TObject);
procedure v1Column7PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BtnPrtClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
@ -148,17 +142,19 @@ type
procedure GetHZData();
{ Private declarations }
public
canshu1:String;
canshu1: string;
PState, CopyInt: Integer;
FMainId:String;
FRead:String;
FMainId: string;
FRead: string;
FSaveFlag: string;
{ Public declarations }
end;
var
frmLLRKMXInPut: TfrmLLRKMXInPut;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_QCRKJLList;
@ -179,6 +175,7 @@ begin
Panel3.Visible := False;
end;
end;
procedure TfrmLLRKMXInPut.InitMXData();
begin
with ADOTemp do
@ -191,9 +188,10 @@ begin
SCreateCDS20(ADOTemp, ClientDataSet1);
SInitCDSData20(ADOTemp, ClientDataSet1);
end;
procedure TfrmLLRKMXInPut.GetHZData();
var
FKG,FM,FPS:String;
FKG, FM, FPS: string;
begin
FKG := Tv1.DataController.Summary.FooterSummaryTexts[0];
FM := Tv1.DataController.Summary.FooterSummaryTexts[1];
@ -205,7 +203,8 @@ begin
begin
SClearData(Panel2, 2);
SClearData(Panel2, 99);
end else
end
else
begin
with ADOTemp do
begin
@ -215,14 +214,16 @@ begin
if Trim(FKG) <> '' then
begin
Parameters.ParamByName('KGQty').Value := FKG;
end else
end
else
begin
Parameters.ParamByName('KGQty').Value := Null;
end;
if Trim(FM) <> '' then
begin
Parameters.ParamByName('MQty').Value := FM;
end else
end
else
begin
Parameters.ParamByName('MQty').Value := Null;
end;
@ -250,7 +251,7 @@ end;
function TfrmLLRKMXInPut.SaveData(): Boolean;
var
maxmxno,maxnoflag,fsj,FMXID:String;
maxmxno, maxnoflag, fsj, FMXID: string;
begin
Result := False;
try
@ -296,6 +297,7 @@ begin
FieldByName('MQty').Value := ClientDataSet1.fieldbyname('MQty').Value;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillerCode').Value := Trim(DCode);
FieldByName('ZKZT').Value := '在库';
Post;
end;
with ADOCmd do
@ -368,19 +370,20 @@ begin
if Trim(TEdit(Sender).Text) = '' then
begin
TEdit(Sender).Text := '√';
end else
end
else
begin
TEdit(Sender).Text := '';
end;
end;
procedure TfrmLLRKMXInPut.ShuiXiSuoLvJGMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TfrmLLRKMXInPut.ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Trim(FRead) = '' then
begin
TEdit(Sender).ReadOnly := True;
end else
end
else
begin
TEdit(Sender).ReadOnly := False;
end;
@ -397,7 +400,8 @@ begin
begin
BtnM.Visible := False;
end;
end else
end
else
begin
UnitM.Text := '';
QtyLRM.Visible := False;
@ -416,7 +420,8 @@ begin
begin
BtnM.Visible := False;
end;
end else
end
else
begin
UnitKg.Text := '';
QtyLRKg.Visible := False;
@ -430,7 +435,8 @@ var
begin
if Key = #13 then
begin
if Trim(QtyLRM.Text)='' then Exit;
if Trim(QtyLRM.Text) = '' then
Exit;
if TryStrToFloat(QtyLRM.Text, FReal) = False then
begin
Application.MessageBox('非法数字!', '提示', 0);
@ -459,7 +465,8 @@ var
begin
if Key = #13 then
begin
if Trim(QtyLRKg.Text)='' then Exit;
if Trim(QtyLRKg.Text) = '' then
Exit;
if Trim(UnitM.Text) <> '' then
begin
if Trim(QtyLRM.Text) = '' then
@ -486,7 +493,8 @@ begin
end;
QtyLRM.Text := '';
QtyLRKg.Text := '';
if Trim(UnitM.Text)<>'' then QtyLRM.SetFocus;
if Trim(UnitM.Text) <> '' then
QtyLRM.SetFocus;
GetHZData();
end;
end;
@ -508,13 +516,14 @@ begin
end;
end;
procedure TfrmLLRKMXInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TfrmLLRKMXInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if ClientDataSet1.IsEmpty then Exit;
if BtnDel.Visible=False then Exit;
if TBSave.Visible=False then Exit;
if ClientDataSet1.IsEmpty then
Exit;
if BtnDel.Visible = False then
Exit;
if TBSave.Visible = False then
Exit;
Panel4.Visible := True;
RCGangNO1.Text := ClientDataSet1.fieldbyname('RCGangNO').Value;
if Trim(ClientDataSet1.fieldbyname('KgQty').AsString) <> '' then
@ -570,7 +579,8 @@ begin
sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty then exit;
if ADOTemp.IsEmpty then
exit;
try
ADOCmd.Connection.BeginTrans;
with ADOCmd do
@ -626,7 +636,8 @@ begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
try
ADOCmd.Connection.BeginTrans;
ClientDataSet1.DisableControls;
@ -690,8 +701,7 @@ begin
end;
end;
procedure TfrmLLRKMXInPut.v1Column7PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmLLRKMXInPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmQCRKJLList := TfrmQCRKJLList.Create(Application);
@ -708,8 +718,7 @@ begin
end;
end;
procedure TfrmLLRKMXInPut.FormClose(Sender: TObject;
var Action: TCloseAction);
procedure TfrmLLRKMXInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ModalResult := 1;
end;
@ -745,8 +754,8 @@ begin
if ComboBox1.Text = '9*7' then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\来料入库面料标签97.rmf';
end else
if ComboBox1.Text='8*5' then
end
else if ComboBox1.Text = '8*5' then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\来料入库面料标签85.rmf';
end;
@ -782,7 +791,8 @@ begin
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then DeleteFile(fImagePath);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('二维码生成失败！', '提示信息', MB_ICONERROR);
@ -879,7 +889,8 @@ procedure TfrmLLRKMXInPut.BtnMClick(Sender: TObject);
var
FReal: Double;
begin
if Trim(QtyLRM.Text)='' then Exit;
if Trim(QtyLRM.Text) = '' then
Exit;
if TryStrToFloat(QtyLRM.Text, FReal) = False then
begin
Application.MessageBox('非法数字!', '提示', 0);
@ -905,7 +916,8 @@ procedure TfrmLLRKMXInPut.BtnKgClick(Sender: TObject);
var
FReal: Double;
begin
if Trim(QtyLRKg.Text)='' then Exit;
if Trim(QtyLRKg.Text) = '' then
Exit;
if Trim(UnitM.Text) <> '' then
begin
if Trim(QtyLRM.Text) = '' then
@ -932,7 +944,8 @@ begin
end;
QtyLRM.Text := '';
QtyLRKg.Text := '';
if Trim(UnitM.Text)<>'' then QtyLRM.SetFocus;
if Trim(UnitM.Text) <> '' then
QtyLRM.SetFocus;
GetHZData();
end;
@ -952,3 +965,4 @@ begin
end;
end.

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

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

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

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

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

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

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

@ -20,7 +20,8 @@ object frmMCGRKList: TfrmMCGRKList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1133
Width = 1141
Height = 62
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
@ -86,37 +87,12 @@ object frmMCGRKList: TfrmMCGRKList
AutoSize = True
Caption = #21367#25968#31995#25968
ImageIndex = 25
Wrap = True
OnClick = ToolButton3Click
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
Left = 681
Top = 0
Left = 0
Top = 30
Width = 292
Height = 30
Caption = ' '#36741#26009#37319#36141#20837#24211' '
@ -127,12 +103,37 @@ object frmMCGRKList: TfrmMCGRKList
Font.Style = [fsBold]
ParentFont = False
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
object cxGrid1: TcxGrid
Left = 0
Top = 109
Width = 1133
Height = 501
Top = 139
Width = 1141
Height = 479
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -317,8 +318,8 @@ object frmMCGRKList: TfrmMCGRKList
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1133
Top = 62
Width = 1141
Height = 77
Align = alTop
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,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
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
TfrmMCGRKList = class(TForm)

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

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

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

@ -6,11 +6,24 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons;
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, 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, dxBarBuiltInMenu;
type
TfrmMCGRKList_HBKC = class(TForm)
@ -113,11 +126,12 @@ var
frmMCGRKList_HBKC: TfrmMCGRKList_HBKC;
implementation
uses
U_DataLink,U_RTFun, U_QCRKInPut,U_ZDYHelp,U_LLRKInPut,U_GYSList,U_RCCKInPut,
U_LLRKInPutMH,U_LLRKInPutX,U_LLRKInPut_CG,U_LLRKInPutMH_CG,U_LLRKInPutMH_PBCG,
U_LLRKInPutMH_PBKCCG,U_BPZdy_LRPB,U_LLRKInPutMH_MCG,U_BPZdy_LRM,U_MCGRKList_MKC_CX,
U_MCGRKList_HBKC_CX;
U_DataLink, U_RTFun, U_QCRKInPut, U_ZDYHelp, U_LLRKInPut, U_GYSList,
U_RCCKInPut, U_LLRKInPutMH, U_LLRKInPutX, U_LLRKInPut_CG, U_LLRKInPutMH_CG,
U_LLRKInPutMH_PBCG, U_LLRKInPutMH_PBKCCG, U_BPZdy_LRPB, U_LLRKInPutMH_MCG,
U_BPZdy_LRM, U_MCGRKList_MKC_CX, U_MCGRKList_HBKC_CX;
{$R *.dfm}
@ -126,8 +140,7 @@ begin
frmMCGRKList_HBKC := nil;
end;
procedure TfrmMCGRKList_HBKC.FormClose(Sender: TObject;
var Action: TCloseAction);
procedure TfrmMCGRKList_HBKC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
@ -208,7 +221,6 @@ begin
end;
end;
procedure TfrmMCGRKList_HBKC.InitForm();
begin
ReadCxGrid('仓库汇总库存1', Tv2, '贸易生产管理');
@ -217,7 +229,8 @@ end;
procedure TfrmMCGRKList_HBKC.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
@ -230,7 +243,8 @@ end;
procedure TfrmMCGRKList_HBKC.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(Self.Caption, cxGrid2);
end;
@ -256,7 +270,8 @@ end;
procedure TfrmMCGRKList_HBKC.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then exit;
if Order_Main.IsEmpty then
exit;
try
frmMCGRKList_HBKC_CX := TfrmMCGRKList_HBKC_CX.Create(Application);
with frmMCGRKList_HBKC_CX do
@ -301,7 +316,8 @@ end;
procedure TfrmMCGRKList_HBKC.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
@ -309,7 +325,8 @@ end;
procedure TfrmMCGRKList_HBKC.N2Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
if Order_Main.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
@ -322,7 +339,8 @@ begin
Application.MessageBox('已产生明细数据，不能删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
//Order_Main.Delete;
@ -343,8 +361,10 @@ procedure TfrmMCGRKList_HBKC.ToolButton4Click(Sender: TObject);
var
fPrintFile: string;
begin
if Order_Main.IsEmpty then Exit;
if Trim(Order_Main.fieldbyname('Chker').AsString)='' then exit;
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Chker').AsString) = '' then
exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf';
RMXLSExport2 := TRMXLSExport.Create(RMXLSExport2);
with ADOQueryTemp do
@ -361,7 +381,8 @@ begin
//RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf'), '提示', 0);
end;
@ -394,7 +415,8 @@ end;
procedure TfrmMCGRKList_HBKC.MYCodeChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
@ -446,3 +468,4 @@ begin
end;
end.

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

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

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

@ -13,7 +13,20 @@ uses
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer,
cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
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
TfrmMCGRKList_PTCL = class(TForm)

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

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

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

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

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

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
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
TfrmMCGRKList_XKC = class(TForm)

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

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

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

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

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

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

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

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

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

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

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

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
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
TfrmMainWFBCKList = class(TForm)

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

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

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

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
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
TfrmMianWFBKCList = class(TForm)

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

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

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

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

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

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
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
TfrmPBCGRKList_PBCK = class(TForm)

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

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

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

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
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
TfrmPBCGRKList_QCKC = class(TForm)

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

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

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

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

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

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
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
TfrmPBKCList = class(TForm)

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

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

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

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

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

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
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
TfrmQCCKList_CK = class(TForm)

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

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

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

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
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
TfrmQCRKList = class(TForm)

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

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