tugas SBD2

Var
Nilai : integer ;
Ket : string ;
Begin
Nilai := StrToInt (edit1.text);
If (nilai >=0) then
Ket := ‘ bilangan positif ‘
Else
Ket := ‘bilangan negatif ‘ ;
Edit2.text := ket;
End;
End.

Tugas SBD 1

# HeidiSQL Dump
#
# ——————————————————–
# Host:                 127.0.0.1
# Database:             Sistem_Informasi_Akademik
# Server version:       3.23.52-nt
# Server OS:           
# Target-Compatibility: Standard ANSI SQL
# HeidiSQL version:     3.2 Revision: 1129
# ——————————————————–

/*!40100 SET CHARACTER SET binary;*/
/*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE=’ANSI’;*/
/*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0;*/
#
# Database structure for database ‘Sistem_Informasi_Akademik’
#

CREATE DATABASE /*!32312 IF NOT EXISTS*/ “Sistem_Informasi_Akademik”;

USE “Sistem_Informasi_Akademik”;
#
# Table structure for table ‘dosen’
#

CREATE TABLE /*!32312 IF NOT EXISTS*/ “dosen” (
  “kode” varchar(50) default NULL,
  “nama” varchar(50) default NULL,
  “alamat” varchar(50) default NULL,
  “no.telp” varchar(50) default NULL,
  “jenis kelamin” enum(‘L’,'P’) default NULL
) YPE=MyISAM;

 

#
# Dumping data for table ‘dosen’
#

LOCK TABLES “dosen” WRITE;
/*!40000 ALTER TABLE “dosen” DISABLE KEYS;*/
REPLACE INTO “dosen” (“kode”, “nama”, “alamat”, “no.telp”, “jenis kelamin”) VALUES
 (‘CM’,'Chumaedi’,'Jl.Pendawa, no 14, Blok J4,temanggung’,'085227890897′,’L');
REPLACE INTO “dosen” (“kode”, “nama”, “alamat”, “no.telp”, “jenis kelamin”) VALUES
 (‘NS’,'Narula Sasanti’,'JL.Melati,no.34,Blok C5,jogjakarta’,'081327689765′,’P');
REPLACE INTO “dosen” (“kode”, “nama”, “alamat”, “no.telp”, “jenis kelamin”) VALUES
 (‘ES’,'Eka Septianingsih’,'Jl.Bima,no45,Blok J3,purwokerto’,'(0281)576567′,’P');
REPLACE INTO “dosen” (“kode”, “nama”, “alamat”, “no.telp”, “jenis kelamin”) VALUES
 (‘AJ’,'Ahmad Jazuli’,'Jl.Perintis,no67,Blok H7,Purwokerto’,'08566765436′,’L');
REPLACE INTO “dosen” (“kode”, “nama”, “alamat”, “no.telp”, “jenis kelamin”) VALUES
 (‘NK’,'Nila Kurniasih’,'Jl.Pahlawan,no90,Blok I8,Jakarta’,'08156743218′,’P');
/*!40000 ALTER TABLE “dosen” ENABLE KEYS;*/
UNLOCK TABLES;
#
# Table structure for table ‘khs’
#

CREATE TABLE /*!32312 IF NOT EXISTS*/ “khs” (
  “kode” varchar(50) default NULL,
  “nama matakuliah” varchar(50) default NULL,
  “SKS” enum(‘2′,’3′) default NULL,
  “nilai angka” enum(‘0′,’1′,’2′,’3′,’4′) default NULL,
  “nilai huruf” enum(‘A’,'B’,'C’,'D’,'E’) default NULL,
  “jumlah” varchar(50) default NULL
) YPE=MyISAM;

 

#
# Dumping data for table ‘khs’
#

LOCK TABLES “khs” WRITE;
/*!40000 ALTER TABLE “khs” DISABLE KEYS;*/
REPLACE INTO “khs” (“kode”, “nama matakuliah”, “SKS”, “nilai angka”, “nilai huruf”, “jumlah”) VALUES
 (‘02123′,’kalkulus 2′,’3′,’2′,’C',’6′);
REPLACE INTO “khs” (“kode”, “nama matakuliah”, “SKS”, “nilai angka”, “nilai huruf”, “jumlah”) VALUES
 (‘02154′,’Stasistik matematika’,'3′,’3′,’B',’9′);
REPLACE INTO “khs” (“kode”, “nama matakuliah”, “SKS”, “nilai angka”, “nilai huruf”, “jumlah”) VALUES
 (‘02134′,’Analisis Real’,'3′,’4′,’A',’12′);
REPLACE INTO “khs” (“kode”, “nama matakuliah”, “SKS”, “nilai angka”, “nilai huruf”, “jumlah”) VALUES
 (‘02144′,’PDM’,'3′,’3′,’B',’9′);
REPLACE INTO “khs” (“kode”, “nama matakuliah”, “SKS”, “nilai angka”, “nilai huruf”, “jumlah”) VALUES
 (‘02165′,’Teori Bilangan’,'2′,’4′,’A',’8′);
/*!40000 ALTER TABLE “khs” ENABLE KEYS;*/
UNLOCK TABLES;
#
# Table structure for table ‘krs’
#

CREATE TABLE /*!32312 IF NOT EXISTS*/ “krs” (
  “kode” varchar(50) default NULL,
  “matakuliah” varchar(50) default NULL,
  “semester” varchar(50) default NULL,
  “jumlah SKS” enum(‘2′,’3′) default NULL
) YPE=MyISAM;

 

#
# Dumping data for table ‘krs’
#

LOCK TABLES “krs” WRITE;
/*!40000 ALTER TABLE “krs” DISABLE KEYS;*/
REPLACE INTO “krs” (“kode”, “matakuliah”, “semester”, “jumlah SKS”) VALUES
 (‘02127′,’Aljabar linear’,'6′,’3′);
REPLACE INTO “krs” (“kode”, “matakuliah”, “semester”, “jumlah SKS”) VALUES
 (‘02167′,’Kalkulus lanjut 1′,’6′,’2′);
REPLACE INTO “krs” (“kode”, “matakuliah”, “semester”, “jumlah SKS”) VALUES
 (‘02133′,’Telaah kurikulum 1′,’6′,’3′);
REPLACE INTO “krs” (“kode”, “matakuliah”, “semester”, “jumlah SKS”) VALUES
 (‘02166′,’Geometri Bidang’,'6′,’2′);
REPLACE INTO “krs” (“kode”, “matakuliah”, “semester”, “jumlah SKS”) VALUES
 (‘02176′,’Geometri ruang’,'6′,’3′);
/*!40000 ALTER TABLE “krs” ENABLE KEYS;*/
UNLOCK TABLES;
#
# Table structure for table ‘mahasiswa’
#

CREATE TABLE /*!32312 IF NOT EXISTS*/ “mahasiswa” (
  “NIM” varchar(50) default NULL,
  “nama” varchar(50) default NULL,
  “alamat” varchar(50) default NULL,
  “jenis kelamin” enum(‘L’,'P’) default NULL,
  “no.telp” varchar(50) default NULL
) YPE=MyISAM;

 

#
# Dumping data for table ‘mahasiswa’
#

LOCK TABLES “mahasiswa” WRITE;
/*!40000 ALTER TABLE “mahasiswa” DISABLE KEYS;*/
REPLACE INTO “mahasiswa” (“NIM”, “nama”, “alamat”, “jenis kelamin”, “no.telp”) VALUES
 (‘0501060033′,’Wantorus’,'Jl.Bima,no98,BlokH7,Ajibarang’,'L’,'089993456678′);
REPLACE INTO “mahasiswa” (“NIM”, “nama”, “alamat”, “jenis kelamin”, “no.telp”) VALUES
 (‘0501060087′,’Suprianto’,'Jl.Pegangsaan,no 43,Blok K8,Purbalingga’,'L’,'081325674321′);
REPLACE INTO “mahasiswa” (“NIM”, “nama”, “alamat”, “jenis kelamin”, “no.telp”) VALUES
 (‘0501060068′,’Hendri’,'Babakan,Rt3/Rw23,no 67,Banjarnegara’,'L’,'087643251235′);
REPLACE INTO “mahasiswa” (“NIM”, “nama”, “alamat”, “jenis kelamin”, “no.telp”) VALUES
 (‘0501060050′,’Acong’,'Bulakamba,Rt4/Rw12, no90,Banjarnegara’,'L’,'085227453245′);
REPLACE INTO “mahasiswa” (“NIM”, “nama”, “alamat”, “jenis kelamin”, “no.telp”) VALUES
 (‘0501060064′,’Harti’,'Jl.Bunga,no 65,Blok J8,Ajibarang’,'P’,'081327654325′);
/*!40000 ALTER TABLE “mahasiswa” ENABLE KEYS;*/
UNLOCK TABLES;
#
# Table structure for table ‘mata kuliah’
#

CREATE TABLE /*!32312 IF NOT EXISTS*/ “mata kuliah” (
  “kode” varchar(50) default NULL,
  “matakuliah” varchar(50) default NULL,
  “jumlah SKS” enum(‘2′,’3′) default NULL,
  “semester” varchar(50) default NULL,
  “dosen” enum(‘CH’,'NS’,'ES’,'NK’,'AJ’) default NULL
) YPE=MyISAM;

 

#
# Dumping data for table ‘mata kuliah’
#

LOCK TABLES “mata kuliah” WRITE;
/*!40000 ALTER TABLE “mata kuliah” DISABLE KEYS;*/
REPLACE INTO “mata kuliah” (“kode”, “matakuliah”, “jumlah SKS”, “semester”, “dosen”) VALUES
 (‘02127′,’aljabar linear’,'3′,’6′,’CH’);
REPLACE INTO “mata kuliah” (“kode”, “matakuliah”, “jumlah SKS”, “semester”, “dosen”) VALUES
 (‘02133′,’Telaahkurikiulum 1′,’3′,’6′,’ES’);
REPLACE INTO “mata kuliah” (“kode”, “matakuliah”, “jumlah SKS”, “semester”, “dosen”) VALUES
 (‘02176′,’Geometri Ruang’,'3′,’6′,’AJ’);
REPLACE INTO “mata kuliah” (“kode”, “matakuliah”, “jumlah SKS”, “semester”, “dosen”) VALUES
 (‘02154′,’Statistik Matematika’,'3′,’6′,’AJ’);
REPLACE INTO “mata kuliah” (“kode”, “matakuliah”, “jumlah SKS”, “semester”, “dosen”) VALUES
 (‘02144′,’PDM’,'3′,’6′,’NS’);
/*!40000 ALTER TABLE “mata kuliah” ENABLE KEYS;*/
UNLOCK TABLES;
/*!40101 SET SQL_MODE=@OLD_SQL_MODE;*/
/*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS;*/

Hello world!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!