MODULE CLIENT

Public Db As New ADODB.Connection

Public Rs As New ADODB.Recordset

Public Rs2 As New ADODB.Recordset

Public Rslogin As New ADODB.Recordset

Public SQL As String

Sub OPENDB()

If Db.State = adStateOpen Then Db.Close

Db.CursorLocation = adUseClient

Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Buku1\db2.mdb;Persist Security Info=False"

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