~

打卷检验管理/U_JYOrderCDOne.dfm

@@ -1099,6 +1099,11 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #26465#24418#30721
+        DataBinding.FieldName = 'Barcode'
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

打卷检验管理/U_JYOrderCDOne.pas

@@ -230,6 +230,7 @@ type
     Button16: TButton;
     cxCurrencyEdit4: TcxCurrencyEdit;
     Edit7: TEdit;
+    Tv1Column3: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);

打卷检验管理/U_MJManageNewFDNew.dfm

@@ -1325,7 +1325,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label28: TLabel
-      Left = 10
+      Left = 4
       Top = 288
       Width = 42
       Height = 20
@@ -1338,8 +1338,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label54: TLabel
-      Left = 11
-      Top = 321
+      Left = 108
+      Top = 289
       Width = 42
       Height = 20
       Caption = #26495#21495
@@ -1350,6 +1350,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label55: TLabel
+      Left = 2
+      Top = 319
+      Width = 63
+      Height = 20
+      Caption = #26465#24418#30721
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object MJFK: TEdit
       Left = 51
       Top = 438
@@ -1656,9 +1669,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object baoNo: TEdit
-      Left = 57
+      Left = 45
       Top = 281
-      Width = 90
+      Width = 60
       Height = 33
       AutoSize = False
       Font.Charset = GB2312_CHARSET
@@ -1694,9 +1707,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = Button7Click
     end
     object Banno: TEdit
-      Left = 57
-      Top = 314
-      Width = 90
+      Left = 151
+      Top = 280
+      Width = 51
       Height = 35
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -1708,6 +1721,23 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = Edit1Click
       OnKeyPress = MJstr3KeyPress
     end
+    object Barcode: TEdit
+      Left = 66
+      Top = 314
+      Width = 135
+      Height = 36
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -28
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 22
+      OnClick = MJXHClick
+      OnExit = MJStr4Exit
+      OnKeyPress = MJstr3KeyPress
+    end
   end
   object MovePanel1: TMovePanel
     Left = 634

打卷检验管理/U_MJManageNewFDNew.pas

@@ -268,6 +268,8 @@ type
     Edit14: TEdit;
     Label54: TLabel;
     Banno: TEdit;
+    Label55: TLabel;
+    Barcode: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -613,11 +615,11 @@ var
   Tf: TMyFunc;
   Tp: TFarProc;
   Th: Thandle;
-begin
+begin                              
  //  closeCom(FComFile);
-  Th := LoadLibrary(Pchar(trim(DllName)));
+  Th := LoadLibrary(Pchar(trim(DllName)));            
   if Th > 0 then
-  begin                                            
+  begin
     try
       Tp := GetProcAddress(Th, 'CommOpen');
       if Tp <> nil then
@@ -1129,7 +1131,7 @@ begin
       FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
       FieldByName('MJStr1').Value := Trim(Label13.Caption);
       FieldByName('Banno').Value := Trim(Banno.text);
-
+      FieldByName('Barcode').Value := '58F48' + Trim(Barcode.text);
       if Edit12.Text <> '' then
       begin
         FieldByName('DingMaFlag').Value := '¶¨³¤';
@@ -1769,6 +1771,7 @@ begin
     MJQty2.Text := '';
     Label15.Caption := '';
     MJQty4.Text := '';
+    Barcode.Text := '';
 
     if edit10.Text = '¡Ì' then
     begin