1
This commit is contained in:
parent
457d5137c0
commit
bc250e3bce
|
|
@ -4,7 +4,21 @@ interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
|
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
|
||||||
|
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||||||
|
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||||
|
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||||
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||||
var
|
var
|
||||||
DConString:String; {全局连接字符串}
|
DConString:String; {全局连接字符串}
|
||||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||||
|
|
|
||||||
|
|
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1101
|
Width = 1109
|
||||||
Height = 29
|
Height = 29
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 59
|
ButtonWidth = 59
|
||||||
|
|
@ -58,8 +58,8 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object ScrollBox1: TScrollBox
|
object ScrollBox1: TScrollBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 29
|
Top = 29
|
||||||
Width = 1101
|
Width = 1109
|
||||||
Height = 312
|
Height = 316
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvNone
|
BevelInner = bvNone
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
|
|
@ -122,7 +122,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label12: TLabel
|
object Label12: TLabel
|
||||||
Left = 29
|
Left = 29
|
||||||
Top = 126
|
Top = 124
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #38376' '#24133#65306
|
Caption = #38376' '#24133#65306
|
||||||
|
|
@ -135,7 +135,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label13: TLabel
|
object Label13: TLabel
|
||||||
Left = 224
|
Left = 224
|
||||||
Top = 126
|
Top = 124
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #20811' '#37325#65306
|
Caption = #20811' '#37325#65306
|
||||||
|
|
@ -148,7 +148,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Left = 31
|
Left = 31
|
||||||
Top = 102
|
Top = 99
|
||||||
Width = 65
|
Width = 65
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #20135#21697#21517#31216#65306
|
Caption = #20135#21697#21517#31216#65306
|
||||||
|
|
@ -161,7 +161,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label6: TLabel
|
object Label6: TLabel
|
||||||
Left = 224
|
Left = 224
|
||||||
Top = 102
|
Top = 99
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #32568' '#21495#65306
|
Caption = #32568' '#21495#65306
|
||||||
|
|
@ -174,7 +174,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label19: TLabel
|
object Label19: TLabel
|
||||||
Left = 31
|
Left = 31
|
||||||
Top = 200
|
Top = 193
|
||||||
Width = 65
|
Width = 65
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #21253#35013#35201#27714#65306
|
Caption = #21253#35013#35201#27714#65306
|
||||||
|
|
@ -213,7 +213,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label23: TLabel
|
object Label23: TLabel
|
||||||
Left = 29
|
Left = 29
|
||||||
Top = 258
|
Top = 251
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #22791' '#27880#65306
|
Caption = #22791' '#27880#65306
|
||||||
|
|
@ -252,7 +252,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label5: TLabel
|
object Label5: TLabel
|
||||||
Left = 29
|
Left = 29
|
||||||
Top = 151
|
Top = 148
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #39068' '#33394#65306
|
Caption = #39068' '#33394#65306
|
||||||
|
|
@ -265,7 +265,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label9: TLabel
|
object Label9: TLabel
|
||||||
Left = 29
|
Left = 29
|
||||||
Top = 177
|
Top = 170
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #21305' '#25968#65306
|
Caption = #21305' '#25968#65306
|
||||||
|
|
@ -278,7 +278,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label15: TLabel
|
object Label15: TLabel
|
||||||
Left = 231
|
Left = 231
|
||||||
Top = 177
|
Top = 170
|
||||||
Width = 60
|
Width = 60
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #25968' '#37327#65306
|
Caption = #25968' '#37327#65306
|
||||||
|
|
@ -291,7 +291,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label16: TLabel
|
object Label16: TLabel
|
||||||
Left = 225
|
Left = 225
|
||||||
Top = 151
|
Top = 148
|
||||||
Width = 65
|
Width = 65
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #25968#37327#21333#20301#65306
|
Caption = #25968#37327#21333#20301#65306
|
||||||
|
|
@ -304,7 +304,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label7: TLabel
|
object Label7: TLabel
|
||||||
Left = 402
|
Left = 402
|
||||||
Top = 104
|
Top = 99
|
||||||
Width = 78
|
Width = 78
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #23458#25143#21512#21516#21495#65306
|
Caption = #23458#25143#21512#21516#21495#65306
|
||||||
|
|
@ -317,7 +317,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label4: TLabel
|
object Label4: TLabel
|
||||||
Left = 408
|
Left = 408
|
||||||
Top = 129
|
Top = 124
|
||||||
Width = 66
|
Width = 66
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #33394' '#21345' '#21495#65306
|
Caption = #33394' '#21345' '#21495#65306
|
||||||
|
|
@ -330,7 +330,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label17: TLabel
|
object Label17: TLabel
|
||||||
Left = 404
|
Left = 404
|
||||||
Top = 155
|
Top = 148
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #24037' '#33402#65306
|
Caption = #24037' '#33402#65306
|
||||||
|
|
@ -343,7 +343,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
end
|
end
|
||||||
object Label18: TLabel
|
object Label18: TLabel
|
||||||
Left = 405
|
Left = 405
|
||||||
Top = 179
|
Top = 172
|
||||||
Width = 67
|
Width = 67
|
||||||
Height = 12
|
Height = 12
|
||||||
Caption = #31354' '#21152#65306
|
Caption = #31354' '#21152#65306
|
||||||
|
|
@ -354,6 +354,32 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
Font.Style = [fsBold]
|
Font.Style = [fsBold]
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
|
object Label20: TLabel
|
||||||
|
Left = 602
|
||||||
|
Top = 99
|
||||||
|
Width = 39
|
||||||
|
Height = 12
|
||||||
|
Caption = #25104#20998#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label21: TLabel
|
||||||
|
Left = 602
|
||||||
|
Top = 124
|
||||||
|
Width = 39
|
||||||
|
Height = 12
|
||||||
|
Caption = #27454#21495#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
object OrderNo: TEdit
|
object OrderNo: TEdit
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 97
|
Left = 97
|
||||||
|
|
@ -410,7 +436,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object MPRTBZNote: TMemo
|
object MPRTBZNote: TMemo
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 97
|
Left = 97
|
||||||
Top = 198
|
Top = 191
|
||||||
Width = 633
|
Width = 633
|
||||||
Height = 50
|
Height = 50
|
||||||
Hint = 'MPRTBZNote/'#21253#35013#35201#27714
|
Hint = 'MPRTBZNote/'#21253#35013#35201#27714
|
||||||
|
|
@ -421,7 +447,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object Note: TMemo
|
object Note: TMemo
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 97
|
Left = 97
|
||||||
Top = 254
|
Top = 247
|
||||||
Width = 633
|
Width = 633
|
||||||
Height = 50
|
Height = 50
|
||||||
Hint = 'OrdNote/'#22791#27880
|
Hint = 'OrdNote/'#22791#27880
|
||||||
|
|
@ -432,7 +458,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object MPRTMF: TEdit
|
object MPRTMF: TEdit
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 97
|
Left = 97
|
||||||
Top = 123
|
Top = 121
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
|
|
@ -440,7 +466,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object MPRTSpec: TEdit
|
object MPRTSpec: TEdit
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 288
|
Left = 288
|
||||||
Top = 99
|
Top = 96
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
|
|
@ -448,7 +474,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object MPRTKZ: TEdit
|
object MPRTKZ: TEdit
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 288
|
Left = 288
|
||||||
Top = 123
|
Top = 121
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
|
|
@ -482,7 +508,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object PRTColor: TEdit
|
object PRTColor: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 97
|
Left = 97
|
||||||
Top = 148
|
Top = 145
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
|
|
@ -491,7 +517,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object MPRTCodeName: TBtnEditC
|
object MPRTCodeName: TBtnEditC
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 97
|
Left = 97
|
||||||
Top = 98
|
Top = 95
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 20
|
Height = 20
|
||||||
Hint = 'MPRTCode/'#20135#21697#32534#21495
|
Hint = 'MPRTCode/'#20135#21697#32534#21495
|
||||||
|
|
@ -502,7 +528,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object PRTPs: TEdit
|
object PRTPs: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 97
|
Left = 97
|
||||||
Top = 174
|
Top = 167
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 14
|
TabOrder = 14
|
||||||
|
|
@ -511,7 +537,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object PRTOrderQty: TEdit
|
object PRTOrderQty: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 288
|
Left = 288
|
||||||
Top = 174
|
Top = 167
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 15
|
TabOrder = 15
|
||||||
|
|
@ -520,7 +546,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object OrderUnit: TEdit
|
object OrderUnit: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 287
|
Left = 287
|
||||||
Top = 148
|
Top = 145
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 16
|
TabOrder = 16
|
||||||
|
|
@ -537,7 +563,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object KHConno: TEdit
|
object KHConno: TEdit
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 474
|
Left = 474
|
||||||
Top = 101
|
Top = 96
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 18
|
TabOrder = 18
|
||||||
|
|
@ -545,7 +571,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object PRTColorNo: TEdit
|
object PRTColorNo: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 474
|
Left = 474
|
||||||
Top = 126
|
Top = 121
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 19
|
TabOrder = 19
|
||||||
|
|
@ -554,7 +580,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object gongyi: TBtnEditC
|
object gongyi: TBtnEditC
|
||||||
Tag = 1
|
Tag = 1
|
||||||
Left = 474
|
Left = 474
|
||||||
Top = 151
|
Top = 144
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 20
|
Height = 20
|
||||||
Hint = 'gongyi/'#24037#33402
|
Hint = 'gongyi/'#24037#33402
|
||||||
|
|
@ -565,25 +591,42 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object KJIA: TEdit
|
object KJIA: TEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 474
|
Left = 474
|
||||||
Top = 178
|
Top = 171
|
||||||
Width = 100
|
Width = 100
|
||||||
Height = 18
|
Height = 18
|
||||||
TabOrder = 21
|
TabOrder = 21
|
||||||
OnChange = PRTColorChange
|
OnChange = PRTColorChange
|
||||||
end
|
end
|
||||||
|
object MPRTCF: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 646
|
||||||
|
Top = 96
|
||||||
|
Width = 100
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 22
|
||||||
|
end
|
||||||
|
object PRTKuanNO: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 645
|
||||||
|
Top = 121
|
||||||
|
Width = 100
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 23
|
||||||
|
OnChange = PRTColorChange
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxPageControl1: TcxPageControl
|
object cxPageControl1: TcxPageControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 341
|
Top = 345
|
||||||
Width = 1101
|
Width = 1109
|
||||||
Height = 363
|
Height = 367
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Properties.ActivePage = cxTabSheet4
|
Properties.ActivePage = cxTabSheet4
|
||||||
Properties.CustomButtons.Buttons = <>
|
Properties.CustomButtons.Buttons = <>
|
||||||
Properties.Style = 8
|
Properties.Style = 8
|
||||||
ClientRectBottom = 363
|
ClientRectBottom = 367
|
||||||
ClientRectRight = 1101
|
ClientRectRight = 1109
|
||||||
ClientRectTop = 23
|
ClientRectTop = 23
|
||||||
object cxTabSheet3: TcxTabSheet
|
object cxTabSheet3: TcxTabSheet
|
||||||
Caption = #24037#24207#23450#20041
|
Caption = #24037#24207#23450#20041
|
||||||
|
|
@ -592,6 +635,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1101
|
Width = 1101
|
||||||
|
Height = 29
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 107
|
ButtonWidth = 107
|
||||||
|
|
@ -691,7 +735,7 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object ToolBar2: TToolBar
|
object ToolBar2: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1101
|
Width = 1109
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 83
|
ButtonWidth = 83
|
||||||
|
|
@ -720,8 +764,8 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 1101
|
Width = 1109
|
||||||
Height = 308
|
Height = 312
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
|
|
@ -850,8 +894,8 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
object CDS_PBCK: TClientDataSet
|
object CDS_PBCK: TClientDataSet
|
||||||
Aggregates = <>
|
Aggregates = <>
|
||||||
Params = <>
|
Params = <>
|
||||||
Left = 537
|
Left = 657
|
||||||
Top = 521
|
Top = 553
|
||||||
end
|
end
|
||||||
object DS_PBKC: TDataSource
|
object DS_PBKC: TDataSource
|
||||||
DataSet = CDS_PBCK
|
DataSet = CDS_PBCK
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,21 @@ uses
|
||||||
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
||||||
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
|
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
|
||||||
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, cxPC, Menus,
|
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, cxPC, Menus,
|
||||||
cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator;
|
cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator,
|
||||||
|
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||||
|
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||||
|
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||||
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmOrderInPut = class(TForm)
|
TfrmOrderInPut = class(TForm)
|
||||||
|
|
@ -101,6 +115,10 @@ type
|
||||||
gongyi: TBtnEditC;
|
gongyi: TBtnEditC;
|
||||||
KJIA: TEdit;
|
KJIA: TEdit;
|
||||||
Label18: TLabel;
|
Label18: TLabel;
|
||||||
|
Label20: TLabel;
|
||||||
|
MPRTCF: TEdit;
|
||||||
|
Label21: TLabel;
|
||||||
|
PRTKuanNO: TEdit;
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure TBSaveClick(Sender: TObject);
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
|
|
||||||
|
|
@ -19,7 +19,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1240
|
Width = 1248
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 95
|
ButtonWidth = 95
|
||||||
|
|
@ -162,16 +162,16 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object cxPageControl1: TcxPageControl
|
object cxPageControl1: TcxPageControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 162
|
Top = 162
|
||||||
Width = 1240
|
Width = 1248
|
||||||
Height = 553
|
Height = 561
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Properties.ActivePage = cxTabSheet4
|
Properties.ActivePage = cxTabSheet4
|
||||||
Properties.CustomButtons.Buttons = <>
|
Properties.CustomButtons.Buttons = <>
|
||||||
Properties.Style = 8
|
Properties.Style = 8
|
||||||
OnChange = cxPageControl1Change
|
OnChange = cxPageControl1Change
|
||||||
ClientRectBottom = 553
|
ClientRectBottom = 561
|
||||||
ClientRectRight = 1240
|
ClientRectRight = 1248
|
||||||
ClientRectTop = 23
|
ClientRectTop = 23
|
||||||
object cxTabSheet3: TcxTabSheet
|
object cxTabSheet3: TcxTabSheet
|
||||||
Caption = #22383#24067#24211#21015#34920
|
Caption = #22383#24067#24211#21015#34920
|
||||||
|
|
@ -412,7 +412,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object cxTabControl1: TcxTabControl
|
object cxTabControl1: TcxTabControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1240
|
Width = 1248
|
||||||
Height = 22
|
Height = 22
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
|
@ -426,14 +426,14 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
#20840#37096)
|
#20840#37096)
|
||||||
OnChange = cxTabControl1Change
|
OnChange = cxTabControl1Change
|
||||||
ClientRectBottom = 22
|
ClientRectBottom = 22
|
||||||
ClientRectRight = 1240
|
ClientRectRight = 1248
|
||||||
ClientRectTop = 22
|
ClientRectTop = 22
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 22
|
Top = 22
|
||||||
Width = 1240
|
Width = 1248
|
||||||
Height = 508
|
Height = 516
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
|
@ -642,7 +642,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object Panel2: TPanel
|
object Panel2: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 1240
|
Width = 1248
|
||||||
Height = 65
|
Height = 65
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -817,7 +817,7 @@ object frmProductOrderList: TfrmProductOrderList
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 97
|
Top = 97
|
||||||
Width = 1240
|
Width = 1248
|
||||||
Height = 65
|
Height = 65
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
|
||||||
|
|
@ -13,7 +13,21 @@ uses
|
||||||
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
|
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||||
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
|
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
|
||||||
IdFTP, ShellAPI, cxCheckBox, cxDropDownEdit, cxLookAndFeels,
|
IdFTP, ShellAPI, cxCheckBox, cxDropDownEdit, cxLookAndFeels,
|
||||||
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator;
|
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore,
|
||||||
|
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||||||
|
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||||
|
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||||
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmProductOrderList = class(TForm)
|
TfrmProductOrderList = class(TForm)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user