Group_01/D7DJmiqi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

包id最后变成四位数

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-31 10:21:41 +08:00
parent fd9c6afe15
commit a162b13aff
4 changed files with 35 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\米奇\检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJmiqi\检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

16
检验管理/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
var
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}

2
检验管理/U_GetDllForm.pas
View File

@ -1,6 +1,6 @@
unit U_GetDllForm;
interface
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, inifiles,

22
检验管理/U_MJManageNewFDNew.pas
View File

@ -10,7 +10,21 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI;
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
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
TfrmMJManageNewFDNewSF = class(TForm)
@ -2558,7 +2572,7 @@ begin
fmsws := Trim(ADOTmp.fieldbyname('msws').AsString);
fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then
begin
Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit;
@ -2918,7 +2932,7 @@ begin
open;
end;
baoNo.Text := inttostr(ADOTmp.fieldbyname('maxbaoNO').AsInteger + 1);
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then
begin
Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit;
@ -3053,7 +3067,7 @@ begin
if ADOTmp.IsEmpty then
begin
application.MessageBox('此包号不存在！', '提示信息', 0);
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then
begin
Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit;