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-28 13:35:40 +08:00
parent ed7824bf47
commit 5527f83e2a
14 changed files with 129 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
布匹检验(FabricInspection.dll)/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 = FinishedClothWarehouse.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr FinishedClothWarehouse.dll: ..\成品仓库(FinishedClothWarehouse.dll)\FinishedClothWarehouse.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\成品仓库(FinishedClothWarehouse.dll)\testDll.dpr
$(DCC) $(DCC)

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

@ -1,6 +1,6 @@
object frmGreyInspection: TfrmGreyInspection object frmGreyInspection: TfrmGreyInspection
Left = 219 Left = 571
Top = 12 Top = 124
Width = 1316 Width = 1316
Height = 753 Height = 753
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 = 629 Height = 637
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 = 629 Height = 637
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 = 514 Height = 522
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 = 1300 Width = 1308
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 = 1298 Width = 1306
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 = 1298 Width = 1306
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 = 787 Width = 795
Height = 629 Height = 637
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView

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

@ -1490,7 +1490,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add(' select c_pie,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;

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\陈丰\成品仓库(FinishedClothWarehouse.dll)\testDll.exe HostApplication=D:\项目代码\D7szChenfeng\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

24
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInspection.dfm
View File

@ -1,6 +1,6 @@
object frmFinishedClothInspection: TfrmFinishedClothInspection object frmFinishedClothInspection: TfrmFinishedClothInspection
Left = 144 Left = 468
Top = 83 Top = 339
Width = 1357 Width = 1357
Height = 721 Height = 721
Caption = #25104#21697#26816#39564#25253#21578 Caption = #25104#21697#26816#39564#25253#21578
@ -84,7 +84,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 351 Left = 351
Top = 1 Top = 1
Width = 39 Width = 98
Height = 27 Height = 27
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -104,7 +104,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
'4') '4')
end end
object tbPrintRCD: TToolButton object tbPrintRCD: TToolButton
Left = 390 Left = 449
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20837#24211 Caption = #20837#24211
@ -112,7 +112,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
OnClick = tbPrintRCDClick OnClick = tbPrintRCDClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 453 Left = 512
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #37325#25171#20179#24211#30721#21333 Caption = #37325#25171#20179#24211#30721#21333
@ -120,7 +120,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object B1: TToolButton object B1: TToolButton
Left = 564 Left = 623
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#30721#26085#24535 Caption = #25171#30721#26085#24535
@ -128,7 +128,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
OnClick = B1Click OnClick = B1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 651 Left = 710
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -136,7 +136,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 738 Left = 797
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -144,7 +144,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 801 Left = 860
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -617,6 +617,12 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
Options.Editing = False Options.Editing = False
Width = 63 Width = 63
end end
object Tv1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #24067#31080#21367#21495 Caption = #24067#31080#21367#21495
DataBinding.FieldName = 'apxh' DataBinding.FieldName = 'apxh'

1
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInspection.pas
View File

@ -119,6 +119,7 @@ type
cxStyle3: TcxStyle; cxStyle3: TcxStyle;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

4
成品仓库(FinishedClothWarehouse.dll)/U_FinishedCloth_ZKCL.dfm
View File

@ -1,6 +1,6 @@
object frmFinishedCloth_ZKCL: TfrmFinishedCloth_ZKCL object frmFinishedCloth_ZKCL: TfrmFinishedCloth_ZKCL
Left = 154 Left = 225
Top = 71 Top = 318
Width = 1357 Width = 1357
Height = 721 Height = 721
Caption = #36724#21345#20135#37327#32479#35745 Caption = #36724#21345#20135#37327#32479#35745

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

@ -1,5 +1,5 @@
[ExpressSkins] [ExpressSkins]
Default=0 Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=0 Enabled=0
dxSkinBlack=1 dxSkinBlack=1

84
梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.dfm
View File

@ -1,6 +1,6 @@
object frmPlanCardList: TfrmPlanCardList object frmPlanCardList: TfrmPlanCardList
Left = 149 Left = 280
Top = 48 Top = 296
Width = 1540 Width = 1540
Height = 764 Height = 764
Caption = #32463#36724#35745#21010 Caption = #32463#36724#35745#21010
@ -19,22 +19,22 @@ object frmPlanCardList: TfrmPlanCardList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1524 Width = 1532
Height = 725 Height = 733
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 680 Width = 680
Height = 723 Height = 731
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 153 Top = 153
Width = 678 Width = 678
Height = 569 Height = 577
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -469,16 +469,16 @@ object frmPlanCardList: TfrmPlanCardList
object Panel4: TPanel object Panel4: TPanel
Left = 937 Left = 937
Top = 1 Top = 1
Width = 586 Width = 594
Height = 723 Height = 731
Align = alClient Align = alClient
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 584 Width = 592
Height = 721 Height = 729
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -664,12 +664,12 @@ object frmPlanCardList: TfrmPlanCardList
Left = 681 Left = 681
Top = 1 Top = 1
Width = 256 Width = 256
Height = 723 Height = 731
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
object Label4: TLabel object Label4: TLabel
Left = 48 Left = 48
Top = 304 Top = 320
Width = 64 Width = 64
Height = 20 Height = 20
Caption = #21305' '#39069 Caption = #21305' '#39069
@ -682,7 +682,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Label8: TLabel object Label8: TLabel
Left = 48 Left = 48
Top = 206 Top = 231
Width = 64 Width = 64
Height = 20 Height = 20
Caption = #22836' '#32441 Caption = #22836' '#32441
@ -695,7 +695,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Label11: TLabel object Label11: TLabel
Left = 48 Left = 48
Top = 255 Top = 279
Width = 64 Width = 64
Height = 20 Height = 20
Caption = #36724' '#38271 Caption = #36724' '#38271
@ -708,7 +708,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Label12: TLabel object Label12: TLabel
Left = 48 Left = 48
Top = 391 Top = 399
Width = 64 Width = 64
Height = 20 Height = 20
Caption = #19978' '#25490 Caption = #19978' '#25490
@ -721,7 +721,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Label13: TLabel object Label13: TLabel
Left = 48 Left = 48
Top = 159 Top = 185
Width = 64 Width = 64
Height = 20 Height = 20
Caption = #21345' '#21495 Caption = #21345' '#21495
@ -734,7 +734,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Label21: TLabel object Label21: TLabel
Left = 48 Left = 48
Top = 349 Top = 360
Width = 64 Width = 64
Height = 20 Height = 20
Caption = #21305' '#38271 Caption = #21305' '#38271
@ -760,7 +760,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Label3: TLabel object Label3: TLabel
Left = 49 Left = 49
Top = 113 Top = 142
Width = 63 Width = 63
Height = 20 Height = 20
Caption = #25190#32463#24037 Caption = #25190#32463#24037
@ -784,10 +784,23 @@ object frmPlanCardList: TfrmPlanCardList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label14: TLabel
Left = 47
Top = 55
Width = 64
Height = 20
Caption = #25209' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object edtPiE: TEdit object edtPiE: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 301 Top = 317
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -803,7 +816,7 @@ object frmPlanCardList: TfrmPlanCardList
object edtTouWen: TEdit object edtTouWen: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 205 Top = 230
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -818,7 +831,7 @@ object frmPlanCardList: TfrmPlanCardList
object edtLen: TEdit object edtLen: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 253 Top = 277
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -833,7 +846,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Button3: TButton object Button3: TButton
Left = 79 Left = 79
Top = 524 Top = 525
Width = 100 Width = 100
Height = 50 Height = 50
Caption = #37325#25171 Caption = #37325#25171
@ -849,7 +862,7 @@ object frmPlanCardList: TfrmPlanCardList
object APMachineNo: TEdit object APMachineNo: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 62 Top = 97
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -864,7 +877,7 @@ object frmPlanCardList: TfrmPlanCardList
end end
object Button4: TButton object Button4: TButton
Left = 25 Left = 25
Top = 61 Top = 92
Width = 87 Width = 87
Height = 34 Height = 34
Caption = #25972#32463#26426#21495 Caption = #25972#32463#26426#21495
@ -895,7 +908,7 @@ object frmPlanCardList: TfrmPlanCardList
object edtShangP: TEdit object edtShangP: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 388 Top = 396
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -910,7 +923,7 @@ object frmPlanCardList: TfrmPlanCardList
object edtKaNo: TEdit object edtKaNo: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 157 Top = 183
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -955,7 +968,7 @@ object frmPlanCardList: TfrmPlanCardList
object ZJPiLen: TEdit object ZJPiLen: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 348 Top = 359
Width = 100 Width = 100
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -987,7 +1000,7 @@ object frmPlanCardList: TfrmPlanCardList
object edtQJingG: TEdit object edtQJingG: TEdit
Tag = 2 Tag = 2
Left = 121 Left = 121
Top = 109 Top = 138
Width = 100 Width = 100
Height = 24 Height = 24
Hint = 'edtQJingG/'#25190#32463#24037 Hint = 'edtQJingG/'#25190#32463#24037
@ -1018,6 +1031,21 @@ object frmPlanCardList: TfrmPlanCardList
OnClick = jcfactorynameClick OnClick = jcfactorynameClick
OnKeyPress = P_Code1KeyPress OnKeyPress = P_Code1KeyPress
end end
object edZDFNo: TEdit
Tag = 2
Left = 120
Top = 54
Width = 100
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 15
OnKeyPress = P_Code1KeyPress
end
end end
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

28
梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.pas
View File

@ -11,19 +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, cxCheckBox, cxPC, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxContainer, cxMaskEdit, Math, dxSkinsCore, dxSkinsDefaultPainters, cxContainer, cxMaskEdit, Math;
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
TfrmPlanCardList = class(TForm) TfrmPlanCardList = class(TForm)
@ -153,6 +141,8 @@ type
conno: TEdit; conno: TEdit;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn; TV2Column6: TcxGridDBColumn;
Label14: TLabel;
edZDFNo: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -312,7 +302,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select D.*,A.*,B.*,d.filltime as filltime2 '); sql.Add('select D.*,A.*,B.*,d.filltime as filltime2');
sql.Add(',P_Code2=(STUFF(( SELECT '','' +convert(VARCHAR, P_Code) FROM PD_Plan_sub e '); sql.Add(',P_Code2=(STUFF(( SELECT '','' +convert(VARCHAR, P_Code) FROM PD_Plan_sub e ');
sql.Add('inner join PD_Plan_Card_MS f on e.Subid=f.Subid and f.PCID=' + quotedstr(MPCid)); sql.Add('inner join PD_Plan_Card_MS f on e.Subid=f.Subid and f.PCID=' + quotedstr(MPCid));
sql.Add('FOR XML PATH('''')), 1, 1, '''') )'); sql.Add('FOR XML PATH('''')), 1, 1, '''') )');
@ -321,7 +311,7 @@ begin
sql.Add(' inner join PD_Plan_Card_MS C on C.Subid=B.Subid '); sql.Add(' inner join PD_Plan_Card_MS C on C.Subid=B.Subid ');
sql.Add(' inner join PD_Plan_Card D on C.PCID=D.PCID '); sql.Add(' inner join PD_Plan_Card D on C.PCID=D.PCID ');
sql.Add(' where D.PCID=' + quotedstr(MPCid)); sql.Add(' where D.PCID=' + quotedstr(MPCid));
// ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
Open; Open;
end; end;
//+CONVERT(varchar(5),D.FILLTIME,101) //+CONVERT(varchar(5),D.FILLTIME,101)
@ -439,6 +429,7 @@ begin
FieldByName('C_ShangPai').Value := Trim(edtShangP.Text); FieldByName('C_ShangPai').Value := Trim(edtShangP.Text);
FieldByName('APMachineNo').Value := Trim(APMachineNo.Text); FieldByName('APMachineNo').Value := Trim(APMachineNo.Text);
FieldByName('edtKaNo').Value := Trim(edtKaNo.Text); FieldByName('edtKaNo').Value := Trim(edtKaNo.Text);
FieldByName('edZDFNo').Value := Trim(edZDFNo.Text);
FieldByName('jcfactoryname').Value := Trim(jcfactoryname.Text); FieldByName('jcfactoryname').Value := Trim(jcfactoryname.Text);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
@ -1020,7 +1011,7 @@ begin
ZJPiLen.Text := Trim(ADOQueryCmd.fieldbyname('ZJPiLen').AsString); ZJPiLen.Text := Trim(ADOQueryCmd.fieldbyname('ZJPiLen').AsString);
edtTouWen.Text := Trim(ADOQueryCmd.fieldbyname('C_TouWen').AsString); edtTouWen.Text := Trim(ADOQueryCmd.fieldbyname('C_TouWen').AsString);
jcfactoryname.Text := Trim(ADOQueryCmd.fieldbyname('jcfactoryname').AsString); jcfactoryname.Text := Trim(ADOQueryCmd.fieldbyname('jcfactoryname').AsString);
edZDFNo.Text := trim(ADOQueryCmd.fieldbyname('edZDFNo').AsString);
end; end;
Next; Next;
end; end;
@ -1082,6 +1073,9 @@ begin
sql.Add(' ,Editer=' + quotedstr(Trim(DName))); sql.Add(' ,Editer=' + quotedstr(Trim(DName)));
sql.Add(' ,Edittime=GETDATE()'); sql.Add(' ,Edittime=GETDATE()');
sql.Add(' ,edZDFNo=' + quotedstr(Trim(edZDFNo.Text)));
sql.Add(' where PCid=' + quotedstr(Trim(FFPCId))); sql.Add(' where PCid=' + quotedstr(Trim(FFPCId)));
ExecSQL; ExecSQL;
end; end;
@ -1104,7 +1098,7 @@ begin
APMachineNo.Text := ''; APMachineNo.Text := '';
edtKaNo.Text := ''; edtKaNo.Text := '';
edtTouWen.Text := ''; edtTouWen.Text := '';
edZDFNo.Text := '';
edtPiE.Text := ''; edtPiE.Text := '';
edtLen.Text := ''; edtLen.Text := '';
edtShangP.Text := ''; edtShangP.Text := '';

23
经轴仓库(Warehouse.dll)/U_GetDllForm.pas
View File

@ -62,21 +62,22 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
server := '101.132.143.144,7781'; if Trim(DataBaseStr) = '' then
dtbase := 'chenfengdata'; begin
user := 'rtsa'; server := '101.132.143.144,7781';
pswd := 'rightsoft@5740'; dtbase := 'chenfengdata';
user := 'rtsa';
pswd := 'rightsoft@5740';
// server := '.'; // server := '.';
// dtbase := 'yiduidata'; // dtbase := 'yiduidata';
// user := 'sa'; // user := 'sa';
// pswd := 'rightsoft'; // 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; end
DConString := DataBaseStr; else
// DName:='周高祥'; begin
//DParameters1:='高权限'; DConString := DataBaseStr;
//DParameters3:='1'; end;
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;

18
经轴仓库(Warehouse.dll)/U_WarpRollerCklist.dfm
View File

@ -1,6 +1,6 @@
object frmWarpRollerCklist: TfrmWarpRollerCklist object frmWarpRollerCklist: TfrmWarpRollerCklist
Left = 234 Left = 430
Top = 66 Top = 298
Width = 1378 Width = 1378
Height = 615 Height = 615
Caption = #32463#36724#20986#24211#31649#29702 Caption = #32463#36724#20986#24211#31649#29702
@ -20,7 +20,7 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1362 Width = 1370
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -92,7 +92,7 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1362 Width = 1370
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -294,8 +294,8 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1362 Width = 1370
Height = 479 Height = 487
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBtnShadow Font.Color = clBtnShadow
@ -460,6 +460,12 @@ object frmWarpRollerCklist: TfrmWarpRollerCklist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object Tv1Column14: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

5
经轴仓库(Warehouse.dll)/U_WarpRollerCklist.pas
View File

@ -101,6 +101,7 @@ type
P_CODE: TEdit; P_CODE: TEdit;
edtKaNo: TEdit; edtKaNo: TEdit;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
@ -149,7 +150,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add(' select A.* ,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo '); sql.Add(' select A.* ,edtKaNo,C_TouWen,ZJPiLen,C_ShangPai,C_PiE,C_Len,APMachineNo ,edZDFNo ');
SQL.ADD(',CarNo2=(SELECT MACHNO FROM BS_Machine k where k.machid= (SELECT top 1 CARNO FROM CK_YgCl E WHERE E.MJID=A.PCID ANd CLTYPE=''ÉÏÖá''))'); SQL.ADD(',CarNo2=(SELECT MACHNO FROM BS_Machine k where k.machid= (SELECT top 1 CARNO FROM CK_YgCl E WHERE E.MJID=A.PCID ANd CLTYPE=''ÉÏÖá''))');
SQL.Add(',P_CODE=(select TOP 1 P_CODE from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))'); SQL.Add(',P_CODE=(select TOP 1 P_CODE from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');
SQL.Add(',P_codeNAME=(select TOP 1 P_codeNAME from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))'); SQL.Add(',P_codeNAME=(select TOP 1 P_codeNAME from PD_Plan_SUB e where e.SUBID=(select TOP 1 SUBID from PD_Plan_Card_MS f where f.pcid=A.pcid))');
@ -158,7 +159,7 @@ begin
SQL.Add(' and A.CRTime>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)))); SQL.Add(' and A.CRTime>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
SQL.Add(' and A.CRTime<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)))); SQL.Add(' and A.CRTime<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1))));
SQL.Add(' and A.Valid =''Y'' '); SQL.Add(' and A.Valid =''Y'' ');
// ShowMessage(SQL.Text);
open; open;
end; end;
SCreateCDS20(adoqueryMain, CDS_Main); SCreateCDS20(adoqueryMain, CDS_Main);

2
经轴仓库(Warehouse.dll)/Warehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\³Â·á\¾­Öá²Ö¿â(Warehouse.dll)\testDll.exe HostApplication=D:\ÏîÄ¿´úÂë\D7szChenfeng\¾­Öá²Ö¿â(Warehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=