Selasa, 03 Mei 2011

praktikum pertemuan tujuh(7)

by: marta nelli simangunsong
    hr nh aq mau menylesaikan smua laporan mulai dr awal,pertengahan, hingga akhir
nh sambungan dari pertemuan6.
2.ONE TO MANY ATAU MANY TO ONE
   dman pangkat d3 atau s1 tidak hanya stu org melainkan bnyak org.begitu juga dgn topik nh
cth:
create database jabatan
use jabatan
create table golongan(
  kd_gol char(5)primary key,
 nma_gol varchar(20))
select * from golongan
insert into golongan values('g001','bendahara')
insert into golongan values('g002','sekretaris'))
 constraint f_pegawai foreign key(kd_golongan)
create table pegawai(
nip char(5)primary key,
nm varchar(20),
jns kelamin char(5))
select *from pegawai
insert into pegawai values('00001','nita','p')
insert into pegawai values('00002','nina','p')
insert into pegawai values('00003','nino','l')
insert into pegawai values('00004','nini','p')

praktikum pertemuan enam(6)

by:marta nelli simangunsong
  
    slmat membca , aq nh ingn membuat laporan mengenai RELASI ANTAR TABLE
dmna ddalam relasi antar table dgnkan ERD(ENTITY RELATIONSHIP DIAGRAM) dbagi atas beberapa bagian yaitu:
      1.ONE TO ONE
        
         Yang dmaksud dgan one to one adlah ibarat ddlam suatu usaha hanya memilki stu jabatan begitu jug dengan yg lain.
example:
        pegawai dengan jabatan
create database kantor
use kantor
create table jabatan(
kd_jab char(5)primary key,
nama_jab varchar(20))
select * from jabatan
insert into jabatan values('a001','drektur')
insert into jabatan values('a002',wakil drektur')
insert into jabatan values('a003','sekretaris'))
constrain f_jabatan foreign key(kd_jabatan)
select * from  pegawai
create table pegawai
nip char(10) primary key,
nama varchar(25))

Praktekum Pertemuan lima(5)

by:marta nelli simangunsong
    hai............... saya ingn membuat sbuah  laporan tentang primary key yang dbuat o Asdos lab5 dmn bg u mendngrkan bgtu cpt ddpt o saya .seprti membt tabel barang.
       dman  primary key adlah perulangan sbuah data sdgkan porenky adlah relasi antra tabel 1 & tabel 2
char hanya dpakai dbawah samadengan 10.sedangkan varchar hanya dpaki dbwah samadengan 50
demikianlah loparan yg dapt aq buat.sekian dan terima kasih

Kamis, 14 April 2011

MEMBUAT PROGRAM

unit UProgramNilai;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
Tfrmprogramnilai = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
edtnim: TEdit;
Shape1: TShape;
edtnama: TEdit;
cbokelas: TComboBox;
cbomatakuliah: TComboBox;
Shape2: TShape;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;a
Label8: TLabel;
Label9: TLabel;
edtnilaiabsen: TEdit;
edtnilaitugas: TEdit;
edtnilaikuis: TEdit;
edtnilaiuts: TEdit;
edtnilaiuas: TEdit;
Label10: TLabel;
Shape3: TShape;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
edtnilaiakhir: TEdit;
edtnilaihuruf: TEdit;
edtpredikat: TEdit;
edtketerangan: TEdit;
Shape4: TShape;
Shape5: TShape;
new: TBitBtn;
proses: TBitBtn;
exit: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure exitClick(Sender: TObject);
procedure newClick(Sender: TObject);
procedure prosesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmprogramnilai: Tfrmprogramnilai;

implementation

{$R *.dfm}

procedure Tfrmprogramnilai.FormCreate(Sender: TObject);
begin
cbokelas.Items.Add('mik 10-01');
cbokelas.Items.Add('mik 10-02');
cbokelas.Items.Add('mik 10-03');
cbokelas.Items.Add('mik 10-04');
cbokelas.Items.Add('mik 10-05');
cbokelas.Items.Add('mik 10-06');
cbokelas.Items.Add('mik 10-07');
cbokelas.Items.Add('mik 10-08');
cbokelas.Items.Add('mik 10-09');
cbokelas.Items.Add('mik 10-10');
cbokelas.Items.Add('mik 10-11');
cbokelas.Items.Add('mik 10-12');
cbokelas.Items.Add('mik 10-13');
cbokelas.Items.Add('mik 10-14');
cbokelas.Items.Add('mik 10-15');
cbokelas.Items.Add('mik 10-16');
cbokelas.Items.Add('mik 10-17');
cbokelas.Items.Add('mik 10-18');
cbokelas.Items.Add('mik 10-18');
cbokelas.Items.Add('mik 10-19');
cbokelas.Items.Add('mik 10-20');
cbokelas.Items.Add('mik 10-21');
cbokelas.Items.Add('mik 10-22');


end;

procedure Tfrmprogramnilai.exitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmprogramnilai.newClick(Sender: TObject);
begin
edtnim.Text:=' ';
edtnama.Text:=' ';
cbokelas.Text:=' ';
cbomatakuliah.Text:='0 ';
edtnilaiabsen.Text:='0 ';
edtnilaitugas.Text:='0';
edtnilaikuis.Text:='0';
edtnilaiuts.Text:='0';
edtnilaiuas.Text:='0';
edtnilaiakhir.Text:='0';
edtnilaihuruf.Text:='0';
edtpredikat.Text:='0';
edtketerangan.Text:='0';


end;

procedure Tfrmprogramnilai.prosesClick(Sender: TObject);

var
A,B,C,D,E:Integer;
f:Real;
g,h,i,j:String;
begin
a:=strtoint(edtnilaiabsen.Text);
b:=StrToInt(edtnilaitugas.Text);
c:=StrToInt(edtnilaikuis.Text);
d:=StrToInt(edtnilaiuts.Text);
e:=StrToInt(edtnilaiuas.Text);
f:=0.1*a+0.2*b+0.1*c+0.25*d+0.25*e;
if(f>=80and(f<=100)then begin g:='A'; h:='sangat memuaskan'; i:='lulus'; end; else if(f>=70 and (f<=79)then begin g:='b'; h:='memuaskan'; i:='lulus'; end; else if(f>=60 and (f<=69)then begin g:='c'; h:='cukup memuaskan'; i:='lulus'; end; else if(f>=50 and (f<=59)then begin g:='d'; h:='kurang memuaskan'; i:='gagal'; end; else if(f>=80 and (f<=100)then begin g:='e'; h:='sangat kurang memuaskan'; i:='gagal'; end; edtnilaiakhir.Text:=floattostr(f); edtnilaihuruf.Text:=g; edtpredikat.Text:=h; edtketerangan.Text:=i; if (a=0)or(b=0)or(c=0)or(d=0)or(e=0) then j:='anda harus mengikuti UPN' else if (a<>0)or(b<>0)or(c<>0)or(d<>0)or(e<>0)
then j:='anda harus mengikuti HER'
mpesan.text:=j;
end;

end.

Senin, 11 April 2011

Laporan Praktikum Database Pertemuan(4)

By:Marta Nelly Simangunsong
   
   Ok,malam nhi sya mau buat laporan praktikum database pertemuan empat(4) yang dicatat pd hari selasa minggu lalu........................
Saya akan memulainya  ckrng:

  CREATE DATABASE SEKOLAH
  Create table siswa(
  Nim char(10),
  Nama varchar(25),
  Jenis_ kelamin char (1))

SELECT*FROM SISWA
Alter table siswa add agama varchar(20)
Insert into siswa values('00002','Gina','P','Kristen')
Insert into siswa values('00004','Nino','L',Islam')
Insert into siswa values('00006','Nina','P','Budha')
  Miss.aq hanya tahu bagian char & varchar lain dari situ aq krg pahami,jd Miss maklum ja ya sama aq.
Sekian & termakasih............................................

Kamis, 31 Maret 2011

laporan praktikum pertemuan 3

By:Marta Nelly.Simangunsong
    Saya ingin membuat sebuah laporan mengenai  lingkungan database.sewaktu presentasi kelompok2 & kelompok 3 q tidak mendapat inti dari presentasi tersebut . bu gman ya supaya smua mahasiswa ATB khususnya semester2 mengetahui lebih dalam mengenai database tersebut.sewaktu dilab q mgerti pha yg dbilang Miss.tp kok cepat skali sih Miss menjelaskan.saya ingin sekali memahami pha tu database?????? .Bu q ngak ngerti tentang makalah u tentang bagaimana menjelaskannya.sebab q belum pernh belajar database.bukan hanya database melainkan belajar komputer pun belum pernh sebab dkmpung kami blm dha komputer baru nh lah q mengenal komputer sejak masuk sebagai mahasiswi 

Minggu, 27 Maret 2011

praktikum database pertemuan kedua

by: marta nelly simangunsong
sebelumnya aq...tak mengerti pa.,, tuh database ... setelah aq pelajari ternyata database itu mrpkn bahasa pemograman/ tempat penyimpanan data yg dmn yang satu berhubungan satu sama lain,
aq suka cara ngajar miss sundari retno karna selain ibu tuh.. pintar bu tuh.,, jga mengajarkan qta tuk blljr mandiri aq sangat senang dgn gaya ibu tuh.. mengajar is the best for you...,,,,
 peljaran database yang aq pelajari waktu di lab
       contoh printah dri ddl:
                                   create
cretae database perpustakaan(: tuk mmbuat sebuah perpustakaan
use perpustakaan :'' dingunakan tu kembali ke perpustakaan
printah tuk membuat tabel
create tabel penerbit(
kd_penerbit char (20),
alamat_penerbit varchar(35),
no_tlp_penerbit varchar(35))
                  demikian laporan mengenai praktiku database yg.,..aq alami slm praktek