Mengenai Saya

Foto saya
Medan, sumut, Indonesia

Senin, 04 Juli 2011

PROGRAM PRODUK


Sub hapus()
    kd_produk.Enabled = True
    ClearFORM Me
    Call RubahCMD(Me, True, False, False, False)
    cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
 Select Case Log
        Case 0
            SQL = "INSERT INTO produk(kd_produk, nama, satuan, jumlah)" & _
                " values('" & kd_produk.Text & _
                "','" & nama.Text & _
                "','" & satuan.Text & _
                "','" & jumlah.Text & "')"
        Case 1
           
            SQL = "UPDATE produk SET Nama ='" & nama.Text & "'," & _
                  " Satuan = '" & satuan.Text & "'," & _
                  " Jumlah = '" & jumlah.Text & "'," & _
                  " Where kd_produk ='" & kd_produk.Text & "'"
        Case 2
            SQL = "DELETE FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
    End Select
    MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data produk"
    Db.Execute SQL, adCmdTable
    Call hapus
    Adodc1.Refresh
    kd_produk.SetFocus
End Sub

Sub Tampilproduk()
    On Error Resume Next
    kd_produk.Text = RS!kd_produk
    nama.Text = RS!nama
    satuan.Text = RS!satuan
    jumlah.Text = RS!jumlah   
End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
    Case 0
        Call hapus
        kd_produk.SetFocus
    Case 1
        If cmdproses(1).Caption = "&baru" Then
        Call prosesDB(0)
     Else
            Call prosesDB(1)
        End If
     Case 2
        X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "produk")
        If X = vbYes Then prosesDB 2
        Call hapus
        kd_produk.SetFocus
    Case 3
        Call hapus
        kd_produk.SetFocus
    Case 4
        Unload Me
    End Select
End Sub

Private Sub Form_Load()
    Call OPENDB
    Call hapus
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub

Private Sub kd_produk_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If kd_produk.Text = "" Then
            MsgBox "Masukkan Kd_produk produk !", vbInformation, "produk"
            kd_produk.SetFocus
            Exit Sub
        End If
        SQL = "SELECT * From produk WHERE kd_produk='" & kd_produk.Text & "'"
        If RS.State = adStateOpen Then RS.Close
        RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
        If RS.RecordCount <> 0 Then
            Tampilproduk
            Call RubahCMD(Me, False, True, True, True)
            cmdproses(1).Caption = "&Edit"
            kd_produk.Enabled = False
        Else
            X = kd_produk.Text
            Call hapus
            kd_produk.Text = X
            Call RubahCMD(Me, False, True, False, True)
            cmdproses(1).Caption = "&baru"
        End If
        nama.SetFocus
    End If
End Sub



INPUT PRODUK , PENJUALAN , PELANGGAN

    Setelah databasenya sukses,
    rancang form di VB 6.0 nya satu persatu  sehingga hasilnya seperti berikut :


 

TUGAS JUMAT 02 JULI 2011 DATABASE

    Untuk memulai program ini terlebih dahulu kita membuat database seperti berikut:
namun sebelumnya aktipkan dahulu apache triad,mysql:

caranya :

     klik prog - pilih php - start apache - mysql D-NT. 

Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users\MASDA>cd\

C:\>cd apache\mysql\bin

C:\apache\mysql\bin>mysql
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 2 to server version: 3.23.47-nt

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> create database MASDA TOKO;
ERROR 1064: You have an error in your SQL syntax near 'TOKO' at line 1
mysql> create database TOKOMASDA;
Query OK, 1 row affected (0.00 sec)

mysql> use TOKOMASDA;
Database changed
mysql> show databases;
+--------------+
| Database     |
+--------------+
| DBPenggajian |
| TOKOMASDA    |
| Tugas        |
| jual         |
| masda        |
| masdau       |
| masdauli     |
| mysql        |
| test         |
+--------------+
9 rows in set (0.00 sec)
mysql> create table produk(KdPRODUK Varchar(5),Nama varchar(50),Satuan varchar(1
0),jumlah DOUBLE);
Query OK, 0 rows affected (0.00 sec)

mysql> DESC produk;
+----------+-------------+------+-----+---------+-------+
| Field    | Type        | Null | Key | Default | Extra |
+----------+-------------+------+-----+---------+-------+
| KdPRODUK | varchar(5)  | YES  |     | NULL    |       |
| Nama     | varchar(50) | YES  |     | NULL    |       |
| Satuan   | varchar(10) | YES  |     | NULL    |       |
| jumlah   | double      | YES  |     | NULL    |       |
+----------+-------------+------+-----+---------+-------+
4 rows in set (0.02 sec)

mysql> create table Pelanggan(KdPelanggan Varchar(5),Nama varchar(50),Alamat var
char(80),telp varchar(15));
Query OK, 0 rows affected (0.00 sec)

mysql> desc pelanggan;
+-------------+-------------+------+-----+---------+-------+
| Field       | Type        | Null | Key | Default | Extra |
+-------------+-------------+------+-----+---------+-------+
| KdPelanggan | varchar(5)  | YES  |     | NULL    |       |
| Nama        | varchar(50) | YES  |     | NULL    |       |
| Alamat      | varchar(80) | YES  |     | NULL    |       |
| telp        | varchar(15) | YES  |     | NULL    |       |
+-------------+-------------+------+-----+---------+-------+
4 rows in set (0.00 sec)

mysql> create table Penjualan(NoBukti Varchar(5),Tanggal date,KdPelanggan varcha
r(5),KdProduk varchar(5),jumlah double);
Query OK, 0 rows affected (0.00 sec)

mysql> desc penjualan;
+-------------+------------+------+-----+---------+-------+
| Field       | Type       | Null | Key | Default | Extra |
+-------------+------------+------+-----+---------+-------+
| NoBukti     | varchar(5) | YES  |     | NULL    |       |
| Tanggal     | date       | YES  |     | NULL    |       |
| KdPelanggan | varchar(5) | YES  |     | NULL    |       |
| KdProduk    | varchar(5) | YES  |     | NULL    |       |
| jumlah      | double     | YES  |     | NULL    |       |
+-------------+------------+------+-----+---------+-------+
5 rows in set (0.00 sec)

mysql> insert into Produk values('M10','MEJA','BIJI','2'),('M11','KURSI','SET','
6'),('M12','BUKU','LUSIN','2'),('M13','PULPEN','LUSIN','3'),('M14','ROOL','BIJI'
,'6'),('M15','BAJU','LUSIN','1'),('M16','CELANA','LUSIN','5'),('M17','SEPATU','P
ASANG','4');
Query OK, 8 rows affected (0.00 sec)
Records: 8  Duplicates: 0  Warnings: 0

mysql> insert into Produk values('M18','LEMARI','BUAH','3'),('M19','KIPAS','BUAH
','4'),('M20','LAPTOP','BUAH','1');
Query OK, 3 rows affected (0.01 sec)
Records: 3  Duplicates: 0  Warnings: 0

mysql> select*from produk;
+----------+--------+--------+--------+
| KdPRODUK | Nama   | Satuan | jumlah |
+----------+--------+--------+--------+
| M10      | MEJA   | BIJI   |      2 |
| M11      | KURSI  | SET    |      6 |
| M12      | BUKU   | LUSIN  |      2 |
| M13      | PULPEN | LUSIN  |      3 |
| M14      | ROOL   | BIJI   |      6 |
| M15      | BAJU   | LUSIN  |      1 |
| M16      | CELANA | LUSIN  |      5 |
| M17      | SEPATU | PASANG |      4 |
| M18      | LEMARI | BUAH   |      3 |
| M19      | KIPAS  | BUAH   |      4 |
| M20      | LAPTOP | BUAH   |      1 |
+----------+--------+--------+--------+
11 rows in set (0.00 sec)

mysql> desc penjualan;
+-------------+------------+------+-----+---------+-------+
| Field       | Type       | Null | Key | Default | Extra |
+-------------+------------+------+-----+---------+-------+
| NoBukti     | varchar(5) | YES  |     | NULL    |       |
| Tanggal     | date       | YES  |     | NULL    |       |
| KdPelanggan | varchar(5) | YES  |     | NULL    |       |
| KdProduk    | varchar(5) | YES  |     | NULL    |       |
| jumlah      | double     | YES  |     | NULL    |       |
+-------------+------------+------+-----+---------+-------+
5 rows in set (0.02 sec)

mysql> alter table penjualan change KdProduk KdPRODUK varchar(5);
Query OK, 0 rows affected (0.03 sec)
Records: 0  Duplicates: 0  Warnings: 0

mysql> desc penjualan;
+-------------+------------+------+-----+---------+-------+
| Field       | Type       | Null | Key | Default | Extra |
+-------------+------------+------+-----+---------+-------+
| NoBukti     | varchar(5) | YES  |     | NULL    |       |
| Tanggal     | date       | YES  |     | NULL    |       |
| KdPelanggan | varchar(5) | YES  |     | NULL    |       |
| KdPRODUK    | varchar(5) | YES  |     | NULL    |       |
| jumlah      | double     | YES  |     | NULL    |       |
+-------------+------------+------+-----+---------+-------+
5 rows in set (0.00 sec)

mysql> insert into pelanggan values('D1','MASDAULI','AMPLAS','082168875508'),('D
2','SUSI','AMPLAS','0821688XXX'),('D3','NURSANAH','AMPLAS','082168XXX'),('D4','S
ONIA','PAKAM','08527572XXX'),('D5','DENNI','JL.SAUDARA','081361XXX');
Query OK, 5 rows affected (0.00 sec)
Records: 5  Duplicates: 0  Warnings: 0

mysql> insert into pelanggan values('D6','TIKA','KASIH','082165XX'),('D7','MEI',
'SAUDARA','081376XXX'),('D8','DORLIN','DELI','08371XXX'),('D9','ASEAN','DELITUA'
,'081370XXX'),('D10','IRVAN','MENTENG','082165XXX');
Query OK, 5 rows affected (0.00 sec)
Records: 5  Duplicates: 0  Warnings: 0

mysql> select*from Pelanggan;
+-------------+----------+------------+--------------+
| KdPelanggan | Nama     | Alamat     | telp         |
+-------------+----------+------------+--------------+
| D1          | MASDAULI | AMPLAS     | 082168875508 |
| D2          | SUSI     | AMPLAS     | 0821688XXX   |
| D3          | NURSANAH | AMPLAS     | 082168XXX    |
| D4          | SONIA    | PAKAM      | 08527572XXX  |
| D5          | DENNI    | JL.SAUDARA | 081361XXX    |
| D6          | TIKA     | KASIH      | 082165XX     |
| D7          | MEI      | SAUDARA    | 081376XXX    |
| D8          | DORLIN   | DELI       | 08371XXX     |
| D9          | ASEAN    | DELITUA    | 081370XXX    |
| D10         | IRVAN    | MENTENG    | 082165XXX    |
+-------------+----------+------------+--------------+
10 rows in set (0.00 sec)

mysql> insert into penjualan values('001','10/02/2011','D1','M10','2'),('002','1
1/02/2011','D2','M11','6'),('003','12/02/2011','D3','M12','2'),('004','13/02/201
1','D4','M13','3'),('005','14/02/2011','D5','M14','6'),('006','15/02/2011','D6',
'M15','1');
Query OK, 6 rows affected (0.00 sec)
Records: 6  Duplicates: 0  Warnings: 0

mysql> insert into penjualan values('007','16/02/2011','D7','M16','5'),('008','1
7/02/2011','D8','M17','5'),('009','18/02/2011','D9','M18','4'),('010','19/02/201
1','D10','M19','3');
Query OK, 4 rows affected (0.00 sec)
Records: 4  Duplicates: 0  Warnings: 0

mysql> select*from Penjualan;
+---------+------------+-------------+----------+--------+
| NoBukti | Tanggal    | KdPelanggan | KdPRODUK | jumlah |
+---------+------------+-------------+----------+--------+
| 001     | 2010-02-20 | D1          | M10      |      2 |
| 002     | 2011-02-20 | D2          | M11      |      6 |
| 003     | 2012-02-20 | D3          | M12      |      2 |
| 004     | 2013-02-20 | D4          | M13      |      3 |
| 005     | 2014-02-20 | D5          | M14      |      6 |
| 006     | 2015-02-20 | D6          | M15      |      1 |
| 007     | 2016-02-20 | D7          | M16      |      5 |
| 008     | 2017-02-20 | D8          | M17      |      5 |
| 009     | 2018-02-20 | D9          | M18      |      4 |
| 010     | 2019-02-20 | D10         | M19      |      3 |
+---------+------------+-------------+----------+--------+
10 rows in set (0.00 sec)

mysql>

Minggu, 03 Juli 2011

IBUKU

Apalah arti sebuah kisah bila tidak ada kasih di dalamnya...

arti air mata seorang ibu

          Seorang anak laki-laki kecil bertanya kepada ibunya “Mengapa engkau menangis?”
“Karena aku seorang wanita”, kata sang ibu kepadanya.
“Aku tidak mengerti”, kata anak itu.
Ibunya hanya memeluknya dan berkata, “Dan kau tak akan pernah mengerti”
Kemudian anak laki-laki itu bertanya kepada ayahnya, “Mengapa ibu suka menangis tanpa alasan?”
“Semua wanita menangis tanpa alasan”, hanya itu yang dapat dikatakan oleh ayahnya.
Anak laki-laki kecil itu pun lalu tumbuh menjadi seorang laki-laki dewasa, tetap ingin tahu mengapa wanita menangis. Akhirnya ia menghubungi Tuhan, dan ia bertanya, “Tuhan, mengapa wanita begitu mudah menangis?”
Tuhan berkata:
“Ketika Aku menciptakan seorang wanita, ia diharuskan untuk menjadi seorang yang istimewa.
Aku membuat bahunya cukup kuat untuk menopang dunia; namun, harus cukup lembut untuk memberikan kenyamanan “
“Aku memberikannya kekuatan dari dalam untuk mampu melahirkan anak dan menerima penolakan yang seringkali datang dari anak-anaknya “
“Aku memberinya kekerasan untuk membuatnya tetap tegar ketika orang-orang lain menyerah, dan mengasuh keluarganya dengan penderitaan dan kelelahan tanpa mengeluh “
“Aku memberinya kepekaan untuk mencintai anak-anaknya dalam setiap keadaan, bahkan ketika anaknya bersikap sangat menyakiti hatinya “
“Aku memberinya kekuatan untuk mendukung suaminya dalam kegagalannya dan melengkapi dengan tulang rusuk suaminya untuk melindungi hatinya “
“Aku memberinya kebijaksanaan untuk mengetahui bahwa seorang suami yang baik takkan pernah menyakiti isterinya, tetapi kadang menguji kekuatannya dan ketetapan hatinya untuk berada disisi suaminya tanpa ragu “
“Dan akhirnya, Aku memberinya air mata untuk diteteskan. Ini adalah khusus miliknya untuk digunakan kapan pun ia butuhkan.”
“Kau tahu: Kecantikan seorang wanita bukanlah dari pakaian yang dikenakannya, sosok yang ia tampilkan, atau bagaimana ia menyisir rambutnya.”

      “Kecantikan seorang wanita harus dilihat dari matanya,
        karena itulah pintu hatinya ? tempat dimana cinta itu ada.”

MAKNA AIR MATA

TANGIS

1. Tetesan air mataku sebuah kesedihan

2. tetesan air mataku sebuah renungan 

3. tetesan air mataku sebuah ucapan syukur 

4.tetesan air mataku sebuah terima kasih 

5. tetesan air mataku sebuah kebahagiaan

6. tetesan air mataku sebuah kepastian 

7. tetesan air mata sebuah kegetiran 

8. tetesan air mataku sebuah kecemasan 

9. tetesan air mataku sebuah keraguan

10. tetesan air mataku sebuah kepuasan 

11. tetesan air mataku sebuah kesendirian 

12. tetesan air mataku sebuah ketakutan

Tetesan air mata sebuah tangisan cenggeng yang setiap manusia memilikinya 

DUNIA DALAM DUNIA
Kadang manusia tidak sadar bahwa dia tinggal dalam ribuan dunia, karena manusia merasa hebat akan dirinya sendiri.
pertama manusia menggenal dunia sewaktu dia masih menjadi embrio, sampai meninggalkan dunia ini.

Sabtu, 02 Juli 2011

STMIK BUDIDARMA CAMPKU

I LOVE STMIK BUDIDARMA GREEN CAMPUS

Masuk di kampus inilah saya mengenal yang namanya kuliah, dan banyak ilmu yang saya dapatkan dari kampus ini, Saya sangat bangga dengan kampus ini walaupun saya sering sebel ama sebagian dosen yang super cuek....tapi masih ada sebagian yang sangat menyenangkan sehingga tertutup yang cuek tu.....hehehehehe...

dah mlm nih ntar dilanjut lagi yach......

TENTANG SAYA

  Nama saya masdauli damanik saya terlahir dari seorang Rahim ibu yang sangat luar biasa, kami  4 bersaudara dan saya adalah anak ke4 atau bungsu, dan saya sendiri terlahir pada tgl 12 januari 1988,disebuah Desa yaitu Desa Nagori. Dolok kec silaukahean. saya dulunya SMP dari DESA, yaitu SMP N.1. kec Silaukahean lulusan tahun 2003. dan SMA Kampus FKIP  NOMENSEN P. Siantar lulusan tahun 2006. dan disiantar saya tinggal t4 Nenek atau bahasa gaulnya Oppung yah hitung hitung hemat biaya kostlah.
kenapa saya SMA disiantar ? karna waktu itu SMA dikampung kami masih kuarang berkualitas, dan sudah pasti SMA inilah yang meluluskan saya sehingga saya bisa melanjutkan sekolah  kejenjang yang lebih tinggi.

saya memasuki jenjang kuliah ini tidak sebaik saya lulus SMA, tapi terlebih dahulu saya cari modal ke Negeri orang yaitu Dipulau BATAM Yang sering orang mengartikan dunia bebas, dan setelah saya terjun langsung ke BATAM , memang bener dunia Batam sangat bebas sekali, tapi dengan kesibukan kita dan bergabung dengan kumpulan2 Gereja, saya berhasil terhindar dari kebebasan itu, dan tetap dekat dengan Tuhan dan bahkan jauh lebih mengerti kasih yang sebenarnya.   Saya bekerja disana selama 2 tahun, dan memang sewaktu saya bekerja disana saya begitu mengerti akan susahnya cari nafkah, dan dari sana saya menyadari kalau ternyata tiada yang lebih indah selain disamping Orang tua, saya bekerja disana yaitu dengan kontrak , karna sistem kontrak kerja disana paling lama 6 bulan,
ada 3 PT yang sudah saya jalani selama saya disana
dan  PT yang saya jalani terakhir yaitu PT. TEC indonesia dan sehabisnya kontrak saya seminggu menenagkan diri dan kemudian sayapulang kampung,

dan setibanya dikampung saya tidak merasa betah karna sudah terbiasa kerja, dan tiba2 da kabar penerimaan karyawan di Medan yaitu : di pabrik Roti ASW amplas.
kebetulan didalamnya da saudara yang menjabat sebagai Mandor sehingga saya dengan mudahnya bekerja disana.
dan selama dari sana saya ada niat untuk lebih baik yaitu untuk melanjutkan kuliah,

saya masuk kuliah tahun 2009  yaitu STMIK BUDIDARMA Green Kampus.
saya mengambil jurusan MANAJEMEN INFORMATIKA dan sekarang saya sudah sem 4.

Bersambung........