乐').Value := Trim(Edit3.Text);
          Data.ADOQuery2.Post;
          Application.MessageBox('修改成功.','提示',64);
          OnShow(Sender);
        Except
          Application.MessageBox('系统出错.','提示',64);
        end;  
      end;
    end;
    
    procedure TForm14.DBGrid1CellClick(Column: TColumn);
    begin
      if Data.ADOQuery2.Active then
        if Data.ADOQuery2.RecordCount>0 then
        begin
          Edit1.Text:= Data.ADOQuery2.FieldByName('报警处理').Value;
          if Data.ADOQuery2.FieldByName('音乐').Value<>Null then
            Edit3.Text:= Data.ADOQuery2.FieldByName('音乐').Value;
        end;  
    end;
    
    procedure TForm14.SpeedButton2Click(Sender: TObject);
    begin
      Edit3.Text := OpenDialog1.FileName;
    end;
    
    procedure TForm14.DBGrid2DblClick(Sender: TObject);
    var
      Temp: String;
    begin
      if Data.ADOQuery3.Active = True then
        if Data.ADOQuery3.RecordCount>0 then
        begin
          Temp := Data.ADOQuery3.Fields[0].Value;
          if Pos(Trim(Temp),Trim(Edit2.Text))=0 then
            Edit2.Text := Edit2.Text+Temp;
        end;      
    end;
    
    procedure TForm14.BitBtn1Click(Sender: TObject);
    begin
      Edit1.Clear;
      Edit2.Clear;
      Edit3.Clear;
    end;
    
    end.