Dasar pemrograman

DASAR PEMROGRAMAN

TUGAS BESAR

DATA KOS

procedure TForm1.chk1Click(Sender: TObject);
begin
if chk1.Checked
then begin
edt2.PasswordChar:=#0;
end else
begin
edt2.PasswordChar:='*';
end
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if MessageDlg('keluar',mtInformation,mbOKCancel,0)=mrOk then Application.Terminate
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
IF(edt1.Text='p')and(edt2.Text='1')then
Form6.show;
end;

end.

procedure TForm6.tmr1Timer(Sender: TObject);

begin

if pb1.Position=100then

begin

tmr1.Enabled:=False;

Form6.Hide;

form2.Show;

end

else

begin

pb1.Position:=pb1.Position+5;

end;

end;

end.

procedure TForm2.DATAMASUK1Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.DATAPEMBAYARAN1Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm2.DATAKELUAR1Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm2.CETAKDATAMASUK1Click(Sender: TObject);

begin

rvprjct1.Execute;

end;

procedure TForm2.DATAPEMBAYARN1Click(Sender: TObject);

begin

rvprjct2.Execute;

end;

procedure TForm2.CETAKDATAKELUAR1Click(Sender: TObject);

begin

rvprjct3.Execute;

end;

procedure TForm2.btn2Click(Sender: TObject);

begin

if MessageDlg('keluar',mtInformation,mbOKCancel,0)=mrOk then Application.Terminate

end;

procedure TForm2.img3Click(Sender: TObject);

begin

Form1.Show;

end;

end.

procedure TForm3.btn1Click(Sender: TObject);

begin

tbl1.Open;

tbl1.Append;

tbl1.FieldByName('nokamar').AsString:=edt1.Text;

tbl1.FieldByName('nama') .AsString:=edt2.Text;

tbl1.FieldByName('noktp') .AsString:=edt3.Text;

tbl1.FieldByName('nohp') .AsString:=edt4.Text;

tbl1.FieldByName('tanggalmasuk') .AsString:=edt5.Text;

tbl1.Post;

end;

procedure TForm3.btn2Click(Sender: TObject);

begin

edt1.Text:='';

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='';

end;

procedure TForm3.btn4Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm3.btn3Click(Sender: TObject);

begin

tbl1.Edit;

tbl1.FieldByName('nokamar').AsString:=edt1.Text;

tbl1.FieldByName('nama') .AsString:=edt2.Text;

tbl1.FieldByName('noktp') .AsString:=edt3.Text;

tbl1.FieldByName('nohp') .AsString:=edt4.Text;

tbl1.FieldByName('tanggalmasuk') .AsString:=edt5.Text;

tbl1.Post;

end;

procedure TForm3.btn5Click(Sender: TObject);

begin

if MessageDlg('keluar',mtInformation,mbOKCancel,0)=mrOk then Application.Terminate

end;

procedure TForm3.btn6Click(Sender: TObject);

begin

if not tbl1.Locate('nokamar',edt6.Text,[])then

end;

end.

procedure TForm4.btn1Click(Sender: TObject);

begin

tbl1.Open;

tbl1.Append;

tbl1.FieldByName('nokamar').AsString:=edt1.Text;

tbl1.FieldByName('nama') .AsString:=edt2.Text;

tbl1.FieldByName('tanggalbayar') .AsString:=edt3.Text;

tbl1.FieldByName('jumlah') .AsString:=edt4.Text;

tbl1.FieldByName('keterangan') .AsString:=edt5.Text;

tbl1.Post;

end;

procedure TForm4.btn2Click(Sender: TObject);

begin

edt1.Text:='';

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='';

end;

procedure TForm4.btn4Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm4.btn3Click(Sender: TObject);

begin

tbl1.Edit;

tbl1.FieldByName('nokamar').AsString:=edt1.Text;

tbl1.FieldByName('nama') .AsString:=edt2.Text;

tbl1.FieldByName('tanggalbayar') .AsString:=edt3.Text;

tbl1.FieldByName('jumlah') .AsString:=edt4.Text;

tbl1.FieldByName('keterangan') .AsString:=edt5.Text;

tbl1.Post;

end;

procedure TForm4.btn5Click(Sender: TObject);

begin

if MessageDlg('keluar',mtInformation,mbOKCancel,0)=mrOk then Application.Terminate

end;

procedure TForm4.btn6Click(Sender: TObject);

begin

if not tbl1.Locate('nokamar',edt6.Text,[])then

end;

end.

procedure TForm5.btn1Click(Sender: TObject);

begin

tbl1.Open;

tbl1.Append;

tbl1.FieldByName('nokamar').AsString:=edt1.Text;

tbl1.FieldByName('nama') .AsString:=edt2.Text;

tbl1.FieldByName('noktp') .AsString:=edt3.Text;

tbl1.FieldByName('tanggalkeluar') .AsString:=edt4.Text;

end;

procedure TForm5.btn3Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm5.btn6Click(Sender: TObject);

begin

edt1.Text:='';

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

end;

procedure TForm5.btn4Click(Sender: TObject);

begin

if MessageDlg('keluar',mtInformation,mbOKCancel,0)=mrOk then Application.Terminate

end;

procedure TForm5.btn5Click(Sender: TObject);

begin

if not tbl1.Locate('nokamar',edt5.Text,[])then

end;

end.

masuk

nokamar	nama	noktp	nohp	tanggalmasuk
1	o	22222222222221	1111111111111	21
1	pewe	053402424	27247927294	15
1	pewe	053402424	27247927294	15
1	pewe	053402424	27247927294	15
5	paulo	23432424	242424141	12
1	wqqeeq	1321313	1313313	13
1	nama	112121	12121	eee
q
1	www	12131313	13131414	1

pembayaran

nokamar	nama	tanggalbayar	jumlah	keterangan
9	p	12	30000	lunas
3	f	30	500000	2 bulan
3	f	30	50000000	lunas
12	sl	30	5000000000	lunas

keluar

nokamar	nama	noktp	tanggalkeluar
2	p	3453536	5
1	d	0484848	21
1	d	0484848	22
1	d	0484848	24
1	d	0484848	23
2	k	04949493	12
2	k	04949493	13