Hari ke 58 PI

Melanjutkan tugas kemarin .

Hari ke 57 PI

Hari ini saya mengerjakan Penerimaan  Pembayaran RSUD Kertosono yang belum selesai . .

Hari ke 56 PI

Hari saya telah dapat menampilkan data dari 3 tabel di FormMutasi dan FormKelas

Hari ke 55 PI

Hari ini saya membenahi coding dalam Command Cari yang belum selesai

Inilah Wanita

Jika dikatakan cantik dikira menggoda,

Jika dibilang jelek di sangka menghina

Bila dibilang lemah dia protes,

Bila dibilang perkasa dia nangis

Maunya emansipasi, tapi disuruh benerin genteng, nolak

(sambil ngomel masa disamakan dengan cowok)

Maunya emansipasi, tapi disuruh berdiri di bis malah cemberut

(sambil ngomel, egois amat sih cowok ini tidak punya perasaan)

Maunya emansipasi, sono narik becak

(sambil ngomel, mendingan gw jualan pecel dah)

Maunya emansipasi, disuruh angkat beras, muka masam

(sambil ngomel, cowo apa ne.. dah tau beban gw berat (2 mountains) masi disuruh angkat beginian)

Jika di tanyakan siapa yang paling di banggakan, kebanyakan bilang Ibunya,

tapi kenapa ya... lebih bangga jadi wanita karir,

padahal ibunya adalah ibu rumah tangga

Bila kesalahannya diingatkankan, mukanya merah...

Bila di ajari mukanya merah,

Bila di sanjung mukanya merah,

Jika marah mukanya merah,

Kok sama semua? bingung !!

Di tanya ya atau tidak, jawabnya : diam

Ditanya tidak atau ya, jawabnya : diam

Ditanya ya atau ya, jawabnya : diam

Ditanya tidak atau tidak, jawabnya : diam

Ketika didiamkan malah marah (repot kita disuruh jadi dukun yang bisa nebak jawabannya)

Di bilang ceriwis marah,

Dibilang berisik ngambek,

Dibilang banyak mulut tersinggung,

Tapi kalau dibilang Supel wadow seneng banget... padahal sama saja maksudnya

Dibilang gemuk enggak senang padahal maksud kita sehat gitu lho,

Dibilang kurus malah senang padahal maksud kita "kenapa elo jadi begini !!!!"

Itulah WANITA, makin kita bingung makin senang dia...

Hari ke 54 PI

Hari ini saya membenahi coding dalam progam saya yang error dan mulai  menggunakan design anyar

Hari ke 53 PI

Harini ini saya mengerjakan Diagnosis RS Kertosono dengan mencocokkan data dalam catatan dengan data dalam database

Hari ke 52 PI

Query Tampil  :


Private Sub tampil()
mutasi.ListItems.Clear
Set rs = ConnAPP.Execute(" SELECT a.Nama, b.Nma_Kls , c.kde_mutasi, c.kde_siswa, c.kde_kelas, c.Thn_Ajaran, c.Status , c.Semester from Siswa a, Kelas b , Mutasi c where  a.Kde_Siswa = c.Kde_Siswa and b.Kde_Kelas = c.Kde_Kelas")
    While Not rs.EOF
    Set isi = mutasi.ListItems.Add(, , rs!Kde_Mutasi)
    isi.SubItems(1) = rs!Kde_Siswa
    isi.SubItems(2) = rs!Nama
    isi.SubItems(3) = rs!Kde_Kelas
    isi.SubItems(4) = rs!Nma_Kls
    isi.SubItems(5) = rs!Thn_Ajaran
    isi.SubItems(6) = rs!Status
    isi.SubItems(7) = rs!semester
    rs.MoveNext
    Wend
  
End Sub


Query Click :


Private Sub mutasi_Click()

'Set rs = ConnAPP.Execute(" SELECT * FROM mutasi WHERE Kde_Mutasi='" & mutasi.SelectedItem & "'")
'If Not rs.EOF Then
        Text(0) = mutasi.SelectedItem
        Text(1) = mutasi.SelectedItem.SubItems(1)
        Text(3) = mutasi.SelectedItem.SubItems(3)
        Text(4) = mutasi.SelectedItem.SubItems(4)
        Text(5) = mutasi.SelectedItem.SubItems(5)
        Combo.Text = mutasi.SelectedItem.SubItems(6)
        Text(6) = mutasi.SelectedItem.SubItems(7)
    'End If
  
    enbTombol False, False, True, True, True, False, True
  
    Call pasif
End Sub


Private Sub Text_Change(Index As Integer)
Select Case Index

Case 1 'Kode Siswa

Set rs = ConnAPP.Execute(" SELECT * FROM Siswa WHERE Kde_Siswa='" & Text(1) & "'")
If Not rs.EOF Then
    Text(2) = rs!Nama
      
    End If

Case 3 'Kode Kelas

Set rs = ConnAPP.Execute(" SELECT * FROM Kelas WHERE Kde_Kelas='" & Text(3) & "'")
If Not rs.EOF Then
    Text(4) = rs!Nma_Kls
      
    End If


End Select

End Sub

Hari ke 51 PI

Hari ini saya menambahkan query untuk tampil 2 tabel pada ListView  dan dapat di Koreksi


        Text(0) = kelas.SelectedItem
        Text(1) = kelas.SelectedItem.SubItems(1)
        Text(3) = kelas.SelectedItem.SubItems(3)
        Text(4) = kelas.SelectedItem.SubItems(4)

Green Day - Awesome As Fuck (iTunes Deluxe Edition) (2011)

Green Day - Awesome As Fuck (iTunes Deluxe Edition) (2011)

Hari ke 50 PI

Hari ini saya menambahkan coding dalam FormMutasi dan mendapat  revisi dalam FormKelas

hari ke 49 PI

Hari ini  saya menambahkan FormMutasi pada Tugs saya, meskipun pada Form Kelas ada yang belum selesai namun masalahnya sama dengan FormMutasi nanti

Hari ke 48 PI

Hari ini saya menambahkan pencarian otomatis pada FormKelas . . .

16-03-2011

Hari ini saya menambah form pada tugas saya yaitu FormKelas dan membenahi form-form yang lainnya . ..

14-03-2011

Penambahan Coding dalam Form Input Guru  :


Option Explicit
Dim st As Boolean
Dim rs As ADODB.Recordset
Private Sub enbTombol(TAMBAH As Boolean, SIMPAN As Boolean, EDIT As Boolean, HAPUS As Boolean, KELUAR As Boolean, BATAL As Boolean, CARI As Boolean)
    Command(0).Enabled = TAMBAH
    Command(1).Enabled = SIMPAN
    Command(2).Enabled = EDIT
    Command(3).Enabled = HAPUS
    Command(6).Enabled = CARI
    Command(4).Visible = KELUAR
    Command(5).Visible = BATAL
    Command(6).Enabled = CARI
    End Sub
Private Sub aktif()
    Text(0).Enabled = True
    Text(1).Enabled = True
    Text(2).Enabled = True
    Text(3).Enabled = True
    DTPicker1.Enabled = True
    Combo(0).Enabled = True
    Combo(1).Enabled = True
    Text(4).Enabled = True
    TextCari(5).Enabled = True
  
End Sub
Private Sub pasif()
    Text(0).Enabled = False
    Text(1).Enabled = False
    Text(2).Enabled = False
    Text(3).Enabled = False
    DTPicker1.Enabled = False
    Combo(0).Enabled = False
    Combo(1).Enabled = False
    Text(4).Enabled = False
    TextCari(5).Enabled = False
  End Sub
 
  Private Sub kosong(Optional enb As Boolean = False)
    Dim I As Integer
    For I = 0 To Text.Count - 1
    Text(I) = ""
    Text(I).Enabled = enb
    Next I
    Text(1).SetFocus
End Sub
Private Function cKosong() As Boolean
    Dim I As Integer
    For I = 0 To Text.Count - 1
    If Text(I) = "" Then cKosong = True: Exit Function
    Next I
    cKosong = False
End Function
Private Function cek() As Boolean
    Dim I As Integer
    For I = 0 To Text.Count - 1
    If Text(I) = "" Then cek = True: Exit Function
    Next I
'cek False
End Function


Private Sub Command_Click(Index As Integer)

Select Case Index

Case 0 ' TAMBAH

    kosong True
    Text(0) = AutoNum("G", 5, "guru", "kde_guru")
    Text(0).Enabled = True
    st = True
    Text(0).SetFocus
    Call aktif
    enbTombol False, True, False, False, True, False, True
    Command(4).Visible = True

Case 1 'SIMPAN
If cek = True Then
            MsgBox "Isikan Data Dengan Benar!", vbInformation, "Kosong"
            Exit Sub
            End If
            ya = MsgBox("Apakah Anda yakin data ini akan Anda simpan?", vbQuestion + vbYesNo, "Simpan")
      
        If ya = vbYes Then
            Set rs = ConnAPP.Execute("SELECT * FROM Guru WHERE Kde_Guru = '" & Text(0).Text & "'")
            If Not rs.EOF Then
                rs.Close
                Set rs = ConnAPP.Execute("UPDATE Guru set NIP='" & Text(1).Text & "',Nma_Guru='" & Text(2).Text & "',Tempat='" & Text(3).Text & "',TL='" & DTPicker1 & "',Alamat='" & Text(4).Text & "',Sex='" & Combo(0) & "',Agama='" & Combo(1) & "' WHERE Kde_Guru = '" & Text(0).Text & "'")
                MsgBox "Berhasil Disimpan", vbInformation + vbOKOnly, "Simpan"
                enbTombol False, True, True, True, False, True, True
                guru.Enabled = True
                Private Sub tampil()
siswa.ListItems.Clear
Set rs = ConnAPP.Execute("SELECT * FROM Siswa")
    While Not rs.EOF
    Set isi = siswa.ListItems.Add(, , rs!Kde_Siswa)
    isi.SubItems(1) = rs!NIS
    isi.SubItems(2) = rs!Nama
    isi.SubItems(3) = rs!Sex
    isi.SubItems(4) = rs!Tmpt
    isi.SubItems(5) = rs!TL
    isi.SubItems(6) = rs!Agama
    isi.SubItems(7) = rs!Alamat
    isi.SubItems(8) = rs!Masuk
    isi.SubItems(9) = rs!KELUAR
    rs.MoveNext
    Wend
  
End Sub

Private Sub siswa_Click()
Set rs = ConnAPP.Execute(" SELECT * FROM Siswa WHERE Kde_Siswa='" & siswa.SelectedItem & "'")
If Not rs.EOF Then
    Text(0) = rs!Kde_Siswa
    Text(1) = rs!NIS
    Text(2) = rs!Nama
    Text(3) = rs!Tmpt
    DTPicker1 = rs!TL
    Combo(0) = rs!Sex
    Combo(1) = rs!Agama
    Text(4) = rs!Alamat
    Text(5) = rs!Masuk
    Text(6) = rs!KELUAR
  
    End If
    enbTombol False, False, True, True, True, False, True
  
    Call pasif
End Sub


                 Else
                rs.Close
                Set rs = ConnAPP.Execute("insert into Guru(Kde_Guru,NIP,Nma_Guru,Tempat,TL,Sex, Agama,Alamat)values('" & Text(0) & "','" & Text(1) & "','" & Text(2) & "','" & Text(3) & "','" & DTPicker1 & "','" & Combo(0) & "','" & Combo(1) & "','" & Text(4) & "')")
                MsgBox "Berhasil Disimpan", vbInformation + vbOKOnly, "Simpan"
                End If

          
            Call tampil
            enbTombol True, False, False, False, False, True, True
            Command(6).Enabled = True
      
        End If
Case 2 ' EDIT
      
        Call aktif
        enbTombol False, True, True, True, True, False, True

Case 3 ' HAPUS

        If MsgBox("Apakah Data Ini Akan Dihapus !", vbQuestion + vbYesNo, "warning") = vbYes Then
            strsql = "DELETE  FROM Guru WHERE Kde_Guru='" & Text(0) & "'"
            ConnAPP.Execute (strsql)
            MsgBox "Data Berhasil Dihapus !"
            guru.ListItems.Remove guru.SelectedItem.Index
            kosong True
           Call pasif
            enbTombol True, False, False, False, False, True, True
         End If
  
Case 6 ' CARI

      

        guru.ListItems.Clear
        Set rs = ConnAPP.Execute("SELECT * FROM guru where Kde_Guru='" & Text(5) & "'")
        While Not rs.EOF
            Set isi = guru.ListItems.Add(, , rs!Kde_Guru)
            isi.SubItems(1) = rs!NIS
            isi.SubItems(2) = rs!Nama
            isi.SubItems(3) = rs!Sex
            isi.SubItems(4) = rs!Tmpt
            isi.SubItems(5) = rs!TL
            isi.SubItems(6) = rs!Agama
            isi.SubItems(7) = rs!Alamat
            isi.SubItems(8) = rs!Masuk
            isi.SubItems(9) = rs!KELUAR
            rs.MoveNext
            MsgBox "Data Ditemukan...!!!"
        Wend
        Text(5) = ""
  

Case 4 'KELUAR
      
        Unload Me
      
  
  

Case 5 'BATAL
      
        Unload Me
      
    End Select
    End Sub

Private Sub Form_Load()
    Combo(0).AddItem "LAKI-LAKI"
    Combo(0).AddItem "PEREMPUAN"
    Combo(1).AddItem "ISLAM"
    Combo(1).AddItem "KRSTEN"
    Combo(1).AddItem "KHATOLIK"
    Combo(1).AddItem "BUDHA"
    Combo(1).AddItem "HINDU"
  
    Call tampil
    '" & DTPicker1 & "''" & DTPicker1 & "''" & DTPicker1 & "'
End Sub

Private Sub tampil()
guru.ListItems.Clear
Set rs = ConnAPP.Execute("SELECT * FROM Guru")
    While Not rs.EOF
    Set isi = guru.ListItems.Add(, , rs!Kde_Guru)
    isi.SubItems(1) = rs!NIP
    isi.SubItems(2) = rs!Nma_Guru
    isi.SubItems(3) = rs!Tempat
    isi.SubItems(4) = rs!TL
    isi.SubItems(5) = rs!Sex
    isi.SubItems(6) = rs!Agama
    isi.SubItems(7) = rs!Alamat
    rs.MoveNext
    Wend
  
End Sub

Private Sub guru_Click()
Set rs = ConnAPP.Execute(" SELECT * FROM guru WHERE Kde_guru='" & guru.SelectedItem & "'")
If Not rs.EOF Then
    Text(0) = rs!Kde_Guru
    Text(1) = rs!NIP
    Text(2) = rs!Nma_Guru
    Text(3) = rs!Tempat
    DTPicker1 = rs!TL
    Combo(0) = rs!Sex
    Combo(1) = rs!Agama
    Text(4) = rs!Alamat
  
    End If
    enbTombol False, False, True, True, True, False, True
  
    Call pasif
End Sub