Emmm… oke kita coba trik sederhaana ini semoga bermanfaat,
kita mungkin memerlukan filtering data berdasar bulan tertentu di tahun tertentu, oke banyak cara sih… bisa diketik di EditBox atau cara-cara lainya, ya suka-suka programernya lah, saya akan coba berbagi cara mengisikan tahun dan bulan kedalam combobox dengan menggunakan sebuah fungsi, hehe jadi inget waktu itu pakek combobox juga tapi ketik nama bulan satu persatu di bgian items nya, nah untuk mempermudah hal ini, kita coba prosedur sederhana ini, pertama-tama kita buat prosedur seperti dibawah ini didalam form atau apalah terserah kita yang penting tar nih prosedur dipanggil buat isi bulan dan tahun ke dalam combobox, ini dia code nya
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| . . .procedure isiBulan(Combobox: TComboBox);varBulan : String;begin Bulan := 'Januari:Februari:Maret:April:Mei:Juni:Juli:Agustus:September:Oktober:November:Desember'; ComboBox.Items.Text := StringReplace(Bulan,':',Char(13)+Char(10),[rfReplaceAll]); ComboBox.ItemIndex :=strtoint(copy(datetostr(Date()),4,2))-1;end;procedure isiTahun(Combobox: TComboBox);var thn, bln, hari: Word; i: Integer;begin DecodeDate(Date(),thn,bln,hari); Combobox.Items.Clear; for i := thn downto (thn-5) do begin Combobox.Items.Add(IntToStr(i)); end; Combobox.ItemIndex:=0;end; |
*penjelasan :
- untuk fungsi isibulan dari deret string yang dibuat dalam variabel bulan akan di potong berdasar chr :, dan mengatinya dengan karakter enter sehingga di dalam combobox nanti akan mengisi items kebawah.
- untuk ComboBox.ItemIndex :=strtoint(copy(datetostr(Date()),4,2))-1;berfungsi agar combobox defaultnya berada pada bulan sekarang (sistem tanggal pada komputer).
- untuk fungsi isi tahun for i := thn downto (thn-5) do dia akan mengisikan dari tahun sekarang countdown sampai 5 tahun kebelakang, angka 5 disitu bisa di ganti sesuai kebutuhan, posisi default akan berada pada tahun aktif sekarang (sistem tanggal pada komputer) bahkan jika sudah ganti tahun.
Oke setelah prosedure diatas sudah dibuat, siapkan 2 buah combobox didalam form yang ingin kita munculkan, maka caramemakai prosedur tersebuat adalah seperti dibawah ini bisa di taroh pada form show form activate atau suka-suka kita lah yang penting logis..
1
2
3
4
5
6
| . . .procedure TForm1.FormCreate(Sender: TObject);begin isiBulan(ComboBox1); isiTahun(ComboBox2);end; |
Jika berhasil maka saat form kita Run maka akan tampak seperti pada gambar dibawah ini..
Semoga hal sederhana ini bisa menjadi suatu manfaat bagi yang membaca dan bisa dikembangkan menjadi hal yang berguna bagi siapapun bagi yang ingin mendownload contonyadisini, salam delphier
Jangan lupa beri tanggapan ya…
0 komentar:
Posting Komentar