You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
110 lines
3.3 KiB
110 lines
3.3 KiB
unit ufrmGrupoBoletoEmpresas;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
|
System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls,
|
|
Vcl.DBCtrls,
|
|
Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, rDBComponents;
|
|
|
|
type
|
|
TfrmGrupoBoletoEmpresas = class(TmstCadastro)
|
|
DBMemo1: TDBMemo;
|
|
Label1: TLabel;
|
|
DBNavigator1: TDBNavigator;
|
|
dtsDB2: TDataSource;
|
|
dbgrdGrupoEmpresa: TDBGrid;
|
|
DBLookupComboBox1: TDBLookupComboBox;
|
|
PageControl1: TPageControl;
|
|
TabSheet1: TTabSheet;
|
|
DBRadioGroup1: TDBRadioGroup;
|
|
DBEdit2: TDBEdit;
|
|
DBEdit3: TDBEdit;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
TabSheet2: TTabSheet;
|
|
Label6: TLabel;
|
|
Label7: TLabel;
|
|
DBEdit4: TDBEdit;
|
|
DBRadioGroup2: TDBRadioGroup;
|
|
DBEdit5: TDBEdit;
|
|
TabSheet3: TTabSheet;
|
|
Label9: TLabel;
|
|
Label10: TLabel;
|
|
DBEdit6: TDBEdit;
|
|
DBRadioGroup3: TDBRadioGroup;
|
|
DBEdit7: TDBEdit;
|
|
TabSheet4: TTabSheet;
|
|
DBRadioGroup4: TDBRadioGroup;
|
|
Label11: TLabel;
|
|
Label12: TLabel;
|
|
DBEdit8: TDBEdit;
|
|
DBEdit9: TDBEdit;
|
|
TabSheet5: TTabSheet;
|
|
DBRadioGroup5: TDBRadioGroup;
|
|
Label13: TLabel;
|
|
Label14: TLabel;
|
|
DBEdit10: TDBEdit;
|
|
DBEdit11: TDBEdit;
|
|
DBLookupComboBox2: TDBLookupComboBox;
|
|
Label15: TLabel;
|
|
Label16: TLabel;
|
|
procedure dtsDBStateChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure dtsDB2StateChange(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmGrupoBoletoEmpresas: TfrmGrupoBoletoEmpresas;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses udtmSystem;
|
|
|
|
procedure TfrmGrupoBoletoEmpresas.dtsDB2StateChange(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
grpDescricao.Enabled := not(dtsDB2.State in [dsInsert, dsEdit]);
|
|
navPrincipal.Enabled := not(dtsDB2.State in [dsInsert, dsEdit]);
|
|
end;
|
|
|
|
procedure TfrmGrupoBoletoEmpresas.dtsDBStateChange(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
tabCadastro.Enabled := not(dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit1.ReadOnly := not(dtsDB.State in [dsInsert, dsEdit]);
|
|
DBMemo1.ReadOnly := not(dtsDB.State in [dsInsert, dsEdit]);
|
|
DBRadioGroup1.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBRadioGroup2.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBRadioGroup3.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBRadioGroup4.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBRadioGroup5.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit2.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit3.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit4.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit5.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit6.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit7.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit8.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit9.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit10.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
DBEdit11.Enabled := (dtsDB.State in [dsInsert, dsEdit]);
|
|
end;
|
|
|
|
procedure TfrmGrupoBoletoEmpresas.FormCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
dtsDB.DataSet.Open;
|
|
dtmSystem.SetupHackedNavigator(navPrincipal, dtmSystem.ImageList1, 's');
|
|
dtmSystem.SetupHackedNavigator(DBNavigator1, dtmSystem.ImageList1, 'n');
|
|
end;
|
|
|
|
end.
|