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')
martanelly
Selasa, 03 Mei 2011
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))
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
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.
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)
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
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
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
Langganan:
Postingan (Atom)