Sub Tutup() Combo1.Locked = True PT1.Locked = True PT2.Locked = True ME1.Enabled = False
End Sub
Sub Bersih()
Combo1.Text = " " PT1.Text = "" PT2.Text = "" ME1.Text = "__:__"
End Sub
Sub LoadData()
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear ListView1.ColumnHeaders.Add , , "Hari", 1000 ListView1.ColumnHeaders.Add , , "Uraian", 2000 ListView1.ColumnHeaders.Add , , "Jam", 800 ListView1.ColumnHeaders.Add , , "Suara", 4000 Set Con1 = New Recordset Con1.Open "SELECT * from data ORDER BY urt,jam;", db, adOpenStatic, adLockOptimistic If Con1.RecordCount > 0 Then Con1.MoveFirst Do While Not Con1.EOF
Set List = ListView1.ListItems.Add(, , Con1!hari)
List.SubItems(1) = Con1!uraian List.SubItems(2) = Con1!Jam List.SubItems(3) = Con1!suara
Con1.MoveNext
Loop End If End Sub Private Sub Combo1_Click() PT1.SetFocus
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then PT1.SetFocus End If
End Sub
Private Sub Command1_Click()
End Sub
Private Sub File1_Click()
If PT2.Locked = False Then PT2.Text = File1.FileName PT2.SetFocus
End If
End Sub
Private Sub Form_Load()
Dim Pilih, DtB, Pilih2, Jam, Menit, Tombol As String Dim i As Integer
Pilih = GetSetting(App.Title, "Settings", "Pilih")
If Pilih = "" Then SaveSetting App.Title, "Settings", "Pilih", "True" End If Pilih = GetSetting(App.Title, "Settings", "Pilih") If Pilih = "True" Then Pilih2 = "False" Else Pilih2 = "True" RadioButton1(0).Value = Pilih RadioButton1(1).Value = Pilih2
File1.Pattern = "*.wav;*.mp3;*.mid"
Picture1.BackColor = RGB(1, 90, 148)
Me.BackColor = RGB(241, 243, 242) Me.Top = (Info.WorkAreaHeight - Me.Height) / 2 Me.Left = (Info.WorkAreaWidth - Me.Width) / 2
Set db = New Connection
db.CursorLocation = adUseClient If RadioButton1(0).Value = True Then db.Open "PROVIDER=MSDASQL;dsn=wulansoft;uid=;pwd=;" Else db.Open "PROVIDER=MSDASQL;dsn=anggi;uid=;pwd=;" End If
Combo1.AddItem "Senin"
