Class TFmIdioma (unit Idioma)

Inherits from

TForm

Constructors



Functions

procedure BBCopiarClick(Sender: TObject);


procedure BBGrabarClick(Sender: TObject);


procedure BBMoverClick(Sender: TObject);


procedure BBSalirClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure BitBtn3Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);


procedure BitBtn5Click(Sender: TObject);

if RBSP.

procedure BitBtn6Click(Sender: TObject);


procedure DBGrid1CellClick(Column: TColumn);

if RBSP.

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

Table1.

procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure EditBuscarKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

For call in other project Dir := ExtractFilePath(ExpandFileName('Idioma32.

procedure FormCreate(Sender: TObject);


procedure Table1AfterScroll(DataSet: TDataSet);


procedure MuestraEdit;

Public declarations

Properties

Events

Variables

BBCopiar : TBitBtn;


BBGrabar : TBitBtn;


BBMover : TBitBtn;


BBSalir : TBitBtn;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


BitBtn5 : TBitBtn;


BitBtn6 : TBitBtn;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


Edit4 : TEdit;


Edit5 : TEdit;


Edit6 : TEdit;


Edit7 : TEdit;


EditBuscar : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


RBDE : TCheckBox;


RBEN : TCheckBox;


RBFR : TCheckBox;


RBIT : TCheckBox;


RBPO : TCheckBox;


RBSP : TCheckBox;


RDE : TRadioButton;


REN : TRadioButton;


RFR : TRadioButton;


RIT : TRadioButton;


RPO : TRadioButton;


RSP : TRadioButton;


Table1 : TTable;



Constructors


Functions


procedure BBCopiarClick(Sender: TObject);


procedure BBGrabarClick(Sender: TObject);


procedure BBMoverClick(Sender: TObject);


procedure BBSalirClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure BitBtn3Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);


procedure BitBtn5Click(Sender: TObject);

if RBSP.Checked then TxtSP := FieldByName('SP').AsString;


procedure BitBtn6Click(Sender: TObject);


procedure DBGrid1CellClick(Column: TColumn);

if RBSP.Checked then Table1.FieldByName('SP').AsString := TxtSP;


procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

Table1.Next;


procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure EditBuscarKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

For call in other project Dir := ExtractFilePath(ExpandFileName('Idioma32.Exe')); if Dir[Length(Dir)] <> '\' then Dir := Dir + '\'; Table1.DatabaseName := Dir; Table1.TableName := 'GLang.dbf'; Table1.Open; BitBtn1Click(nil);


procedure FormCreate(Sender: TObject);


procedure Table1AfterScroll(DataSet: TDataSet);


procedure MuestraEdit;

Public declarations


Properties


Events


Variables


BBCopiar : TBitBtn;


BBGrabar : TBitBtn;


BBMover : TBitBtn;


BBSalir : TBitBtn;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


BitBtn5 : TBitBtn;


BitBtn6 : TBitBtn;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


Edit4 : TEdit;


Edit5 : TEdit;


Edit6 : TEdit;


Edit7 : TEdit;


EditBuscar : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


RBDE : TCheckBox;


RBEN : TCheckBox;


RBFR : TCheckBox;


RBIT : TCheckBox;


RBPO : TCheckBox;


RBSP : TCheckBox;


RDE : TRadioButton;


REN : TRadioButton;


RFR : TRadioButton;


RIT : TRadioButton;


RPO : TRadioButton;


RSP : TRadioButton;


Table1 : TTable;