Ayuda Principiante De Delphi Con Mysql

[edelphi]

Mira este codigo lo hice cuando hice una tarea en delphi con Mysql la conexcion es por ODBC espero que te pueda servir de algo pues este codigo no solo es con mysql sino con cualkier base de datos, tiene todo el mantenimiento que se le puede hacer a una base de datos bueno cualquier cosa mandas una respuesta ok bye

Código Delphi [-]
{$R *.dfm}
procedure habilitar();
begin
  Form1.DateTimePicker1.Enabled:=true;
  Form1.DBEdit1.Enabled:=true;
  Form1.DBEdit2.Enabled:=true;
  Form1.DBEdit3.Enabled:=true;
  Form1.DBEdit4.Enabled:=true;
  Form1.DBEdit5.Enabled:=true;
  Form1.DBEdit6.Enabled:=true;
  Form1.DBEdit7.Enabled:=true;
  Form1.DBEdit8.Enabled:=true;
end;
procedure deshabilitar();
begin
  Form1.DateTimePicker1.Enabled:=false;
  Form1.DBEdit1.Enabled:=false;
  Form1.DBEdit2.Enabled:=false;
  Form1.DBEdit3.Enabled:=false;
  Form1.DBEdit4.Enabled:=false;
  Form1.DBEdit5.Enabled:=false;
  Form1.DBEdit6.Enabled:=false;
  Form1.DBEdit7.Enabled:=false;
  Form1.DBEdit8.Enabled:=false;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
//Cerrar
  Application.Terminate;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
//Obtener fecha
  DBEdit7.Text:=DateToStr(DateTimePicker1.date);

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
//conectar BD
SpeedButton6.Click;
ADOQ.ConnectionString:='MSDASQL.1;Persist Security Info=False;Data Source=trans';
ADOQ.Active:=true;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
//activar el combo buscar
  if ComboBox1.Visible=false then
  begin
    SpeedButton6.Click;
    ComboBox1.Visible:=true;
    Edit1.Visible:=true;
    Edit1.Text:='';
  end
  else
  begin
    ComboBox1.Visible:=false;
    Edit1.Visible:=false;
  end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
//edit1
  Edit1.Text:='';
  Edit1.SetFocus;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
//boton nuevo
  if SpeedButton2.Caption='         &Nuevo' then
    begin
      habilitar;
      DBEdit2.SetFocus;
      SpeedButton2.Caption:='         &Cancelar';
      ADOQ.Append;
      DBEdit6.Text:=DateToStr(date());
      SpeedButton3.Enabled:=true;
    end
  else
    begin
      deshabilitar;
      SpeedButton2.Caption:='         &Nuevo';
      SpeedButton6.Click;
      SpeedButton3.Enabled:=false;
    end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
//boton guardar
  ADOQ.Post;
  SpeedButton2.Caption:='         &Nuevo';
  SpeedButton6.Click;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
//boton actualizar
  deshabilitar;
  ADOQ.Cancel;
  ADOQ.Refresh;
  SpeedButton3.Enabled:=false;
  SpeedButton4.Enabled:=false;
  SpeedButton5.Enabled:=false;
  SpeedButton2.Caption:='         &Nuevo';
  ADOQ.Close;
  ADOQ.SQL.Text:='';
  ADOQ.SQL.Text:='Select * from SANCIONES';
  ADOQ.Active:=true;
  SpeedButton4.Caption:='          &Modificar';
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
//boton editar y mofificar
  if SpeedButton4.Caption='          &Modificar' then
  begin
     SpeedButton4.Caption:='          &Editar';
     habilitar;
     ADOQ.Edit;
  end
  else
  begin
     ADOQ.Post;
     SpeedButton4.Caption:='          &Modificar';
     ADOQ.Refresh;
     deshabilitar;
     SpeedButton4.Enabled:=false;
     SpeedButton5.Enabled:=false;
     SpeedButton7.Click;
     SpeedButton6.Click;
  end;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
//boton eliminar
if messageDlg('Esta seguro que desea Eliminar el Registro de la Base de Datos',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
  ADOQ.Delete;
  ADOQ.Last;
  ADOQ.Refresh;
end;
  SpeedButton4.Enabled:=false;
  SpeedButton5.Enabled:=false;
  SpeedButton6.Click;
  SpeedButton7.Click;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
//boton edit1 buscar
//  if combobox2.Text='NOMBRE'then ADOQClientes.SQL.Text:='Select * from clientes where //      nombre like'+QuotedStr('%'+ edit1.Text +'%');
  ADOQ.Close;
  ADOQ.SQL.Text:='';
  if combobox1.Text='NOMBRE'then ADOQ.SQL.Text:='Select * from SANCIONES where NOMBRE like'''+edit1.text+'%''';
  if combobox1.Text='DNI'then ADOQ.SQL.Text:='Select * from SANCIONES where DNI like'''+edit1.text+'%''';
  if combobox1.Text='LICENCIA'then ADOQ.SQL.Text:='Select * from SANCIONES where LINCENCIA like'''+edit1.text+'%''';
  ADOQ.Active:=true;
  SpeedButton4.Enabled:=true;
  SpeedButton5.Enabled:=true;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
//boton activar grilla
  SpeedButton4.Enabled:=true;
  SpeedButton5.Enabled:=true;
end;

procedure TForm1.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then  DBEdit3.SetFocus;
end;

procedure TForm1.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then  DBEdit4.SetFocus;
end;

procedure TForm1.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then  DBEdit5.SetFocus;
end;

procedure TForm1.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then  DateTimePicker1.SetFocus;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
  form2.QuickRep1.Preview;
end;

end.