Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

回滚9.1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-28 16:06:19 +08:00
parent 5527f83e2a
commit 8ba470de3c
4 changed files with 35 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.dof
View File

@ -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=

2
梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.skincfg
View File

@ -1,7 +1,7 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=0
Enabled=1
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1

54
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm
View File

@ -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

21
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.pas
View File

@ -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);