Group_99/D7zzHanglin
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-22 15:29:27 +08:00
parent 0f9beb9b62
commit bbdf959b93
7 changed files with 93 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
坯布生产计划(WeavingSchedule)/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = WeavingSchedule.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
WeavingSchedule.dll: WeavingSchedule.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

9
坯布生产计划(WeavingSchedule)/U_GetDllForm.pas
View File

@ -68,7 +68,8 @@ begin
SetLength(dtbase, 255); SetLength(dtbase, 255);
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then
begin
server := '121.40.233.100,7781'; server := '121.40.233.100,7781';
//server:='.'; //server:='.';
pswd := 'rightsoft@123'; pswd := 'rightsoft@123';
@ -77,10 +78,14 @@ begin
dtbase := 'hanglindata'; dtbase := 'hanglindata';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
// DName := 'Ì·±ØÃÆ'; // DName := 'Ì·±ØÃÆ';
// DParameters1 := 'BS'; // DParameters1 := 'BS';
//DParameters3:='1'; //DParameters3:='1';
end
else
DConString := DataBaseStr;
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;

20
坯布生产计划(WeavingSchedule)/U_JYOrderCDOne.dfm
View File

@ -20,7 +20,7 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1250 Width = 1258
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -165,7 +165,7 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1250 Width = 1258
Height = 89 Height = 89
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -649,8 +649,8 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 171 Top = 171
Width = 1250 Width = 1258
Height = 339 Height = 347
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -1094,7 +1094,7 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1250 Width = 1258
Height = 25 Height = 25
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1107,13 +1107,13 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 25 ClientRectBottom = 25
ClientRectRight = 1250 ClientRectRight = 1258
ClientRectTop = 23 ClientRectTop = 23
end end
object cxTabControl2: TcxTabControl object cxTabControl2: TcxTabControl
Left = 0 Left = 0
Top = 146 Top = 146
Width = 1250 Width = 1258
Height = 25 Height = 25
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -1121,7 +1121,7 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
Properties.Style = 8 Properties.Style = 8
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ClientRectBottom = 25 ClientRectBottom = 25
ClientRectRight = 1250 ClientRectRight = 1258
ClientRectTop = 0 ClientRectTop = 0
end end
object Panel4: TPanel object Panel4: TPanel
@ -1222,8 +1222,8 @@ object frmJYOrderCDOnePB: TfrmJYOrderCDOnePB
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 510 Top = 518
Width = 1250 Width = 1258
Height = 76 Height = 76
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised

15
坯布生产计划(WeavingSchedule)/U_JYOrderCDOne.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxPC, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxPC,
cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookAndFeels, cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, dxCore, cxDateUtils, cxNavigator, dxBarBuiltInMenu; cxLookAndFeelPainters, dxCore, cxDateUtils, cxNavigator, dxBarBuiltInMenu,
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 type
TfrmJYOrderCDOnePB = class(TForm) TfrmJYOrderCDOnePB = class(TForm)

75
坯布生产计划(WeavingSchedule)/U_MJManageNewFDJJAP.dfm
View File

@ -21,7 +21,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1334 Width = 1342
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -182,7 +182,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
Left = 0 Left = 0
Top = 81 Top = 81
Width = 317 Width = 317
Height = 602 Height = 610
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
object SpeedButton13: TSpeedButton object SpeedButton13: TSpeedButton
@ -862,7 +862,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1334 Width = 1342
Height = 51 Height = 51
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -919,7 +919,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label33: TLabel object Label33: TLabel
Left = 857 Left = 857
Top = 13 Top = 13
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #20986#32440 Caption = #20986#32440
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -946,7 +946,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object lblJYPS: TLabel object lblJYPS: TLabel
Left = 504 Left = 504
Top = 11 Top = 11
Width = 80 Width = 72
Height = 23 Height = 23
Caption = #26816#39564#21305#25968 Caption = #26816#39564#21305#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1043,6 +1043,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 1 TabOrder = 1
Text = #8730
OnClick = Edit6Click OnClick = Edit6Click
end end
object GCCode: TEdit object GCCode: TEdit
@ -1083,7 +1084,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
Left = 317 Left = 317
Top = 81 Top = 81
Width = 270 Width = 270
Height = 602 Height = 610
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1105,7 +1106,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label11: TLabel object Label11: TLabel
Left = -103 Left = -103
Top = 534 Top = 534
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #27611#37325 Caption = #27611#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1119,7 +1120,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label10: TLabel object Label10: TLabel
Left = 726 Left = 726
Top = 130 Top = 130
Width = 20 Width = 18
Height = 46 Height = 46
Caption = #27491#13#10#21697 Caption = #27491#13#10#21697
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1133,7 +1134,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label12: TLabel object Label12: TLabel
Left = 786 Left = 786
Top = 350 Top = 350
Width = 20 Width = 18
Height = 44 Height = 44
Caption = #27425#13#10#21697 Caption = #27425#13#10#21697
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1147,7 +1148,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label28: TLabel object Label28: TLabel
Left = 536 Left = 536
Top = 291 Top = 291
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #30041#26679 Caption = #30041#26679
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1161,7 +1162,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label22: TLabel object Label22: TLabel
Left = 307 Left = 307
Top = 312 Top = 312
Width = 40 Width = 36
Height = 44 Height = 44
Caption = #20132#29677#13#10#20154 Caption = #20132#29677#13#10#20154
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1175,7 +1176,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label24: TLabel object Label24: TLabel
Left = 470 Left = 470
Top = 326 Top = 326
Width = 91 Width = 83
Height = 22 Height = 22
Caption = #20132#29677#36716#25968'1' Caption = #20132#29677#36716#25968'1'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1216,7 +1217,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object www: TLabel object www: TLabel
Left = 11 Left = 11
Top = 105 Top = 105
Width = 68 Width = 66
Height = 38 Height = 38
Caption = #37325#37327 Caption = #37325#37327
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1243,7 +1244,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label5: TLabel object Label5: TLabel
Left = 482 Left = 482
Top = 209 Top = 209
Width = 40 Width = 36
Height = 44 Height = 44
Caption = #20132#29677#13#10#20154'2' Caption = #20132#29677#13#10#20154'2'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1257,7 +1258,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label9: TLabel object Label9: TLabel
Left = 466 Left = 466
Top = 173 Top = 173
Width = 91 Width = 83
Height = 22 Height = 22
Caption = #20132#29677#36716#25968'2' Caption = #20132#29677#36716#25968'2'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1271,7 +1272,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label14: TLabel object Label14: TLabel
Left = 619 Left = 619
Top = 408 Top = 408
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #20132#29677 Caption = #20132#29677
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1327,7 +1328,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label38: TLabel object Label38: TLabel
Left = 309 Left = 309
Top = 406 Top = 406
Width = 20 Width = 18
Height = 88 Height = 88
Caption = #33853#13#10#24067#13#10#26102#13#10#38388 Caption = #33853#13#10#24067#13#10#26102#13#10#38388
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1341,7 +1342,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label39: TLabel object Label39: TLabel
Left = 405 Left = 405
Top = 461 Top = 461
Width = 20 Width = 18
Height = 22 Height = 22
Caption = #26102 Caption = #26102
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1355,7 +1356,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label40: TLabel object Label40: TLabel
Left = 502 Left = 502
Top = 461 Top = 461
Width = 20 Width = 18
Height = 22 Height = 22
Caption = #20998 Caption = #20998
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1383,7 +1384,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label43: TLabel object Label43: TLabel
Left = 445 Left = 445
Top = 46 Top = 46
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #30382#37325 Caption = #30382#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1397,7 +1398,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label45: TLabel object Label45: TLabel
Left = 445 Left = 445
Top = 81 Top = 81
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #20928#37325 Caption = #20928#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1411,7 +1412,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label29: TLabel object Label29: TLabel
Left = 375 Left = 375
Top = 539 Top = 539
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #31354#21152 Caption = #31354#21152
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1425,7 +1426,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label46: TLabel object Label46: TLabel
Left = 11 Left = 11
Top = 183 Top = 183
Width = 68 Width = 66
Height = 38 Height = 38
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1452,7 +1453,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label47: TLabel object Label47: TLabel
Left = 454 Left = 454
Top = 257 Top = 257
Width = 100 Width = 90
Height = 22 Height = 22
Caption = #25377#36710#24037#36716#25968 Caption = #25377#36710#24037#36716#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1493,7 +1494,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label55: TLabel object Label55: TLabel
Left = 331 Left = 331
Top = 51 Top = 51
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #23458#25143 Caption = #23458#25143
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1507,7 +1508,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label56: TLabel object Label56: TLabel
Left = 81 Left = 81
Top = 17 Top = 17
Width = 68 Width = 66
Height = 38 Height = 38
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1520,7 +1521,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object lbl2: TLabel object lbl2: TLabel
Left = 410 Left = 410
Top = 495 Top = 495
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #36710#38388 Caption = #36710#38388
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1547,7 +1548,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label36: TLabel object Label36: TLabel
Left = 376 Left = 376
Top = 212 Top = 212
Width = 20 Width = 18
Height = 46 Height = 46
Caption = #28145#13#10#33394 Caption = #28145#13#10#33394
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1561,7 +1562,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label25: TLabel object Label25: TLabel
Left = 306 Left = 306
Top = 212 Top = 212
Width = 20 Width = 18
Height = 46 Height = 46
Caption = #28418#13#10#30333 Caption = #28418#13#10#30333
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1575,7 +1576,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label48: TLabel object Label48: TLabel
Left = 441 Left = 441
Top = 212 Top = 212
Width = 20 Width = 18
Height = 46 Height = 46
Caption = #27973#13#10#33394 Caption = #27973#13#10#33394
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1589,7 +1590,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Label57: TLabel object Label57: TLabel
Left = 84 Left = 84
Top = 298 Top = 298
Width = 120 Width = 117
Height = 45 Height = 45
Caption = #39564#24067#24037 Caption = #39564#24067#24037
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2343,8 +2344,8 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Panel4: TPanel object Panel4: TPanel
Left = 587 Left = 587
Top = 81 Top = 81
Width = 747 Width = 755
Height = 602 Height = 610
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2352,7 +2353,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 118 Top = 118
Width = 743 Width = 751
Height = 164 Height = 164
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
@ -2472,8 +2473,8 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 2 Left = 2
Top = 282 Top = 282
Width = 743 Width = 751
Height = 318 Height = 326
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -2555,7 +2556,7 @@ object frmMJManageNewFDJJAP: TfrmMJManageNewFDJJAP
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 743 Width = 751
Height = 116 Height = 116
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

31
坯布生产计划(WeavingSchedule)/U_MJManageNewFDJJAP.pas
View File

@ -10,22 +10,20 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, IniFiles, Math, cxLookAndFeels, cxLookAndFeelPainters, MovePanel, IniFiles, Math, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
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, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator;
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar;
IntTime:integer):integer;stdcall;external 'JCYData.DLL'; IntTime:integer):integer;stdcall;external 'JCYData.DLL';
function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; } function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; }
@ -757,7 +755,6 @@ begin
end; end;
Flogo := Trim(ADOTmp.FieldByName('FormPara1').AsString); Flogo := Trim(ADOTmp.FieldByName('FormPara1').AsString);
// Flogo := 'GY'; // Flogo := 'GY';
// Edit6.Text := '¡Ì'; // Edit6.Text := '¡Ì';
MJMaoZ.Font.Color := clRed; MJMaoZ.Font.Color := clRed;

2
坯布生产计划(WeavingSchedule)/WeavingSchedule.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\航霖\坯布生产计划(WeavingSchedule)\testDll.exe HostApplication=E:\项目资料\01_针织厂\航霖针织\D7zzHanglin\坯布生产计划(WeavingSchedule)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=