Listing pencarian di delphi 7

Listing pencarian merupakan scrip yang tentunya selalu digunakan dalam pemrograman delphi baik itu program sederhana karena disinilah bisa dilakukan pemanggilan database untuk ditampilkan ke program yang bisa dilihat user.

Lihat screen shotnya:

Berikut ini listing pencariannya;

procedure Tfolappenduduk.btcariClick(Sender: TObject);

var

  s: string;

begin

  if RadioButton1.Checked = True  then

      begin

         s :=('select * from tbpenduduk');

         dm.qpenduduk.sql.Clear;

         dm.qpenduduk.sql.Add (s);

         dm.qpenduduk.open;

      end;

Bagaimana merut teman-teman delphier sangat mudah bukan lihat juga memasukkan isi cara memasukkan isi database ke combobox.

Filter database yang tidak memenuhi ketentuan

Jika dalam program yang kita buat apalagi khususnya penjualan akan terjadi banyak kemungkinan kesalahan jika tidak menggunakan filtering diprogram anda dengan melakukan filtering berdasarkan isi database dan mengeluarkannya informasi kesalahan sehingga perhitungan atau informasi yang akan disimpan didatabase tidak ada kesalahan fatal.

Berikut ini sceen shotnya;

Listing yang digunakan untuk filtering data:
 if qpenduduk.RecordCount < 1 then
        begin
          if MessageDlg('Data yang Anda masukkan data baru, silahkan masukkan data KEPALA KELUARGA terlebih dahulu...!',mtInformation ,[mbok ],0) =mrok then
              begin
                  //FormShow(sender);
                  cbhubungankel.text:='Kepala Keluarga';
                  //cbhubungankel.Enabled:=false;
                  eno.Enabled:=True;
                  eno.SetFocus;
                  aktif;
                  exit;
              end;

        end;

Itulah lisiting yang digunakan dalam memfilter data lihat juga  mengcopy sebagaian isi datetae picker ke string

Mengcopy sebagian string

Sering kali dalam edit atau datetimepicker kita hanya mau mengambil bulan dan tahun saja atau sebaliknya sebenarnya caranya sangat mudah, hanya membutuhkan ketekunan dalam membaca diinternet banyak salah satunya di web ini akan dijelaskan cara mengambil sebagian isi dari srting yang ada dari isi komponen text:

Komponen yang digunakan:

datetimepicker adalah komponen tangga yang diambil dari komponen standart delphi

form delphi pastinya

edit tempat menampilan sebagian textnya nanti

Lisiting yang digunakan;

procedure Tfolapbulanan.Button1Click(Sender: TObject);

var

  d : string;

begin

  d:=DateToStr (DateTimePickerlapbulanan.Date);

  Edit1.Text:=copy(d,4,7);

end;

bagaimana pasti sudah bisa dan mudah bukan lihat juga cara membuat jam digital. Semoga bermanfaat yahh.

Memasukkan isi database ke combobox

Dalam pemrograman delphi terdapat combo box berguna untuk membuka beberapa pilihan baik yang diset dari awal ataupun bisa diambil data dari database yang ada. Combo box ini memang sangat berguna terutama pada program yang membutuhkan pemilihan sehingga tidak akan salah input ke databae lagi, jadi intinya mengatasi kesalahan-kesalahan yang untuk penginputan yang masuk ke database. Berikut ini contoh screen shot:

Komponen yang digunakan dalam form:
connection database
tabel1
combobox

berikut ini listing lengkap yang digunakan:

tpendidikan.first;
  cbpendidikan.items.clear;
  for a := 1 to tpendidikan.recordcount do
    begin
      cbpendidikan.items.add(tpendidikan['jenis_pendidikan']);
      tpendidikan.next;
    end;


Keterangan:
tpendidikan adalah name komponen tabel yang digunakan
jenis_pendidikan adalah nama field yang akan ditampilkan di combobox
cbpendidikan adalah nama kombo box yang akan menampilkan isi dari database yang diinginkan.

Bagaimana sangat mudah bukan. silahkan dicoba juga cara membuat jam digital semoga bermanfaat baik itu yang masih pemula atau yang sudah profesional silahkan.

Cara Menginstal Borland Delphi 7 di Windows 7 Tanpa Error

Mungkin teman-teman merasakan kegelisahan pada saat instalasi Borland Delphi 7 di Windows 7 Anda dan bahkan merasakan kekecewaannya tidak seperti saat mengistal di Windows XP. Sepantasnyalah kita tidak merasa demikian karena sebenarnya ada solusi agar Borlan Delphi 7 berjalan dengan normal di Windows 7, berikut ini:

1. Instal Borland Delphi 7 Secara Normal.
2. Buka Windows Explorer (My Computer) Anda cari alamat ini C:\Program Files dan cari Folder Borland.
3. Klik Kanan Folder Borland-Pilih Properties.
4. Pada Attributes Klik Read-Only menjadi kosong (tidak ada centang dan tanda persegi biru) di dalam ceklist Kemudian Pilih OK.
5. Selanjutnya cari C:\Program Files\Common Files klik kanan folder Borland Shared Pilih Properties. Pada Attributes Klik Read-Only menjadi kosong (tidak ada centang dan tanda persegi biru) di dalam ceklist Kemudian Pilih OK. 
6. Selanjutnya langkah terakhir adalah klik Kanan Icon Program Delphi 7 yang sudah terinstal di Komputer Anda pilih Run As Administrator agar program Delphi 7 berjalan di Administrator.

Segala Tantangan pasti terlewati, semoga menjadi pengalaman baru buat Anda programers. 

Lihat juga cara memasukkan isi database ke combobox 

 

 

Membuat Jam Digital Dari Delphi 7

Membuat jam digital pada delphi merupakan hal yang sangat mudah bagi programing profesional tapi bagi yang awal belajar dan belum tahu caranya berikut secara detailnya dilengkapi dengan gambar:

1. Buka program Delphi7 Anda yang sudah terisntal.
2. Pada palette standar masukkan kompnen Label.
3. Pada palette stystem masukkan kompnen Timer.
Berikut ini contoh pada form:

4. Kemudian doble klik Komponen Timer, dan masukkan script programnya:

4. Setelah itu Run (F9), ini hasilnya:

5. Demikian dan semoga bermanfaat.


Lihat juga cara CARA MEMBUAT LISTING PENCARIAN