Class TFmIdioma (unit Idioma) |
Inherits from
TForm
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
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;
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
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;