This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-05-19 16:52:45 +08:00
parent 457d5137c0
commit bc250e3bce
5 changed files with 145 additions and 55 deletions

View File

@ -4,7 +4,21 @@ interface
uses
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
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}

View File

@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1101
Width = 1109
Height = 29
ButtonHeight = 30
ButtonWidth = 59
@ -58,8 +58,8 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1101
Height = 312
Width = 1109
Height = 316
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -122,7 +122,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label12: TLabel
Left = 29
Top = 126
Top = 124
Width = 67
Height = 12
Caption = #38376' '#24133#65306
@ -135,7 +135,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label13: TLabel
Left = 224
Top = 126
Top = 124
Width = 67
Height = 12
Caption = #20811' '#37325#65306
@ -148,7 +148,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label2: TLabel
Left = 31
Top = 102
Top = 99
Width = 65
Height = 12
Caption = #20135#21697#21517#31216#65306
@ -161,7 +161,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label6: TLabel
Left = 224
Top = 102
Top = 99
Width = 67
Height = 12
Caption = #32568' '#21495#65306
@ -174,7 +174,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label19: TLabel
Left = 31
Top = 200
Top = 193
Width = 65
Height = 12
Caption = #21253#35013#35201#27714#65306
@ -213,7 +213,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label23: TLabel
Left = 29
Top = 258
Top = 251
Width = 67
Height = 12
Caption = #22791' '#27880#65306
@ -252,7 +252,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label5: TLabel
Left = 29
Top = 151
Top = 148
Width = 67
Height = 12
Caption = #39068' '#33394#65306
@ -265,7 +265,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label9: TLabel
Left = 29
Top = 177
Top = 170
Width = 67
Height = 12
Caption = #21305' '#25968#65306
@ -278,7 +278,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label15: TLabel
Left = 231
Top = 177
Top = 170
Width = 60
Height = 12
Caption = #25968' '#37327#65306
@ -291,7 +291,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label16: TLabel
Left = 225
Top = 151
Top = 148
Width = 65
Height = 12
Caption = #25968#37327#21333#20301#65306
@ -304,7 +304,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label7: TLabel
Left = 402
Top = 104
Top = 99
Width = 78
Height = 12
Caption = #23458#25143#21512#21516#21495#65306
@ -317,7 +317,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label4: TLabel
Left = 408
Top = 129
Top = 124
Width = 66
Height = 12
Caption = #33394' '#21345' '#21495#65306
@ -330,7 +330,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label17: TLabel
Left = 404
Top = 155
Top = 148
Width = 67
Height = 12
Caption = #24037' '#33402#65306
@ -343,7 +343,7 @@ object frmOrderInPut: TfrmOrderInPut
end
object Label18: TLabel
Left = 405
Top = 179
Top = 172
Width = 67
Height = 12
Caption = #31354' '#21152#65306
@ -354,6 +354,32 @@ object frmOrderInPut: TfrmOrderInPut
Font.Style = [fsBold]
ParentFont = False
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
Tag = 1
Left = 97
@ -410,7 +436,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTBZNote: TMemo
Tag = 1
Left = 97
Top = 198
Top = 191
Width = 633
Height = 50
Hint = 'MPRTBZNote/'#21253#35013#35201#27714
@ -421,7 +447,7 @@ object frmOrderInPut: TfrmOrderInPut
object Note: TMemo
Tag = 1
Left = 97
Top = 254
Top = 247
Width = 633
Height = 50
Hint = 'OrdNote/'#22791#27880
@ -432,7 +458,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTMF: TEdit
Tag = 1
Left = 97
Top = 123
Top = 121
Width = 100
Height = 18
TabOrder = 7
@ -440,7 +466,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTSpec: TEdit
Tag = 1
Left = 288
Top = 99
Top = 96
Width = 100
Height = 18
TabOrder = 6
@ -448,7 +474,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTKZ: TEdit
Tag = 1
Left = 288
Top = 123
Top = 121
Width = 100
Height = 18
TabOrder = 8
@ -482,7 +508,7 @@ object frmOrderInPut: TfrmOrderInPut
object PRTColor: TEdit
Tag = 2
Left = 97
Top = 148
Top = 145
Width = 100
Height = 18
TabOrder = 9
@ -491,7 +517,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTCodeName: TBtnEditC
Tag = 1
Left = 97
Top = 98
Top = 95
Width = 100
Height = 20
Hint = 'MPRTCode/'#20135#21697#32534#21495
@ -502,7 +528,7 @@ object frmOrderInPut: TfrmOrderInPut
object PRTPs: TEdit
Tag = 2
Left = 97
Top = 174
Top = 167
Width = 100
Height = 18
TabOrder = 14
@ -511,7 +537,7 @@ object frmOrderInPut: TfrmOrderInPut
object PRTOrderQty: TEdit
Tag = 2
Left = 288
Top = 174
Top = 167
Width = 100
Height = 18
TabOrder = 15
@ -520,7 +546,7 @@ object frmOrderInPut: TfrmOrderInPut
object OrderUnit: TEdit
Tag = 2
Left = 287
Top = 148
Top = 145
Width = 100
Height = 18
TabOrder = 16
@ -537,7 +563,7 @@ object frmOrderInPut: TfrmOrderInPut
object KHConno: TEdit
Tag = 1
Left = 474
Top = 101
Top = 96
Width = 100
Height = 18
TabOrder = 18
@ -545,7 +571,7 @@ object frmOrderInPut: TfrmOrderInPut
object PRTColorNo: TEdit
Tag = 2
Left = 474
Top = 126
Top = 121
Width = 100
Height = 18
TabOrder = 19
@ -554,7 +580,7 @@ object frmOrderInPut: TfrmOrderInPut
object gongyi: TBtnEditC
Tag = 1
Left = 474
Top = 151
Top = 144
Width = 100
Height = 20
Hint = 'gongyi/'#24037#33402
@ -565,25 +591,42 @@ object frmOrderInPut: TfrmOrderInPut
object KJIA: TEdit
Tag = 2
Left = 474
Top = 178
Top = 171
Width = 100
Height = 18
TabOrder = 21
OnChange = PRTColorChange
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
object cxPageControl1: TcxPageControl
Left = 0
Top = 341
Width = 1101
Height = 363
Top = 345
Width = 1109
Height = 367
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet4
Properties.CustomButtons.Buttons = <>
Properties.Style = 8
ClientRectBottom = 363
ClientRectRight = 1101
ClientRectBottom = 367
ClientRectRight = 1109
ClientRectTop = 23
object cxTabSheet3: TcxTabSheet
Caption = #24037#24207#23450#20041
@ -592,6 +635,7 @@ object frmOrderInPut: TfrmOrderInPut
Left = 0
Top = 0
Width = 1101
Height = 29
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
@ -691,7 +735,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1101
Width = 1109
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
@ -720,8 +764,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid1: TcxGrid
Left = 0
Top = 32
Width = 1101
Height = 308
Width = 1109
Height = 312
Align = alClient
TabOrder = 1
object TV1: TcxGridDBTableView
@ -850,8 +894,8 @@ object frmOrderInPut: TfrmOrderInPut
object CDS_PBCK: TClientDataSet
Aggregates = <>
Params = <>
Left = 537
Top = 521
Left = 657
Top = 553
end
object DS_PBKC: TDataSource
DataSet = CDS_PBCK

View File

@ -11,7 +11,21 @@ uses
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
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
TfrmOrderInPut = class(TForm)
@ -101,6 +115,10 @@ type
gongyi: TBtnEditC;
KJIA: TEdit;
Label18: TLabel;
Label20: TLabel;
MPRTCF: TEdit;
Label21: TLabel;
PRTKuanNO: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);

View File

@ -19,7 +19,7 @@ object frmProductOrderList: TfrmProductOrderList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1240
Width = 1248
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
@ -162,16 +162,16 @@ object frmProductOrderList: TfrmProductOrderList
object cxPageControl1: TcxPageControl
Left = 0
Top = 162
Width = 1240
Height = 553
Width = 1248
Height = 561
Align = alClient
TabOrder = 1
Properties.ActivePage = cxTabSheet4
Properties.CustomButtons.Buttons = <>
Properties.Style = 8
OnChange = cxPageControl1Change
ClientRectBottom = 553
ClientRectRight = 1240
ClientRectBottom = 561
ClientRectRight = 1248
ClientRectTop = 23
object cxTabSheet3: TcxTabSheet
Caption = #22383#24067#24211#21015#34920
@ -412,7 +412,7 @@ object frmProductOrderList: TfrmProductOrderList
object cxTabControl1: TcxTabControl
Left = 0
Top = 0
Width = 1240
Width = 1248
Height = 22
Align = alTop
TabOrder = 0
@ -426,14 +426,14 @@ object frmProductOrderList: TfrmProductOrderList
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1240
ClientRectRight = 1248
ClientRectTop = 22
end
object cxGrid1: TcxGrid
Left = 0
Top = 22
Width = 1240
Height = 508
Width = 1248
Height = 516
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
@ -642,7 +642,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel2: TPanel
Left = 0
Top = 32
Width = 1240
Width = 1248
Height = 65
Align = alTop
BevelInner = bvRaised
@ -817,7 +817,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel1: TPanel
Left = 0
Top = 97
Width = 1240
Width = 1248
Height = 65
Align = alTop
BevelInner = bvRaised

View File

@ -13,7 +13,21 @@ uses
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
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
TfrmProductOrderList = class(TForm)