修改一码通

云翔一码通/U_YMTJGWCList.dfm

@@ -1,6 +1,6 @@
 object frmYMTJGWCList: TfrmYMTJGWCList
-  Left = 316
+  Left = 631
-  Top = 278
+  Top = 430
   Width = 1370
   Height = 750
   Caption = #21152#24037#23436#25104#22238#20179#25968#25454
@@ -23,7 +23,7 @@ object frmYMTJGWCList: TfrmYMTJGWCList
     Width = 1362
     Height = 33
     ButtonHeight = 30
-    ButtonWidth = 59
+    ButtonWidth = 107
     Caption = 'ToolBar1'
     Color = clSkyBlue
     Flat = True
@@ -62,16 +62,24 @@ object frmYMTJGWCList: TfrmYMTJGWCList
       ImageIndex = 3
       OnClick = TBDelClick
     end
-    object TBExport: TToolButton
+    object TbEditKW: TToolButton
       Left = 189
       Top = 0
       AutoSize = True
+      Caption = #25209#37327#20462#25913#24211#20301
+      ImageIndex = 11
+      OnClick = TbEditKWClick
+    end
+    object TBExport: TToolButton
+      Left = 300
+      Top = 0
+      AutoSize = True
       Caption = #23548#20986
       ImageIndex = 68
       OnClick = TBExportClick
     end
     object TBClose: TToolButton
-      Left = 252
+      Left = 363
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -354,11 +362,71 @@ object frmYMTJGWCList: TfrmYMTJGWCList
         Options.Editing = False
         Width = 85
       end
+      object Tv1KuWei: TcxGridDBColumn
+        Caption = #24211#20301
+        DataBinding.FieldName = 'KuWei'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
     end
     object cxGrid2Level1: TcxGridLevel
       GridView = Tv1
     end
   end
+  object Panel4: TPanel
+    Left = 560
+    Top = 140
+    Width = 234
+    Height = 125
+    Color = clSkyBlue
+    TabOrder = 3
+    Visible = False
+    object Label25: TLabel
+      Left = 38
+      Top = 34
+      Width = 24
+      Height = 12
+      Caption = #24211#20301
+    end
+    object btnChk: TButton
+      Left = 28
+      Top = 81
+      Width = 60
+      Height = 25
+      Caption = #30830#35748
+      TabOrder = 0
+      OnClick = btnChkClick
+    end
+    object btn1: TButton
+      Left = 160
+      Top = 80
+      Width = 60
+      Height = 25
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = btn1Click
+    end
+    object KuWei: TcxButtonEdit
+      Left = 75
+      Top = 27
+      ParentFont = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = KuWeiPropertiesButtonClick
+      Style.Font.Charset = GB2312_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -17
+      Style.Font.Name = #23435#20307
+      Style.Font.Style = [fsBold]
+      Style.IsFontAssigned = True
+      TabOrder = 2
+      Width = 121
+    end
+  end
   object ADOQueryCmd: TADOQuery
     Connection = DataLink_YXYMT.ADOLink
     Parameters = <>

云翔一码通/U_YMTJGWCList.pas

@@ -80,6 +80,13 @@ type
     ADOQueryImage: TADOQuery;
     TV1SCConNo: TcxGridDBColumn;
     Tv1SSel: TcxGridDBColumn;
+    TbEditKW: TToolButton;
+    Panel4: TPanel;
+    Label25: TLabel;
+    btnChk: TButton;
+    btn1: TButton;
+    KuWei: TcxButtonEdit;
+    Tv1KuWei: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -97,6 +104,10 @@ type
     procedure FactoryNameChange(Sender: TObject);
     procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
     procedure ToolButton2Click(Sender: TObject);
+    procedure TbEditKWClick(Sender: TObject);
+    procedure KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure btnChkClick(Sender: TObject);
+    procedure btn1Click(Sender: TObject);
   private
     canshu1, canshu2: string;
     procedure InitGrid();
@@ -113,7 +124,8 @@ var
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun;
+  U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
+  U_ZDYHelp;
 
 {$R *.dfm}
 
@@ -160,7 +172,7 @@ begin
       Filtered := False;
       Close;
       sql.Clear;
-      sql.Add(' select A.FromMXID, A.Qty, A.CRType,A.CRTime,B.*, C.SHDanWei ');
+      sql.Add(' select A.FromMXID, A.Qty, A.CRType, A.CRTime, A.KuWei,B.*, C.SHDanWei ');
       sql.Add(' from YMT_CK_CR A');
       sql.Add(' JOIN YMT_FHSQ_Sub B ON B.SSID = A.ToSSID');
       sql.Add(' JOIN YMT_FHSQ_Main C ON C.FSId = B.FSId');
@@ -348,5 +360,76 @@ begin
 
 end;
 
+procedure TfrmYMTJGWCList.TbEditKWClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    exit;
+  Panel4.Visible := True;
+end;
+
+procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(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_Main do
+        begin
+          Edit;
+          KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmYMTJGWCList.btnChkClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    exit;
+  if CDS_Main.Locate('SSel', True, []) = False then
+  begin
+    application.MessageBox('请选择数据！', '提示信息');
+    exit;
+  end;
+
+  try
+    while CDS_Main.Locate('SSel', True, []) do
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('update YMT_CK_CR SET KuWei=' + quotedstr(trim(KuWei.Text)));
+        sql.Add('where SPID=' + quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString)));
+        execsql;
+      end;
+      with CDS_Main do
+      begin
+        Edit;
+        FieldByName('SSel').Value := False;
+        FieldByName('KuWei').Value := trim(KuWei.Text);
+        Post;
+      end;
+    end;
+
+    Panel4.Visible := False;
+    application.MessageBox('批量修改成功！', '提示信息');
+  except
+    application.MessageBox('批量修改失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmYMTJGWCList.btn1Click(Sender: TObject);
+begin
+  Panel4.Visible := False;
+end;
+
 end.