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

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-09 15:54:29 +08:00
parent 9b95b3f0d5
commit d90f625457
2 changed files with 56 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -12,19 +12,19 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue, cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -374,7 +374,7 @@ end;
procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject); procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
WriteCxGrid('¼ìÑ鱨¸æJF', Tv1, '¼ìÑé¹ÜÀí'); WriteCxGrid('检验报告JF', Tv1, '检验管理');
end; end;
procedure TfrmJYOrderCDOne.InitGrid(); procedure TfrmJYOrderCDOne.InitGrid();
@ -409,7 +409,7 @@ begin
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
tbfind.Click; tbfind.Click;
end; end;
@ -2173,7 +2173,7 @@ end;
procedure TfrmJYOrderCDOne.Button13Click(Sender: TObject); procedure TfrmJYOrderCDOne.Button13Click(Sender: TObject);
var var
fPrintFile: string; fPrintFile: string;
Txt, fImagePath: string; Txt, fImagePath, Txt1, fImagePath1: string;
Moudle: THandle; Moudle: THandle;
Makebar: TMakebar; Makebar: TMakebar;
Mixtext: TMixtext; Mixtext: TMixtext;
@ -2246,6 +2246,24 @@ begin
sql.Add('@MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' '); sql.Add('@MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
Open; Open;
end; end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderNo').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJLen').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJStr4').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJXH').AsString);
Txt1 := UTF8Encode(Txt1);
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath1) then
DeleteFile(fImagePath1);
Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
begin begin
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd); ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd);
@ -2271,6 +2289,7 @@ begin
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
RMVariables['QRBARCODE1'] := fImagePath1;
if ComboBox2.Text = 'Ó¢ÎÄ×ֶαêÇ©' then if ComboBox2.Text = 'Ó¢ÎÄ×ֶαêÇ©' then
begin begin
RM2.LoadFromFile(fPrintFile); RM2.LoadFromFile(fPrintFile);

62
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -337,9 +337,9 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
procedure BtnStatus(BSInt: Boolean); procedure BtnStatus(BSInt: Boolean);
procedure AddSLNew(Fbtn: TSpeedButton); procedure AddSLNew(Fbtn: TSpeedButton);
procedure AddCDNew(Fbtn: TSpeedButton); procedure AddCDNew(Fbtn: TSpeedButton);
procedure SavedataCK(); procedure SavedataCK();
procedure PrtData(FMJID: string); procedure PrtData(FMJID: string);
procedure PrtBaoData(FBaoid: string); procedure PrtBaoData(FBaoid: string);
procedure OpenCom(DllName: string); procedure OpenCom(DllName: string);
procedure CloseCom(DllName: string); procedure CloseCom(DllName: string);
@ -1760,7 +1760,7 @@ end;
procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string); procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string);
var var
fPrintFile: string; fPrintFile: string;
Txt, fImagePath: string; Txt, fImagePath, Txt1, fImagePath1: string;
Moudle: THandle; Moudle: THandle;
Makebar: TMakebar; Makebar: TMakebar;
Mixtext: TMixtext; Mixtext: TMixtext;
@ -1808,6 +1808,23 @@ begin
CDS_MJID.EnableControls; CDS_MJID.EnableControls;
exit; exit;
end; end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderNo').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJLen').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJStr4').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJXH').AsString);
Txt1 := UTF8Encode(Txt1);
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath1) then
DeleteFile(fImagePath1);
Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
CDS_MJID.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
begin begin
@ -1831,48 +1848,11 @@ begin
ExportFtErpFile('ͨÓñêÇ©.rmf', ADOCmd); ExportFtErpFile('ͨÓñêÇ©.rmf', ADOCmd);
end; end;
// if FileExists(fPrintFile) then
// begin
// RMVariables['QRBARCODE'] := fImagePath;
// RM2.LoadFromFile(fPrintFile);
//
// RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
// RM2.ShowReport;
// Sleep(1000);
//// RM2.PrintReport;
// if MggCDFalg = '99' then
// begin
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,MainId) values( ');
// sql.Add(' ' + quotedstr(trim(DName)));
// sql.Add(',getdate() ');
// sql.Add(',' + quotedstr(trim(self.Caption)));
// sql.Add(',' + quotedstr(trim('检验重打')));
// sql.Add(',' + quotedstr(trim('卷条码:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ',' + trim(Label24.Caption) + ',' + trim(Label38.Caption) + ',' + trim(Label25.Caption) + ',缸号：' + trim(CDS_MJID.FieldByName('mjstr4').AsString) + ',卷号:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + ',张数:' + trim(ComboBox1.Text))));
// sql.Add(',' + quotedstr(trim('成功')));
// sql.Add(',' + quotedstr(trim(FMainId)));
// sql.Add(')');
// execsql;
// end;
// PlaySound('wav\重打成功.wav', 0, SND_FILENAME or SND_ASYNC);
// end;
// MggCDFalg := '';
// end
// else
// begin
// MggCDFalg := '';
// PlaySound('wav\标签没有找到.wav', 0, SND_FILENAME or SND_ASYNC);
// Application.MessageBox('标签没有找到，请尝试重新登录，有可能标签没有上传', '提示', 0);
// end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
RMVariables['QRBARCODE1'] := fImagePath1;
if Edit5.Text <> '' then if Edit5.Text <> '' then
begin begin
RM3.LoadFromFile(fPrintFile); RM3.LoadFromFile(fPrintFile);