Public koneksi As ADODB.Connection
Public rs As ADODB.Recordset
Public rs1 As ADODB.Recordset
Public rs2 As ADODB.Recordset
Public rs3 As ADODB.Recordset
Public rs4 As ADODB.Recordset
Public rs5 As ADODB.Recordset
Public rs0 As ADODB.Recordset
Public rsJual As ADODB.Recordset
Public rsStok As ADODB.Recordset
Public disc As String
Public sql As String
Public pesan As VbMsgBoxResult
Public sLama As String
Public total As String
Public sBaru As String
Public aUser As String
Public tanggal As String
Public tmpGrand As String
Public tmpDisc As String
Public tmpNama As String
Public tmpharga As String
Public tmpModal As String
Public tmpStok As String
Public tmpUnit As String
Public jam As String
Public st As String
Public bon As String
Public Snama As String
Dim edp As String
Dim dbhost As String
Dim dbname As String
Dim dbuser As String
Dim dbpwd As String
Public id As String
Public bln As String
Public Sub Tunda(ByVal dtk As Single)
Dim awal As Variant
awal = Timer
Do While Timer < awal + dtk
    DoEvents
Loop
End Sub

Public Sub bukakoneksi_DSN()
On Error GoTo handle
Set koneksi = New ADODB.Connection
koneksi.Open "dedyjaya"
Exit Sub
handle:
MsgBox "Buatkan dsn connections dengan nama dedyjaya"
Exit Sub

End Sub
Public Sub bukaKoneksi()
On Error GoTo handle
    If GetSetting(App.CompanyName, App.EXEName, "konfig") = "manual" Then
        Set koneksi = New ADODB.Connection
        dbhost = GetSetting(App.CompanyName, App.EXEName, "dbhost")
        dbname = GetSetting(App.CompanyName, App.EXEName, "dbname")
        dbuser = GetSetting(App.CompanyName, App.EXEName, "dbuser")
        dbpwd = GetSetting(App.CompanyName, App.EXEName, "dbpwd")
        koneksi.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" _
                              & "SERVER=" & dbhost & ";" _
                              & " DATABASE=" & dbname & ";" _
                              & " PORT=3306;" _
                              & "UID=" & dbuser & ";PWD=" & dbpwd & "; OPTION=3"
        koneksi.Open
        SaveSetting App.CompanyName, App.EXEName, "dbstatus", "Ready"

    Else

        Set koneksi = New ADODB.Connection
        koneksi.Open GetSetting(App.CompanyName, App.EXEName, "nDSN")
    End If
    Exit Sub
handle:
    fKoneksi.Show vbModal
    Exit Sub
End Sub

Public Function dTanggal(ByVal data As String) As String
Select Case data
    Case "1"
        bln = "Januari"
    Case "2"
        bln = "Februari"
    Case "3"
        bln = "Maret"
    Case "4"
        bln = "April"
    Case "5"
        bln = "Mei"
    Case "6"
        bln = "Juni"
    Case "7"
        bln = "Juli"
    Case "8"
        bln = "Agustus"
    Case "9"
        bln = "September"
    Case "10"
        bln = "Oktober"
    Case "11"
        bln = "November"
    Case "12"
        bln = "Desember"
End Select
dTanggal = Format(Now, "dd") & "-" & bln & "-" & Format(Now, "yyyy")

End Function

Public Function RKanan(ByVal kata As String) As String
'maksimum 14 digit
Select Case Len(Trim(kata))
    Case "1"
         RKanan = Space(24) + kata
    Case "2"
         RKanan = Space(24) + kata
    Case "3"
         RKanan = Space(20) + kata
    Case "4"
         RKanan = Space(24) + kata
    Case "5"
         RKanan = Space(16) + kata
    Case "6"
         RKanan = Space(14) + kata
    Case "7"
         RKanan = Space(13) + kata
    Case "8"
         RKanan = Space(12) + kata
    Case "9"
         RKanan = Space(10) + kata
    Case "10"
         RKanan = Space(8) + kata
    Case "11"
         RKanan = Space(6) + kata
    Case "12"
         RKanan = Space(4) + kata
    Case "13"
        RKanan = Space(2) + kata
    Case "14"
        RKanan = kata
End Select
End Function

Public Function Lkanan(ByVal kata As String) As String
'maksimum 14 digit
Select Case Len(Trim(kata))
    Case "1"
         Lkanan = Space(38) + kata
    Case "2"
         Lkanan = Space(36) + kata
    Case "3"
         Lkanan = Space(34) + kata
    Case "4"
         Lkanan = Space(32) + kata
    Case "5"
         Lkanan = Space(30) + kata
    Case "6"
         Lkanan = Space(28) + kata
    Case "7"
         Lkanan = Space(26) + kata
    Case "8"
         Lkanan = Space(24) + kata
    Case "9"
         Lkanan = Space(22) + kata
    Case "10"
         Lkanan = Space(21) + kata
    Case "11"
         Lkanan = Space(18) + kata
    Case "12"
         Lkanan = Space(18) + kata
    Case "13"
         Lkanan = Space(14) + kata
    Case "14"
        Lkanan = Space(12) + kata
    Case "15"
        Lkanan = Space(10) + kata
    Case "16"
        Lkanan = Space(10) + kata
    Case "17"
        Lkanan = Space(6) + kata
    Case "18"
        Lkanan = Space(4) + kata
    Case "19"
        Lkanan = Space(2) + kata
    Case "20"
        Lkanan = kata
    End Select

End Function