Membuat Aplikasi Dengan Menyimpan Ke Dalam Dua Tabel Hanya Dengan Memakai Satu Tombol Simpan
Membuat Aplikasi Dengan Menyimpan Ke Dalam Dua Tabel Hanya Dengan Memakai Satu Tombol Simpan
Membuat Aplikasi Dengan Menyimpan Ke Dalam Dua Tabel Hanya Dengan Memakai Satu Tombol Simpan
edit1
edit5
tbMhs.db
tbMk.db
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, ExtCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
btSimpan: TButton;
tbMhs: TTable;
tbMk: TTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
btHapus: TButton;
btBatal: TButton;
btEdit: TButton;
btTutup: TButton;
btCari: TButton;
Label6: TLabel;
Bevel1: TBevel;
procedure btSimpanClick(Sender: TObject);
procedure bersih;
procedure btBatalClick(Sender: TObject);
procedure btTutupClick(Sender: TObject);
procedure btHapusClick(Sender: TObject);
procedure btCariClick(Sender: TObject);
procedure btEditClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.bersih;
begin
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
edit1.SetFocus;
end;
procedure TForm1.btSimpanClick(Sender: TObject);
begin
if not(edit1.Text <>'') or not(edit4.Text <>'') then
begin
application.MessageBox('Isi dulu NIM dan Kode Mata Kuliah !','Ok',
mb_Ok + mb_IconInformation);
bersih;
exit;
end;
tbMhs.IndexName :='';
tbMhs.FindNearest([edit1.Text]);
tbMk.IndexName :='';
tbMk.FindNearest([edit4.Text]);
if edit1.Text = tbMhs['NIM'] then
begin
application.MessageBox('NIM Sudah ada','ehem',mb_Ok+mb_iconinformation);
exit;
end;
if edit4.Text = tbMK['KdMatkul'] then
begin
application.MessageBox('Sudah ada Kode Mata Kuliah','yuhu',
mb_Ok+mb_iconinformation);
exit;
end;
if application.MessageBox('Yakin Simpan ?','Ehem',
mb_YesNo or mb_iconQuestion)=idYes then
begin
tbMhs.Append;
tbMhs['NIM'] := edit1.Text;
tbMhs['Nama']:= edit2.Text;
tbMhs['Alamat']:= edit3.Text;
tbMhs.Post;
tbMK.Append;
tbMK['KdMatkul'] := edit4.Text;
tbMK['NamaMk'] := edit5.Text;
tbMK['NIM'] := edit1.Text;
tbMK.Post;
bersih;
exit;
end;
end;
tbMhs.IndexName :='';
tbMhs.FindNearest([edit1.Text]);
tbMk.IndexName :='idxNIM';
tbMk.FindNearest([edit1.Text]);
if edit1.Text <> tbMhs['NIM'] then
begin
application.MessageBox('NIM tidak ada','ehem',mb_Ok+mb_iconinformation);
exit;
end;
if edit1.Text <> tbMK['NIM'] then
begin
application.MessageBox('NIM tidak ada','yuhu',mb_Ok+mb_iconinformation);
exit;
end;
try
edit1.Text := tbMhs['NIM'];
edit2.Text := tbMhs['Nama'];
edit3.Text := tbMhs['Alamat'];
edit4.Text := tbMK['KdMatkul'];
edit5.Text := tbMk['NamaMK'];
except
showmessage('Ada record kosong');
end;
end;
procedure TForm1.btEditClick(Sender: TObject);
begin
if not(edit1.Text <>'') then
begin
application.MessageBox('Isi dulu NIM !','Ok',mb_Ok + mb_IconInformation);
bersih;
exit;
end;
tbMhs.IndexName :='';
tbMhs.FindNearest([edit1.Text]);
tbMk.IndexName :='idxNIM';
tbMk.FindNearest([edit1.Text]);
tbMk.IndexName :='';
tbMk.FindNearest([edit4.Text]);
if edit1.Text <> tbMhs['NIM'] then
begin
application.MessageBox('NIM tidak ada atau jangan diubah','ehem',mb_Ok+mb_iconinformation);
exit;
end;
if edit4.Text <> tbMK['KdMatkul'] then
begin
application.MessageBox('Kode Mata Kuliah jangan diubah','yuhu',
mb_Ok+mb_iconinformation);
exit;
end;