修改一码通

云翔一码通/U_KuWeiList.dfm

@@ -1,6 +1,6 @@
 object frmKuWeiList: TfrmKuWeiList
-  Left = 954
+  Left = 756
-  Top = 178
+  Top = 669
   Width = 1215
   Height = 637
   Caption = #24211#20301#31649#29702

云翔一码通/U_KuWeiList.pas

@@ -80,7 +80,6 @@ type
     procedure N1Click(Sender: TObject);
     procedure cxTabControl1Change(Sender: TObject);
     procedure ZJStatusChange(Sender: TObject);
-    procedure ToolButton4Click(Sender: TObject);
     procedure TbSelectClick(Sender: TObject);
     procedure Tv1DblClick(Sender: TObject);
   private
@@ -88,7 +87,6 @@ type
     DQdate:TDateTime;
     procedure InitGrid();
     procedure InitForm();
-    procedure PrtData(KWID:String);
     { Private declarations }
   public
     FFInt,FCloth:Integer;
@@ -212,82 +210,6 @@ begin
   TBFind.Click;
 end;
 
-procedure TfrmKuWeiList.ToolButton4Click(Sender: TObject);
-begin
-  if Order_Main.IsEmpty then Exit;
-  if Trim(ComboBox1.Text)='' then
-  begin
-    Application.MessageBox('方向不能为空！','提示',0);
-    Exit;
-  end;
-  if Order_Main.Locate('SSel',True,[])=False then
-  begin
-    Application.MessageBox('没有选择数据!','提示',0);
-    Exit;
-  end;
-  Order_Main.DisableControls;
-  with Order_Main do
-  begin
-    First;
-    while Locate('SSel',True,[]) do
-    begin
-      PrtData(Trim(Order_Main.fieldbyname('KWID').AsString));
-      Edit;
-      FieldByName('SSel').Value:=False;
-    end;
-  end;
-  Order_Main.EnableControls;
-end;
-procedure TfrmKuWeiList.PrtData(KWID:String);
-var
-   fPrintFile,Txt,fImagePath:string;
-   i,j:Integer;
-   Moudle: THandle;
-   Makebar:TMakebar;
-   Mixtext:TMixtext;
-begin
-  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\库位标签.rmf';
-  if FileExists(fPrintFile)=False then
-  begin
-    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\库位标签.rmf'),'提示',0);
-    exit;
-  end;
-  with ADOQueryTemp do
-  begin
-    Close;
-    SQL.Clear;
-    sql.Add('select * from KuWei where KWID='''+Trim(KWID)+'''');
-    Open;
-  end;
-  SCreateCDS20(ADOQueryTemp,CDS_PRT);
-  SInitCDSData20(ADOQueryTemp,CDS_PRT);
-  try
-    Moudle:=LoadLibrary('MakeQRBarcode.dll');
-    @Makebar:=GetProcAddress(Moudle,'Make');
-    @Mixtext:=GetProcAddress(Moudle,'MixText');
-    Txt:=Trim(KWID);
-    fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp';
-    if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
-      CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
-    if FileExists(fImagePath) then DeleteFile(fImagePath);
-    Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
-  except
-    application.MessageBox('二维码生成失败！','提示信息',MB_ICONERROR);
-    exit;
-  end;
-  RMVariables['QRBARCODE']:=fImagePath;
-  if Trim(ComboBox1.Text)='→' then
-  begin
-    RMVariables['FangXiang']:='→→→→';
-  end else
-  if Trim(ComboBox1.Text)='←' then
-  begin
-    RMVariables['FangXiang']:='←←←←';
-  end;
-  RM1.LoadFromFile(fPrintFile);
-  //RM1.ShowReport;
-  RM1.PrintReport;
-end;
 
 procedure TfrmKuWeiList.TbSelectClick(Sender: TObject);
 begin

云翔一码通/U_YMTJGWCList.dfm

@@ -1,6 +1,6 @@
 object frmYMTJGWCList: TfrmYMTJGWCList
-  Left = 433
+  Left = 470
-  Top = 674
+  Top = 318
   Width = 1370
   Height = 750
   Caption = #21152#24037#23436#25104#22238#20179#25968#25454
@@ -346,6 +346,12 @@ object frmYMTJGWCList: TfrmYMTJGWCList
         Options.Editing = False
         Width = 69
       end
+      object Tv1ColorNo: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'ColorNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
       object TV1SPHX: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'SPHX'

云翔一码通/U_YMTJGWCList.pas

@@ -87,6 +87,7 @@ type
     btn1: TButton;
     KuWei: TcxButtonEdit;
     Tv1KuWei: TcxGridDBColumn;
+    Tv1ColorNo: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -125,7 +126,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
-  U_ZDYHelp;
+  U_ZDYHelp, U_KuWeiList;
 
 {$R *.dfm}
 
@@ -369,22 +370,20 @@ end;
 procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
-    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    frmKuWeiList := TfrmKuWeiList.Create(Application);
-    with frmZDYHelp do
+    with frmKuWeiList do
     begin
-      flag := 'KuWei';
-      flagname := '¿âλ';
       if ShowModal = 1 then
       begin
         with Self.CDS_Main do
         begin
           Edit;
-          KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+          FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
         end;
       end;
     end;
   finally
-    frmZDYHelp.Free;
+    frmKuWeiList.Free;
   end;
 end;
 

云翔一码通/U_YMTRKInPut.dfm

@@ -1,6 +1,6 @@
 object frmYMTRKInPut: TfrmYMTRKInPut
-  Left = 599
+  Left = 319
-  Top = 321
+  Top = 435
   Width = 1829
   Height = 623
   Align = alClient
@@ -76,7 +76,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
         HeaderAlignmentHorz = taCenter
         Width = 100
       end
-      object v1Column4: TcxGridDBColumn
+      object Tv1CRType: TcxGridDBColumn
         Tag = 2
         Caption = #20837#24211#31867#22411
         DataBinding.FieldName = 'CRType'
@@ -93,6 +93,20 @@ object frmYMTRKInPut: TfrmYMTRKInPut
         HeaderAlignmentHorz = taCenter
         Width = 83
       end
+      object Tv1SPType: TcxGridDBColumn
+        Tag = 2
+        Caption = #24067#21305#31867#22411
+        DataBinding.FieldName = 'SPType'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          ''
+          #38754#24067
+          #24213#24067
+          #26825)
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
       object v1Column21: TcxGridDBColumn
         Tag = 2
         Caption = #23458#25143
@@ -113,6 +127,12 @@ object frmYMTRKInPut: TfrmYMTRKInPut
         HeaderAlignmentHorz = taCenter
         Width = 69
       end
+      object Tv1ColorNo: TcxGridDBColumn
+        Tag = 2
+        Caption = #33394#21495
+        DataBinding.FieldName = 'ColorNo'
+        HeaderAlignmentHorz = taCenter
+      end
       object v1Column17: TcxGridDBColumn
         Tag = 2
         Caption = #33457#22411
@@ -120,7 +140,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
-      object v1Column14: TcxGridDBColumn
+      object Tv1FactoryName: TcxGridDBColumn
         Tag = 2
         Caption = #21152#24037#21378
         DataBinding.FieldName = 'FactoryName'

云翔一码通/U_YMTRKInPut.pas

@@ -38,7 +38,7 @@ type
     TBDel: TToolButton;
     TBSave: TToolButton;
     TBClose: TToolButton;
-    v1Column4: TcxGridDBColumn;
+    Tv1CRType: TcxGridDBColumn;
     DataSource3: TDataSource;
     CDS_Sub: TClientDataSet;
     ADOQueryCmd: TADOQuery;
@@ -46,7 +46,7 @@ type
     ADOQueryTemp: TADOQuery;
     cxGridPopupMenu2: TcxGridPopupMenu;
     v1Column12: TcxGridDBColumn;
-    v1Column14: TcxGridDBColumn;
+    Tv1FactoryName: TcxGridDBColumn;
     v1Column6: TcxGridDBColumn;
     v1Column7: TcxGridDBColumn;
     v1Column8: TcxGridDBColumn;
@@ -86,6 +86,8 @@ type
     TvMXMXID: TcxGridDBColumn;
     TvMXMXQty: TcxGridDBColumn;
     cxGridLevel2: TcxGridLevel;
+    Tv1ColorNo: TcxGridDBColumn;
+    Tv1SPType: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBAddClick(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
@@ -95,7 +97,6 @@ type
     procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-    procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@@ -127,7 +128,7 @@ var
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS;
+  U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS, U_KuWeiList;
 
 {$R *.dfm}
 procedure TfrmYMTRKInPut.InitMXGrid(SPID: string);
@@ -200,6 +201,7 @@ begin
     Exit;
 
   InitMXGrid(CDS_Sub.fieldbyname('SPID').AsString);
+
   with ADOQueryTemp do
   begin
     Close;
@@ -208,10 +210,11 @@ begin
     sql.Add(' and CRQtyFlag=-1');
     Open;
   end;
+
   if not ADOQueryTemp.IsEmpty then
   begin
-    v1Column4.Options.Focusing := False;
+    Tv1CRType.Options.Focusing := False;
-    v1Column14.Options.Focusing := False;
+    Tv1FactoryName.Options.Focusing := False;
     v2Column1.Options.Focusing := False;
     v1Column8.Options.Focusing := False;
     v1Column7.Options.Focusing := False;
@@ -222,8 +225,8 @@ begin
   end
   else
   begin
-    v1Column4.Options.Focusing := True;
+    Tv1CRType.Options.Focusing := True;
-    v1Column14.Options.Focusing := True;
+    Tv1FactoryName.Options.Focusing := True;
     v2Column1.Options.Focusing := True;
     v1Column8.Options.Focusing := True;
     v1Column7.Options.Focusing := True;
@@ -318,7 +321,6 @@ begin
           end;
 
           FieldByName('SPID').Value := Trim(Maxno);
-          FieldByName('FZSPID').Value := Trim(Maxno);
           FieldByName('CKName').Value := '´ý¼ì²¼';
           FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
           FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
@@ -570,13 +572,14 @@ begin
     frmZDYHelp := TfrmZDYHelp.Create(Application);
     with frmZDYHelp do
     begin
-      flag := 'WJGName';
+      flag := 'SPName';
-      flagname := 'Íâ¼Ó¹¤Ãû³Æ';
+      flagname := 'Æ·Ãû';
       if ShowModal = 1 then
       begin
         with Self.CDS_Sub do
         begin
           Edit;
+          FieldByName('SPCode').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyCode').AsString);
           FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
         end;
       end;
@@ -586,28 +589,6 @@ begin
   end;
 end;
 
-procedure TfrmYMTRKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-begin
-  try
-    frmZDYHelp := TfrmZDYHelp.Create(Application);
-    with frmZDYHelp do
-    begin
-      flag := 'KuWei';
-      flagname := '¿âλ';
-      if ShowModal = 1 then
-      begin
-        with Self.CDS_Sub do
-        begin
-          Edit;
-          FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
-        end;
-      end;
-    end;
-  finally
-    frmZDYHelp.Free;
-  end;
-end;
-
 procedure TfrmYMTRKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try

云翔一码通/U_YMTRKList.dfm

@@ -414,7 +414,7 @@ object frmYMTRKList: TfrmYMTRKList
         HeaderAlignmentHorz = taCenter
         Width = 40
       end
-      object v1Column6: TcxGridDBColumn
+      object TV1SPID: TcxGridDBColumn
         Caption = #20837#24211#21333#21495
         DataBinding.FieldName = 'SPID'
         HeaderAlignmentHorz = taCenter
@@ -526,8 +526,14 @@ object frmYMTRKList: TfrmYMTRKList
         Options.Editing = False
         Width = 69
       end
-      object v1Column17: TcxGridDBColumn
+      object Tv1ColorNo: TcxGridDBColumn
-        Caption = #33457#22411#33457#21495
+        Caption = #33394#21495
+        DataBinding.FieldName = 'ColorNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object Tv1SPHX: TcxGridDBColumn
+        Caption = #33457#22411
         DataBinding.FieldName = 'SPHX'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False

云翔一码通/U_YMTRKList.pas

@@ -71,12 +71,12 @@ type
     OrderNo: TEdit;
     cxGrid2: TcxGrid;
     Tv1: TcxGridDBTableView;
-    v1Column6: TcxGridDBColumn;
+    TV1SPID: TcxGridDBColumn;
     v1Column2: TcxGridDBColumn;
     v1Column4: TcxGridDBColumn;
     v1Column13: TcxGridDBColumn;
     v1Column15: TcxGridDBColumn;
-    v1Column17: TcxGridDBColumn;
+    Tv1SPHX: TcxGridDBColumn;
     v1Column14: TcxGridDBColumn;
     v2Column1: TcxGridDBColumn;
     v1Column8: TcxGridDBColumn;
@@ -130,6 +130,7 @@ type
     btnChk: TButton;
     btn1: TButton;
     KuWei: TcxButtonEdit;
+    Tv1ColorNo: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -175,7 +176,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
-  U_ZDYHelp;
+  U_ZDYHelp, U_KuWeiList;
 
 {$R *.dfm}
 procedure TfrmYMTRKList.InitMXGrid(SPID: string);
@@ -614,22 +615,20 @@ end;
 procedure TfrmYMTRKList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
-    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    frmKuWeiList := TfrmKuWeiList.Create(Application);
-    with frmZDYHelp do
+    with frmKuWeiList do
     begin
-      flag := 'KuWei';
-      flagname := '¿âλ';
       if ShowModal = 1 then
       begin
         with Self.CDS_Main do
         begin
           Edit;
-          KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+          FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
         end;
       end;
     end;
   finally
-    frmZDYHelp.Free;
+    frmKuWeiList.Free;
   end;
 end;
 

云翔一码通/U_ZdyAttachGYS.dfm

@@ -1,6 +1,6 @@
 object frmZdyAttachGYS: TfrmZdyAttachGYS
-  Left = 189
+  Left = 703
-  Top = 129
+  Top = 516
   Width = 1038
   Height = 618
   Caption = #20379#24212#21830#36164#26009#31649#29702
@@ -81,52 +81,25 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS
       Height = 12
       Caption = #20379#24212#21830#32534#21495
     end
-    object Label2: TLabel
+    object ZdyName: TEdit
-      Left = 395
-      Top = 13
-      Width = 24
-      Height = 12
-      Caption = #31867#22411
-      Visible = False
-    end
-    object CoName: TEdit
       Tag = 2
       Left = 267
       Top = 9
       Width = 90
       Height = 20
       ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
-      TabOrder = 2
+      TabOrder = 1
-      OnChange = CoNameChange
+      OnChange = ZdyNameChange
     end
-    object CoCode: TEdit
+    object ZdyCode: TEdit
       Tag = 2
       Left = 83
       Top = 9
       Width = 90
       Height = 20
       ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
-      TabOrder = 1
-      OnChange = CoNameChange
-    end
-    object FactType: TComboBox
-      Tag = 2
-      Left = 424
-      Top = 8
-      Width = 90
-      Height = 20
-      Style = csDropDownList
-      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
-      ItemHeight = 12
       TabOrder = 0
-      Visible = False
+      OnChange = ZdyNameChange
-      OnChange = CoNameChange
-      Items.Strings = (
-        ''
-        #21152#24037#21378
-        #22383#24067#21378
-        #29289#27969#20844#21496
-        #32433#32447#21378)
     end
   end
   object cxGrid2: TcxGrid

云翔一码通/U_ZdyAttachGYS.pas

@@ -42,14 +42,12 @@ type
     RM1: TRMGridReport;
     RMDB_Main: TRMDBDataSet;
     Label3: TLabel;
-    CoName: TEdit;
+    ZdyName: TEdit;
     cxGridPopupMenu2: TcxGridPopupMenu;
     DS_HZ: TDataSource;
     CDS_HZ: TClientDataSet;
     Label1: TLabel;
-    CoCode: TEdit;
+    ZdyCode: TEdit;
-    Label2: TLabel;
-    FactType: TComboBox;
     cxGrid2: TcxGrid;
     Tv2: TcxGridDBTableView;
     v2Column2: TcxGridDBColumn;
@@ -63,7 +61,7 @@ type
     procedure FormShow(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
-    procedure CoNameChange(Sender: TObject);
+    procedure ZdyNameChange(Sender: TObject);
     procedure Tv2DblClick(Sender: TObject);
   private
     { Private declarations }
@@ -140,7 +138,7 @@ begin
   end;
 end;
 
-procedure TfrmZdyAttachGYS.CoNameChange(Sender: TObject);
+procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject);
 begin
   ToolButton2.Click;
 end;