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

20260114

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-14 13:03:28 +08:00
parent 8481cb86fa
commit b7cc5e8312
22 changed files with 288 additions and 160 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
合同管理(ContractManagement.dll)/ContractManagement.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

2
合同管理(ContractManagement.dll)/ContractManagement.skincfg
View File

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

20
合同管理(ContractManagement.dll)/U_ContractListNX.dfm
View File

@ -1,6 +1,6 @@
object frmContractListNX: TfrmContractListNX object frmContractListNX: TfrmContractListNX
Left = 382 Left = 267
Top = 287 Top = 202
Width = 1381 Width = 1381
Height = 716 Height = 716
Caption = #38144#21806#21512#21516 Caption = #38144#21806#21512#21516
@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1373 Width = 1365
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -205,7 +205,7 @@ object frmContractListNX: TfrmContractListNX
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 139 Top = 139
Width = 1373 Width = 1365
Height = 362 Height = 362
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -462,7 +462,7 @@ object frmContractListNX: TfrmContractListNX
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1373 Width = 1365
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -689,7 +689,7 @@ object frmContractListNX: TfrmContractListNX
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1373 Width = 1365
Height = 34 Height = 34
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -710,14 +710,14 @@ object frmContractListNX: TfrmContractListNX
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 34 ClientRectBottom = 34
ClientRectRight = 1373 ClientRectRight = 1365
ClientRectTop = 26 ClientRectTop = 26
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 509 Top = 509
Width = 1373 Width = 1365
Height = 176 Height = 168
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -1048,7 +1048,7 @@ object frmContractListNX: TfrmContractListNX
object cxSplitter2: TcxSplitter object cxSplitter2: TcxSplitter
Left = 0 Left = 0
Top = 501 Top = 501
Width = 1373 Width = 1365
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salTop AlignSplitter = salTop

2
合同管理(ContractManagement.dll)/U_ContractListNX.pas
View File

@ -519,7 +519,7 @@ begin
sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) '); sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) ');
sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId '); sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId ');
sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + ''''); sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + '''');
sql.Add(' order by B.XHNo '); sql.Add(' order by cast(B.XHNo as int) ');
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
Open; Open;
end; end;

6
合同管理(ContractManagement.dll)/U_GetDllForm.pas
View File

@ -74,6 +74,12 @@ begin
dtbase := 'chenfengdata'; dtbase := 'chenfengdata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
//
// server := '127.0.0.1';
// dtbase := 'delphichenfeng';
// user := 'sa';
// pswd := 'rightsoft';
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;
// DName:='ADMIN'; // DName:='ADMIN';
// DParameters1:='¸ßȨÏÞ'; // DParameters1:='¸ßȨÏÞ';

4
合同管理(ContractManagement.dll)/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 203 Left = 240
Top = 121 Top = 237
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'

8
布匹检验(FabricInspection.dll)/ProjectGroup1.bpg
View File

@ -9,9 +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 = PROJECTS = FabricInspection.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
FabricInspection.dll: FabricInspection.dpr
$(DCC)
testDll.exe: testDll.dpr
$(DCC)

12
布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.dfm
View File

@ -19,7 +19,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1454 Width = 1446
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -57,7 +57,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1454 Width = 1446
Height = 58 Height = 58
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -309,7 +309,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 689 Left = 689
Top = 90 Top = 90
Width = 231 Width = 231
Height = 598 Height = 590
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -462,7 +462,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 0 Left = 0
Top = 90 Top = 90
Width = 689 Width = 689
Height = 598 Height = 590
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -611,8 +611,8 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 920 Left = 920
Top = 90 Top = 90
Width = 534 Width = 526
Height = 598 Height = 590
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

16
布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.pas
View File

@ -11,7 +11,21 @@ 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, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, 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
TfrmClothSCDCGAnPai = class(TForm) TfrmClothSCDCGAnPai = class(TForm)

20
布匹检验(FabricInspection.dll)/U_GreyInspection.dfm
View File

@ -1,6 +1,6 @@
object frmGreyInspection: TfrmGreyInspection object frmGreyInspection: TfrmGreyInspection
Left = 192 Left = 216
Top = 41 Top = 74
Width = 1316 Width = 1316
Height = 755 Height = 755
Caption = #26797#32455#22383#24067#26816#39564 Caption = #26797#32455#22383#24067#26816#39564
@ -22,7 +22,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 0 Left = 0
Top = 85 Top = 85
Width = 217 Width = 217
Height = 639 Height = 631
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -764,7 +764,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 217 Left = 217
Top = 85 Top = 85
Width = 296 Width = 296
Height = 639 Height = 631
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -773,7 +773,7 @@ object frmGreyInspection: TfrmGreyInspection
Left = 2 Left = 2
Top = 113 Top = 113
Width = 292 Width = 292
Height = 524 Height = 516
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -893,14 +893,14 @@ object frmGreyInspection: TfrmGreyInspection
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1308 Width = 1300
Height = 85 Height = 85
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1306 Width = 1298
Height = 53 Height = 53
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
@ -1055,7 +1055,7 @@ object frmGreyInspection: TfrmGreyInspection
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1306 Width = 1298
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -1144,8 +1144,8 @@ object frmGreyInspection: TfrmGreyInspection
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 513 Left = 513
Top = 85 Top = 85
Width = 795 Width = 787
Height = 639 Height = 631
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView

62
布匹检验(FabricInspection.dll)/U_GreyInspection.pas
View File

@ -1315,6 +1315,8 @@ begin
FieldByName('Person1').Value := trim(Person1.Text); FieldByName('Person1').Value := trim(Person1.Text);
FieldByName('Person2').Value := trim(Person2.Text); FieldByName('Person2').Value := trim(Person2.Text);
FieldByName('Person3').Value := trim(Person3.Text); FieldByName('Person3').Value := trim(Person3.Text);
FieldByName('Person4').Value := trim(Person4.Text);
FieldByName('Person5').Value := trim(Person5.Text);
FieldByName('group1').Value := trim(Person1.hint); FieldByName('group1').Value := trim(Person1.hint);
FieldByName('group2').Value := trim(Person2.hint); FieldByName('group2').Value := trim(Person2.hint);
@ -1322,8 +1324,6 @@ begin
FieldByName('group4').Value := trim(Person4.hint); FieldByName('group4').Value := trim(Person4.hint);
FieldByName('group5').Value := trim(Person5.hint); FieldByName('group5').Value := trim(Person5.hint);
FieldByName('Person4').Value := trim(Person4.Text);
FieldByName('Person5').Value := trim(Person5.Text);
//µ²³µ¹¤³¤¶È //µ²³µ¹¤³¤¶È
FieldByName('JYLen1').Value := StrToFloatdef(trim(JYLen1.Text), 0); FieldByName('JYLen1').Value := StrToFloatdef(trim(JYLen1.Text), 0);
FieldByName('JYLen2').Value := StrToFloatdef(trim(JYLen2.Text), 0); FieldByName('JYLen2').Value := StrToFloatdef(trim(JYLen2.Text), 0);
@ -1470,6 +1470,7 @@ var
fPrintFile: string; fPrintFile: string;
mvalue: Double; mvalue: Double;
i: Integer; i: Integer;
Result: Boolean;
begin begin
BTPrint.Enabled := False; BTPrint.Enabled := False;
Scan.SetFocus; Scan.SetFocus;
@ -1485,6 +1486,9 @@ begin
BTPrint.Enabled := True; BTPrint.Enabled := True;
exit; exit;
end; end;
if FAPID = '' then if FAPID = '' then
begin begin
with ADOCmd do with ADOCmd do
@ -1492,7 +1496,6 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add(' select c_pie,edZDFNo,YJPS=ISNULL((SELECT COUNT(*) FROM JY_Cloth F WHERE F.PCID=E.PCID ),0) from pd_plan_card e where e.pcid= ' + QuotedStr(FPCID)); sql.Add(' select c_pie,edZDFNo,YJPS=ISNULL((SELECT COUNT(*) FROM JY_Cloth F WHERE F.PCID=E.PCID ),0) from pd_plan_card e where e.pcid= ' + QuotedStr(FPCID));
open; open;
end; end;
if ADOCmd.FieldByName('YJPS').AsFloat >= ADOCmd.FieldByName('c_pie').AsFloat then if ADOCmd.FieldByName('YJPS').AsFloat >= ADOCmd.FieldByName('c_pie').AsFloat then
@ -1502,10 +1505,11 @@ begin
BTPrint.Enabled := True; BTPrint.Enabled := True;
Exit; Exit;
end; end;
end; end;
end; end;
if SaveData() then if SaveData() then
begin begin
if StrToFloatDef(kaijian.Text, 0) <> 0 then if StrToFloatDef(kaijian.Text, 0) <> 0 then
@ -2288,41 +2292,71 @@ end;
procedure TfrmGreyInspection.JYLen1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person1.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤1!'); if Trim(person1.Text) = '' then
begin
Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
if Person1.CanFocus then
Person1.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person2.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤2!'); if Trim(person2.Text) = '' then
begin
Application.MessageBox('请先输入挡车工2！', '提示', MB_OK + MB_ICONWARNING);
if Person2.CanFocus then
Person2.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person3.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤3!'); if Trim(person3.Text) = '' then
begin
Application.MessageBox('请先输入挡车工3！', '提示', MB_OK + MB_ICONWARNING);
if Person3.CanFocus then
Person3.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person4.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤4!'); if Trim(person4.Text) = '' then
begin
Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
if Person4.CanFocus then
Person4.SetFocus;
Abort;
end;
end; end;
end; end;
procedure TfrmGreyInspection.JYLen5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmGreyInspection.JYLen5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
if Trim(person5.Text) = '' then if Button = mbLeft then
begin begin
raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤5!'); if Trim(person5.Text) = '' then
begin
Application.MessageBox('请先输入挡车工5！', '提示', MB_OK + MB_ICONWARNING);
if Person5.CanFocus then
Person5.SetFocus;
Abort;
end;
end; end;
end; end;

4
布匹检验(FabricInspection.dll)/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 155 Left = 480
Top = 182 Top = 300
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'

2
布匹检验(FabricInspection.dll)/testDll.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

16
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQInPut.dfm
View File

@ -1,8 +1,8 @@
object frmPBFHSQInPut: TfrmPBFHSQInPut object frmPBFHSQInPut: TfrmPBFHSQInPut
Left = 192 Left = 466
Top = 232 Top = 165
Width = 1075 Width = 1075
Height = 664 Height = 665
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -18,7 +18,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1067 Width = 1059
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -58,7 +58,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1067 Width = 1059
Height = 104 Height = 104
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -349,7 +349,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 133 Top = 133
Width = 1067 Width = 1059
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -389,8 +389,8 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 162 Top = 162
Width = 1067 Width = 1059
Height = 471 Height = 464
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

76
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.dfm
View File

@ -1,6 +1,6 @@
object frmCPFHSQList: TfrmCPFHSQList object frmCPFHSQList: TfrmCPFHSQList
Left = 74 Left = 132
Top = 188 Top = 57
Width = 1308 Width = 1308
Height = 679 Height = 679
Caption = #25104#21697#21457#36135#30003#35831 Caption = #25104#21697#21457#36135#30003#35831
@ -19,10 +19,11 @@ object frmCPFHSQList: TfrmCPFHSQList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1300 Width = 1292
Height = 20
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 18
ButtonWidth = 95 ButtonWidth = 72
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -31,7 +32,6 @@ object frmCPFHSQList: TfrmCPFHSQList
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
Images = DataLink_FinishedClothWarehouse.ThreeImgList
List = True List = True
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -46,7 +46,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBFind: TToolButton object TBFind: TToolButton
Left = 63 Left = 40
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
@ -54,7 +54,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TBFindClick OnClick = TBFindClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 126 Left = 80
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686'('#26126#32454')' Caption = #26032#22686'('#26126#32454')'
@ -63,7 +63,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TBAddClick OnClick = TBAddClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 225 Left = 156
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686'('#27719#24635')' Caption = #26032#22686'('#27719#24635')'
@ -71,7 +71,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 324 Left = 232
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -79,7 +79,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TBEditClick OnClick = TBEditClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 387 Left = 272
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -87,7 +87,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 450 Left = 312
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -95,7 +95,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TBDelClick OnClick = TBDelClick
end end
object tchk: TToolButton object tchk: TToolButton
Left = 513 Left = 352
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -103,7 +103,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = tchkClick OnClick = tchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 576 Left = 392
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -111,7 +111,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TnochkClick OnClick = TnochkClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 663 Left = 456
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24050#23436#25104 Caption = #24050#23436#25104
@ -119,7 +119,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 738 Left = 508
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -127,7 +127,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 825 Left = 572
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -135,7 +135,7 @@ object frmCPFHSQList: TfrmCPFHSQList
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 888 Left = 612
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -145,9 +145,9 @@ object frmCPFHSQList: TfrmCPFHSQList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 97 Top = 85
Width = 1300 Width = 1292
Height = 293 Height = 297
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -251,10 +251,6 @@ object frmCPFHSQList: TfrmCPFHSQList
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.Indicator = True OptionsView.Indicator = True
Styles.Inactive = DataLink_FinishedClothWarehouse.SHuangSe
Styles.IncSearch = DataLink_FinishedClothWarehouse.SHuangSe
Styles.Selection = DataLink_FinishedClothWarehouse.SHuangSe
Styles.Header = DataLink_FinishedClothWarehouse.Default
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
@ -307,7 +303,6 @@ object frmCPFHSQList: TfrmCPFHSQList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Styles.Header = DataLink_FinishedClothWarehouse.Default
Width = 74 Width = 74
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
@ -337,7 +332,6 @@ object frmCPFHSQList: TfrmCPFHSQList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Styles.Header = DataLink_FinishedClothWarehouse.Default
Width = 99 Width = 99
end end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
@ -421,8 +415,8 @@ object frmCPFHSQList: TfrmCPFHSQList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 20
Width = 1300 Width = 1292
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -653,8 +647,8 @@ object frmCPFHSQList: TfrmCPFHSQList
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 75 Top = 63
Width = 1300 Width = 1292
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -668,13 +662,13 @@ object frmCPFHSQList: TfrmCPFHSQList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1300 ClientRectRight = 1292
ClientRectTop = 19 ClientRectTop = 19
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 390 Top = 382
Width = 1300 Width = 1292
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -682,8 +676,8 @@ object frmCPFHSQList: TfrmCPFHSQList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 398 Top = 390
Width = 1300 Width = 1292
Height = 250 Height = 250
Align = alBottom Align = alBottom
TabOrder = 5 TabOrder = 5
@ -745,10 +739,6 @@ object frmCPFHSQList: TfrmCPFHSQList
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_FinishedClothWarehouse.SHuangSe
Styles.IncSearch = DataLink_FinishedClothWarehouse.SHuangSe
Styles.Selection = DataLink_FinishedClothWarehouse.SHuangSe
Styles.Header = DataLink_FinishedClothWarehouse.Default
object v2Column8: TcxGridDBColumn object v2Column8: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'P_Code' DataBinding.FieldName = 'P_Code'
@ -765,7 +755,6 @@ object frmCPFHSQList: TfrmCPFHSQList
Caption = #30003#35831#21305#25968 Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPiQty' DataBinding.FieldName = 'SQPiQty'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_FinishedClothWarehouse.handBlack
Width = 71 Width = 71
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
@ -798,20 +787,17 @@ object frmCPFHSQList: TfrmCPFHSQList
Top = 184 Top = 184
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
Parameters = <> Parameters = <>
Left = 504 Left = 504
Top = 184 Top = 184
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 640 Left = 640
Top = 176 Top = 176
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 704 Left = 704
@ -849,7 +835,6 @@ object frmCPFHSQList: TfrmCPFHSQList
Top = 184 Top = 184
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 280 Left = 280
@ -862,7 +847,6 @@ object frmCPFHSQList: TfrmCPFHSQList
Top = 200 Top = 200
end end
object ADOQuerySub: TADOQuery object ADOQuerySub: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink
Parameters = <> Parameters = <>
Left = 740 Left = 740
Top = 176 Top = 176

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

@ -1,6 +1,6 @@
object frmShuttleClothGYList: TfrmShuttleClothGYList object frmShuttleClothGYList: TfrmShuttleClothGYList
Left = 481 Left = 486
Top = 439 Top = 565
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333
@ -33,7 +33,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1369 Width = 1361
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -117,7 +117,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 504 Left = 504
Top = 3 Top = 0
Width = 145 Width = 145
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -165,7 +165,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1369 Width = 1361
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -318,7 +318,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -330,14 +330,14 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
#24050#21024#38500#25968#25454) #24050#21024#38500#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1369 ClientRectRight = 1361
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView

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

@ -11,7 +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, cxCheckBox; dxBarBuiltInMenu, cxPC, cxCheckBox, 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
TfrmShuttleClothGYList = class(TForm) TfrmShuttleClothGYList = class(TForm)
@ -319,7 +332,8 @@ procedure TfrmShuttleClothGYList.InitForm();
begin begin
InitButton(); InitButton();
ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理'); ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90; //BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
BegDate.DateTime := StrToDate('2024-01-01');
EndDate.DateTime := SGetServerDate10(ADOQueryTemp); EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid(); InitGrid();
end; end;

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

@ -1,6 +1,6 @@
object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
Left = 488 Left = 165
Top = 489 Top = 249
Width = 1377 Width = 1377
Height = 581 Height = 581
Caption = #24037#33402#21333#36873#25321 Caption = #24037#33402#21333#36873#25321
@ -33,7 +33,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1369 Width = 1361
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -87,7 +87,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1369 Width = 1361
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -188,8 +188,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -395,8 +395,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object cxGridDBTableView1: TcxGridDBTableView object cxGridDBTableView1: TcxGridDBTableView
@ -602,8 +602,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object cxGridDBTableView2: TcxGridDBTableView object cxGridDBTableView2: TcxGridDBTableView
@ -809,8 +809,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1369 Width = 1361
Height = 423 Height = 415
Align = alClient Align = alClient
TabOrder = 5 TabOrder = 5
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -982,7 +982,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1369 Width = 1361
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 6 TabOrder = 6
@ -994,7 +994,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
#24050#21024#38500#25968#25454) #24050#21024#38500#25968#25454)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1369 ClientRectRight = 1361
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

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

@ -241,7 +241,7 @@ procedure TfrmShuttleClothGYListSEL.InitForm();
begin begin
ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理'); ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90; BegDate.DateTime := StrToDate('2024-01-01');;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp); EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid(); InitGrid();
TBFind.Click(); TBFind.Click();

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

@ -1,7 +1,7 @@
object frmClothSCInPut: TfrmClothSCInPut object frmClothSCInPut: TfrmClothSCInPut
Left = 329 Left = 193
Top = 86 Top = 149
Width = 1474 Width = 1464
Height = 760 Height = 760
Align = alClient Align = alClient
Caption = #26797#32455#32455#36896#21333#24405#20837 Caption = #26797#32455#32455#36896#21333#24405#20837
@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1466 Width = 1448
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 = 1466 Width = 1448
Height = 416 Height = 416
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -715,6 +715,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 69 Top = 69
Width = 119 Width = 119
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -791,6 +792,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 65 Top = 65
Width = 119 Width = 119
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -820,6 +822,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 90 Left = 90
Top = 68 Top = 68
BeepOnEnter = False BeepOnEnter = False
Enabled = False
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -844,6 +847,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 71 Top = 71
Width = 118 Width = 118
Height = 20 Height = 20
Enabled = False
TabOrder = 2 TabOrder = 2
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -927,6 +931,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 173 Top = 173
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -942,6 +947,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 174 Top = 174
Width = 118 Width = 118
Height = 20 Height = 20
Enabled = False
TabOrder = 18 TabOrder = 18
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -951,6 +957,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 205 Top = 205
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -966,6 +973,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 232 Top = 232
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1034,6 +1042,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 264 Top = 264
Width = 482 Width = 482
Height = 121 Height = 121
Enabled = False
TabOrder = 24 TabOrder = 24
end end
object ZJPiLen: TEdit object ZJPiLen: TEdit
@ -1065,6 +1074,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 232 Top = 232
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1089,6 +1099,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 202 Top = 202
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1114,6 +1125,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Width = 120 Width = 120
Height = 20 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
Enabled = False
TabOrder = 31 TabOrder = 31
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -1123,6 +1135,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 207 Top = 207
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1138,6 +1151,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 234 Top = 234
Width = 121 Width = 121
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1153,6 +1167,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 207 Top = 207
Width = 118 Width = 118
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1168,6 +1183,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Top = 234 Top = 234
Width = 121 Width = 121
Height = 22 Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1273,8 +1289,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 474 Top = 474
Width = 1466 Width = 1448
Height = 255 Height = 247
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1287,8 +1303,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 255 ClientRectBottom = 247
ClientRectRight = 1466 ClientRectRight = 1448
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
@ -1296,8 +1312,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 486 Width = 468
Height = 232 Height = 224
Align = alClient Align = alClient
Caption = #32463#25490#21015 Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1311,9 +1327,10 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 482 Width = 464
Height = 199 Height = 191
Align = alClient Align = alClient
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -1327,7 +1344,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 232 Height = 224
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -1377,6 +1394,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
@ -1387,6 +1405,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Caption = #20811#25968 Caption = #20811#25968
DataBinding.FieldName = 'Y_Qty' DataBinding.FieldName = 'Y_Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 143 Width = 143
@ -1394,18 +1413,39 @@ object frmClothSCInPut: TfrmClothSCInPut
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #25467#24230 Caption = #25467#24230
DataBinding.FieldName = 'Y_Ndu' DataBinding.FieldName = 'Y_Ndu'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #26681#25968 Caption = #26681#25968
DataBinding.FieldName = 'Y_roots' DataBinding.FieldName = 'Y_roots'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Y_Note' DataBinding.FieldName = 'Y_Note'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
Options.Sorting = False Options.Sorting = False
@ -1423,10 +1463,11 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 530 Width = 468
Height = 281 Height = 224
Align = alClient Align = alClient
Caption = #32428#25490#21015 Caption = #32428#25490#21015
Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -29 Font.Height = -29
@ -1438,8 +1479,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 526 Width = 464
Height = 248 Height = 191
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1454,7 +1495,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 281 Height = 224
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
@ -1504,6 +1545,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
@ -1514,24 +1556,52 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn9: TcxGridDBColumn
Caption = #20811#25968 Caption = #20811#25968
DataBinding.FieldName = 'Y_Qty' DataBinding.FieldName = 'Y_Qty'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 143 Width = 143
end end
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #25467#24230 Caption = #25467#24230
DataBinding.FieldName = 'Y_Ndu' DataBinding.FieldName = 'Y_Ndu'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #26681#25968 Caption = #26681#25968
DataBinding.FieldName = 'Y_roots' DataBinding.FieldName = 'Y_roots'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn10: TcxGridDBColumn object cxGridDBColumn10: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Y_Note' DataBinding.FieldName = 'Y_Note'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Moving = False Options.Moving = False
Options.Sorting = False Options.Sorting = False
@ -1549,7 +1619,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1458 Width = 1448
Height = 224 Height = 224
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -2642,8 +2712,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox3: TScrollBox object ScrollBox3: TScrollBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1466 Width = 1448
Height = 232 Height = 224
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
OnMouseWheel = ScrollBox3MouseWheel OnMouseWheel = ScrollBox3MouseWheel
@ -2674,7 +2744,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
Height = 211 Height = 203
Width = 481 Width = 481
end end
object YWBian: TMemo object YWBian: TMemo
@ -2682,7 +2752,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 701 Left = 701
Top = 0 Top = 0
Width = 794 Width = 794
Height = 211 Height = 203
Align = alRight Align = alRight
TabOrder = 1 TabOrder = 1
end end
@ -2692,7 +2762,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 445 Top = 445
Width = 1466 Width = 1448
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59

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

@ -1,6 +1,6 @@
object frmShuttleClothSCList: TfrmShuttleClothSCList object frmShuttleClothSCList: TfrmShuttleClothSCList
Left = 146 Left = 746
Top = 172 Top = 656
Width = 1377 Width = 1377
Height = 579 Height = 579
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333
@ -117,7 +117,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 504 Left = 504
Top = 3 Top = 0
Width = 145 Width = 145
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList

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

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 203 Left = 587
Top = 121 Top = 348
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'