server

server

Listing Program :
Dim ClientIndex As Byte
Dim cRequest As Integer
Dim cData As String
Dim i As Integer
Dim iGD As Integer
Sub MulaiServer()
WS(0).LocalPort = 3000
WS(0).Listen
cRequest = 1
ClientIndex = 1
End Sub
Private Sub Form_Load()
MulaiServer
GD.Rows = 41
For i = 1 To 40
GD.Col = 0
GD.Row = i
GD.Text = i
Next i
iGD = 1
End Sub
Private Sub Timer1_Timer()
For i = 1 To GD.Rows – 1
GD.Row = i
GD.Col = 4
If GD.Text = “START” Then
GD.Col = 3
GD.Text = Time
End If
Next i
End Sub
Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
Load WS(cRequest)
WS(cRequest).Close
WS(cRequest).Accept requestID
cRequest = cRequest + 1 ‘
End Sub
Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
WS(index).GetData cData, vbString, bytesTotal
Call CekData(index)
End Sub
Sub CekData(index)
On Error Resume Next
Dim kata() As String
kata = Split(cData, “-”)
Select Case kata(0)
Case “START”
GD.Row = iGD
GD.Col = 1
GD.Text = kata(1) ‘WS(index).RemoteHostIP
GD.Col = 2
GD.Text = Time
GD.Col = 4
GD.Text = “START”
GD.Col = 5
GD.Text = kata(2)
iGD = iGD + 1
Case “STOP”
For i = 1 To GD.Rows – 1
GD.Row = i
GD.Col = 1
If GD.Text = kata(1) Then
GD.Col = 4
GD.Text = “STOP”
End If
Next i
End Select
End Sub
Private Sub WS_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WS(index).Close
End Sub

Listing Program :
Dim IPS As String
Dim User As String
Private Sub Command1_Click()
WS.SendData “START-” & User & “-Jesmi”
End Sub
Private Sub Command2_Click()
WS.SendData “STOP-” & User
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
IPS = “127.0.0.1″
User = WS.LocalIP
WS.Connect IPS, 3000
masuk.Text = “”
keluar = “”
pakai.Text = “”
biaya.Text = “”
End Sub
Sub CheckData()
Dim kata() As String
kata = Split(cData, ” – “)
Select Case kata(0)
Case “PAKAI”:
pakai.Value = xdata2(0)
biaya.Text = xdata2(1)
End Select
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
WS.GetData xkirim, vbString, bytesTotal
Call CheckData
End Sub

Server

KETERANGAN :

• Pasien masuk/datang melalui IGD dan Poliklinik dapat dirawat di Ruangan Teratai, Melati, Anggrek, Mawar, Boegenville, Flamboyan.
• Untuk Ruang Perawatan Kelas 2 dan 3 harus dilengkapi pembayaran DP/Uang Muka.
• Pasien masuk ke Ruangan Rawat Inap sudah dilengkapi dengan pemeriksaan penunjang medik
• Pasien dari IGD/Poliklinik bila akan dilakukan operasi, dikonsulkan ke Bagian Anestesi
• Pasien dapat langsung ke OK, bila Cito Operasi atau ke Ruang Perawatan bila Elektif Operasi atau pasien yang perlu observasi sebelum dilakukan Cito operasi
• Pasien post operasi bila stabil, kembali ke Ruang Perawatan, bila terjadi kegawatan/perlu observasi khusus dapat langsung di rawat di ICU dan sesudah stabil dapat dipindahkan ke Ruang Perawatan sesuai dengan kelas permintaan pasien, begitu juga sebaliknya bila terjadi kegawatan di Ruang Perawatan dapat dipindahkan ke Ruang ICU
• Bila pasien dinyatakan sembuh oleh Dokter, dapat pulang setelah selesaikan administrasi di kasir
• Pasien pulang dan atau bila meninggal dipulangkan melalui ke kamar Jenazah

Pengertian Client Server

Client-Server adalah arsitektur jaringan yang memisahkan client(biasanya aplikasi yang menggunakan GUI ) dengan server. Masing-masing client dapat meminta data atau informasi dari server.

Sistem client server didefinisikan sebagai sistem terdistribusi, tetapi ada beberapa perbedaan karakteristik yaitu 

                        1.Servis (layanan)

                        oHubungan antara proses yang berjalan pada mesin

                        yang berbeda

                        oPemisahan fungsi berdasarkan ide layanannya.

                       oServer sebagai provider, client sebagai konsumen

                  2. Sharing resources (sumber daya)

                         oServer bisa melayani beberapa client pada waktu yang sama, dan

                          meregulasi akses bersama untuk share sumber daya dalam menjamin

                          konsistensinya.

                        3.Asymmetrical protocol (protokol yang tidak simetris )

                        Many-to-one relationship antara client dan server.Client selalu

                        menginisiasikan dialog melalui layanan permintaan,

                        dan server menunggu

                        secara pasif request dari client.

                         

                        4.Transparansi lokasi

                        Proses yang dilakukan server boleh terletak pada mesin yang sama

                        atau pada

                        mesin yang berbeda melalui jaringan.Lokasi server

                        harus mudah diakses dari

                        client.

5.Mix-and-Match

Perbedaan server client platforms

                         

                        6.Pesan berbasiskan komunikasi

                        Interaksi server dan client melalui pengiriman pesan yang menyertakan

                        permintaan dan jawaban.

                         

                        7.Pemisahan interface dan implementasi

                        Server bisa diupgrade tanpa mempengaruhi client selama interface pesan

                        yang diterbitkan tidak berubah.

                        Client Server System

ARSITEKTUR CLIENT-SERVER

Client/Server dapat diartikan sebagai kemampuan komputer untuk meminta layanan request data kepada komputer lain.  Komputer yang meminta layanan disebut sebagai client, sedangkan yang menyediakan layanan disebut sebagai server. 

Pengertian lain, client melakukan permintaan suatu informasi atau mengirim perintah ke server. Server akan menerima permintaan dan perintah client. Kemudian server akan memproses memproses berdasarkan permintaan tersebut, dan mengembalikan kepada client sebagai hasil pemrosesan yang sudah dilakukan.

 

Arsitektur Model Client/Server

Service Request adalah permintaan dari client baik berupa permintaan data  maupun perintah ke server. 

Service Response berupa balasan dari server atas permintaan dari client berupa hasil proses. 

Data yang diminta oleh client dapat diambil dari database pada sisi server yang sering disebut database server, seperi misalnya MySQL, PostgreSQL, Oracle, atau SQL Server.

Karakteristik Client-Server:

• Client dan Server merupakan item proses (logika) terpisah yang bekerja sama pada suatu jaringan komputer untuk mengerjakan suatu tugas

•   Service : Menyediakan layanan terpisah yang berbeda

•  Shared resource : Server dapat melayani beberapa client pada saat yang sama dan mengatur pengaksesan resource

• Asymmetrical Protocol : antara client dan server merupakan hubungan one-to-many. Client memulai komunikasi dengan mengirim request ke server. Server menunggu permintaan dari client. Kondisi tersebut juga memungkinkan komunikasi callback.

• Transparency Location : proses server dapat ditempatkan pada mesin yang sama atau terpisah dengan proses client. Client/server akan menyembunyikan lokasi server dari client.

• Mix-and-match : tidak tergantung pada platform

•  Message-based-exchange : antara client dan server berkomunikasi dengan mekanisme pertukaran message.

•  Encapsulation of service : message memberitahu server apa yang akan dikerjakan

• Scalability : sistem C/S dapat dimekarkan baik vertikal maupun horisontal

•  Integrity : kode dan data server diatur secara terpusat, sedangkan pada client tetap pada komputer tersendiri

Quis Program VB

DATA BASE

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 4 to server version: 3.23.47-nt

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

mysql> show databases;

+--------------+

| Database     |

+--------------+

| DBPenggajian |

| TOKOMASDA    |

| jesmi        |

| masda        |

| mysql        |

| test         |

+--------------+

6 rows in set (0.00 sec)

mysql> use jesmi;

Database changed

mysql> create table produk(kd_produk varchar(5),nama varchar(50),satuan varchar(

10),jumlah double);

Query OK, 0 rows affected (0.36 sec)

mysql> decs produk;

ERROR 1064: You have an error in your SQL syntax near 'decs produk' at line 1

mysql> desc produk;

+-----------+-------------+------+-----+---------+-------+

| Field     | Type        | Null | Key | Default | Extra |

+-----------+-------------+------+-----+---------+-------+

| kd_produk | varchar(5)  | YES  |     | NULL    |       |

| nama      | varchar(50) | YES  |     | NULL    |       |

| satuan    | varchar(10) | YES  |     | NULL    |       |

| jumlah    | double      | YES  |     | NULL    |       |

+-----------+-------------+------+-----+---------+-------+

4 rows in set (0.00 sec)

mysql> insert into produk values('A001',"TV","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A002',"RADIO","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A003',"KULKAS","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A004',"MESIN CUCI","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A005',"KIPAS ANGIN","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A006',"SPIKER","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A007',"AC","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A008',"KOMPUTER","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A009',"LABTOP","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> insert into produk values('A010',"VCD","PCS",10);

Query OK, 1 row affected (0.00 sec)

mysql> select*from produk;

+-----------+-------------+--------+--------+

| kd_produk | nama        | satuan | jumlah |

+-----------+-------------+--------+--------+

| A001      | TV          | PCS    |     10 |

| A002      | RADIO       | PCS    |     10 |

| A003      | KULKAS      | PCS    |     10 |

| A004      | MESIN CUCI  | PCS    |     10 |

| A005      | KIPAS ANGIN | PCS    |     10 |

| A006      | SPIKER      | PCS    |     10 |

| A007      | AC          | PCS    |     10 |

| A008      | KOMPUTER    | PCS    |     10 |

| A009      | LABTOP      | PCS    |     10 |

| A010      | VCD         | PCS    |     10 |

+-----------+-------------+--------+--------+

10 rows in set (0.00 sec)

mysql> create table pelanggan(kd_pelanggan varchar(5),nama varchar(50),alamat va

rchar(80),telp varchar(15));

Query OK, 0 rows affected (0.00 sec)

mysql> desc pelanggan;

+--------------+-------------+------+-----+---------+-------+

| Field        | Type        | Null | Key | Default | Extra |

+--------------+-------------+------+-----+---------+-------+

| kd_pelanggan | varchar(5)  | YES  |     | NULL    |       |

| nama         | varchar(50) | YES  |     | NULL    |       |

| alamat       | varchar(80) | YES  |     | NULL    |       |

| telp         | varchar(15) | YES  |     | NULL    |       |

+--------------+-------------+------+-----+---------+-------+

4 rows in set (0.01 sec)

mysql> insert into pelanggan values('B001',"JESMI","MEDAN",085217003368);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B002',"MEI","MEDAN",085217000368);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B003',"TIKA","MEDAN",085217000068);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B004',"TINA","MEDAN",085217000008);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B005',"DEWI","MEDAN",085217000000);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B006',"DEVI","MEDAN",085217100000);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B007',"DESI","MEDAN",085217180000);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B008',"WINDA","MEDAN",085217188000);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B009',"RIKI","MEDAN",085217188800);

Query OK, 1 row affected (0.00 sec)

mysql> insert into pelanggan values('B010',"RINI","MEDAN",085217188880);

Query OK, 1 row affected (0.00 sec)

mysql> select*from pelanggan;

+--------------+-------+--------+-------------+

| kd_pelanggan | nama  | alamat | telp        |

+--------------+-------+--------+-------------+

| B001         | JESMI | MEDAN  | 85217003368 |

| B002         | MEI   | MEDAN  | 85217000368 |

| B003         | TIKA  | MEDAN  | 85217000068 |

| B004         | TINA  | MEDAN  | 85217000008 |

| B005         | DEWI  | MEDAN  | 85217000000 |

| B006         | DEVI  | MEDAN  | 85217100000 |

| B007         | DESI  | MEDAN  | 85217180000 |

| B008         | WINDA | MEDAN  | 85217188000 |

| B009         | RIKI  | MEDAN  | 85217188800 |

| B010         | RINI  | MEDAN  | 85217188880 |

+--------------+-------+--------+-------------+

10 rows in set (0.00 sec)

mysql> create table penjualan(no_bukti varchar(5),tanggal varchar(10),kd_pelangg

an varchar(5),kd_produk varchar(5),jumlah double);

Query OK, 0 rows affected (0.00 sec)

mysql> desc penjualan;

+--------------+-------------+------+-----+---------+-------+

| Field        | Type        | Null | Key | Default | Extra |

+--------------+-------------+------+-----+---------+-------+

| no_bukti     | varchar(5)  | YES  |     | NULL    |       |

| tanggal      | varchar(10) | YES  |     | NULL    |       |

| kd_pelanggan | varchar(5)  | YES  |     | NULL    |       |

| kd_produk    | varchar(5)  | YES  |     | NULL    |       |

| jumlah       | double      | YES  |     | NULL    |       |

+--------------+-------------+------+-----+---------+-------+

5 rows in set (0.00 sec)

mysql> insert into penjualan values('C001','1','A001','B001',50);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C002','2','A002','B002',60);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C003','3','A003','B003',65);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C004','4','A004','B004',75);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C005','5','A005','B005',70);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C006','6','A006','B006',80);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C007','7','A007','B008',85);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C008','8','A008','B008',80);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C009','9','A009','B009',90);

Query OK, 1 row affected (0.00 sec)

mysql> insert into penjualan values('C010','10','A010','B010',95);

Query OK, 1 row affected (0.02 sec)

mysql> select*from penjualan;

+----------+---------+--------------+-----------+--------+

| no_bukti | tanggal | kd_pelanggan | kd_produk | jumlah |

+----------+---------+--------------+-----------+--------+

| C001     | 1       | A001         | B001      |     50 |

| C002     | 2       | A002         | B002      |     60 |

| C003     | 3       | A003         | B003      |     65 |

| C004     | 4       | A004         | B004      |     75 |

| C005     | 5       | A005         | B005      |     70 |

| C006     | 6       | A006         | B006      |     80 |

| C007     | 7       | A007         | B008      |     85 |

| C008     | 8       | A008         | B008      |     80 |

| C009     | 9       | A009         | B009      |     90 |

| C010     | 10      | A010         | B010      |     95 |

+----------+---------+--------------+-----------+--------+

10 rows in set (0.00 sec)

mysql>

                                                              Gbr.Frm Menu

                                                  Gbr. Prm Produk

                                                  Gbr. Frm Pelanggan

          

                                                                 Gbr. Frm Penjualan  

LISTINGPROGRAM FORM PRODUK

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

LISTING PROGRAM FORM PELANGGAN

Sub hapus()

    kd_pelanggan.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 pelanggan(kd_pelanggan, nama, alamat, telp)" & _

                " values('" & kd_pelanggan.Text & _

                "','" & nama.Text & _

                "','" & alamat.Text & _

                "','" & telp.Text & "')"

        Case 1

           

            SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _

                  " alamat = '" & alamat.Text & "'," & _

                  " telp = '" & telp.Text & "'," & _

                  " where kd_pelanggan ='" & kd_pelanggan.Text & "'"

        Case 2

            SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"

    End Select

    MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"

    Db.Execute SQL, adCmdTable

    Call hapus

    Adodc1.Refresh

    kd_pelanggan.SetFocus

End Sub

Sub Tampilpelanggan()

    On Error Resume Next

    kd_pelanggan.Text = RS!kd_pelanggan

    nama.Text = RS!nama

    alamat.Text = RS!alamat

    telp.Text = RS!telp

   

End Sub

Private Sub Cmdproses_Click(Index As Integer)

Select Case Index

    Case 0

        Call hapus

        kd_pelanggan.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, "pelanggan")

        If x = vbYes Then prosesDB 2

        Call hapus

        kd_pelanggan.SetFocus

    Case 3

        Call hapus

        kd_pelanggan.SetFocus

    Case 4

        Unload Me

    End Select

End Sub

Private Sub Form_Load()

    Call OPENDB

    Call hapus

   

    

End Sub

Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        If kd_pelanggan.Text = "" Then

            MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"

            kd_pelanggan.SetFocus

            Exit Sub

        End If

        SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"

        If RS.State = adStateOpen Then RS.Close

        RS.Open SQL, Db, adOpenDynamic, adLockOptimistic

        If RS.RecordCount <> 0 Then

            Tampilpelanggan

            Call RubahCMD(Me, False, True, True, True)

            cmdproses(1).Caption = "&Edit"

            kd_pelanggan.Enabled = False

        Else

            x = kd_pelanggan.Text

            Call hapus

            kd_pelanggan.Text = x

            Call RubahCMD(Me, False, True, False, True)

            cmdproses(1).Caption = "&baru"

        End If

        nama.SetFocus

    End If

End Sub

LISTING PROGRAM FORM PENJUALAN

Sub hapus()

    no_bukti.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 penjualan(no_bukti, tgl, kd_pelanggan,kd_produk,jumlah)" & _

                " values('" & no_bukti.Text & _

                "','" & tgl.Text & _

                "','" & kd_pelanggan.Text & _

                "','" & kd_produk.Text & _

                "','" & jumlah.Text & "')"

        Case 1

           

            SQL = "UPDATE produk SET tgl ='" & tgl.Text & "'," & _

                  " kd_pelanggan = '" & kd_pelanggan.Text & "'," & _

                  " kd_produk = '" & kd_produk.Text & "'," & _

                  " jumlah = '" & jumlah.Text & "'," & _

                  " where no_bukti ='" & no_bukti.Text & "'"

        Case 2

            SQL = "DELETE FROM penjualan WHERE no_bukti='" & no_bukti.Text & "'"

    End Select

    MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data penjualan"

    Db.Execute SQL, adCmdTable

    Call hapus

    Adodc1.Refresh

    no_bukti.SetFocus

End Sub

Sub Tampilpenjualan()

    On Error Resume Next

    no_bukti.Text = RS!no_bukti

    tgl.Text = RS!tgl

    kd_pelanggan.Text = RS!kd_pelanggan

    kd_produk.Text = RS!kd_produk

    jumlah.Text = RS!jumlah

   

End Sub

Private Sub Cmdproses_Click(Index As Integer)

Select Case Index

    Case 0

        Call hapus

        no_bukti.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, "penjualan")

        If x = vbYes Then prosesDB 2

        Call hapus

        no_bukti.SetFocus

    Case 3

        Call hapus

        no_bukti.SetFocus

    Case 4

        Unload Me

    End Select

End Sub

Private Sub Form_Load()

    Call OPENDB

    Call hapus

   

   

End Sub

Private Sub no_bukti_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        If no_bukti.Text = "" Then

            MsgBox "Masukkan no_bukti penjualan !", vbInformation, "penjualan"

            no_bukti.SetFocus

            Exit Sub

        End If

        SQL = "SELECT * FROM produk WHERE no_bukti='" & no_bukti.Text & "'"

        If RS.State = adStateOpen Then RS.Close

        RS.Open SQL, Db, adOpenDynamic, adLockOptimistic

        If RS.RecordCount <> 0 Then

            Tampilpenjualan

            Call RubahCMD(Me, False, True, True, True)

            cmdproses(1).Caption = "&Edit"

            no_bukti.Enabled = False

        Else

            x = no_bukti.Text

            Call hapus

            no_bukti.Text = x

            Call RubahCMD(Me, False, True, False, True)

            cmdproses(1).Caption = "&baru"

        End If

        tgl.SetFocus

    End If

End Sub

LISTING PROGRAM FRM PEMBANTU CRISTAL REPORT 1-3 SAMA

Dim Report As New CrystalReport1

Private Sub Form_Load()

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0

CRViewer1.Left = 0

CRViewer1.Height = ScaleHeight

CRViewer1.Width = ScaleWidth

End Sub

LISTING PROGRAM MENU

Private Sub F1_Click()

    Form1.Show

   

End Sub

Private Sub F2_Click()

Form2.Show

End Sub

Private Sub F3_Click()

Form3.Show

End Sub

Private Sub mnC1_Click()

Form4.Show

End Sub

Private Sub mnC2_Click()

Form5.Show

End Sub

Private Sub mnc3_Click()

Form6.Show

End Sub

LISTING PROGRAM MENU

Public Db As New ADODB.Connection

Public RS As New ADODB.Recordset

Public RS2 As New ADODB.Recordset

Public SQL As String

Sub OPENDB()

    If Db.State = adStateOpen Then Db.Close

    Db.CursorLocation = adUseClient

    Db.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=barang"

End Sub

Sub ClearFORM(f As Form)

    Dim ctl As Control

    For Each ctl In f

        If TypeOf ctl Is TextBox Then ctl.Text = ""

        If TypeOf ctl Is ComboBox Then ctl.Text = ""

    Next

End Sub

Sub Center(f As Form)

    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.cmdproses(0).Enabled = L0

    f.cmdproses(1).Enabled = L1

    f.cmdproses(2).Enabled = L2

    f.cmdproses(3).Enabled = L3

End Sub

                                                Gbr.  Hasil Frm pPoduk

                                                     Gbr.Hasil Frm Pelanggan

                                              Gbr.Hasil Frm Penjualan

                                                    Gbr. Crstl Repot Produk

  

                                               Gbr. Crstl Repot Pelanggan

                                               Gbr. Crstl Repot  Penjualan

                                                  Gbr.Hasil. Crstl Repot Produk

                                         Gbr. Hasil Crstl Repot Pelanggan

                                                   Gbr. Hasil Crstl Repot Penjualan