I.
Deskripsi
Program
Program dibuat menggunakan Borland Delphi 7. Program ini
dibuat untuk menyimpan dan membuat files text. Program ini sama seperti text
editor pada notepad akan tetapi dibuat untuk mempermudah mengedit text dengan
toolbar. Pada toolbar disediakan untuk membuat baru text,merubah font size,font
style,dan nama font.
II.
Interface
Program
III.
Coding
Program
Nama
Komponen
|
Event
|
Perintah
|
bSave
|
OnClick
|
procedure TfmBio.bSaveClick(Sender: TObject);
var
tgl:TDateTime;
begin
if enim.Text=''
then
ShowMessage('NIM
jangan kosong')
else
if not
ADOQuery1.Locate('NIM',eNim.Text,[]) then
begin
if
Enama.Text='' then
ShowMessage('Nama jangan kosong')
else
if
EFak.Text='' then
ShowMessage('Fakultas jangan kosong')
else
if
EProdi.Text='' then
ShowMessage('Prodi jangan kosong')
else
if
EAlmt.Text='' then
ShowMessage('Alamat jangan kosong')
else
if
ETgl.Text='' then
ShowMessage('Tanggal Lahir jangan kosong')
else
if ENo.Text=''
then
ShowMessage('No HP jangan kosong')
else
if Eemail.Text='' then
ShowMessage('Email jangan kosong')
else
if
Ejab.Text='' then
ShowMessage('jabatan jangan kosong')
else
begin
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from TBiodata');
adoquery1.Active:=false;
adoquery1.Active:=true;
ADOQuery1.Append;
ADOQuery1.FieldByName('Nama').AsString:=eNama.Text;
ADOQuery1.FieldByName('NIM').AsString:=uppercase(eNIM.Text); ADOQuery1.FieldByName('Fak').AsString:=eFak.Text;
ADOQuery1.FieldByName('Prodi').AsString:=eProdi.Text;
ADOQuery1.FieldByName('Alamat').AsString:=eAlmt.Text; ADOQuery1['Tgl_Lhr']:=eTgl.text; ADOQuery1.FieldByName('No_Hp').AsString:=eNo.Text;
ADOQuery1.FieldByName('Email').AsString:=eEmail.Text;
ADOQuery1.FieldByName('Jabatan').AsString:=eJab.Text;
ADOQuery1.FieldByName('Fb').AsString:=fb.Text;
ADOQuery1.FieldByName('Instagram').AsString:=instagram.Text; ADOQuery1.FieldByName('Line').AsString:=line.Text;
ADOQuery1.FieldByName('Twitter').AsString:=twitter.Text;
ADOQuery1.Post;
end;
end
else
if
ADOQuery1.Locate('NIM',eNim.Text,[]) then
showmessage('NIM
dimasukkan sudah terdaftar')
end;
|
cblSosmed
|
OnClick
|
procedure TfmBio.cblSosmedClick(Sender: TObject);
begin
if
cblsosmed.Selected[0]=true then
cblsosmed.Checked[0]:=true;
if
cblsosmed.Selected[1]=true then
cblsosmed.Checked[1]:=true;
if
cblsosmed.Selected[2]=true then
cblsosmed.Checked[2]:=true;
if
cblsosmed.Selected[3]=true then
cblsosmed.Checked[3]:=true;
if
cblsosmed.Checked[0]=true then
fb.Visible:=true;
if
cblsosmed.Checked[1]=true then
instagram.Visible:=true;
if
cblsosmed.Checked[2]=true then
line.Visible:=true;
if
cblsosmed.Checked[3]=true then
twitter.Visible:=true;
end;
|
cblSosmed
|
OnDblClick
|
procedure TfmBio.cblSosmedDblClick(Sender: TObject);
begin
if
cblsosmed.Selected[0]=true then
cblsosmed.Checked[0]:=false;
if
cblsosmed.Selected[1]=true then
cblsosmed.Checked[1]:=false;
if
cblsosmed.Selected[2]=true then
cblsosmed.Checked[2]:=false;
if
cblsosmed.Selected[3]=true then
cblsosmed.Checked[3]:=false;
if
cblsosmed.Checked[0]=false then
fb.Visible:=false;
if
cblsosmed.Checked[1]=false then
instagram.Visible:=false;
if
cblsosmed.Checked[2]=false then
line.Visible:=false;
if
cblsosmed.Checked[3]=false then
twitter.Visible:=false;
end;
|
cblSosmed
|
OnClickCheck
|
procedure TfmBio.cblSosmedClickCheck(Sender: TObject);
begin
if
cblsosmed.Selected[0]=true then
cblsosmed.Checked[0]:=false;
if
cblsosmed.Selected[1]=true then
cblsosmed.Checked[1]:=false;
if
cblsosmed.Selected[2]=true then
cblsosmed.Checked[2]:=false;
if
cblsosmed.Selected[3]=true then
cblsosmed.Checked[3]:=false;
if
cblsosmed.Checked[0]=false then
fb.Visible:=false;
if
cblsosmed.Checked[1]=false then
twitter.Visible:=false;
if
cblsosmed.Checked[2]=false then
instagram.Visible:=false;
if
cblsosmed.Checked[3]=false then
line.Visible:=false;
end;
|
bHps
|
OnClick
|
procedure TfmBio.bHpsClick(Sender: TObject);
var
dlgcari:boolean;
cari:string;
begin
dlgcari:=inputquery('Cari Berdasarkan NIM', 'NIM :',cari);
if dlgcari=true
then
begin
if not
ADOQuery1.Locate('NIM',cari,[]) then
messagedlg('"'+cari+'"tidak ditemukan',MTerror,[mbok],0)
else
adoquery1.Delete;
end;
end;
|
TabSheet2
|
OnShow
|
procedure TfmBio.TabSheet2Show(Sender: TObject);
begin
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select
nama,NIM,No_Hp,Email,Fb,Twitter,Instagram,Line from TBiodata');
adoquery1.Active:=false;
adoquery1.Active:=true;
end;
|
bEdit
|
OnClick
|
procedure TfmBio.bEditClick(Sender: TObject);
var
cari,nim,nama,fak,prodi,almt,nohp,email,jab,fb,twitter,line,instagram:string;
dlgcari:boolean;
begin
dlgcari:=INPUTQUERY('Cari Berdasarkan NIM', 'NIM :',cari);
if dlgcari=true
then
begin
if not
adoquery1.Locate('NIM',cari,[]) then
messagedlg('"'+cari+'"tidak ditemukan',MTerror,[mbok],0)
else
begin
if
messagedlg('Apakah anda ingin mengedit NIM ?',MtConfirmation,[mbyes,mbno],0)=mryes
then
begin
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from TBiodata');
adoquery1.edit;
nim:=inputbox('NIM Baru','NIM :
',ADOQuery1.FieldByName('NIM').AsString);
nama:=inputbox('Nama Baru','Nama :
',ADOQuery1['Nama']);
fak:=inputbox('Fakultas Baru','Fakultas : ',ADOQuery1['Fakultas']);
prodi:=inputbox('Program Studi Baru','Program Studi :
',ADOQuery1['Prodi']);
almt:=inputbox('Alamat Baru','Alamat : ',ADOQuery1['Alamat']);
nohp:=inputbox('No HP Baru','No HP : ',ADOQuery1['No_Hp']);
jab:=inputbox('Jabatan Baru','Jabatan : ',ADOQuery1['Jabatan']);
fb:=inputbox('Nama Akun Fb Baru','Facebook : ',ADOQuery1['Fb']);
instagram:=inputbox('Nama Akun Instagram Baru','Instagram :
',ADOQuery1['Instagram']);
line:=inputbox('Nama Akun Line Baru','Line : ',ADOQuery1['Line']);
twitter:=inputbox('Nama Akun Twitter
Baru','Twitter : ',ADOQuery1['Twitter']);
ADOQuery1.FieldByName('Nama').AsString:=nama;
ADOQuery1.FieldByName('NIM').AsString:=uppercase(nim);
ADOQuery1['Fak']:=Fak;
ADOQuery1.FieldByName('Prodi').AsString:=prodi;
ADOQuery1.FieldByName('Alamat').AsString:=Almt;
ADOQuery1.FieldByName('No_Hp').AsString:=nohp;
ADOQuery1.FieldByName('Email').AsString:=Email;
ADOQuery1.FieldByName('Jabatan').AsString:=Jab;
ADOQuery1.FieldByName('Fb').AsString:=fb;
ADOQuery1.FieldByName('Instagram').AsString:=instagram;
ADOQuery1.FieldByName('Line').AsString:=line;
ADOQuery1.FieldByName('Twitter').AsString:=twitter;
adoquery1.Active:=false;
adoquery1.Active:=true;
ADOQuery1.Post;
end
else
begin
adoquery1.edit;
nama:=inputbox('Nama Baru','Nama : ',ADOQuery1['Nama']);
fak:=inputbox('Fakultas
Baru','Fakultas : ',ADOQuery1['Fakultas']);
prodi:=inputbox('Program Studi Baru','Program Studi :
',ADOQuery1['Prodi']);
almt:=inputbox('Alamat Baru','Alamat : ',ADOQuery1['Alamat']);
nohp:=inputbox('No HP Baru','No HP : ',ADOQuery1['No_Hp']);
jab:=inputbox('Jabatan Baru','Jabatan : ',ADOQuery1['Jabatan']);
fb:=inputbox('Nama Akun Fb Baru','Facebook : ',ADOQuery1['Fb']);
instagram:=inputbox('Nama Akun Instagram Baru','Instagram :
',ADOQuery1['Instagram']);
line:=inputbox('Nama Akun Line Baru','Line : ',ADOQuery1['Line']);
twitter:=inputbox('Nama Akun Twitter Baru','Twitter : ',ADOQuery1['Twitter']);
ADOQuery1.FieldByName('Nama').AsString:=nama;
ADOQuery1['Fak']:=Fak;
ADOQuery1.FieldByName('Prodi').AsString:=prodi;
ADOQuery1.FieldByName('Alamat').AsString:=Almt; ADOQuery1.FieldByName('No_Hp').AsString:=nohp;
ADOQuery1.FieldByName('Email').AsString:=Email;
ADOQuery1.FieldByName('Jabatan').AsString:=Jab;
ADOQuery1.FieldByName('Fb').AsString:=fb;
ADOQuery1.FieldByName('Instagram').AsString:=instagram;
ADOQuery1.FieldByName('Line').AsString:=line;
ADOQuery1.FieldByName('Twitter').AsString:=twitter;
adoquery1.Active:=false;
adoquery1.Active:=true;
ADOQuery1.Post;
end;
end;
end;
end;
|
bAdd
|
OnClick
|
procedure TfmBio.bAddClick(Sender: TObject);
begin
enama.Clear;
enim.Clear;
efak.Clear;
eprodi.Clear;
ealmt.Clear;
etgl.Clear;
eno.Clear;
eemail.Clear;
ejab.Clear;
fb.Clear;
twitter.Clear;
line.Clear;
instagram.Clear;
fb.Visible:=false;
twitter.Visible:=false;
line.Visible:=false;
instagram.Visible:=false;
enama.SetFocus;
end;
|
|
|
|
IV. Output
Tampilan Awal Program
Tampilan ketika data diinputkan masih ada yang kosong
Tampilan ketika data diinput telah lengkap
Tampilan Daftar Pengurus
Tampilan ketika database masih kosong
Tampilan ketika database telah terisi
Tampilan ingin mengedit/menghapus data
Source Code Bisa di unduh