diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index b0bc128..f8ca634 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJzhonglian\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/打卷检验管理/TradeManage.dpr b/打卷检验管理/TradeManage.dpr index ab999ad..f0caa31 100644 --- a/打卷检验管理/TradeManage.dpr +++ b/打卷检验管理/TradeManage.dpr @@ -3,7 +3,7 @@ uses SysUtils, classes, forms, - WinTypes, + WinTypes, WinProcs, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, U_GetDllForm in 'U_GetDllForm.pas', diff --git a/打卷检验管理/TradeManage.skincfg b/打卷检验管理/TradeManage.skincfg new file mode 100644 index 0000000..89edbfe --- /dev/null +++ b/打卷检验管理/TradeManage.skincfg @@ -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 diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index df43f45..0f27723 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -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 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 45339b0..2531bed 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -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) @@ -364,7 +377,7 @@ end; procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid('鱨JF', Tv1, ''); + WriteCxGrid('鱨JF', Tv1, ''); end; procedure TfrmJYOrderCDOne.InitGrid(); @@ -1507,14 +1520,14 @@ begin ExecSQL; end; - if (trim(ComboBox1.Text) = '뵥(Ӣ)') then + if (trim(ComboBox1.Text) = '뵥(Ӣ)') then begin with ADOQueryTemp do begin Close; sql.Clear; sql.add('exec P_Do_PrintMd10 '); - sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add('@mainID=' + quotedstr(Trim(''))); sql.add(',@DName=' + quotedstr(Trim(DCode))); Open; end; @@ -1549,7 +1562,7 @@ begin begin Close; sql.Clear; - sql.add('exec P_Do_PrintMd_HZ_copy1 '); + sql.add('exec P_Do_PrintMd_HZ_copy1 '); sql.add('@mainID=' + quotedstr(Trim(''))); sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@flag=''2'' '); @@ -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); diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index ac699b4..4a841dc 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -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) @@ -650,7 +663,7 @@ begin sql.Clear; sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); // showmessage(sql.text); - Open; + Open; end; if ADOTmp.IsEmpty then begin @@ -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; @@ -1781,12 +1794,29 @@ begin if FileExists(fImagePath) then DeleteFile(fImagePath); Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + 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,49 +1839,13 @@ 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 + if Edit5.Text <> '' then begin RM3.LoadFromFile(fPrintFile); @@ -1871,7 +1865,7 @@ begin RM2.PrintReport; end; - if MggCDFalg = '99' then + if MggCDFalg = '99' then begin with ADOCmd do begin @@ -2720,7 +2714,7 @@ begin MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString); - baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString); + baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString); if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'Ʒ' then begin Edit3.Text := '';