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

工艺单修改后保存时，需要把工序信息同步更新到对应的织造单上

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-01 17:32:52 +08:00
parent 4854c550b1
commit 77dd218354
12 changed files with 175 additions and 97 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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=E:\淃커栗죕\02_虔廉낍\냈료\D7szChenfeng\虔廉셕뺍데(ShuttleSchedule.dll)\testDll.exe HostApplication=D:\淃커덜쯤\D7szChenfeng\虔廉셕뺍데(ShuttleSchedule.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

50
梭织计划单(ShuttleSchedule.dll)/ShuttleSchedule.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=0
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

36
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYInPut.dfm
View File

@ -1,6 +1,6 @@
object frmClothGYInPut: TfrmClothGYInPut object frmClothGYInPut: TfrmClothGYInPut
Left = 693 Left = 422
Top = 403 Top = 341
Width = 1425 Width = 1425
Height = 809 Height = 809
Align = alClient Align = alClient
@ -792,7 +792,7 @@ object frmClothGYInPut: TfrmClothGYInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet4
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
@ -1057,8 +1057,8 @@ object frmClothGYInPut: TfrmClothGYInPut
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1407 Width = 1417
Height = 273 Height = 281
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Label11: TLabel object Label11: TLabel
@ -2033,8 +2033,8 @@ object frmClothGYInPut: TfrmClothGYInPut
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 41 Top = 41
Width = 1409 Width = 1417
Height = 232 Height = 240
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -2115,7 +2115,7 @@ object frmClothGYInPut: TfrmClothGYInPut
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1409 Width = 1417
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
@ -2150,8 +2150,8 @@ object frmClothGYInPut: TfrmClothGYInPut
object ScrollBox3: TScrollBox object ScrollBox3: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1409 Width = 1417
Height = 273 Height = 281
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
OnMouseWheel = ScrollBox3MouseWheel OnMouseWheel = ScrollBox3MouseWheel
@ -2255,8 +2255,8 @@ object frmClothGYInPut: TfrmClothGYInPut
Connection = DataLink_ShuttleSchedule.ADOLink Connection = DataLink_ShuttleSchedule.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 242 Left = 266
Top = 316 Top = 284
end end
object DS_YarnJX: TDataSource object DS_YarnJX: TDataSource
DataSet = CDS_YarnJX DataSet = CDS_YarnJX
@ -2419,4 +2419,16 @@ object frmClothGYInPut: TfrmClothGYInPut
Left = 781 Left = 781
Top = 552 Top = 552
end end
object ADOQuery1: TADOQuery
Connection = DataLink_ShuttleSchedule.ADOLink
Parameters = <>
Left = 210
Top = 312
end
object ADOQueryCmd2: TADOQuery
Connection = DataLink_ShuttleSchedule.ADOLink
Parameters = <>
Left = 218
Top = 264
end
end end

11
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYInPut.pas
View File

@ -210,6 +210,8 @@ type
Label5: TLabel; Label5: TLabel;
Label6: TLabel; Label6: TLabel;
zjprice: TEdit; zjprice: TEdit;
ADOQuery1: TADOQuery;
ADOQueryCmd2: TADOQuery;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -789,6 +791,9 @@ end;
function TfrmClothGYInPut.SaveData(): Boolean; function TfrmClothGYInPut.SaveData(): Boolean;
var var
maxno, maxsubno, maxpbno, maxpzno, maxsjno, czmaxno, Qzmaxno: string; maxno, maxsubno, maxpbno, maxpzno, maxsjno, czmaxno, Qzmaxno: string;
SQLText: string;
UpdateFields: TStringList;
i: Integer;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
@ -847,14 +852,15 @@ begin
sql.Add('select * from PD_GY_Main where OrderNo=''' + Trim(OrderNo.Text) + ''''); sql.Add('select * from PD_GY_Main where OrderNo=''' + Trim(OrderNo.Text) + '''');
Open; Open;
end; end;
if ADOQueryTemp.RecordCount > 1 then if ADOQueryTemp.RecordCount > 1 then
begin begin
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('工艺单号重复!', '提示', 0); Application.MessageBox('工艺单号重复!', '提示', 0);
Exit; Exit;
end; end;
///////////////////////////////////保存主表////////////////////////////// ///////////////////////////////////保存主表//////////////////////////////
///////////////////////////////////保存子表////////////////////////////// ///////////////////////////////////保存子表//////////////////////////////
if Trim(FSubId) = '' then if Trim(FSubId) = '' then
begin begin
@ -891,6 +897,7 @@ begin
Post; Post;
end; end;
///////////////////////////////////保存子表////////////////////////////// ///////////////////////////////////保存子表//////////////////////////////
///////////////////////////////////经丝组合////////////////////////////// ///////////////////////////////////经丝组合//////////////////////////////
if FRcore = 1 then if FRcore = 1 then
begin begin
@ -960,6 +967,7 @@ begin
end; end;
end; end;
///////////////////////////////////经丝组合////////////////////////////// ///////////////////////////////////经丝组合//////////////////////////////
///////////////////////////////////纬丝组合////////////////////////////// ///////////////////////////////////纬丝组合//////////////////////////////
with CDS_YarnWX do with CDS_YarnWX do
begin begin
@ -1159,6 +1167,7 @@ begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1; ModalResult := 1;
end; end;
end; end;

4
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYList.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothGYList: TfrmShuttleClothGYList object frmShuttleClothGYList: TfrmShuttleClothGYList
Left = 528 Left = 481
Top = 203 Top = 439
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333

16
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYList.pas
View File

@ -11,21 +11,7 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg,
dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, cxPC, cxCheckBox;
dxSkinscxPCPainter, cxCheckBox, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmShuttleClothGYList = class(TForm) TfrmShuttleClothGYList = class(TForm)

4
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYListsel.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
Left = 147 Left = 488
Top = 106 Top = 489
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #24037#33402#21333#36873#25321 Caption = #24037#33402#21333#36873#25321

15
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYListsel.pas
View File

@ -12,7 +12,20 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg,
dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter; dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TfrmShuttleClothGYListSEL = class(TForm) TfrmShuttleClothGYListSEL = class(TForm)

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

@ -1,6 +1,6 @@
object frmClothSCInPut: TfrmClothSCInPut object frmClothSCInPut: TfrmClothSCInPut
Left = 246 Left = 497
Top = 71 Top = 342
Width = 1474 Width = 1474
Height = 760 Height = 760
Align = alClient Align = alClient
@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1458 Width = 1466
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -65,7 +65,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1458 Width = 1466
Height = 416 Height = 416
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -1273,8 +1273,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 474 Top = 474
Width = 1458 Width = 1466
Height = 247 Height = 255
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1283,12 +1283,12 @@ object frmClothSCInPut: TfrmClothSCInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 247 ClientRectBottom = 255
ClientRectRight = 1458 ClientRectRight = 1466
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
@ -1296,8 +1296,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 478 Width = 486
Height = 224 Height = 232
Align = alClient Align = alClient
Caption = #32463#25490#21015 Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1311,8 +1311,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 474 Width = 482
Height = 191 Height = 199
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1327,7 +1327,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 224 Height = 232
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -1423,8 +1423,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 530 Width = 486
Height = 281 Height = 232
Align = alClient Align = alClient
Caption = #32428#25490#21015 Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1438,8 +1438,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 526 Width = 482
Height = 248 Height = 199
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1454,7 +1454,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 281 Height = 232
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -1549,8 +1549,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1458 Width = 1466
Height = 224 Height = 232
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Label11: TLabel object Label11: TLabel
@ -2525,8 +2525,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 41 Top = 41
Width = 1458 Width = 1466
Height = 183 Height = 191
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -2607,7 +2607,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1458 Width = 1466
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
@ -2674,7 +2674,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
Height = 203 Height = 211
Width = 481 Width = 481
end end
object YWBian: TMemo object YWBian: TMemo
@ -2682,7 +2682,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 701 Left = 701
Top = 0 Top = 0
Width = 794 Width = 794
Height = 203 Height = 211
Align = alRight Align = alRight
TabOrder = 1 TabOrder = 1
end end
@ -2692,7 +2692,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 445 Top = 445
Width = 1458 Width = 1466
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59

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

@ -582,8 +582,8 @@ begin
SQL.Clear; 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(' select A.*,B.* from PD_GY_Main A inner join PD_GY_Sub B on A.MainId=B.MainId');
sql.Add(' where A.MainId=' + Quotedstr(Trim(FGYNO))); sql.Add(' where A.ORDERNO=' + Quotedstr(Trim(GYNO.Text)));
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
Open; Open;
end; end;
@ -621,7 +621,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from PD_GY_QZ where MainId=''' + Trim(FGYNO) + ''''); sql.Add('select * from PD_GY_QZ A LEFT JOIN PD_GY_Main B on A.MainId=B.MainId where ORDERNO=''' + Trim(GYNO.Text) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_QZ); SCreateCDS20(ADOQueryTemp, CDS_QZ);
@ -632,7 +632,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from PD_GY_Yarn where PYType=''¾­Ë¿'' and MainId=''' + Trim(FGYNO) + ''''); 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) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_YarnJX); SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
@ -646,7 +646,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from PD_GY_Yarn where PYType=''γ˿'' and MainId=''' + Trim(FGYNO) + ''''); 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) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_YarnWX); SCreateCDS20(ADOQueryTemp, CDS_YarnWX);
@ -775,9 +775,11 @@ begin
sql.Add('select * from PD_Plan_Yarn where PYType=''¾­Ë¿'' and MainId=''' + Trim(FMainId) + ''''); sql.Add('select * from PD_Plan_Yarn where PYType=''¾­Ë¿'' and MainId=''' + Trim(FMainId) + '''');
Open; Open;
end; end;
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PL').AsString);
SCreateCDS20(ADOQueryTemp, CDS_YarnJX); SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
SInitCDSData20(ADOQueryTemp, CDS_YarnJX); SInitCDSData20(ADOQueryTemp, CDS_YarnJX);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PL').AsString);
if PState = 0 then if PState = 0 then
begin begin
with CDS_YarnJX do with CDS_YarnJX do
@ -930,6 +932,13 @@ procedure TfrmClothSCInPut.FormShow(Sender: TObject);
begin begin
ToolBar2.Visible := False; ToolBar2.Visible := False;
InitData(); InitData();
if PState = 1 then
begin
FGYNO := GYNO.Text;
INITGY();
end;
InitImage(); InitImage();
// Y_Note_PLW.SelectAll; // Y_Note_PLW.SelectAll;
// RichEditLineSpacing(Y_Note_PLW, 0); // RichEditLineSpacing(Y_Note_PLW, 0);

28
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothSCList: TfrmShuttleClothSCList object frmShuttleClothSCList: TfrmShuttleClothSCList
Left = 147 Left = 367
Top = 106 Top = 493
Width = 1377 Width = 1377
Height = 579 Height = 579
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333
@ -33,7 +33,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1361 Width = 1369
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -214,7 +214,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1361 Width = 1369
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -476,8 +476,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1361 Width = 1369
Height = 413 Height = 421
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -683,8 +683,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1361 Width = 1369
Height = 413 Height = 421
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object cxGridDBTableView1: TcxGridDBTableView object cxGridDBTableView1: TcxGridDBTableView
@ -890,8 +890,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1361 Width = 1369
Height = 413 Height = 421
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object cxGridDBTableView2: TcxGridDBTableView object cxGridDBTableView2: TcxGridDBTableView
@ -1097,8 +1097,8 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1361 Width = 1369
Height = 413 Height = 421
Align = alClient Align = alClient
TabOrder = 5 TabOrder = 5
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -1403,7 +1403,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1361 Width = 1369
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 6 TabOrder = 6
@ -1415,7 +1415,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
#24050#21024#38500#25968#25454) #24050#21024#38500#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1361 ClientRectRight = 1369
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

31
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.pas
View File

@ -11,19 +11,20 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg,
dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
TfrmShuttleClothSCList = class(TForm) TfrmShuttleClothSCList = class(TForm)
@ -421,7 +422,7 @@ begin
end; end;
// if Trim(canshu1) = '¼Èë' then // if Trim(canshu1) = '¼Èë' then
// sql.Add(' and A.Filler=' + quotedstr(DName)); // sql.Add(' and A.Filler=' + quotedstr(DName));
// ShowMessage(sql.Text); //ShowMessage(sql.Text);
Open; Open;
end; end;
@ -726,8 +727,6 @@ begin
FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString); FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
TBSave.Visible := False; TBSave.Visible := False;
ScrollBox1.Enabled := False;
if ShowModal = 1 then if ShowModal = 1 then
begin begin