{$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
Application.Terminate;
end;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
DBEdit7.Text:=DateToStr(DateTimePicker1.date);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
SpeedButton6.Click;
ADOQ.ConnectionString:='MSDASQL.1;Persist Security Info=False;Data Source=trans';
ADOQ.Active:=true;
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
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.Text:='';
Edit1.SetFocus;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
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
ADOQ.Post;
SpeedButton2.Caption:=' &Nuevo';
SpeedButton6.Click;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
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
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
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
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
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.