Aplikasi multi user

Index Konsultasi Delphi || Arsip Pertanyaan

Aplikasi multi user [Danny]

Saya seeorang yang baru bisa Delphi dan masih kurang pengalaman. Saya tertarik untuk belajar multiuser tetapi banyak kesulitan yang sering saya hadapi. Saya mempunyai beberapa pertanyaaan, mohon maaf bila saya terlalu banyak bertanya dan pertanyaan saya terlalu sulit.

1.     Apakah benar yang dinamakan multiuser itu 1 database bisa dipakai untuk beberapa orang ?

2.     Kalau benar bagaimana dengan form-nya?

3.     Apa maksudnya mapping drive dan bagaimana cara melakukannya?

4.     Untuk aplikasi database multiuser manakah yang terbaik, menggunakan tabel atau sql (saya sudah mencoba SQL tapi jalannya lambat) ?

5.     Saya mencoba dengan memakai sql untuk penanganan error updatenya bisa dengan menggunakan properties OnUpdateError milik SQL , setelah pemakai 1 mengupdate data dan pemakai 2 juga ingin mengupdate akan keluar messagebox pada form pemakai 2. Bagaimana bila menggunakan TTabel apakah bisa menangani error updatenya. Saya sudah mencoba berualang-ulang kok gagal terus. Kalau pakai sql malah bisa, apakah ada kesalahan, source-nya seperti dibawah. :

procedure Tfjual.tnotaUpdateError(DataSet: TDataSet; E: EDatabaseError; UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction); 

var 

   i : integer; 

   gagal : boolean; 

begin 

    gagal := false;

    for i := 0 to dataset.fieldcount -1 do 

    if dataset.fields[i].oldvalue<>dataset.fields[i].newvalue then    gagal := true; 

    if gagal then 

    begin 

        messagedlg(' Sudah diubah pemakai lain',mterror,[mbok],0);         updateaction:=uaabort; 

        tnota.refresh; 

    end; 

end;

6.     Dimana Saya bisa mendapatkan contoh aplikasi database multiuser karena kebanyakan yang ada di internet hanya aplikasi database biasa saja tidak berbasis multiuser.

Jawaban

1.     Benar

2.     Dipakai oleh bbrp orang di komputer yang berbeda, jadi programnya sama, dipakai oleh beberapa orang di komp yg berbeda, namun meng-akses database yang sama.

3.     Klik kanan di My Computer, ada menunya Map Net Drive jadi seakan-akan anda akan melihat Drive baru misalnya (D:) di lokal komputer anda, padahal itu adalah hard disk komputer lainnya, yg terhubung dalam jaringan.

4.     Menggunakan SQL, mungkin anda salah memasukan SQL commandnya, karena ini ada aturannya, atau bisa juga anda salah men-design databasenya.

5.     Anda melakukan langkah yang terlalu complecated, mekanisme update dan multiuser update sudah di-handle oleh database, bukan dilakukan oleh program anda.

6.     Anda bisa mencarinya pada Demo bawaan Delphi. Biasanya terletak di C:\Program Files\Borland\Delphi5\Demos

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Memindah data ke tabel lain

Index Konsultasi Delphi || Arsip Pertanyaan

Memindah data ke tabel lain [Zenbaka]

Langsung aja saya lagi belajar delphi, ingin nanya tentang Database di delphi, sebagai berikut :

Bagaimana cara membuat prosedure memindah data dari suatu tabel (dengan seluruh isi nya) ke tabel lain, mirip perintah copy di Dos. misal nya

tabelnya sebagai berikut

tabel I    sumber --------- tabel II tujuan

Kode      Nama                 kode Nama

001       kursi                   .... ...

Saya menginginkan data dari data tabel sumber di "copy" ke tabel tujuan

Jawaban

pada Delphi ada applikasi yang disertakan bernama DataPump.exe mungkin applikasi spt ini yang anda ingin buat. Cara pemrogramannya kebetulan sudah disediakan komponen TDataPump, anda bisa menggunakan komponen ini dengan cukup mudah, coba anda baca dahulu help filenya (tekan F1 pada komponen ybs) jika ada kesulitan bisa anda tanyakan kembali.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Save Banyak Stream ke Dalam Stream

Index Konsultasi Delphi || Arsip Pertanyaan

Save Banyak Stream ke Dalam Stream [Indra Mustaine]

Saya punya masalah dengan pemrograman Delphi. Bagaimana caranya mensave stream-stream (stringstream, filestream, memorystream) ke dalam stream (stringstream, filestream dan memorystream), kemudian membaca setiap stream itu ataupun membaca stream yang telah dipilih? Mohon bantuannya. Terima kasih.

Jawaban

Set property Position untuk menentukan di posisi mana anda ingin baca 

tulis :

     aStream.Position := 100;

Gunakan method Read dan Write untuk membaca / menulis ke stream tersebut:

     aStream.Write(Buffer, 1000);

     aStream.Read(Buffer, 1000);

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Menyimpan dan membatalkan perubahan pd tabel

Index Konsultasi Delphi || Arsip Pertanyaan

Menyimpan dan membatalkan perubahan pd tabel [Andri]

Salam sejahtera. Saya sedang membuat aplikasi Address Book menggunakan Delphi 6. Saya punya sebuah Form Edit yg terdiri dari DBNavigator, beberapa DBEdit (sesuai kebutuhan), dan 2 bh Button (OK dan Cancel) dgn ModalResult adl mrOK utk Button OK dan mrCancel utk Button Cancel. Database Address Book ini telah saya hubungkan pada sebuah Data Module yang saya buat (MastSrc.TablePersonal). Saya menginginkan kedua Button ini juga memiliki fungsi yg sama dgn method Post (utk Button OK) dan method Cancel (utk Button Cancel) spt halnya pada DBNavigator. Button OK tsb akan melakukan method Post jika terjadi perubahan terhadap satu atau beberapa field pada sebuah record atau tidak melakukan method Post jika saya telah melakukannya melalui Button Post Edit pada DBNavigator. Sementara Button Cancel akan melakukan method Cancel terhadap perubahan satu atau beberapa field atau tidak melakukan method Cancel jika sudah dilakukan pada DBNavigator. Kedua Button tsb kemudian diikuti oleh statement "Close;" utk menutup Form Edit. Saya mohon sekiranya Klik-Kanan.com dapat memberi bantuan berupa source code dan setting object inspector untuk kasus tersebut diatas. Terima kasih sebelumnya.

Jawaban

Pada event Button OK, OnClick :

procedure TForm1.Button1Click(Sender: TObject);

begin

     with MastSrc.TablePersonal do

     if State in [dsInsert,dsEdit] then

          Post;

end;

Pada event Button CANCEL, OnClick :

procedure TForm1.Button2Click(Sender: TObject);

begin

     with MastSrc.TablePersonal do

     if State in [dsInsert,dsEdit] then

          Cancel;

end;

Form.Close akan otomatis bila anda memberikan result mrOK/Cancel pada

TButton

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Mengambil nilai paling kiri dari string

Index Konsultasi Delphi || Arsip Pertanyaan

Mengambil nilai paling kiri dari string [Aris Hermawan ]

Bagaimana caranya mengambil nilai paling kiri atau kanan atau dari posisi yang kita suka ? Contoh 1745abc. Bagaimana apabila hendak mengambil nilai kedua dari kiri dan diassign kedalam suatu variable ?

Jawaban

Anda bisa menggunakan function Copy yang terdapat pada Delphi:

function Copy(S; Index, Count: Integer): string;

contoh :

procedure TForm1.Button1Click(Sender: TObject);

begin

     Edit2.Text := Copy(Edit1.Text, 1,5);

end;

Kode di atas akan mengembalikan substring dari string yang terdapat pada Edit1.Text sebanyak 5 karakter yang dimulai dari karakter pertama. Jadi misalnya Edit1.Text adalah 'Latihan Delphi' maka Edit2.Text adalah 'Latih'. Untuk mengambil 5 karakter terakhir Anda bisa menggunakan:

procedure TForm1.Button2Click(Sender: TObject);

var

   teks : integer;

begin

     teks := Length (Edit1.Text);

     Edit3.Text := Copy(Edit1.Text, teks-4,5); 

end;

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Paradox untuk jaringan

Index Konsultasi Delphi || Arsip Pertanyaan

Paradox untuk jaringan [Sindhu ]

Saya sedang membuat sebuah aplikasi dengan menggunakan Delphi dan databasenya menggunakan Paradox untuk program multi user (LAN). Tetapi setelah program instalasinya di install pada komputer lain, program tersebut terdapat error yaitu error pada konfigurasi BDE yang berisi paradox.lck atau database dikontrol oleh other .net file. Padahal saya sudah membuat alias database yang pathnya sudah saya tujukan ke satu komputer yang sama. Dan apabila saya mengganti secara manual pada BDE configurasi \netdir maka dikatakan file not found. Path seharusnya pada c:\.. Apakah saya harus membuat koneksi tabelnya dengan ADOConnection ? Kalau iya bagaimana caranya karena apabila dengan Access ADOConnection berjalan dengan baik tetapi apabila dengan Paradox selalu terjadi kesalahan (Error Occured). Dan Bagaimanakah cara membuat database pada Paradox ?

Jawaban

Kami punya artikel yang cukup menarik yang berhubungan dengan masalah yang Anda hadapi. Silakan download filenya di sini. Jangan lupa juga untuk membaca artikel lainnya di sini. Jika masih kurang, Anda dapat mencari menggunakan search engine, misalnya www.google.com. Masukkan aja pesan kesalahan yang Anda alami sebagai keyword.

Untuk membuat database Paradox Anda dapat menggunakan Database Desktop yang selalu disertakan pada Delphi. Sebelum membuat tabel ada baiknya Anda membuat alias dahulu. Caranya dari menu Tools, pilih Alias Manager (pada Database Desktop). Setelah itu Anda bisa memulai membuat tabel, yaitu dengan mengklik menu File - New - Table. Langkah selanjutnya silakan lagi buka file Helpnya.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Pesan kesalahan pada SQL

Index Konsultasi Delphi || Arsip Pertanyaan

Pesan kesalahan pada SQL [Nanang]

Langsung aja dech, gimana cara menampilkan pesan salah jika kita ketik perintah sql di memo bukan perintah sql? Satu lagi bagaimana apllikasi MIDAS koneksi ke interbase ? Terima kasih.

Jawaban

Untuk itu Anda bisa menggunakan try .... except seperti contoh di bawah ini:

procedure TForm1.Button1Click(Sender: TObject);

begin

     try

        with Query1 do

        begin

             Close;

             SQL.Clear;

             SQL.Add(Memo1.Text);

             Open;

        end;

     except

             MessageBox (Handle, 'Cek lagi SQLnya','Error', 

             MB_ICONERROR);

     end;

end;

Bila terdapat kesalahan pada kode di antara blok try ... except, maka akan ditampilkan pesan kesalahan dengan MessageBox. Dengan pasangantry ... except, Anda dapat menangani baris kode yang berpotensi error sehingga yang muncul adalah pesan kesalahan yang bisa Anda definisikan sendiri. Tentunya user akan lebih mudah memahami pesan kesalahan yang Anda buat dari pada pesan kesalahan "bawaan" Delphi.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Memberi warna record aktif pada TDBGrid

Index Konsultasi Delphi || Arsip Pertanyaan

Memberi warna record aktif pada TDBGrid [M. Luqmanul Hakim]

Salam kenal langsung saja yahh saya berencana membuat kamus dengan Delphi. Tapi saya ada masalah yaitu kata yang dicari sih sudah bisa didapatkan tapi saya ingin kata yang ditemukan warnanya beda. Bagaimana caranya membuat DBGrid dengan warna record yang aktif berbeda bukan hanya tanda panah kecil disamping DBGrid? Ttolong yah, terimakasih sebelumnya.

Jawaban

Anda dapat membaca tipsnya di sini.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Aplikasi database multi user

Index Konsultasi Delphi || Arsip Pertanyaan

Aplikasi database multi user [Julianto ES ]

Saya baru belajar Delphi, dan saya tertarik untuk membuat aplikasi database dengan menggunakan Delphi, baik itu multiuser maupun client/server. Pada proyek program saya yang sekarang saya berencana menggunakan Delphi. Apakah saudara tahu, dimana saya bisa mendapatkan contoh program aplikasi database dengan menggunakan Delphi, baik itu aplikasi database multiuser maupun client/server. Atas perhatian dan pertolongannya saya ucapkan banyak terima kasih. Salam, Julianto.

Jawaban

Anda dapat membaca mencarinya di :

http://www.planet-source-code.com/

http://www.programmersheaven.com/

http://codecentral.borland.com/

http://community.borland.com/

Selain itu Anda dapat mencari dengan menggunakan berbagai search engine. Kalau Anda cermat dalam mencari tentunya Anda akan mendapatkan contoh aplikasi database dalam jumlah yang sangat banyak.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Penjumlahan pada tabel

Index Konsultasi Delphi || Arsip Pertanyaan

Penjumlahan pada tabel [Fero Lim]

Bagaimana menjumlahkan data-data yang saya tampilkan dalam DBGrid yang telah difilter. Misalnya saya mempunyai 200 karyawan, saya berhasil memfilter sekitar 170 karyawan yang mempunyai gaji diatas 1.500.000 dan dibawah 5 juta. Nah sekarang saya ingin mengetahui total dari seluruh uang yang harus saya keluarkan utk 170 karyawan tsb. Terima kasih

Jawaban

Untuk melakukan penjumlahan Anda dapat menggunakan pernyataan Query sebagai berikut:

  Select sum(gaji) where gaji >= 1500000 and gaji <= 5000000

Jika Anda ingin menggunakan Table, bisa saja. Di bawah ini kami sertakan contoh untuk menghitung luas area (tabel Country.db pada DBDemos). Untuk menghitung gaji Anda tinggal mengganti field Area dengan Gaji.

procedure TForm1.Button1Click(Sender: TObject);

var

   LuasTotal : Integer;

begin

     try 

        Table1.DisableControls; 

        LuasTotal := 0;

        Table1.First;

        while not Table1.Eof do

        begin

             LuasTotal := LuasTotal + Table1['Area'];

             Table1.Next;

        end;

        edit1.Text := IntToStr(LuasTotal);

      

        finally

        Table1.EnableControls;

     end;

end;

Download contohnya di sini.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------

Algoritma kartu kredit

Index Konsultasi Delphi || Arsip Pertanyaan

Algoritma kartu kredit [Reza]

Salam kenal. Saya mo nanya nih mas, bagaimana membuat program yang bisa memeriksa apakah nomor cc yang kita kasih benar atau tidak, singkatnya inflementasi algoritma credit card ke delphi, sebelumnya saya ucapkan terimaksih. Salam Reza Pahlevi.

Jawaban

Sebelum membuat programnya, pertama-tama Anda harus mengetahui algoritma apa yang dipakai untuk pengecekan pada suatu kartu kredit, karena masing-masing kartu kredit mempunyai algoritma yang berbeda. Pada artikel "Algoritma Cek pada Kartu Kredit" Anda dapat membaca referensi tentang algoritmanya. Sedangkan pada artikel "Demonstrasi Verifikasi Nomor Kartu Kredit dengan JavaScript" Anda dapat mempelajari cara membuat verigikasi kartu kredit. Hanya saja contoh tersebut dalam JavaScript. Jika Anda sudah akrab dengan JavaScript atau bahasa C tentunya akan dengan mudah melakukan porting ke Delphi. Selamat mencoba.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------