Group_99/D7myGuhang
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-27 11:03:17 +08:00
parent 2bbfa3a7f0
commit 229e1459ca
10 changed files with 223 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=E:\项目资料\06_贸易公司\谷航\D7myGuhang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe HostApplication=D:\项目代码\D7myGuhang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

66
成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm
View File

@ -1,6 +1,6 @@
object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
Left = 166 Left = 362
Top = 101 Top = 374
Width = 1347 Width = 1347
Height = 659 Height = 659
Caption = #22269#20869#25104#21697#20986#24211#21015#34920 Caption = #22269#20869#25104#21697#20986#24211#21015#34920
@ -20,7 +20,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1331 Width = 1339
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -137,7 +137,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1331 Width = 1339
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -231,6 +231,22 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
Hint = '1' Hint = '1'
Caption = #32568' '#21495 Caption = #32568' '#21495
end end
object Label11: TLabel
Left = 1040
Top = 12
Width = 48
Height = 12
Hint = '1'
Caption = #31859#25968#33539#22260
end
object Label12: TLabel
Left = 1052
Top = 39
Width = 30
Height = 12
Hint = '1'
Caption = #31859' '#25968
end
object begtime: TDateTimePicker object begtime: TDateTimePicker
Left = 45 Left = 45
Top = 100 Top = 100
@ -395,6 +411,26 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
TabOrder = 14 TabOrder = 14
OnKeyPress = orderNoKeyPress OnKeyPress = orderNoKeyPress
end end
object msfw: TEdit
Tag = 2
Left = 1094
Top = 9
Width = 90
Height = 20
Hint = '1'
TabOrder = 15
OnKeyPress = orderNoKeyPress
end
object KCQty: TEdit
Tag = 2
Left = 1094
Top = 36
Width = 90
Height = 20
Hint = '1'
TabOrder = 16
OnKeyPress = orderNoKeyPress
end
end end
object MovePanel2: TMovePanel object MovePanel2: TMovePanel
Left = 472 Left = 472
@ -416,7 +452,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1331 Width = 1339
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -457,7 +493,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object Panel6: TPanel object Panel6: TPanel
Left = 205 Left = 205
Top = 0 Top = 0
Width = 1126 Width = 1134
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -465,7 +501,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
1122 1130
26) 26)
object Label1: TLabel object Label1: TLabel
Left = 64 Left = 64
@ -558,8 +594,8 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 131 Top = 131
Width = 1331 Width = 1339
Height = 489 Height = 497
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -807,7 +843,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
TabOrder = 3 TabOrder = 3
OnClick = Button8Click OnClick = Button8Click
end end
object msfw: TEdit object edit3: TEdit
Left = 63 Left = 63
Top = 65 Top = 65
Width = 120 Width = 120
@ -820,23 +856,23 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
CommandTimeout = 600 CommandTimeout = 600
Parameters = <> Parameters = <>
Left = 1124 Left = 1100
Top = 64 Top = 240
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 1148 Left = 1148
Top = 40 Top = 232
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
CommandTimeout = 6000 CommandTimeout = 6000
Parameters = <> Parameters = <>
Left = 1188 Left = 1196
Top = 40 Top = 232
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = CDS_Main DataSet = CDS_Main

121
成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas
View File

@ -12,20 +12,7 @@ uses
cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math, RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math,
Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxPC, cxContainer, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, dxSkinsCore, cxPC, cxContainer, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxCurrencyEdit;
dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCurrencyEdit, 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
TfrmCKGNProductBCPOutList = class(TForm) TfrmCKGNProductBCPOutList = class(TForm)
@ -127,8 +114,12 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Label13: TLabel; Label13: TLabel;
Button8: TButton; Button8: TButton;
msfw: TEdit; edit3: TEdit;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Label11: TLabel;
msfw: TEdit;
Label12: TLabel;
KCQty: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -325,45 +316,81 @@ begin
//ShowMessage(SQL.Text); //ShowMessage(SQL.Text);
end; end;
1: /////////////////////////Ã÷ϸ////////////////////////////// 1: /////////////////////////Ã÷ϸ//////////////////////////////
// begin
// sql.Add(' select top ' + IntToStr(RecordsNumber) + ' * from ');
// sql.Add('(select row_number() over(order by AA.filltime desc) as rownumber');
// sql.Add(',COUNT(1) OVER() AS TotalCount');
// sql.Add(',* from (select A.*,B.SPName,B.SPMF,SPKZ,SPCOLOR ,kcqty=(select kcqty from CK_BanCP_KC F WHERE F.MJID=A.MJID) ');
// SQL.Add(',ISDY=cast((CASE WHEN A.PrintCount>0 THEN 1 ELSE 0 END )as bit),kongjia=(select kongjia from WFB_MJJY g where g.mjid=a.mjid)');
// sql.Add(' ,kckgqty=(select kckgqty from CK_BanCP_KC F WHERE F.MJID=A.MJID) from CK_BanCP_CR A inner join CK_SXPB_CR B ON A.APID=B.SPID ');
//
// sql.Add(' where A.CRFlag=''出库'' AND isnull(ctype,'''')=''国内'' ');
//
// if Self.Caption = '拆匹出库管理' then
// begin
// sql.Add(' AND A.crtype in (''拆匹出库'',''国外拆匹出库'')');
// end
// else
// begin
// sql.Add(' AND A.crtype <>''拆匹出库'' and A.crtype<>''国外拆匹出库''');
// end;
//
// if IsJYTime.Checked then
// begin
// sql.Add(' and A.CRTime>' + quotedstr(BegDate.Text));
// sql.Add(' and A.CRTime<=' + quotedstr(endDate.Text));
// end;
// sql.Add(fwhere);
// sql.Add(' ) AA');
// if ComboBox2.Text = '已打印' then
// begin
// sql.Add('where ISDY=1');
// end;
// if ComboBox2.Text = '未打印' then
// begin
// sql.Add('where ISDY=0');
// end;
// sql.Add(') temp_row');
// sql.Add(' where rownumber> ' + IntToStr((CurrentPage - 1) * RecordsNumber));
// end;
begin begin
sql.Add(' select top ' + IntToStr(RecordsNumber) + ' * from '); begin
sql.Add('(select row_number() over(order by AA.filltime desc) as rownumber'); sql.Add('SELECT * FROM (');
sql.Add(',COUNT(1) OVER() AS TotalCount'); sql.Add(' SELECT ROW_NUMBER() OVER(ORDER BY A.filltime DESC) as rownumber, COUNT(1) OVER() AS TotalCount,');
sql.Add(',* from (select A.*,B.SPName,B.SPMF,SPKZ,SPCOLOR ,kcqty=(select kcqty from CK_BanCP_KC F WHERE F.MJID=A.MJID) '); sql.Add(' A.*, B.SPName, B.SPMF, B.SPKZ, B.SPCOLOR, F.kcqty,');
SQL.Add(',ISDY=cast((CASE WHEN A.PrintCount>0 THEN 1 ELSE 0 END )as bit),kongjia=(select kongjia from WFB_MJJY g where g.mjid=a.mjid)'); sql.Add(' ISDY = CAST((CASE WHEN A.PrintCount > 0 THEN 1 ELSE 0 END) as bit), G.kongjia, F.kckgqty');
sql.Add(' ,kckgqty=(select kckgqty from CK_BanCP_KC F WHERE F.MJID=A.MJID) from CK_BanCP_CR A inner join CK_SXPB_CR B ON A.APID=B.SPID '); sql.Add(' FROM CK_BanCP_CR A');
sql.Add(' INNER JOIN CK_SXPB_CR B ON A.APID = B.SPID');
sql.Add(' where A.CRFlag=''出库'' AND isnull(ctype,'''')=''国内'' '); sql.Add(' LEFT JOIN CK_BanCP_KC F ON F.MJID = A.MJID');
sql.Add(' LEFT JOIN WFB_MJJY G ON G.mjid = A.mjid');
sql.Add(' WHERE A.CRFlag = ''出库'' AND ISNULL(A.ctype, '''') = ''国内''');
if Self.Caption = '²ðÆ¥³ö¿â¹ÜÀí' then if Self.Caption = '²ðÆ¥³ö¿â¹ÜÀí' then
begin sql.Add(' AND A.crtype IN (''拆匹出库'', ''国外拆匹出库'')')
sql.Add(' AND A.crtype in (''拆匹出库'',''国外拆匹出库'')');
end
else else
begin sql.Add(' AND A.crtype NOT IN (''拆匹出库'', ''国外拆匹出库'')');
sql.Add(' AND A.crtype <>''拆匹出库'' and A.crtype<>''国外拆匹出库''');
end;
if IsJYTime.Checked then if IsJYTime.Checked then
begin begin
sql.Add(' and A.CRTime>' + quotedstr(BegDate.Text)); sql.Add(' AND A.CRTime > ' + QuotedStr(BegDate.Text));
sql.Add(' and A.CRTime<=' + quotedstr(endDate.Text)); sql.Add(' AND A.CRTime <= ' + QuotedStr(EndDate.Text));
end;
sql.Add(fwhere);
sql.Add(' ) AA');
if ComboBox2.Text = '已打印' then
begin
sql.Add('where ISDY=1');
end;
if ComboBox2.Text = '未打印' then
begin
sql.Add('where ISDY=0');
end;
sql.Add(') temp_row');
sql.Add(' where rownumber> ' + IntToStr((CurrentPage - 1) * RecordsNumber));
end;
end; end;
sql.Add(fwhere);
if ComboBox2.Text = '已打印' then
sql.Add(' AND A.PrintCount > 0')
else if ComboBox2.Text = '未打印' then
sql.Add(' AND (A.PrintCount = 0 OR A.PrintCount IS NULL)');
sql.Add(') AS temp_row');
sql.Add('WHERE rownumber > ' + IntToStr((CurrentPage - 1) * RecordsNumber));
// sql.Add(' AND rownumber <= ' + IntToStr(CurrentPage * RecordsNumber));
// sql.Add('ORDER BY rownumber');
end;
end;
end;
//ShowMessage(SQL.text);
Open; Open;
end; end;
// with ADOQueryMain do // with ADOQueryMain do
@ -1098,7 +1125,6 @@ begin
Close; Close;
sql.Clear; sql.Clear;
// sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) '); // sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) ');
// sql.Add('Update WFB_MJJY Set mjlen=''' + trim(cxCurrencyEdit1.Text) + ''' '); // sql.Add('Update WFB_MJJY Set mjlen=''' + trim(cxCurrencyEdit1.Text) + ''' ');
// sql.Add('where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + ''''); // sql.Add('where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update CK_BanCP_CR Set QTY=''' + trim(cxCurrencyEdit1.Text) + ''' '); sql.Add('Update CK_BanCP_CR Set QTY=''' + trim(cxCurrencyEdit1.Text) + ''' ');
@ -1262,10 +1288,9 @@ begin
Close; Close;
sql.Clear; sql.Clear;
// sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) '); // sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) ');
// sql.Add('Update WFB_MJJY Set mjlen=''' + trim(cxCurrencyEdit1.Text) + ''' '); // sql.Add('Update WFB_MJJY Set mjlen=''' + trim(cxCurrencyEdit1.Text) + ''' ');
// sql.Add('where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + ''''); // sql.Add('where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update CK_BanCP_CR Set msfw=''' + trim(msfw.Text) + ''' '); sql.Add('Update CK_BanCP_CR Set msfw=''' + trim(edit3.Text) + ''' ');
sql.Add('where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');

12
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm
View File

@ -20,7 +20,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1212 Width = 1220
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -128,7 +128,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1212 Width = 1220
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -394,8 +394,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 129 Top = 129
Width = 1212 Width = 1220
Height = 470 Height = 478
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -612,14 +612,14 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1212 Width = 1220
Height = 28 Height = 28
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
DesignSize = ( DesignSize = (
1208 1216
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25

14
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas
View File

@ -12,19 +12,7 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, dxCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, dxCore,
cxDateUtils, cxTextEdit, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters, cxDateUtils, cxTextEdit, cxMaskEdit;
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
TfrmCKProductBCPInList = class(TForm) TfrmCKProductBCPInList = class(TForm)

2
染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\¹Èº½2\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe HostApplication=D:\ÏîÄ¿´úÂë\D7myGuhang\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

6
染整计划(DyeingFinishingPlan.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)

11
染整计划(DyeingFinishingPlan.dll)/U_GetDllForm.pas
View File

@ -72,6 +72,8 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then
begin
server := '139.224.59.117,7781'; server := '139.224.59.117,7781';
// server := '.'; // server := '.';
dtbase := 'guhangdata'; dtbase := 'guhangdata';
@ -79,9 +81,14 @@ begin
pswd := 'rightsoft@8758'; pswd := 'rightsoft@8758';
// 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;
DConString := DataBaseStr;
// DName:='XYB'; // DName:='周高祥';
// DParameters1:='¸ßȨÏÞ'; // DParameters1:='¸ßȨÏÞ';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;

74
染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDList: TfrmJYOrderCDList object frmJYOrderCDList: TfrmJYOrderCDList
Left = 161 Left = 389
Top = 69 Top = 456
Width = 1357 Width = 1357
Height = 727 Height = 727
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -34,7 +34,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1341 Width = 1349
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -148,7 +148,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1341 Width = 1349
Height = 63 Height = 63
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -279,7 +279,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 942 Left = 1094
Top = 28 Top = 28
Width = 68 Width = 68
Height = 16 Height = 16
@ -305,6 +305,34 @@ object frmJYOrderCDList: TfrmJYOrderCDList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label14: TLabel
Left = 924
Top = 12
Width = 52
Height = 12
Hint = '1'
Caption = #31859#25968#33539#22260
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 934
Top = 36
Width = 33
Height = 12
Hint = '1'
Caption = #31859' '#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 81 Left = 81
Top = 8 Top = 8
@ -430,7 +458,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
OnKeyPress = KHConNOKeyPress OnKeyPress = KHConNOKeyPress
end end
object ComboBox2: TComboBox object ComboBox2: TComboBox
Left = 1012 Left = 1164
Top = 25 Top = 25
Width = 106 Width = 106
Height = 24 Height = 24
@ -466,12 +494,32 @@ object frmJYOrderCDList: TfrmJYOrderCDList
TabOrder = 13 TabOrder = 13
OnKeyPress = conNOKeyPress OnKeyPress = conNOKeyPress
end end
object msfw: TEdit
Tag = 2
Left = 979
Top = 8
Width = 100
Height = 20
Hint = '1'
TabOrder = 14
OnKeyPress = conNOKeyPress
end
object kcqty: TEdit
Tag = 2
Left = 979
Top = 32
Width = 100
Height = 20
Hint = '1'
TabOrder = 15
OnKeyPress = conNOKeyPress
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 148 Top = 148
Width = 1341 Width = 1349
Height = 540 Height = 548
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -850,7 +898,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
TabOrder = 3 TabOrder = 3
OnClick = Button8Click OnClick = Button8Click
end end
object msfw: TEdit object edit3: TEdit
Left = 55 Left = 55
Top = 65 Top = 65
Width = 122 Width = 122
@ -909,7 +957,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1341 Width = 1349
Height = 28 Height = 28
Align = alTop Align = alTop
AutoSize = True AutoSize = True
@ -917,7 +965,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
DesignSize = ( DesignSize = (
1337 1345
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25
@ -1010,7 +1058,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 123 Top = 123
Width = 1341 Width = 1349
Height = 25 Height = 25
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1028,7 +1076,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
#22269#20869#26126#32454#24211#23384) #22269#20869#26126#32454#24211#23384)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 27 ClientRectBottom = 27
ClientRectRight = 1341 ClientRectRight = 1349
ClientRectTop = 27 ClientRectTop = 27
end end
object Panel3: TPanel object Panel3: TPanel

14
染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas
View File

@ -152,8 +152,12 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Label13: TLabel; Label13: TLabel;
Button8: TButton; Button8: TButton;
msfw: TEdit; edit3: TEdit;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Label14: TLabel;
msfw: TEdit;
Label16: TLabel;
kcqty: TEdit;
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);
@ -1480,7 +1484,7 @@ begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
end; end;
if msfw.Text = '' then if edit3.Text = '' then
Exit; Exit;
try try
Order_Main.DisableControls; Order_Main.DisableControls;
@ -1498,9 +1502,9 @@ begin
sql.Clear; sql.Clear;
// sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) '); // sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) ');
sql.Add('Update WFB_MJJY Set msfw=''' + trim(msfw.Text) + ''' '); sql.Add('Update WFB_MJJY Set msfw=''' + trim(edit3.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update CK_BanCP_CR Set msfw=''' + trim(msfw.Text) + ''' '); sql.Add('Update CK_BanCP_CR Set msfw=''' + trim(edit3.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
@ -1508,7 +1512,7 @@ begin
sql.Add(',getdate() '); sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption))); sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('修改米数范围'))); sql.Add(',' + quotedstr(trim('修改米数范围')));
sql.Add(',' + quotedstr(trim('条码号：' + trim(Order_Main.fieldbyname('MJID').AsString) + ' 改为:' + trim(msfw.Text)))); sql.Add(',' + quotedstr(trim('条码号：' + trim(Order_Main.fieldbyname('MJID').AsString) + ' 改为:' + trim(edit3.Text))));
sql.Add(',' + quotedstr(trim('成功'))); sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')'); sql.Add(')');
ExecSQL; ExecSQL;