edysoftware.com

This is function to get menu caption, disable and enabled some menu, using loop we check if the component is class of tmenuitem we do something as we like, enabled, caption or another property

procedure TFrmMain.checkmenu;
var i:integer;
Continue Reading…

to get secured password .. Simple way to Encrypt and Decrypt text

function Decrypt(const S: String): String;
var
I: byte;
t:string;
begin
for I := 1 to Length(S)div 2 do begin
t:=t+chr(ord(s[i])-64);
end;
result:=t;
end;
Continue Reading…

How to get all menus in mainform of application..?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, CheckLst;

type
TForm1 = class(TForm)
CheckListBox1: TCheckListBox;
Button1: TButton;
MainMenu1: TMainMenu;
File1: TMenuItem;
FileNewItem: TMenuItem;
FileCloseItem: TMenuItem;
N1: TMenuItem;
ResetWindowOptions1: TMenuItem;
ExportSettings1: TMenuItem;
Importsettings1: TMenuItem;
N5: TMenuItem;
FileExitItem: TMenuItem;
Edit1: TMenuItem;
CopyItem: TMenuItem;
PasteItem: TMenuItem;

Continue Reading…

This day we Will show how to get tables name form database access.mdb using ADO.

For the first time we add unit in list uses

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;

Because we using ADO so we need unit ADODB and DB to get table function, after that put on our form

• Combobox
• Listbox
• Button

ComboBox and ListBox as destination of tables name.

On Button1click write this code :

procedure TForm1.Button1Click(Sender: TObject);
var
TypeField,
NameField: TField;
TableType: string;
DataSet: TADODataSet;
ADOConnection:tADOConnection ;
data:string;
begin
data:=’C:\Program Files\lbi for windows\data\LBU200805.mdb‘; //Database access
// create ado connection
ADOConnection:=tADOConnection.create(nil);
ADOConnection.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’+
data+’;Persist Security Info=False’;

Continue Reading…