From 8ba470de3c6356eead2ddc18325f993198d4f1da Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sun, 28 Sep 2025 16:06:19 +0800 Subject: [PATCH] =?UTF-8?q?=E5=9B=9E=E6=BB=9A9.1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../ShuttleSchedule.dof | 2 +- .../ShuttleSchedule.skincfg | 2 +- .../U_ShuttleClothSCInPut.dfm | 54 +++++++++---------- .../U_ShuttleClothSCInPut.pas | 21 +++----- 4 files changed, 35 insertions(+), 44 deletions(-) diff --git a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof index daf78f2..192d1ad 100644 --- a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof +++ b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\D7szChenfeng\֯ƻ(ShuttleSchedule.dll)\testDll.exe +HostApplication=E:\Ŀ\02_֯\·\D7szChenfeng\֯ƻ(ShuttleSchedule.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.skincfg b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.skincfg index 554ddb0..89edbfe 100644 --- a/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.skincfg +++ b/梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.skincfg @@ -1,7 +1,7 @@ [ExpressSkins] Default=1 ShowNotifications=1 -Enabled=0 +Enabled=1 dxSkinBlack=1 dxSkinBlue=1 dxSkinBlueprint=1 diff --git a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm index 9fde2f8..36114fd 100644 --- a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm +++ b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm @@ -1,6 +1,6 @@ object frmClothSCInPut: TfrmClothSCInPut - Left = 497 - Top = 342 + Left = 246 + Top = 71 Width = 1474 Height = 760 Align = alClient @@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1466 + Width = 1458 Height = 29 ButtonHeight = 30 ButtonWidth = 95 @@ -65,7 +65,7 @@ object frmClothSCInPut: TfrmClothSCInPut object ScrollBox1: TScrollBox Left = 0 Top = 29 - Width = 1466 + Width = 1458 Height = 416 Align = alTop BevelInner = bvNone @@ -1273,8 +1273,8 @@ object frmClothSCInPut: TfrmClothSCInPut object cxPageControl1: TcxPageControl Left = 0 Top = 474 - Width = 1466 - Height = 255 + Width = 1458 + Height = 247 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1283,12 +1283,12 @@ object frmClothSCInPut: TfrmClothSCInPut Font.Style = [fsBold] ParentFont = False TabOrder = 2 - Properties.ActivePage = cxTabSheet3 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 OnChange = cxPageControl1Change - ClientRectBottom = 255 - ClientRectRight = 1466 + ClientRectBottom = 247 + ClientRectRight = 1458 ClientRectTop = 23 object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 @@ -1296,8 +1296,8 @@ object frmClothSCInPut: TfrmClothSCInPut object GroupBox1: TGroupBox Left = 980 Top = 0 - Width = 486 - Height = 232 + Width = 478 + Height = 224 Align = alClient Caption = #32463#25490#21015 Font.Charset = GB2312_CHARSET @@ -1311,8 +1311,8 @@ object frmClothSCInPut: TfrmClothSCInPut Tag = 2 Left = 2 Top = 31 - Width = 482 - Height = 199 + Width = 474 + Height = 191 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1327,7 +1327,7 @@ object frmClothSCInPut: TfrmClothSCInPut Left = 0 Top = 0 Width = 980 - Height = 232 + Height = 224 Align = alLeft TabOrder = 1 object TV1: TcxGridDBTableView @@ -1423,8 +1423,8 @@ object frmClothSCInPut: TfrmClothSCInPut object GroupBox2: TGroupBox Left = 980 Top = 0 - Width = 486 - Height = 232 + Width = 530 + Height = 281 Align = alClient Caption = #32428#25490#21015 Font.Charset = GB2312_CHARSET @@ -1438,8 +1438,8 @@ object frmClothSCInPut: TfrmClothSCInPut Tag = 2 Left = 2 Top = 31 - Width = 482 - Height = 199 + Width = 526 + Height = 248 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1454,7 +1454,7 @@ object frmClothSCInPut: TfrmClothSCInPut Left = 0 Top = 0 Width = 980 - Height = 232 + Height = 281 Align = alLeft TabOrder = 1 object TV2: TcxGridDBTableView @@ -1549,8 +1549,8 @@ object frmClothSCInPut: TfrmClothSCInPut object ScrollBox2: TScrollBox Left = 0 Top = 0 - Width = 1466 - Height = 232 + Width = 1458 + Height = 224 Align = alClient TabOrder = 0 object Label11: TLabel @@ -2525,8 +2525,8 @@ object frmClothSCInPut: TfrmClothSCInPut object cxGrid4: TcxGrid Left = 0 Top = 41 - Width = 1466 - Height = 191 + Width = 1458 + Height = 183 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 @@ -2607,7 +2607,7 @@ object frmClothSCInPut: TfrmClothSCInPut object Panel1: TPanel Left = 0 Top = 0 - Width = 1466 + Width = 1458 Height = 41 Align = alTop TabOrder = 1 @@ -2674,7 +2674,7 @@ object frmClothSCInPut: TfrmClothSCInPut Properties.ShowFocusRect = False Style.BorderStyle = ebsSingle TabOrder = 0 - Height = 211 + Height = 203 Width = 481 end object YWBian: TMemo @@ -2682,7 +2682,7 @@ object frmClothSCInPut: TfrmClothSCInPut Left = 701 Top = 0 Width = 794 - Height = 211 + Height = 203 Align = alRight TabOrder = 1 end @@ -2692,7 +2692,7 @@ object frmClothSCInPut: TfrmClothSCInPut object ToolBar2: TToolBar Left = 0 Top = 445 - Width = 1466 + Width = 1458 Height = 29 ButtonHeight = 30 ButtonWidth = 59 diff --git a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.pas b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.pas index 60326bc..4bc65e0 100644 --- a/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.pas +++ b/梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.pas @@ -582,8 +582,8 @@ begin SQL.Clear; sql.Add(' select A.*,B.* from PD_GY_Main A inner join PD_GY_Sub B on A.MainId=B.MainId'); - sql.Add(' where A.ORDERNO=' + Quotedstr(Trim(GYNO.Text))); - + sql.Add(' where A.MainId=' + Quotedstr(Trim(FGYNO))); + //ShowMessage(SQL.Text); Open; end; @@ -621,7 +621,7 @@ begin begin Close; sql.Clear; - sql.Add('select * from PD_GY_QZ A LEFT JOIN PD_GY_Main B on A.MainId=B.MainId where ORDERNO=''' + Trim(GYNO.Text) + ''''); + sql.Add('select * from PD_GY_QZ where MainId=''' + Trim(FGYNO) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_QZ); @@ -632,7 +632,7 @@ begin begin Close; sql.Clear; - sql.Add('select * from PD_GY_Yarn A LEFT JOIN PD_GY_Main B on A.MainId=B.MainId where PYType=''˿'' and ORDERNO=''' + Trim(GYNO.Text) + ''''); + sql.Add('select * from PD_GY_Yarn where PYType=''˿'' and MainId=''' + Trim(FGYNO) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_YarnJX); @@ -646,7 +646,7 @@ begin begin Close; sql.Clear; - sql.Add('select * from PD_GY_Yarn A LEFT JOIN PD_GY_Main B on A.MainId=B.MainId where PYType=''γ˿'' and ORDERNO=''' + Trim(GYNO.Text) + ''''); + sql.Add('select * from PD_GY_Yarn where PYType=''γ˿'' and MainId=''' + Trim(FGYNO) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_YarnWX); @@ -775,11 +775,9 @@ begin sql.Add('select * from PD_Plan_Yarn where PYType=''˿'' and MainId=''' + Trim(FMainId) + ''''); Open; end; - Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PL').AsString); - SCreateCDS20(ADOQueryTemp, CDS_YarnJX); SInitCDSData20(ADOQueryTemp, CDS_YarnJX); - + Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PL').AsString); if PState = 0 then begin with CDS_YarnJX do @@ -932,13 +930,6 @@ procedure TfrmClothSCInPut.FormShow(Sender: TObject); begin ToolBar2.Visible := False; InitData(); - if PState = 1 then - begin - FGYNO := GYNO.Text; - INITGY(); - end; - - InitImage(); // Y_Note_PLW.SelectAll; // RichEditLineSpacing(Y_Note_PLW, 0);