TFrmVig = class(TForm)
lblRFC: TLabel;
lblDerecho: TLabel;
lblNombre: TLabel;
lblDomicilio: TLabel;
lblCP: TLabel;
lblTelefono: TLabel;
lblFecha: TLabel;
DBRfc: TDBEdit;
DBNombre: TDBEdit;
DBDomicilio: TDBEdit;
DBTelefono: TDBEdit;
DBCP: TDBEdit;
DBComboDerecho: TDBComboBox;
DBFecha: TDBEdit;
BtnAgrega: TButton;
BtnGuardar: TButton;
BtnImprimir: TButton;
BtnBorra: TButton;
BtnSalir: TButton;
DBNavega: TDBNavigator;
ADOConxAlmacen: TADOConnection;
ADOQDerecho: TADOQuery;
DataDerecho: TDataSource;
ADOTbDerecho: TADOTable;
ADODstDerecho: TADODataSet;
Label5: TLabel;
BtnModifica: TButton;
ADOTbDerechoRFC: TWideStringField;
ADOTbDerechoNOMBRE: TWideStringField;
ADOTbDerechoDOMICILIO: TWideStringField;
ADOTbDerechoTELEFONO: TWideStringField;
ADOTbDerechoCP: TWideStringField;
ADOTbDerechoOCUPACION: TWideStringField;
ADOTbDerechoDERECHO: TWideStringField;
ADOTbDerechoFECHA: TDateTimeField;
procedure BtnSalirClick(Sender: TObject);
procedure BtnModificaClick(Sender: TObject);
procedure BtnBorraClick(Sender: TObject);
procedure BtnAgregaClick(Sender: TObject);
procedure TFrmVig.BtnAgregaClick(Sender: TObject);
var
a,b,c,d,e,f,g:String;
begin
a:=DBRfc.EditText;
b:=DBComboDerecho.SelText;
c:=DBNombre.EditText ;
d:=DBDomicilio.EditText;
e:=DBTelefono.EditText;
f:=DBCP.EditText;
g:=DBFecha.EditText;
ADOQDerecho.Open;
ADOQDerecho.Last;
ADOQDerecho.Prior;
ADOQDerecho.SQL.Clear;
ADOQDerecho.SQL.Add(‘INSERT INTO derecho (RFC,DERECHO,NOMBRE,DOMICILIO,TELEFONO,CP,FECHA)VALUES (‘+a+’,’+b+’,’+c+’,’+d+’,’+e+’,’+f+’,’+g+’)’);
ADOQDerecho.ExecSQL;
ADOQDerecho.Close; end;
procedure TFrmVig.BtnBorraClick(Sender: TObject);
begin
ADOTbDerecho.Open;
ADOQDerecho.Last;
ADOQDerecho.SQL.Clear;
ADOQDerecho.SQL.Add(‘DELETE RFC,DERECHO,NOMBRE,DOMICILIO,TELEFONO FROM derecho’);
ADOQDerecho.SQL.Add(‘WHERE RFC =:Rfc ‘ );
ADOQDerecho.ExecSQL;
ADOTbDerecho.Refresh;
ADOTbDerecho.Close;
end;
procedure TFrmVig.BtnModificaClick(Sender: TObject);
begin
ADOQDerecho.SQL.Add(‘UPDATE derecho’);
ADOQDerecho.SQL.Add(‘SET RFC =:RFC, NOMBRE = :NOMBRE,DOMICILIO = OMICILIO,TELEFONO=:TELEFONO,CP=:CP,OCUPACION=:OCUPACION,DERECHO=ERECHO,FECHA=:FECHA’);
ADOQDerecho.SQL.Add(‘WHERE RFC= :RFC’);
ADOQDerecho.ExecSQL;
ADOQDerecho.Close;
end;