[TUTORIAL BAHASA PEMOGRAMAN DELPHI] Konten video TUTORIAL BAHASA PEMOGRAMAN DELPHI adalah membahas tentang tutorial menggunakan aplikasi pemograman borland delphi, yaitu dengan delphi 7. Video ini saya dedikasikan untuk mahasiswa saya secara langsung, dan mahasiswa online yang menjadi subscriber channel ini. PERALATAN : Aplikasi Delphi (http://bit.ly/CIDdelphi7) CATATAN PROGRAM : 1). Menampilkan data ke data tabel / grid dan Proses CREATE pada halaman tambah data mahasiswa - Ubah properties dgMhs1 pada readonly menjadi true - Double klin button batal, masukkan script dibawah ini DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa ORDER BY nama_lengkap ASC'; DM.aMahasiswa.Active:=True; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; - Double klik button simpan, masukkan script dibawah ini DM.aMahasiswa.Append; DM.aMahasiswa.Fields[1].AsString:=txtNim.Text; DM.aMahasiswa.Fields[2].AsString:=txtNamaLengkap.Text; DM.aMahasiswa.Fields[3].AsString:=txtJurusan.Text; DM.aMahasiswa.Post; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; - Pada Form Tab Event, ubah onShow dengan value btnBatalClick - Use UnitDM pada Halaman Tambah Data Mahasiswa - Ubah Properties dgMhs1 pada DataSource dengan value DM.dMahasiswa 2). Menampilkan data ke data tabel / grid dan Proses EDIT pada halaman edit data mahasiswa - Ubah properties dgMhs1 pada readonly menjadi true - Double klin button batal, masukkan script dibawah ini DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa ORDER BY nama_lengkap ASC'; DM.aMahasiswa.Active:=True; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtID.Text := ''; - Pada Tab Event dgMhs1, double klik pada onDblClick, kemudian masukkan script dibawah ini txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtID.Text := ''; txtID.Text := DM.aMahasiswa.Fields[0].AsString; txtNim.Text := DM.aMahasiswa.Fields[1].AsString; txtNamaLengkap.Text := DM.aMahasiswa.Fields[2].AsString; txtJurusan.Text := DM.aMahasiswa.Fields[3].AsString; - Double klik button simpan, masukkan script dibawah ini DM.aMahasiswa.Edit; DM.aMahasiswa.Fields[1].AsString:=txtNim.Text; DM.aMahasiswa.Fields[2].AsString:=txtNamaLengkap.Text; DM.aMahasiswa.Fields[3].AsString:=txtJurusan.Text; DM.aMahasiswa.Post; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtID.Text := ''; - Pada Form Tab Event, ubah onShow dengan value btnBatalClick - Use UnitDM pada Halaman Tambah Data Mahasiswa - Ubah Properties dgMhs1 pada DataSource dengan value DM.dMahasiswa 3). Menampilkan data ke data tabel / grid dan Proses LIHAT pada halaman edit data mahasiswa - Ubah properties dgMhs1 pada readonly menjadi true - Double klin button batal, masukkan script dibawah ini DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa ORDER BY nama_lengkap ASC'; DM.aMahasiswa.Active:=True; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; - Pada Tab Event dgMhs1, double klik pada onDblClick, kemudian masukkan script dibawah ini txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtNim.Text := DM.aMahasiswa.Fields[1].AsString; txtNamaLengkap.Text := DM.aMahasiswa.Fields[2].AsString; txtJurusan.Text := DM.aMahasiswa.Fields[3].AsString; - Pada Form Tab Event, ubah onShow dengan value btnBatalClick - Use UnitDM pada Halaman Tambah Data Mahasiswa - Ubah Properties dgMhs1 pada DataSource dengan value DM.dMahasiswa 4). Menampilkan data ke data tabel / grid dan Proses HAPUS pada halaman edit data mahasiswa - Ubah properties dgMhs1 pada readonly menjadi true - Double klin button batal, masukkan script dibawah ini DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa ORDER BY nama_lengkap ASC'; DM.aMahasiswa.Active:=True; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtID.Text := ''; - Pada Tab Event dgMhs1, double klik pada onDblClick, kemudian masukkan script dibawah ini txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtID.Text := ''; txtID.Text := DM.aMahasiswa.Fields[0].AsString; txtNim.Text := DM.aMahasiswa.Fields[1].AsString; txtNamaLengkap.Text := DM.aMahasiswa.Fields[2].AsString; txtJurusan.Text := DM.aMahasiswa.Fields[3].AsString; - Double klik button hapus, masukkan script dibawah ini If (txtID.Text <> '')Then begin If MessageDlg('Anda Yakin Untuk Hapus Data Ini?', mtConfirmation, [mbYes,mbNo], 0)= mrYes Then begin DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='DELETE FROM t_mahasiswa WHERE ID=' +txtID.Text; DM.aMahasiswa.ExecSQL; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa ORDER BY nama_lengkap ASC'; DM.aMahasiswa.Active:=True; txtNamaLengkap.Text := ''; txtNim.Text := ''; txtJurusan.Text := ''; txtID.Text := ''; end; end Else begin ShowMessage('Pilih Data Terlebih Dahulu!'); exit; end - Pada Form Tab Event, ubah onShow dengan value btnBatalClick - Use UnitDM pada Halaman Tambah Data Mahasiswa - Ubah Properties dgMhs1 pada DataSource dengan value DM.dMahasiswa 5). Menampilkan data ke data tabel / grid dan Proses CARI pada halaman edit data mahasiswa - Ubah properties dgMhs1 pada readonly menjadi true - Double klin button batal, masukkan script dibawah ini DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa ORDER BY nama_lengkap ASC'; DM.aMahasiswa.Active:=True; txtNim.Text := ''; - Double klik button cari, masukkan script dibawah ini If (txtNim.Text <> '')Then begin DM.aMahasiswa.Active:=False; DM.aMahasiswa.SQL.Text:='SELECT * FROM t_mahasiswa WHERE nim LIKE "%' +txtNim.Text+ '%"'; DM.aMahasiswa.Active:=True; txtNim.Text := ''; end Else begin ShowMessage('Masukkan NIM Terlebih Dahulu!'); exit; end - Pada Form Tab Event, ubah onShow dengan value btnBatalClick - Use UnitDM pada Halaman Tambah Data Mahasiswa - Ubah Properties dgMhs1 pada DataSource dengan value DM.dMahasiswa ====================================== Blog : https://stmikmj.ac.id/myblog/frandika... Channel Group Diskusi Telegram : https://t.me/KuliahIT Jangan lupa di subscribe | share | comment | like, agar channel ini terus berkembang dan memberikan banyak informasi. Aktifkan Juga loncenganya, makasih :). "Sebaik-baik manusia adalah yang paling bermanfaat bagi manusia" (HR. Ahmad, ath-Thabrani, ad-Daruqutni). #delphi #borlanddelphi #tutorial #programming #kuliahit