Komponen atau Atribut Pallete untuk Membuat Database di Delphi

Komponen atau Atribut Pallete untuk Membuat Database di Delphi

Delphi Tutorial Pustaka Matematika   10:26

Delphi merupakan salah satu software pembuat aplikasi database yang sangat handal dengan kombinasi Microsoft Excel. Delphi sudah memiliki atribut yang digunakan dalam membuat database yakni: Data Access, Data Control, ADO, dan QReport. Berikut penjelasan masing-masing komponen tersebut.

Tab	Komponen	Fungsi / Kegunaan
Data Access	DataSource	Untuk mencari data dalam sebuah tabel
Data Control	DBGrid	Untuk tabel data
	DBNavigator	Sebagai navigator dalam pencarian data di tabel
	DBChart	Untuk membuat grafik/gambar dari data di tabel
ADO	ADOConnection	Untuk koneksi Ms Access ke Delphi
	ADOTable	Untuk koneksi ADOConnection dengan ADOQuery
	ADOQuery	Untuk koneksi ADOQuery dengan DBGrid (Tabel)
QReport	QuickRep	Untuk desain laporan dari DBGrid
	QRLabel	Untuk penamaan/pelabelan atribut
	QRDBText	Untuk menampilkan data dari DBGrid
	QRSysData	Untuk menambah waktu, tanggal, dan sebagainya.
	QRShape	Untuk membuat tabel di QuickRep
	QRImage	Untuk menambahkan gambar/logo di QuickRep.

Cara Membuat Program Aplikasi Persegi Menggunakan Borland Delphi

Cara Membuat Program Aplikasi Persegi Menggunakan Borland Delphi

Delphi Tutorial Pustaka Matematika   17:47

Adapun langkah-langkah membuat program aplikasi Persegi menggunakan Delphi.

Pertama, ambillah atribut pallete: 3 LabeledEdit dan 2 BitButton.

Kedua, gantilah caption LabeledEdit melalui EditLabel di Object Inspector, untuk LabeledEdit1 menjadi "Sisi", LabeledEdit2 menjadi "Luas", LabeledEdit3 menjadi "Keliling".

Ketiga, gantilah caption BitButton melalui Caption di Object Inspector, untuk BitButton 1 menjadi 'Hitung", BitButton2 menjadi "Hapus".

Keempat, double click tombol Hitung, ketikkan scribs berikut.
procedure TForm1.BitBtn1Click(Sender: TObject);
Var s,L,K:real;
begin
s:=strtofloat(LabeledEdit1.Text);
L:=s*s;
K:=4*s;
LabeledEdit2.Text:=floattostr(L);
LabeledEdit3.Text:=floattostr(K);

Kelima, double click tombol Hapus, ketikkan scribs berikut.
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
LabeledEdit1.Clear;
LabeledEdit2.Clear;
LabeledEdit3.Clear;
LabeledEdit1.SetFocus;
end;

Keenam, tekan F9 di keyboard.

Semoga bermanfaat. Jangan isi email Anda di Form Subscriber for Letter. Silahkan tinggalkan komentar jika ada pertanyaan.

Cara Export StringGrid ke Ms Excel di Delphi

Cara Export StringGrid ke Ms Excel di Delphi

Delphi Tutorial Pustaka Matematika   01:40

Sebelumnya penulis sudah membagikan cara export DBGrid ke Ms Excell di Delphi. Sekarang cara export string grid ke Ms Excel. Silahkan ikuti langkah berikut ini.

Misalkan kita punya IDE Delphi seperti berikut.

Pertama, pada Uses tambahkan comobj. Sehingga seperti berikut:


Kedua, pada Private tambahkan scribs berikut:
XlApp, XlBook, XlSheet, XlSheets, Range,chat : Variant;
        WApp, Word : Variant;

Ketiga, pada Implementation tambahkan scribs berikut:

function RefToCell(ARow, ACol: Integer): string;
begin
  Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);
end;

function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
const
  xlWBATWorksheet = -4167;
var
  Row, Col: Integer;
  GridPrevFile: string;
  XLApp, Sheet, Data: OLEVariant;
  i, j: Integer;
begin
  // Prepare Data
  Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
  for i := 0 to AGrid.ColCount - 1 do
    for j := 0 to AGrid.RowCount - 1 do
      Data[j + 1, i + 1] := AGrid.Cells[i, j];
  // Create Excel-OLE Object
  Result := False;
  XLApp := CreateOleObject('Excel.Application');
  try
    // Hide Excel
    XLApp.Visible := False;
    // Add new Workbook
    XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet := XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name := ASheetName;
    // Fill up the sheet
    Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,
      AGrid.ColCount)].Value := Data;
    // Save Excel Worksheet
    try
      XLApp.Workbooks[1].SaveAs(AFileName);
      Result := True;
    except
      // Error ?
    end;
  finally
    // Quit Excel
    if not VarIsEmpty(XLApp) then
    begin
      XLApp.DisplayAlerts := False;
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
    end;
  end;
end;

Keempat, pada tombol "Simpan", ketikkan scribs berikut:
if SaveAsExcelFile(stringGrid1, 'My Stringgrid Data', 'd:\MyExcelFile.xls') then
    ShowMessage('Data Sudah Disimpan!');

Silahkan runnung (tekan F9), isikan stringgrid Anda jika masih kosong, kemudian tekan tombol Simpan, terakhir cek hasilnya di Local D.

Catatan: Jika Anda ingin menyimpan di local C, tinggal Anda ganti "d" menjadi "c", begitu juga jika Anda ingin menyimpan dalam sebuah folder, tinggal Anda ganti alamat berwarna merah tersebut sesuaikan dengan nama / alamat folder basis data Anda.

Terima Kasih. Jangan lupa Like FansPage FB dan Subcribe.