Algoritma dan Pemrograman

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;