diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 60f785d..abff66e 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1009,7 +1009,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label3: TLabel Left = 144 - Top = 383 + Top = 422 Width = 26 Height = 22 Caption = 'cm' @@ -1048,7 +1048,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label6: TLabel Left = 8 - Top = 383 + Top = 422 Width = 42 Height = 20 Caption = #24133#23485 @@ -1074,7 +1074,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label10: TLabel Left = 8 - Top = 296 + Top = 294 Width = 42 Height = 20 Caption = #27491#21697 @@ -1087,7 +1087,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label12: TLabel Left = 92 - Top = 296 + Top = 294 Width = 40 Height = 19 Caption = #27425#21697 @@ -1140,7 +1140,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label22: TLabel Left = 144 - Top = 424 + Top = 457 Width = 36 Height = 22 Caption = 'g/'#13217 @@ -1153,7 +1153,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label23: TLabel Left = 8 - Top = 423 + Top = 456 Width = 42 Height = 20 Caption = #20811#37325 @@ -1179,7 +1179,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label26: TLabel Left = 8 - Top = 339 + Top = 337 Width = 42 Height = 20 Caption = #20986#32440 @@ -1258,7 +1258,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label34: TLabel Left = 90 - Top = 342 + Top = 340 Width = 40 Height = 19 Caption = #20221#25968 @@ -1347,11 +1347,25 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False end + object Label53: TLabel + Left = 10 + Top = 383 + Width = 80 + Height = 19 + Caption = #29233#36805#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object MJFK: TEdit Left = 51 - Top = 377 + Top = 416 Width = 90 - Height = 41 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 @@ -1397,9 +1411,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object BTPrint: TButton Left = 10 - Top = 460 + Top = 486 Width = 171 - Height = 93 + Height = 71 Caption = #25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1412,7 +1426,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit3: TEdit Left = 52 - Top = 290 + Top = 288 Width = 39 Height = 43 Font.Charset = GB2312_CHARSET @@ -1429,7 +1443,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit4: TEdit Left = 130 - Top = 290 + Top = 288 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1462,9 +1476,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJSJKZ: TEdit Left = 51 - Top = 418 + Top = 451 Width = 90 - Height = 41 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 @@ -1494,7 +1509,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit6: TEdit Left = 52 - Top = 333 + Top = 331 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1562,7 +1577,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object ComboBox1: TComboBox Left = 132 - Top = 334 + Top = 332 Width = 45 Height = 40 Style = csDropDownList @@ -1651,7 +1666,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 57 Top = 253 Width = 90 - Height = 36 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1671,9 +1687,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Button7: TButton Left = 10 - Top = 556 + Top = 559 Width = 171 - Height = 53 + Height = 49 Caption = #25171#21253#26631#31614 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1694,6 +1710,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 21 Visible = False end + object edtaixun: TEdit + Left = 103 + Top = 373 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 22 + OnClick = edtaixunClick + OnKeyPress = MJstr3KeyPress + end end object MovePanel1: TMovePanel Left = 618 diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 81a7be5..925eb58 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -1,7 +1,7 @@ unit U_MJManageNewFDNew; interface - + uses Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, @@ -23,7 +23,7 @@ uses dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, - dxSkinXmas2008Blue, dxSkinscxPCPainter; + dxSkinXmas2008Blue, dxSkinscxPCPainter, XMLDoc, XMLIntf, DateUtils; type TfrmMJManageNewFDNewSF = class(TForm) @@ -270,6 +270,8 @@ type CDS_HZ: TClientDataSet; ADOQueryCmd: TADOQuery; ADOQueryTemp: TADOQuery; + Label53: TLabel; + edtaixun: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -329,6 +331,7 @@ type procedure TBCDClick(Sender: TObject); procedure Edit5Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); + procedure edtaixunClick(Sender: TObject); private { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; @@ -350,6 +353,7 @@ type procedure SavedataCK(); procedure PrtData(FMJID: string); procedure PrtBaoData(FBaoid: string); + procedure PrtAiXunData(FMJID: string); //ӡѸǩ procedure OpenCom(DllName: string); procedure CloseCom(DllName: string); procedure On1201(var Message: Tmessage); message 1201; @@ -1593,7 +1597,7 @@ begin application.MessageBox('ȻܶΪ㣡', 'ʾϢ', 0); exit; end; - if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) then + if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) then begin application.MessageBox('С5³Ƶݣ', 'ʾϢ', 0); exit; @@ -1668,7 +1672,7 @@ begin sql.Add('select * from JYorder_Sub where Subid=''' + Trim(FSubId) + ''' and isnull(Slbname,'''')<>'''' '); Open; end; - if ADOTmp.IsEmpty then + if ADOTmp.IsEmpty then begin PlaySound('wav\ûñǩ.wav', 0, SND_FILENAME or SND_ASYNC); Application.MessageBox('ûñǩ', 'ʾ', 0); @@ -1730,7 +1734,10 @@ begin begin PrtData(FFFMJID); end; - + if Trim(edtaixun.Text) = '' then + begin + PrtAiXunData(FFFMJID); + end; if Trim(Edit6.Text) = '' then begin if (fbaotype = 'ֶ') or (fbaotype = '') then @@ -1776,6 +1783,73 @@ begin end; +procedure TfrmMJManageNewFDNewSF.PrtAiXunData(FMJID: string); +var + xml: TXmlDocument; + xmlNode: IxmlNode; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' EXEC P_Print_JYLab '); + SQL.Add(' @MJID=''' + Trim(FMJID) + ''''); + Open; + end; + xml := TXmlDocument.Create(nil); + try + xml.Active := True; +// xml.Version := '1.0'; +// xml.Encoding := 'UTF-8'; + xml.DocumentElement := xml.CreateElement('Barcode', ''); +/////////////////////////////XMLģ///////////////////////////////////////////// + xmlNode := xml.DocumentElement.AddChild('TemplateNumber'); + xmlNode.ChildNodes.Add(xml.CreateNode('030', ntText)); //ģ + + xmlNode := xml.DocumentElement.AddChild('BarcodeTitle'); + xmlNode.ChildNodes.Add(xml.CreateNode('WX', ntText)); //̧ͷ + + xmlNode := xml.DocumentElement.AddChild('ProductName'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('Prtcodename').AsString), ntText)); //Ʒ + + xmlNode := xml.DocumentElement.AddChild('ColorCode'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('PRTColor').AsString), ntText)); //ɫ + + xmlNode := xml.DocumentElement.AddChild('ColorNumber'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJStr4').AsString), ntText)); //׺ + + xmlNode := xml.DocumentElement.AddChild('BatchNO'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJStr4').AsString), ntText)); + + xmlNode := xml.DocumentElement.AddChild('VolumeNumber'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJXH').AsString), ntText)); // + + xmlNode := xml.DocumentElement.AddChild('Breadth'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('PRTMF').AsString), ntText)); // + xmlNode := xml.DocumentElement.AddChild('Grammage'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('PRTKZ').AsString), ntText)); // + + xmlNode := xml.DocumentElement.AddChild('Quantity'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJMaoZ').AsString), ntText)); // + + xmlNode := xml.DocumentElement.AddChild('ProductUnit'); +// xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJTypeOther').AsString), ntText)); + xmlNode.ChildNodes.Add(xml.CreateNode('KG', ntText)); //λ + + xmlNode := xml.DocumentElement.AddChild('Remark'); + xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJID').AsString), ntText)); // +// xmlNode := xml.DocumentElement.AddChild('Remark'); +// xmlNode.ChildNodes.Add(xml.CreateNode(Trim(ADOQueryPrint.FieldByName('MJLen').AsString), ntText)); //ע + + xml.SaveToFile('D:\aixun\' + inttostr(DateTimeToUnix(Now)) + '.xml'); +// xml.SaveToFile('D:\aixun1\' + inttostr(DateTimeToUnix(Now)) + '.xml'); + finally + xmlNode := nil; + xml.Free; + end; + +end; + procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string); var fPrintFile: string; @@ -3026,8 +3100,15 @@ begin if CDS_MJID.IsEmpty then Exit; MggCDFalg := '99'; - - PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + if Trim(Edit6.Text) = '' then + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; +// PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + if Trim(edtaixun.Text) = '' then + begin + PrtAiXunData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; Label16.Caption := ''; BTAdd.Click; MJLen.SetFocus; @@ -3070,7 +3151,7 @@ begin Open; end; SCreateCDS20(ADOQueryTemp, CDS_HZ); - SInitCDSData20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); with ADOQueryPrint do begin @@ -3097,5 +3178,17 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.edtaixunClick(Sender: TObject); +begin + if Trim(edtaixun.Text) = '' then + begin + edtaixun.Text := ''; + end + else + begin + edtaixun.Text := ''; + end; +end; + end.