~

坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm

@@ -808,7 +808,6 @@ object frmDJBRKList: TfrmDJBRKList
       Width = 48
       Height = 12
       Caption = #22791'    '#27880
-      Visible = False
     end
     object Button5: TButton
       Left = 336
@@ -902,7 +901,6 @@ object frmDJBRKList: TfrmDJBRKList
       Width = 185
       Height = 20
       TabOrder = 9
-      Visible = False
     end
     object Button4: TButton
       Left = 336
@@ -911,7 +909,7 @@ object frmDJBRKList: TfrmDJBRKList
       Height = 25
       Caption = #20462#25913#22791#27880
       TabOrder = 10
-      Visible = False
+      OnClick = Button4Click
     end
   end
   object ADOQueryCmd: TADOQuery

坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas

@@ -169,6 +169,7 @@ type
     procedure Button6Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure defstr2KeyPress(Sender: TObject; var Key: Char);
+    procedure Button4Click(Sender: TObject);
   private
     canshu1, canshu2: string;
     procedure InitGrid();
@@ -834,6 +835,41 @@ begin
       ADOQueryMain.EnableControls;
     end;
   end;
+end;                                                
+
+procedure TfrmDJBRKList.Button4Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    exit;
+  if trim(edit_note.Text) = '' then
+  begin
+    application.MessageBox('备注不能为空！', '提示信息', 0);
+    exit;
+  end;
+  if Application.MessageBox('确定要修改备注吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  try
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' ' + quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(',' + quotedstr(trim(self.Caption)));
+      sql.Add(',' + quotedstr(trim('待检布入库修改')));
+      sql.Add(',' + quotedstr(trim('入库单号：' + trim(CDS_Main.FieldByName('SPID').AsString) + ',原备注' + Trim(CDS_Main.fieldbyname('Note').AsString) + ',修改后' + trim(edit_note.Text))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      sql.Add('update CK_SXPB_CR SET Note=''' + trim(edit_note.Text) + ''',edittime=getdate() where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + '''');
+      ExecSQL;
+    end;
+    Application.MessageBox('保存成功!', '提示', 0);
+    Panel5.Visible := false;
+    TBRafresh.Click;
+  except
+    Application.MessageBox('保存失败!', '提示', 0);
+  end;
 end;
 
 end.