Learning Delphi Program And FoxPro

Editing memo in Foxpro Dos

2010-07-13T02:53:00.000-07:00

How to edit memo in foxpro ver 2.6
To edit memo in database foxpro dos is :
Put you cursor in memo field, and just press Ctrl + Page up / page down, so we can see the containt of memo fields

Now you can edit your memo easily

Read more : Too many file open, how to put file on line

Query In Delphi Example Type

2010-07-11T03:16:00.000-07:00

========== query example x1
--query1.sql.clear;
--query1.sql.add ('select tanggal, number , codecs, receivefrom from dbtanda');
--query1.sql.add (' where tanggal >= :xQTGL1 ');
--query1.sql.add (' and tanggal <= :xQTGL2 '); --query1.parambyname('xQTGL1').asDate := xTGL1 ; --query1.parambyname('xQTGL2').asDate := xTGL2 ; --query1.prepare; query1.open; --

========== query example x2
xquery1 := ' select tanggal, number , codecs, receivefrom, receiveis, '+ ' receiveno, curren, amount, dayback, receiveby from dbtanda ' ; query1.sql.clear; query1.sql.add ( xquery1 ); query1.sql.add (' where tanggal >= :xQTGL1 ');
query1.sql.add (' and tanggal <= :xQTGL2 '); query1.sql.add (' and number >= :xQnoInvo1 ');
query1.sql.add (' and number <= :xQnoInvo2 '); query1.sql.add (' and codecs = :xQnoCust1 ') ; query1.parambyname('xQnoInvo1').asString := trim(xnoInvo1) ; query1.parambyname('xQnoInvo2').asString := trim(xnoInvo2) ; query1.parambyname('xQNoCust1').asString := trim(xnoCust1) ; query1.parambyname('xQTGL1').asDate := xTGL1 ; query1.parambyname('xQTGL2').asDate := xTGL2 ; query1.prepare; query1.open;

========== query example x3

select CodeCS, curren, sum (amount) as tlAmount from dbtanda
group by CodeCs, Curren
order by CodeCs, Curren

How To Run FoxPro Programs In windows XP

2010-07-07T18:41:00.000-07:00

Running Foxpro is the same as other program just find fox.exe oro FoxPro.exe in Foxpro folder usually in c:\fpd26\fox.exe .... or foxpro.exe
just click and it will run well.

Sometime in windows you will find and error if you use a big size or many program run in windows.

A mesaage appears : "Too many files open"
Solve :

First find file system.ini and Config.nt and edit this file and insert with this step
file location is in c:\windows\system32 folder

1. Edit file system.ini type or edit this : PerVMFILES=100
2. Also edit in file Config.nt type or edit this : FILES=100 in the
3. Edit Both file and you can run your foxpro without any error.

Read more : Too many file open

Test your internet Speed

2010-07-06T20:56:00.000-07:00

How to check you internet speed and check your IP
You can check your modem speed and web speed.
You can test your web directly by this address :
very simple :

Google test speed, indonesia test speed
to know your IP address

you can check from any and to any country in the world

Relative other topic :

Make Domain Name Easy Tobe Remember - free
Windows keys function tip and trick
Attachment Email can not be send
The best free software often use in the office
Google search secrect Google Tip

Put Your File On Line Free

2010-05-23T20:16:00.000-07:00

DAFTAR DISINI ziddu.com.

You don't need to bring you file any where you can put them with Unlimited upload and download.

Put your work, your photo, your music and other.

How To Put Your File Online In Web :

You can get free hosting, You can use this facility Ziddu.com

You can put your file in the internet, with no limit, The real file hosting service.

You can have a big capacity, put big file in web is no problem by Ziddu.com facility

Put your file in the internet now, and you can also share your file on it.

Cari Uang Dari Internet
Sample of function delphi
Delphi file manipulation
Put your file on line free

Membuka File Docx

2009-06-19T18:19:00.000-07:00

Bagi anda yang sudah mencoba rasa dari Office 2007-nya microsoft pasti sudah tahu kalau format default baru dari Office 12 ini adalah *.docx. Bagi yang masih menggunakan versi office dibawahnya pasti kelimpungan mencari cara untuk membuka file tersebut. Nah, berikut adalah beberapa cara yang bisa kamu lakukan :

1. download Compatibility Pack Microsoft Office 2007 untuk Office anda, coba download di link ini : http://www.microsoft.com/downloads/detai...http://www.microsoft.com/downloads/details.aspx?FamilyId=941B3470-3AE9-4AEE-8F43-C6BB74CD1466&disp

insyaallah masih gratis didownload. Dengan cukup menginstallnya, kini office anda seharusnya sudah bisa membuka dan menyimpan dalam format *.docx.

2. Gunakan Konverter file Online
ada 2 konverter file online yang mendukung file *.docx, setahu saya yaitu :
a. http://www.zamzar.com, yang hanya bisa mengkonvert docx ke pdf, docx ke dpc atau docx ke file teks.
b. http://www.docx2doc.com,

3. Gunakan software viewer
Software viewer adalah software yang hanya bisa melihat tanpa mengedit suatu file. Untuk file dengan format *.docx cobalah gunakan software Word Viewer asli dari Microsoft. COba download disini :
http://www.microsoft.com/downloads/detai...http://www.microsoft.com/downloads/details.aspx?FamilyId=3657CE88-7CFA-457A-9AEC-F4F827F20CAC&disp
Ada lagi yang bisa membuka file docx sebagai file rtf, silakan download disini http://www.nativewinds.montana.com/downl...http://www.nativewinds.montana.com/downloads/Do

Source : Sumber

Cara Membuka Format docx

2009-06-19T18:15:00.000-07:00

Membuka Format .docx Tanpa harus Upgrade ke Ms Office 2007 dulu.Bagi para pengguna Ms Office versi lama sudah barang tentu bingung harus melakukan apa agar bisa membuka file .docx. Mengingat format ini hanya bisa dibuka pada Word versi baru yaitu Ms Office 2007. Jadi apa yang bisa kita lakukan untuk dapat tetap membukanya?
Docx adalah standar baru untuk format file Microsoft Word 2007 dan bahkan microsoft juga menjadikan (.xlsx)untuk Excel 2007 dan (.pptx) untuk PowerPoint 2007.

Microsoft mungkin berpikir bahwa dengan membuat standar format ini, semua orang akan bisa upgrade ke versi baru. Tapi saya sampe sekarang masih suka dengan Microsoft office 2003 ketimbang Ms Office 2007 mengapa demikian, sebab Ms Office 2007 terlalu lama buat membuka aplikasi tersebut apalagi menu fiturnya berbeda jauh jadi agak membinggunkan bagi pemula tapi sebetulnya cukup bagus sih fiturnya kita tinggal klik satu tools udah muncul tools² yang kita butuhkan tidak seperti Ms Office versi lama kita mesti klik satu persatu.
Karena saya males upgrade, iseng-iseng cari viewer docx online dan akhirnya menemukan juga beberapa yang dapat di manfaatkan.

Microsoft Office Compatibility Pack

Microsoft Office Compatibility Pack untuk pengguna versi Office, agar kita dapat melihat dan mengedit format Office 2007 seperti docx, pptx dan xlsx. Kompatibilitas pack ini gratis dan lumayan kecil (30MB) aja kok. Kita bisa download ini melalui microsoft.

OpenOffice 3

OpenOffice 3 hanya dapat digunakan untuk melihat docx. Sehingga tidak mungkin untuk mengedit dan menyimpan file dalam format yang sama. Kita hanya dapat membuka file docx melihatnya.

Converter .docxke .doc menggunakan Zamzar

Zamzar merupakan layanan online untuk meng-convert berbagai format file sepeti docx (dan pptx dan xlsx). Sayangnya layanan ini membutuhkan alamat email kita untuk menerima hasil convert-annya.

Firefox Plugin untuk .docx

Plugin dari firefox ini bernama OpenXML viewer. OpenXML viewer merupakan viewer untuk docx file dan dapat membuka file docx di dalam Firefox sebagai file HTML. Tentu saja, kita tidak dapat mengedit file tapi jika melihat semua file yang kita inginkan, ini mungkin salah satu solusi termudah.

Untuk memasang plugin, dapat di-download dari websitenya dan kemudian unzip. Dengan menggunakan Firefox, buka .xpi file (File->Open) dan install plugin. kita akan diminta untuk restart Firefox dan setelah kita restart, plugin baru akan memudahkan kita melihat file berformat .docx.

Source : tutorial-tipstriks.blogspot

How To Make Batch File

2008-10-14T18:27:00.000-07:00

How to run foxpro with batch file

type this statement : make as newprog.bat file

@echo off
c:\fpd26\fox ..... yourprg.prg

how to run foxpro in windows xp, edit memo file in foxpro

Create Table By Delphi Programe

2008-06-19T22:12:00.000-07:00

table77.Close;
table77.DatabaseName := '\SysPro\_Rtxt\';
if directoryexists( 'c:\temp\' ) then
table77.DatabaseName := 'c:\temp\' ;
if directoryexists( 'c:\temp\syspro\' ) then
table77.DatabaseName := 'c:\temp\syspro\' ;

//pomast.orddate, pomast.pono, pomast.vendclass, pomast.vendorid, ');
table77.TableType := ttParadox;
table77.TableName := xfile2;
table77.FieldDefs.Clear;
table77.FieldDefs.Add('PoNo', ftstring, 8, False);
table77.FieldDefs.Add('Orddate', ftdate, 0, False);
table77.FieldDefs.Add('VendClass', ftstring, 4, False);
table77.FieldDefs.Add('VendorID', ftstring, 8, False);
table77.IndexDefs.clear;
table77.IndexDefs.add ('','pono',[ixPrimary]);
//table77.IndexDefs.add ('idex01','bluePRT',[ixCaseInsensitive]);

table77.CreateTable;
table77.Active := true ;

Copy or Append from other table
with delphi command function :

BatchMove1.Destination := table77 ;
BatchMove1.Source := table1;
BatchMove1.mappings.clear;
BatchMove1.Mappings.Add('PoNo=PoNo');
BatchMove1.Mappings.Add('OrdDate=OrdDate');
BatchMove1.Mappings.Add('VendClass=VendClass');
BatchMove1.Mappings.Add('VendorId=VendorId');
//BatchMove1.Mode := batcopy ; //copy table biasa
BatchMove1.Mode := batAppend ; //append table
//showmessage ( batchmove1.mappings.Text+'<<<' ) ;
BatchMove1.execute;

Sample of Function Delphi

2008-06-19T22:08:00.000-07:00

d = Decimal (integer)
e = Scientific
f = Fixed
g = General
m = Money
n = Number (floating)
p = Pointer
s = String
u = Unsigned decimal
x = Hexadecimal

Sample of Program format function
var
text : string;
begin
// Just 1 data item
ShowMessage(Format('%s', ['Hello']));

// A mix of literal text and a data item
ShowMessage(Format('String = %s', ['Hello']));
ShowMessage( ' ' );

// Examples of each of the data types
ShowMessage(Format('Decimal = %d', [-123]));
ShowMessage(Format('Exponent = %e', [12345.678]));
ShowMessage(Format('Fixed = %f', [12345.678]));
ShowMessage(Format('General = %g', [12345.678]));
ShowMessage(Format('Number = %n', [12345.678]));
ShowMessage(Format('Money = %m', [12345.678]));
ShowMessage(Format('Pointer = %p', [addr(text)]));
ShowMessage(Format('String = %s', ['Hello']));
ShowMessage(Format('Unsigned decimal = %u', [123]));
ShowMessage(Format('Hexadecimal = %x', [140]));
end;

Result Show :

Hello
String = Hello

Decimal = -123
Exponent = 1.23456780000000E+004
Fixed = 12345.68
General = 12345.678
Number = 12,345,68
Money = ?12,345.68
Pointer = 0069FC90
String = Hello
Unsigned decimal = 123
Hexadecimal = 8C

Cari Uang Dari Internet
Sample of function delphi
Delphi file manipulation
Put your file on line free

How to protect computer from virus

2008-01-28T19:22:00.000-08:00

How to protect your data file and program from computer virus :
Protecting computer from virus :

Use computer program like macav, avg, norton, or other and make an update every time.
Backup your system regularly.
Do not open the email that the containt is not very important.
Do not open the email that you don't know the sender.
Don't the email that contain jokes, only picture and from mailling list.
Don't open or download the website that are not very important.
Don't use USB to very computer.
Tell all user about this statement every time
ect.

The most difficult virus attach is from email.

The virus maker always find the way to attach data, file, program and computer so the email, internet and program can be contain a virus by the virus maker.
And the virus can make the computer stop and make the data and file broken.

The last solution is to backup hardisk.

(Penyebah komputer terkena virus dan menghindari dari virus komputer).
-bagaimana menghidari virus komputer antara lain adalah dengan cara yang tersebut diatas-.

Relative other topic :

Make Domain Name Easy Tobe Remember - free
Windows keys function tip and trick
Attachment Email can not be send
The best free software often use in the office
Google search secrect Google Tip

Delphi Function Tip and Trick

2008-01-22T18:38:00.000-08:00

Random number - Make Random diffrent result every time :
without this random number can make prediction

begin

Randomize;
showmessage ( "unpredictable number " + inttostr(Random(9)) ) ;

end;

To know the name of user :
Username in delphi

var

buffer : array [0..255] of char;
buffsize : dword ;
begin

buffsize := sizeof(buffer);
getusername(buffer,buffsize);
showmessage( 'Hallo you name is '+ buffer );

end;

Sample of function delphi
Delphi file manipulation
Put your file on line free

Delphi file manipulation

2008-01-15T17:59:00.000-08:00

You can make forlder, remane forlder, delete forlder, checking folder by delphi command

File function in delphi :

checking file is exist or not :

if FileExists( 'test.xls' )=false then
showmessage ( "this file is not exist" ) ;
checking folder is exist or not :

if directoryexists( xIsFolder ) then
showmessage ( "this folder is not exist" ) ;
Close windows or program :

var
x6h : hwnd;
begin

x6h := findwindow(nil,"google - microsoft internet explorer"); // check windows / ie
if x6h<>0 then postmessage ( x6h,wm_close,1,0); // close windows / ie

end;
Delete file :

sysutils.deletefile ( pchar('coba.xls') ) ;
Rename file :

renamefile ( 'c:\temp\test1.XLS', 'c:\temp\test77.XLS' );
Openning file :

first add in uses
uses
Windows, Messag . . . . . . . . . . . . . . . . . . , Dialogs, StdCtrls,
shellapi ;

begin
shellexecute (handle,'open',pchar( 'c:\temp\text44.txt' ),nil,nil,sw_show) ;
end;

To know the current drive in delphi :

showmessage ( 'the current drive is ' + GetCurrentDir ) ;

Want to see all delphi command and function Click Here.

Loading and Open Delphi More Faster

2007-11-28T18:58:00.000-08:00

How to open delphi more faster :
You can make your Delphi program faster by this solution by this simple ways :
Opening Delphi Program will be more fast and faster by this step :
Manage your form in delphi 7

1. Put only one or some in Auto-create forms list.
2. And Put other or the rest forms in Available forms list.
3. Make Delphi Exceptions unClick.
4. A little command in opening form.

so the program only create or busy only on one form at the first time and next time

Second step : But will be found an error and you have to make this correction :
Make Delphi Exceptions unClick

After that every time you want to open form, you have to make this command :

Example 1 while opening form
xstatus:='BIN';
xAllprg := xAllprg + xstatus+'_';
// judul form judul cetak division......
try
frmTrBankOUT.show // or close ;
except
frmTrBankOUT := tfrmTrBankOUT.create(self);
end;

uTRbankOut.xtitlePR := 'Input Bank Receipt ;BANK RECEIPT VOUCHER;BIN1' ;
uTRbankOut.xvarusernm := xvarusernm ;
frmTrBankOUT.show ;
Example 2
xstatus:='BPA';
xAllprg := xAllprg + xstatus+'_';
// judul form judul cetak division......
try
frmTrBankOUT.close ; // or open
except
frmTrBankOUT := tfrmTrBankOUT.create(self);
end;

uTRbankOut.xtitlePR := 'Input Bank Payment;BANK PAYMENT VOUCHER;BPA1' ;
uTRbankOut.xvarusernm := xvarusernm ;
frmTrBankOUT.show ;

In This Topic :
fast load file delphi
faster delphi loading

Other topic : Delphi sample function, Delphi Tip and Trick, File manipulation, Quick Report Installing.

AddMe - Search Engine Optimization

have a try,
thanks

Installing BDE - Borland Data Base Engine without Delphi Application

2007-11-28T18:23:00.000-08:00

bde install without delphi - installing bde without delphi :

Find this dll - BdeInst.dll in Delphi Application / Software usually found in delphi 5 or in delphi 6 cd installer
Windows exe program from Windows\system32\regsvr32.exe
Click start in windows and click run
Run Statment like this : regsvr32 /s bdeinst.dll than click oke
Now BDE has been install - finish
Or you can make a batch file and BdeInst.dll, regsvr32.exe in batch file ex : file1.bat
put that file into one forlder, and every time you need
you can just click the file1.bat.
file1.bat containt is : regsvr32 /s bdeinst.dll

BDEist.dll is usually found in delphi 5 or in delphi 6 cd installer file location :
..... \runimage\borland shared\bde\bdeinst.cab\dbeinst.dll

Location of file regsvr32.exe is in c:\windows\system32

Or you can direct type in run command windows type this : regsvr32 /s bdeinst.dll

so now you can run database without delphi application, it's only with bdeinst.dll file

Topic that people always ask :

bde borland data base engine
bde database engine
bde delphi
bde install without delphi
bde-borland.data base engine
bdeinst.dll
dbe install, bde install dll
install bde 5
install bde delphi
install bde without delphi
installing bde
installing bde without delphi
learning delphi
learning delphi 7
delphi file manipulation

Other topic : Delphi sample function, Delphi Tip and Trick, File manipulation, Quick Report Intalling.

thanks

Fox Pro Dos 2.6 in Windows Xp

2007-11-23T02:23:00.001-08:00

Why foxprog big program can not run well in windows xp
foxpro too many files run in windows xp :
To execute FOXPRO DOS application under WIN XP.

how to solve this error - too many file open in foxpro for dos in win xp
(it is just like you make config.sys)

A mesaage appears : "Too many files open"
Solve :

First find file system.ini and Config.nt and edit this file and insert with this step
file location is in c:\windows\system32 folder

1. Edit file system.ini type or edit this : PerVMFILES=100
2. Also edit in file Config.nt type or edit this : FILES=100 in the
3. Edi both file and you can run your foxpro without any error.

Question people always aks :

fox pro too many files open
foxpro 2.6 application problem in winxp
foxpro 2.6 dos version and winxp
foxpro 2.6 for dos
foxpro 2.6 para windows
foxpro and delphi 7
foxpro dos editing fields
foxpro dos too many files open error
foxpro program run on win xp
too many file open in foxpro for dos in...
too many files open in dos foxpro

now try to begin foxpro once again -end- Read more forpro in windows

How to print foxpro in windows xp or window 2000:
How to share printer in foxpro dos in windows :
sharing printing in windows for foxpro for dos
You have to make bacth file
exsample : print01.bat

Sintaks :
echo net use lpt1:\\ ....computer user that has a priter.....\....name of printer (share name)

type this : in your bacth file ex. print01.bat
net use
NET USE LPT1 /DELETE
echo net use lpt1: \\fswks-finc12\EPSONLX- persistent:yes

But sometimes the user should be as Administrator

after you save your bacth file and you click, then you can print
directly to other user.

Intalling Quick Report In Delphi 7

2007-11-22T20:46:00.000-08:00

How to intall quick report in delphi 7
Click Menu Component – Install Packages.
Press ADD botton find Packages file dclqrt70.bpl in
directory ..\Borland\Delphi7\Bin\ .... dclqrt70.bpl then click OPEN
will show Package “Quick Report Components” Click OK.

Now You Can Check the result.

Other Good Website :
get money from the internet is very easy / cara medapatkan uang dari internet gratis pasti
Google can give you money by making advertisement all over the world
Google get money from advertising and google give a percent of money to ever body
who put advertisement in their web site :

The secret of Google
Get money from Google
Live is easy

Other topic : Delphi sample function, Delphi Tip and Trick, File manipulation, Quick Report Intalling.

thanks.