Tutorial Delphi

var
i : integer;
begin
for i := 1 to ZQuery2.RecordCount do
begin
ComboBox1.Items.Add(ZQuery2['Keterangan']);
ZQuery2.Next;
end;
end;

DBGrid1.Columns[2].PickList:=ComboBox1.Items;

   gridwarna : TDBGrid;
   warnarow : integer;

//Memberi Warna yang berbeda pada DBGrid
    gridwarna := sender as TDBGrid;
    warnarow := gridwarna.DataSource.DataSet.RecNo;
    if Odd(warnarow) then
    gridwarna.Canvas.Brush.Color := clyellow // Ganti Warnanya Sesuai Kebutuhan
    else
    gridwarna.Canvas.Brush.Color := clgreen; // Ganti Warnanya Sesuai Kebutuhan
    gridwarna.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;

 // Bersihkan Query Lap Nasabah
 QLapNasabah.SQL.Clear;
 // Ambil Data di Tabel Nasabah Berdasarkan TanggalRegister Antara DatetimePicker1 dan DatetimePicker2
 QLapNasabah.SQL.Add('SELECT * from nasabah WHERE(((TanggalRegister) BETWEEN '''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''' AND '''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.DATE)+'''))ORDER BY Nomor asc');
 // Aktifkan Query Lap Nasabah
 QLapNasabah.Active:=True;
 // Tampilkan Laporan
 NasabahReport.Preview;

 // Bersihkan Query Lap Nasabah
 QLapNasabah.SQL.Clear;
 // Ambil Semua Data yang ada di Tabel nasabah
 QLapNasabah.SQL.Add('select * from nasabah');
 // Aktifkan Query Lap Nasabah
 QLapNasabah.Active:=True;

Uses
DateUtils;

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 3);
edit1.text:=DateToStr(myDate);
End;

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 7);
edit2.text:=DateToStr(myDate);
End;

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 30);
edit3.text:=DateToStr(myDate);
End;

winexec('shutdown -s -t 0 -f',sw_normal);

winexec('Shutdown -r -t 0 -f',sw_normal);

var
cari:string;
begin
cari:=InputBox('Nama Yang Dicari ??','Nama : ','');
// Prose Pencarian Data
if not ADOTable1.Locate('Nama',cari,[]) then
ShowMessage('Tidak Ada Data !!') else
abort;
end;

Edit1.Text:=FloattoStr(StrtoDate(DateToStr(DateTimePicker2.Date))-StrtoDate(DateToStr(DateTimePicker1.Date)));

ShellExecute(self.Handle,pchar('open'),
PCHAR('C:\xampp\mysql\bin\mysql'),
PCHAR('-uroot -ppassword-mysql-anda -h localhost -e "drop database if exists nama-database; '+
'create database nama-database;use nama-database;\. '+opendialog.FileName+'"'),nil,SW_HIDE);
MessageDlg('Data Berhasil di Restore !!', mtInformation, [mbOK], 0);

unit Unit1;
interface
uses
  ... , ShellApi;

ShellExecute(self.Handle, PCHAR('open'),
PCHAR('C:\xampp\mysql\bin\mysqldump.exe'),
PCHAR('-uroot -ppassword-mysql-anda -h localhost -R -r "'+SaveDialog1.FileName+'.sql" bmt'),,
PCHAR('C:\xampp\mysql\bin'),
SW_HIDE);
MessageDlg('Data Berhasil di Backup !!', mtInformation, [mbOK], 0);

Handle: THandle;

// Fungsi Terbilang
function terbilang(sValue: string):string;
const
Angka : array [1..20] of string =
('', 'Satu', 'Dua', 'Tiga', 'Empat',
'Lima', 'Enam', 'Tujuh', 'Delapan',
'Sembilan', 'Sepuluh', 'Sebelas',
'Duabelas', 'Tigabelas', 'Empatbelas',
'Limabelas', 'Enambelas', 'Tujuhbelas',
'Delapanbelas', 'Sembilanbelas');
sPattern: string = '000000000000000';

var
S,Rupiah : string;
Satu, Dua, Tiga, Belas, Gabung: string;
Sen, Sen1, Sen2: string;
Hitung : integer;
one, two, three: integer;

begin
One := 4;
Two := 5;
Three := 6;
Hitung := 1;
Rupiah := '';
S := copy(sPattern, 1, length(sPattern) - length(trim(sValue))) + sValue;
Sen1 := Copy(S, 14, 1);
Sen2 := Copy(S, 15, 1);
Sen := Sen1 + Sen2;
while Hitung < 5 do
begin
Satu := Copy(S, One, 1);
Dua := Copy(S, Two, 1);
Tiga := Copy(S, Three, 1);
Gabung := Satu + Dua + Tiga;

if StrToInt(Satu) = 1 then
Rupiah := Rupiah + 'Seratus '
else
if StrToInt(Satu) > 1 Then
Rupiah := Rupiah + Angka[StrToInt(satu)+1] + ' Ratus ';

if StrToInt(Dua) = 1 then
begin
Belas := Dua + Tiga;
Rupiah := Rupiah + Angka[StrToInt(Belas)+1];
end
else
if StrToInt(Dua) > 1 Then
Rupiah := Rupiah + Angka[StrToInt(Dua)+1] + ' Puluh ' +
Angka[StrToInt(Tiga)+1]
else
if (StrToInt(Dua) = 0) and (StrToInt(Tiga) > 0) Then
begin
if ((Hitung = 3) and (Gabung = '001')) or
((Hitung = 3) and (Gabung = ' 1')) then
Rupiah := Rupiah + 'Seribu '
else
Rupiah := Rupiah + Angka[StrToInt(Tiga)+1];
end;

if (hitung = 1) and (StrToInt(Gabung) > 0) then
Rupiah := Rupiah + ' Milyar '
else
if (Hitung = 2) and (StrToInt(Gabung) > 0) then
Rupiah := Rupiah + ' Juta '
else
if (Hitung = 3) and (StrToInt(Gabung) > 0) then
begin
if (Gabung = '001') or (Gabung = ' 1') then
Rupiah := Rupiah + ''
else
Rupiah := Rupiah + ' Ribu ';
end;
Hitung := Hitung + 1;
One := One + 3;
Two := Two + 3;
Three := Three + 3;
end;
if length(Rupiah) > 1 then Rupiah := Rupiah + ' Rupiah ';
Result := Rupiah;
end;
// End Terbilang

Label1.Caption:=terbilang(Edit1.Text);

var
Rp  : string;
  Rph : Currency;
begin
  Rp := Edit1.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);
  edit1.Text := FormatCurr('#,###',Rph);
  edit1.SelStart := length(edit1.text);
end;

If key=#13 then // Code Asscii Enter adalah 13
begin
// Disini Aksi yang akan dilakukan Setelah Tombol Enter ditekan
end;

SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);