~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
2a930bc9b2
commit
5d7c1572ec
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
@ -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';
|
||||
|
||||
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;
|
||||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user