PERCOBAAN 2
MENAMPILKAN DATA BAMASIS DENGAN MEMASUKKAN PASSWORD DAN NIM
Tool Palette yang digunakan sebagai berikut :
1. Standard : label, edit, button
2. Additional : image
1. Coding memasukkan password dan apabila password salah akan
menampilkan sebuah tulisan ‘WRONG PASSWORD!!!’
procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text='20200522' then
begin
Form3.Show;
end;
begin
if Edit1.Text='20200523' then
begin
Form4.Show;
end;
begin
if Edit1.Text='20200524' then
begin
Form5.Show;
end;
begin
if Edit1.Text='20200525' then
begin
Form6.Show;
end;
begin
if Edit1.Text='20200526' then
begin
Form7.Show;
end;
begin
if Edit1.Text='20200527' then
begin
Form8.Show;
end;
begin
if Edit1.Text='20200528' then
begin
Form9.Show;
end;
begin
if Edit1.Text='20200529' then
begin
Form10.Show;
end;
begin
if Edit1.Text='20200530' then
begin
Form11.Show;
end;
begin
if Edit1.Text='20200531' then
begin
Form12.Show;
end;
begin
if Edit1.Text='20200532' then
begin
Form13.Show;
end;
begin
if Edit1.Text='20200533' then
begin
Form14.Show;
end;
begin
if Edit1.Text='20200534' then
begin
Form15.Show;
end;
begin
if Edit1.Text='20200535' then
begin
Form16.Show;
end;
begin
if Edit1.Text='20200536' then
begin
Form17.Show;
end;
begin
if Edit1.Text='20200537' then
begin
Form18.Show;
end;
begin
if Edit1.Text='20200538' then
begin
Form19.Show;
end;
begin
if Edit1.Text='20200539' then
begin
Form20.Show;
end;
begin
if Edit1.Text='20200540' then
begin
Form21.Show;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.
3. Kemudian akan muncul tampilan data bamasis sesuai dengan NIM yang dimasukkan.
Komentar
Posting Komentar