`
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
b8f1f778f8
commit
f408dc207b
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\陈亿项目代码\项目代码\众连\打卷检验管理\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\项目代码\D7DJzhonglian\打卷检验管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
50
打卷检验管理/TradeManage.skincfg
Normal file
50
打卷检验管理/TradeManage.skincfg
Normal file
|
|
@ -0,0 +1,50 @@
|
|||
[ExpressSkins]
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinBlack=1
|
||||
dxSkinBlue=1
|
||||
dxSkinBlueprint=1
|
||||
dxSkinCaramel=1
|
||||
dxSkinCoffee=1
|
||||
dxSkinDarkRoom=1
|
||||
dxSkinDarkSide=1
|
||||
dxSkinDevExpressDarkStyle=1
|
||||
dxSkinDevExpressStyle=1
|
||||
dxSkinFoggy=1
|
||||
dxSkinGlassOceans=1
|
||||
dxSkinHighContrast=1
|
||||
dxSkiniMaginary=1
|
||||
dxSkinLilian=1
|
||||
dxSkinLiquidSky=1
|
||||
dxSkinLondonLiquidSky=1
|
||||
dxSkinMcSkin=1
|
||||
dxSkinMetropolis=1
|
||||
dxSkinMetropolisDark=1
|
||||
dxSkinMoneyTwins=1
|
||||
dxSkinOffice2007Black=1
|
||||
dxSkinOffice2007Blue=1
|
||||
dxSkinOffice2007Green=1
|
||||
dxSkinOffice2007Pink=1
|
||||
dxSkinOffice2007Silver=1
|
||||
dxSkinOffice2010Black=1
|
||||
dxSkinOffice2010Blue=1
|
||||
dxSkinOffice2010Silver=1
|
||||
dxSkinOffice2013DarkGray=1
|
||||
dxSkinOffice2013LightGray=1
|
||||
dxSkinOffice2013White=1
|
||||
dxSkinPumpkin=1
|
||||
dxSkinSeven=1
|
||||
dxSkinSevenClassic=1
|
||||
dxSkinSharp=1
|
||||
dxSkinSharpPlus=1
|
||||
dxSkinSilver=1
|
||||
dxSkinSpringTime=1
|
||||
dxSkinStardust=1
|
||||
dxSkinSummer2008=1
|
||||
dxSkinTheAsphaltWorld=1
|
||||
dxSkinsDefaultPainters=1
|
||||
dxSkinValentine=1
|
||||
dxSkinVS2010=1
|
||||
dxSkinWhiteprint=1
|
||||
dxSkinXmas2008Blue=1
|
||||
|
|
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1384
|
||||
Height = 62
|
||||
Height = 92
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 119
|
||||
|
|
@ -101,27 +101,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Top = 0
|
||||
Caption = #25209#37327#20462#25913#32568#21495
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = ToolButton11Click
|
||||
end
|
||||
object TBDW: TToolButton
|
||||
Left = 608
|
||||
Top = 0
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20462#25913#25968#37327#21333#20301
|
||||
ImageIndex = 54
|
||||
OnClick = TBDWClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 719
|
||||
Top = 0
|
||||
Left = 111
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#31859#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton13: TToolButton
|
||||
Left = 830
|
||||
Top = 0
|
||||
Left = 222
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20928#37325#36716#38271#24230
|
||||
ImageIndex = 54
|
||||
|
|
@ -129,16 +130,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 953
|
||||
Top = 0
|
||||
Left = 345
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#30382#37325
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Left = 456
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26631#31614
|
||||
|
|
@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TCPDB: TToolButton
|
||||
Left = 87
|
||||
Left = 543
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25104#21697#25171#21253
|
||||
|
|
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TCPDBClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 174
|
||||
Left = 630
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#21253#26631#31614
|
||||
|
|
@ -163,24 +163,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 273
|
||||
Left = 729
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26816#39564#25253#21578
|
||||
ImageIndex = 12
|
||||
Wrap = True
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 384
|
||||
Top = 30
|
||||
Left = 0
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 447
|
||||
Top = 30
|
||||
Left = 63
|
||||
Top = 60
|
||||
Width = 68
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -194,8 +195,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnKeyPress = Edit3KeyPress
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 515
|
||||
Top = 33
|
||||
Left = 131
|
||||
Top = 63
|
||||
Width = 149
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
|
|
@ -219,8 +220,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
#26816#39564#30721#21333)
|
||||
end
|
||||
object Edit4: TEdit
|
||||
Left = 664
|
||||
Top = 30
|
||||
Left = 280
|
||||
Top = 60
|
||||
Width = 121
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -233,32 +234,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Visible = False
|
||||
end
|
||||
object ToolButton12: TToolButton
|
||||
Left = 785
|
||||
Top = 30
|
||||
Left = 401
|
||||
Top = 60
|
||||
Caption = #20462#25913#30721#21333
|
||||
ImageIndex = 54
|
||||
Visible = False
|
||||
OnClick = ToolButton12Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 904
|
||||
Top = 30
|
||||
Left = 520
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #24322#24120#25968#25454
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 991
|
||||
Top = 30
|
||||
Left = 607
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1054
|
||||
Top = 30
|
||||
Left = 670
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
|
|
@ -267,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Top = 92
|
||||
Width = 1384
|
||||
Height = 88
|
||||
Align = alTop
|
||||
|
|
@ -806,9 +807,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 150
|
||||
Top = 180
|
||||
Width = 1384
|
||||
Height = 568
|
||||
Height = 538
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
||||
cxCurrencyEdit, MMSystem;
|
||||
cxCurrencyEdit, MMSystem, 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, strUtils;
|
||||
|
||||
type
|
||||
TfrmJYOrderCDOne = class(TForm)
|
||||
|
|
@ -2133,7 +2146,7 @@ end;
|
|||
procedure TfrmJYOrderCDOne.Button13Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath: string;
|
||||
Txt, fImagePath, Txt1, fImagePath1: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
|
|
@ -2184,6 +2197,7 @@ begin
|
|||
Order_Main.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -2206,6 +2220,24 @@ begin
|
|||
sql.Add('@MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
|
||||
Open;
|
||||
end;
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderno').AsString) + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4);
|
||||
Txt1 := Trim(ADOQueryPrint1.fieldbyname('客户订单号').AsString) + RightStr(('10000' + trim(ADOQueryPrint1.fieldbyName('卷号').AsString)), 4);
|
||||
Txt1 := UTF8Encode(Txt1);
|
||||
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.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
|
||||
begin
|
||||
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd);
|
||||
|
|
@ -2231,6 +2263,7 @@ begin
|
|||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
RMVariables['QRBARCODE1'] := fImagePath1;
|
||||
if ComboBox2.Text = 'Ó¢ÎÄ×ֶαêÇ©' then
|
||||
begin
|
||||
RM2.LoadFromFile(fPrintFile);
|
||||
|
|
|
|||
|
|
@ -10,7 +10,20 @@ 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, strUtils;
|
||||
|
||||
type
|
||||
TfrmMJManageNewFDNewSF = class(TForm)
|
||||
|
|
@ -1738,7 +1751,7 @@ end;
|
|||
procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string);
|
||||
var
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath: string;
|
||||
Txt, fImagePath, Txt1, fImagePath1: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
|
|
@ -1786,7 +1799,24 @@ begin
|
|||
CDS_MJID.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderno').AsString) + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4);
|
||||
Txt1 := Trim(ADOQueryPrint1.fieldbyname('客户订单号').AsString) + RightStr(('10000' + trim(ADOQueryPrint1.fieldbyName('卷号').AsString)), 4);
|
||||
Txt1 := UTF8Encode(Txt1);
|
||||
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.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
|
||||
begin
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
|
||||
|
|
@ -1809,47 +1839,11 @@ begin
|
|||
ExportFtErpFile('ͨÓñêÇ©.rmf', ADOCmd);
|
||||
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
|
||||
begin
|
||||
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
RMVariables['QRBARCODE1'] := fImagePath1;
|
||||
|
||||
if Edit5.Text <> '' then
|
||||
begin
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user