From c34a9975c1c7e7c68969a0958320379402a3ff1a Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 20 Sep 2025 14:17:01 +0800 Subject: [PATCH] =?UTF-8?q?=E6=A3=80=E9=AA=8C=E4=BF=A1=E6=81=AF=E7=AE=A1?= =?UTF-8?q?=E7=90=86=20=E5=8A=A0=E4=B8=80=E4=B8=AA=E5=85=8B=E9=87=8D?= =?UTF-8?q?=E7=9A=84=E7=AD=9B=E9=80=89=EF=BC=8C=E6=96=B0=E5=BB=BA=E6=8C=87?= =?UTF-8?q?=E7=A4=BA=E5=8D=95=20=E5=A2=9E=E8=A1=8C=20=E9=A2=9C=E8=89=B2?= =?UTF-8?q?=E5=92=8C=E5=8C=B9=E6=95=B0=E5=B8=A6=E4=B8=8B=E6=9D=A5=EF=BC=8C?= =?UTF-8?q?=E6=8C=87=E7=A4=BA=E5=8D=95=20=E9=A2=9C=E8=89=B2=20=E7=BB=91?= =?UTF-8?q?=E5=AE=9A=E5=AE=A2=E6=88=B7=20=E6=89=8B=E5=8A=A8=E8=BE=93?= =?UTF-8?q?=E5=85=A5=E6=A8=A1=E7=B3=8A=E6=90=9C=E7=B4=A2=E4=BF=9D=E5=AD=98?= =?UTF-8?q?=E7=9A=84=E6=95=B0=E6=8D=AE=EF=BC=8C=E5=9D=AF=E5=B8=83=E5=90=8D?= =?UTF-8?q?=E7=A7=B0=20=E6=89=8B=E5=8A=A8=E8=BE=93=E5=85=A5=20=E6=A8=A1?= =?UTF-8?q?=E7=B3=8A=E6=9F=A5=E8=AF=A2=E4=BF=9D=E5=AD=98=E7=9A=84=E6=95=B0?= =?UTF-8?q?=E6=8D=AE=EF=BC=8C=E6=96=B0=E5=BB=BA=E6=8C=87=E7=A4=BA=E5=8D=95?= =?UTF-8?q?=20=E5=AE=A2=E6=88=B7=EF=BC=8C=E5=90=88=E5=90=8C=E5=8F=B7?= =?UTF-8?q?=EF=BC=8C=E7=BA=B8=E7=AE=A1=EF=BC=8C=E7=A9=BA=E5=B7=AE=20?= =?UTF-8?q?=E9=9C=80=E8=A6=81=E5=9B=9E=E8=BD=A6=E5=88=B0=E4=B8=8B=E4=B8=80?= =?UTF-8?q?=E4=B8=AA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/ProjectGroup1.bpg | 6 +- 打卷检验管理/ProjectGroup1.~bpg | 23 +++ 打卷检验管理/TradeManage.dof | 3 - 打卷检验管理/TradeManage.skincfg | 50 +++++++ 打卷检验管理/U_JYOrderCDOne.dfm | 42 ++++-- 打卷检验管理/U_JYOrderCDOne.pas | 2 + 打卷检验管理/U_OrderInPut.dfm | 192 +++++++++++++------------ 打卷检验管理/U_OrderInPut.pas | 147 ++++++++++++++----- 打卷检验管理/U_ProductOrderNewList.dfm | 26 ++-- 打卷检验管理/U_testdll.dfm | 4 +- 打卷检验管理/testDll.cfg | 4 +- 11 files changed, 334 insertions(+), 165 deletions(-) create mode 100644 打卷检验管理/ProjectGroup1.~bpg create mode 100644 打卷检验管理/TradeManage.skincfg diff --git a/打卷检验管理/ProjectGroup1.bpg b/打卷检验管理/ProjectGroup1.bpg index 7c050f6..36486c6 100644 --- a/打卷检验管理/ProjectGroup1.bpg +++ b/打卷检验管理/ProjectGroup1.bpg @@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ -PROJECTS = testDll.exe ProductPrice.dll +PROJECTS = FinishedClothWarehouse.dll testDll.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ -testDll.exe: testDll.dpr +FinishedClothWarehouse.dll: ..\..\..\..\Ŀ\D7szYidui\Ʒֿ(FinishedClothWarehouse.dll)\FinishedClothWarehouse.dpr $(DCC) -ProductPrice.dll: ProductPrice.dpr +testDll.exe: ..\..\..\..\Ŀ\D7szYidui\Ʒֿ(FinishedClothWarehouse.dll)\testDll.dpr $(DCC) diff --git a/打卷检验管理/ProjectGroup1.~bpg b/打卷检验管理/ProjectGroup1.~bpg new file mode 100644 index 0000000..091c62d --- /dev/null +++ b/打卷检验管理/ProjectGroup1.~bpg @@ -0,0 +1,23 @@ +#------------------------------------------------------------------------------ +VERSION = BWS.01 +#------------------------------------------------------------------------------ +!ifndef ROOT +ROOT = $(MAKEDIR)\.. +!endif +#------------------------------------------------------------------------------ +MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** +DCC = $(ROOT)\bin\dcc32.exe $** +BRCC = $(ROOT)\bin\brcc32.exe $** +#------------------------------------------------------------------------------ +PROJECTS = TradeManage.dll testDll.exe +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +TradeManage.dll: TradeManage.dpr + $(DCC) + +testDll.exe: testDll.dpr + $(DCC) + + diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index d49fbb6..f06251b 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -136,6 +136,3 @@ ProductVersion=1.0.0.0 Comments= [Excluded Packages] c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/打卷检验管理/TradeManage.skincfg b/打卷检验管理/TradeManage.skincfg new file mode 100644 index 0000000..554ddb0 --- /dev/null +++ b/打卷检验管理/TradeManage.skincfg @@ -0,0 +1,50 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=0 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkRoom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringTime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinsDefaultPainters=1 +dxSkinValentine=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinXmas2008Blue=1 diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index a54264e..0e445b6 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -1,7 +1,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 296 - Top = 178 - Width = 1400 + Left = 292 + Top = 527 + Width = 1557 Height = 757 Caption = #26816#39564#25253#21578 Color = clBtnFace @@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1384 + Width = 1549 Height = 62 AutoSize = True ButtonHeight = 30 @@ -276,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object Panel1: TPanel Left = 0 Top = 62 - Width = 1384 + Width = 1549 Height = 88 Align = alTop BevelInner = bvRaised @@ -570,6 +570,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Font.Style = [fsBold] ParentFont = False end + object Label38: TLabel + Left = 1221 + Top = 14 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object EndDate: TDateTimePicker Left = 84 Top = 34 @@ -656,7 +669,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnChange = PRTCodeNameChange end object RadioGroup1: TRadioGroup - Left = 1370 + Left = 1450 Top = -1 Width = 89 Height = 92 @@ -799,8 +812,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne '') end object CheckBox3: TCheckBox - Left = 1246 - Top = 8 + Left = 1342 + Top = 15 Width = 105 Height = 57 Caption = #31934#30830#25628#32034 @@ -831,12 +844,21 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 23 OnChange = PRTCodeNameChange end + object MJSJKZ: TEdit + Tag = 2 + Left = 1252 + Top = 10 + Width = 77 + Height = 20 + TabOrder = 24 + OnChange = PRTCodeNameChange + end end object cxGrid1: TcxGrid Left = 0 Top = 150 - Width = 1384 - Height = 568 + Width = 1549 + Height = 576 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 1133306..5ddd89a 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -228,6 +228,8 @@ type CustomerNoName: TEdit; ToolButton14: TToolButton; ADOQueryMain: TADOQuery; + Label38: TLabel; + MJSJKZ: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 43fc7d1..aaebc7a 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1,6 +1,6 @@ object frmOrderInPut: TfrmOrderInPut - Left = 284 - Top = 185 + Left = 393 + Top = 409 Width = 1379 Height = 761 Caption = #25351#31034#21333#24405#20837 @@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1363 + Width = 1371 Height = 29 ButtonHeight = 30 ButtonWidth = 59 @@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut object ScrollBox1: TScrollBox Left = 0 Top = 29 - Width = 1363 + Width = 1371 Height = 280 Align = alTop BevelInner = bvNone @@ -878,7 +878,7 @@ object frmOrderInPut: TfrmOrderInPut Top = 8 Width = 100 Height = 18 - TabOrder = 1 + TabOrder = 3 OnKeyPress = ConNoKeyPress end object RanFactory: TBtnEditC @@ -905,7 +905,7 @@ object frmOrderInPut: TfrmOrderInPut Format = 'yyyy-MM-dd' Time = 40916.670856296290000000 ShowCheckbox = True - TabOrder = 2 + TabOrder = 4 end object CustomerNoName: TBtnEditC Tag = 2 @@ -916,6 +916,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'CustomerNo/'#23458#25143 TabOrder = 0 OnChange = CustomerNoNameChange + OnKeyPress = CustomerNoNameKeyPress OnBtnUpClick = CustomerNoNameBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick end @@ -1150,7 +1151,7 @@ object frmOrderInPut: TfrmOrderInPut Format = 'yyyy-MM-dd' Time = 40916.670856296290000000 ShowCheckbox = True - TabOrder = 3 + TabOrder = 5 end object MPRTCode: TBtnEditC Tag = 2 @@ -1560,7 +1561,7 @@ object frmOrderInPut: TfrmOrderInPut OnClick = Button1Click end object GroupBox1: TGroupBox - Left = 937 + Left = 945 Top = 0 Width = 424 Height = 278 @@ -1589,7 +1590,8 @@ object frmOrderInPut: TfrmOrderInPut Top = 34 Width = 100 Height = 18 - TabOrder = 4 + TabOrder = 1 + OnKeyPress = CustomerNoNameKeyPress end object jiazhong: TEdit Tag = 12 @@ -1597,13 +1599,14 @@ object frmOrderInPut: TfrmOrderInPut Top = 34 Width = 100 Height = 18 - TabOrder = 5 + TabOrder = 2 + OnKeyPress = CustomerNoNameKeyPress end end object ToolBar2: TToolBar Left = 0 Top = 309 - Width = 1363 + Width = 1371 Height = 29 ButtonHeight = 30 ButtonWidth = 83 @@ -1650,8 +1653,8 @@ object frmOrderInPut: TfrmOrderInPut object cxGrid1: TcxGrid Left = 0 Top = 338 - Width = 1363 - Height = 384 + Width = 1371 + Height = 392 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView @@ -1703,6 +1706,84 @@ object frmOrderInPut: TfrmOrderInPut Styles.Header = DataLink_TradeManage.Default Width = 35 end + object v1PRTCodeName: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick + Properties.OnChange = v1PRTCodeNamePropertiesChange + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GH' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + Properties.OnChange = v1PRTColorPropertiesChange + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 64 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTOrderQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FontBlue + Width = 61 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'PRTMF' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SOrdDefNote1' + HeaderAlignmentHorz = taCenter + Width = 123 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FontBlue + Width = 77 + end object v1KHorderNo: TcxGridDBColumn Caption = #23458#25143#35746#21333#21495 DataBinding.FieldName = 'KHorderNo' @@ -1722,20 +1803,6 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 74 end - object v1PRTCodeName: TcxGridDBColumn - Caption = #22383#24067#21517#31216 - DataBinding.FieldName = 'PRTCodeName' - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick - Properties.OnChange = v1PRTCodeNamePropertiesChange - HeaderAlignmentHorz = taCenter - Width = 79 - end object v1Column4: TcxGridDBColumn Caption = #21697#21517#33521#25991 DataBinding.FieldName = 'Sorddefstr5' @@ -1749,21 +1816,6 @@ object frmOrderInPut: TfrmOrderInPut Styles.Header = DataLink_TradeManage.Default Width = 57 end - object v1PRTColor: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'PRTColor' - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = v1PRTColorPropertiesButtonClick - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Styles.Header = DataLink_TradeManage.handBlack - Width = 64 - end object v1Column3: TcxGridDBColumn Caption = #39068#33394'('#33521#25991')' DataBinding.FieldName = 'SOrddefstr4' @@ -1771,35 +1823,6 @@ object frmOrderInPut: TfrmOrderInPut Styles.Header = DataLink_TradeManage.FonePurple Width = 115 end - object v1PRTOrderQty: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'PRTOrderQty' - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Styles.Header = DataLink_TradeManage.FontBlue - Width = 61 - end - object v1OrderUnit: TcxGridDBColumn - Caption = #25968#37327#21333#20301 - DataBinding.FieldName = 'OrderUnit' - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick - HeaderAlignmentHorz = taCenter - Styles.Header = DataLink_TradeManage.FontBlue - Width = 77 - end - object v1Column1: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'SOrdDefNote1' - HeaderAlignmentHorz = taCenter - Width = 123 - end object v1PRTHX: TcxGridDBColumn Caption = #33457#22411#33457#21495 DataBinding.FieldName = 'PRTHX' @@ -1815,19 +1838,6 @@ object frmOrderInPut: TfrmOrderInPut Styles.Header = DataLink_TradeManage.Default Width = 87 end - object v1PRTMF: TcxGridDBColumn - Caption = #38376#24133'(cm)' - DataBinding.FieldName = 'PRTMF' - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Width = 75 - end - object v1PRTKZ: TcxGridDBColumn - Caption = #20811#37325'(g/'#13217')' - DataBinding.FieldName = 'PRTKZ' - HeaderAlignmentHorz = taCenter - Width = 78 - end object v1Column2: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'PRTSpec' @@ -1867,12 +1877,6 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 80 end - object Tv1Column1: TcxGridDBColumn - Caption = #32568#21495 - DataBinding.FieldName = 'GH' - HeaderAlignmentHorz = taCenter - Width = 65 - end object Tv1Column2: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'PIH' @@ -1885,10 +1889,10 @@ object frmOrderInPut: TfrmOrderInPut end end object cxGrid4: TcxGrid - Left = 348 - Top = 56 - Width = 157 - Height = 265 + Left = 484 + Top = 256 + Width = 237 + Height = 321 TabOrder = 4 Visible = False object TV4: TcxGridDBTableView diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 0cce3c0..67d356f 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -1,7 +1,7 @@ unit U_OrderInPut; interface - + uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, @@ -223,9 +223,9 @@ type procedure YCLFactoryBtnUpClick(Sender: TObject); procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); procedure Label36DblClick(Sender: TObject); - procedure Label37DblClick(Sender: TObject); + procedure Label37DblClick(Sender: TObject); procedure SYRNameBtnUpClick(Sender: TObject); - procedure MPRTBZNoteDblClick(Sender: TObject); + procedure MPRTBZNoteDblClick(Sender: TObject); procedure MPRTSCTeBieNoteDblClick(Sender: TObject); procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure FileNameClick(Sender: TObject); @@ -235,8 +235,11 @@ type procedure SLBNameBtnClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject); - procedure v1PRTCodeNamePropertiesChange(Sender: TObject); procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure v1PRTCodeNamePropertiesChange(Sender: TObject); + procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); + procedure v1PRTColorPropertiesChange(Sender: TObject); + //procedure ConNoChange(Sender: TObject); private procedure InitData(); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); @@ -1079,7 +1082,7 @@ begin if Trim(SLBName.Text) = '' then begin SLBName.text := 'Ʒǩ.rmf'; - end; + end; if SaveData() then begin Application.MessageBox('ɹ', 'ʾ', 0); @@ -1097,7 +1100,7 @@ begin flagname := 'ɫ'; V1Name.Caption := ''; V1Note.Caption := 'Ӣ'; - // MainType:=Trim(DName); + MainType := Trim(CustomerNoName.Text); fnote := True; if ShowModal = 1 then begin @@ -1128,8 +1131,8 @@ begin begin Edit; FieldByName('XHNO').Value := IntToStr(i); - FieldByName('PRTColor').Value := ''; - FieldByName('PRTOrderQty').Value := null; + //FieldByName('PRTColor').Value := ''; + //FieldByName('PRTOrderQty').Value := null; FieldByName('PRTPrice').Value := 0; FieldByName('SOrddefstr4').Value := null; FieldByName('SOrddefstr2').Value := null; @@ -1408,9 +1411,12 @@ begin MPRTKZ.Text := Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); MPRTChuanY.Text := Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString); MPRTQtyNote.Text := Trim(ADOTemp.fieldbyname('QtyNote').AsString); - CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); - CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString); - DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value; + +// CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString); +// CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString); + + // DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value; + ConMainId := Trim(ADOTemp.fieldbyname('MainId').AsString); // ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString); //OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString); @@ -1862,37 +1868,102 @@ begin // end; end; -procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject); +procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + SelectedValue: string; + FocusedColumn: TcxGridColumn; begin -// MPRTSCTeBieNote.SetFocus; -// if Length(Trim(Order_Sub.fieldbyname('prtcodename').AsString)) > 1 then -// begin -// with ADOQueryTmp do -// begin -// Close; -// sql.Clear; -// sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName'''); -// sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(Order_Sub.fieldbyname('prtcodename').AsString) + '%')); -// Open; -// end; -// SCreateCDS20(ADOQueryTmp, CDS_Con); -// SInitCDSData20(ADOQueryTmp, CDS_CON); -// if CDS_Con.IsEmpty then -// cxGrid4.Visible := False -// else -// cxGrid4.Visible := True; -// end; + try + SelectedValue := CDS_CON.FieldByName('ZDYName').AsString; + + cxGrid4.Visible := False; + + FocusedColumn := Tv1.Controller.FocusedColumn; + + if not Assigned(FocusedColumn) then + Exit; + + if not (Order_Sub.State in [dsEdit, dsInsert]) then + Order_Sub.Edit; + + if FocusedColumn.Name = 'v1PRTCodeName' then + begin + Order_Sub.FieldByName('PRTCodeName').AsString := SelectedValue; + end + else if FocusedColumn.Name = 'v1PRTColor' then + begin + Order_Sub.FieldByName('PRTColor').AsString := SelectedValue; + end; + + except + on E: Exception do + begin + ShowMessage(': ' + E.Message); + end; + end; end; -procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject); +var + SearchText: string; + Editor: TcxButtonEdit; begin -// conno.OnChange := nil; -// -// cxGrid4.Visible := False; -// conNo.Text := CDS_CON.fieldbyname('conNO').AsString; -// -// cxGrid4.Visible := False; -// conno.OnChange:=ConNoChange; + + Editor := Sender as TcxButtonEdit; + + SearchText := Trim(Editor.Text); + // showmessage(SearchText); + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName'''); + sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%')); + Open; + // ShowMessage(SQL.text); + end; + SCreateCDS20(ADOQueryTmp, CDS_Con); + SInitCDSData20(ADOQueryTmp, CDS_CON); + if CDS_Con.IsEmpty then + cxGrid4.Visible := False + else + cxGrid4.Visible := True; + +end; + +procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then // س + begin + Key := #0; + SelectNext(Sender as TWinControl, True, True); // TabOrder ˳һ + end; +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesChange(Sender: TObject); +var + SearchText: string; + Editor: TcxButtonEdit; +begin + Editor := Sender as TcxButtonEdit; + + SearchText := Trim(Editor.Text); + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''OrdColor'''); + sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%')); + Open; + + end; + SCreateCDS20(ADOQueryTmp, CDS_Con); + SInitCDSData20(ADOQueryTmp, CDS_CON); + if CDS_Con.IsEmpty then + cxGrid4.Visible := False + else + cxGrid4.Visible := True; end; end. diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index f5560cf..0b98262 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -1,6 +1,6 @@ object frmProductOrderNewList: TfrmProductOrderNewList - Left = 464 - Top = 256 + Left = 372 + Top = 544 Width = 1382 Height = 754 Caption = #21253#35013#25351#31034#21333 @@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1366 + Width = 1374 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -195,7 +195,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object Panel1: TPanel Left = 0 Top = 32 - Width = 1366 + Width = 1374 Height = 40 Align = alTop BevelInner = bvRaised @@ -512,7 +512,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxGrid1: TcxGrid Left = 0 Top = 95 - Width = 1366 + Width = 1374 Height = 333 Align = alTop TabOrder = 3 @@ -908,8 +908,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxSplitter1: TcxSplitter Left = 0 - Top = 451 - Width = 1366 + Top = 459 + Width = 1374 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -917,8 +917,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object Panel2: TPanel Left = 0 - Top = 459 - Width = 1366 + Top = 467 + Width = 1374 Height = 256 Align = alBottom Caption = 'Panel2' @@ -926,7 +926,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxGrid2: TcxGrid Left = 1 Top = 1 - Width = 987 + Width = 995 Height = 254 Align = alClient TabOrder = 0 @@ -1253,7 +1253,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList end end object GroupBox1: TGroupBox - Left = 988 + Left = 996 Top = 1 Width = 377 Height = 254 @@ -1283,7 +1283,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxTabControl1: TcxTabControl Left = 0 Top = 72 - Width = 1366 + Width = 1374 Height = 23 Align = alTop TabOrder = 2 @@ -1296,7 +1296,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 23 - ClientRectRight = 1366 + ClientRectRight = 1374 ClientRectTop = 19 end object cxGridPopupMenu1: TcxGridPopupMenu diff --git a/打卷检验管理/U_testdll.dfm b/打卷检验管理/U_testdll.dfm index b1d8f4c..0e56c84 100644 --- a/打卷检验管理/U_testdll.dfm +++ b/打卷检验管理/U_testdll.dfm @@ -1,6 +1,6 @@ object Form1: TForm1 - Left = 153 - Top = 124 + Left = 666 + Top = 380 Width = 791 Height = 554 Caption = 'Form1' diff --git a/打卷检验管理/testDll.cfg b/打卷检验管理/testDll.cfg index 6c57635..e9c1cc1 100644 --- a/打卷检验管理/testDll.cfg +++ b/打卷检验管理/testDll.cfg @@ -31,8 +31,8 @@ -M -$M16384,1048576 -K$00400000 --LE"c:\program files\borland\delphi7\Projects\Bpl" --LN"c:\program files\borland\delphi7\Projects\Bpl" +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST