Cuma Scout Jeha

Read more ...

Tutorial Program Penerimaan Siswa baru menggunakan Delphi

Program Delphi – “Pendaftaran Calon Siswa Baru”

Halo sahabat blogger, kembali lagi Liezz Lokon Menyapa dan memberi semangat pagi kepada para sahabat-sahabatku yang belum ta saling kenal,, hahaaa........Ya kali ini Liezz kan membagi karya sendiri, yah karna juga ini tugas dari dosen saya yang ada di Amikom Mataram, mau gimana lagi ta harus bagi hasil begadang ini... Kalau ada kritikan dan saran atau juga tambahan terhadap program ini, dengan senang hati Liezz Lokon menerima apapun itu... J, ,,,

Langsung saja ayok baca dan pelajari program-program ini. Ilmunya Liezz sederhana dan tidak pelit untuk berbagi..

Berikut langkah-langkah membuat program Daftar Calon Siswa baru:

•  Pertama-tama siapkan Laptop/komputer lengkap dengan mouse dan keyboard,,
• Siapkan software aplikasi delphi 7. Sebelum buka program delphi, siapkan terlebih dahulu database, buatlah database dengan nama apapun, disini penulis buat dengan nama “dbpsb.accdb”. dan buat 2 tabel didalam database tersebut. Isi tabel pertama dengan identitas siswa seperti nama, ttl, jenis kelamin, dll. Sedangkan tabel kedua isi dangan program pilihan keahlian. Simpan di folder yang sama dengan tempat simpan program ini nanti.
• Setelah itu Buka aplikasi delphi 7.
• Bautlah 2 form dan isi form tersebut seperti gambar dibawah ini.

 

Form1 berisi identitas siswa dan form2 berisi pilihan jurusan, keterampilan, dan ekstrakulikuler 

• Silahkan koneksikan program dengan database yang telah dibuat. Disini ta menggunakan ADOTable. Jika tidak bisa mengkoneksi, silahkan cari di sobat blogger yang lain. Banyak kok, tinggal nanya ma mbah google.
• Form 1 isikan codding untuk menyembunyikan groupbox, supaya disaat klik button isi biodata maka akan tampil tempat mengisi data.

• Di form 1, dalam button isi data masukkan coding seperti dibawah ini

 

• Di button Isi Pilihan Jurusan, masukkan coding 

 

• Untuk coding Simpan tulis “ADOTable1.FieldByName(‘nama_field’).AsString:=Editn.text;” 

 

•   Kalau buton keluar kan tau tinggal tulis “ close; ” aja. Kalau yang mau ada printah yakin keluar klik yes atau no, yahh cari sendiri dah di mbah google.

•    Kalau button isi lagi juga taulah..

 

Kamudian button Lihat Daftar Peserta.

Di form 2 langusng aja tulis coding berikut 

procedure TForm2.Button3Click(Sender: TObject);

begin

form2.Hide;

form1.Show;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOTable1.Append;

GroupBox4.Show;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

GroupBox4.Hide;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

ADOTable1.FieldByName('id_pilihan').AsString:=Edit2.Text;

ADOTable1.FieldByName('no_bedaftar').AsString:=DBLookupComboBox1.Text;

ADOTable1.FieldByName('jurusan').AsString:=ComboBox1.Text;

ADOTable1.FieldByName('keterampilan').AsString:=ComboBox2.Text;

ADOTable1.FieldByName('ekstrakulikuler').AsString:=ComboBox3.Text;

ADOTable1.Post;

end;


Sekarang untuk report. Disini penulis menggunakan QuickReport

Yang penulis isi yah Cuma sedikit lah. Gak terlalu banyak. Karna sesuai button Lihat Daftar calon siswa. Cuma ada nama, ttl, jenis, kelamin, dan asal sekolah.

Disini penulis menggunakan Adotable juga untuk koneksi dengan database. Silahkan koneksikan seperti sebelumnya. Mau tau lebih lanjut dengan cara membuat Quick Report. Silahkan cari di google. Karna penulis juga tidak mahir dalam membuat laporan.

Sekiat saja untuk tutorial ini. Jangan lupa beri komentar.

Terima Kasih.

Read more ...