diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm
index f0e69c0..63b8871 100644
--- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm
+++ b/坯布码单待检(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
diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas
index c6e3fd5..0352c09 100644
--- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas
+++ b/坯布码单待检(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.