Hari ke 68 PI

Maih mempelajari namun sudah masuk dalam Source Code . . .

Form unutk mengetes . . .


Private Sub Command_Click(Index As Integer)

Select Case Index
Case 0 ' foto

 'If Not rs.EOF Then
CommonDialog1.Filter = "All Picture files|*.bmp;*.jpg;*.gif;*.dib*|JPEG Images|*.jpg|Bitmaps|*.bmp|All Files|*.*"
        CommonDialog1.ShowOpen
        Text1.Text = CommonDialog1.FileName
        Image1.Picture = LoadPicture(Text1.Text)
      ' End If
Case 1 ' Simpan

          
            Set rs = ConnAPP.Execute("SELECT * FROM Test WHERE Kde_Test = '" & Text1.Text & "'")
             rs.Close
                Set rs = ConnAPP.Execute("insert into Test(Kde_test,foto)values('" & Text1 & "','" & Image1 & "')")
                MsgBox "Berhasil Disimpan", vbInformation + vbOKOnly, "Simpan"
                SavePicture Me.Image1.Picture, App.Path & "\Foto\" & Image1.Picture
Call bersih
Case 2 ' batal
Call bersih
Case 3 ' keluar
Unload Me
End Select
End Sub
Private Sub bersih()
  
    Text1.Text = ""
  
    Image1.Picture = LoadPicture("")
End Sub

Hari ke 67 PI

Hari ini saya mempelajari tentang Type Data Image dalam MySQL Server

♫ fяèéςk™: Panic! at the Disco – Vices and Virtues (2011) album download

♫ fяèéςk™: Panic! at the Disco – Vices and Virtues (2011) album download

Hari ke 66 PI

Dapat mengkoreksi gambar dalam ListView yang sebelumnya Debug

Hari ke 65 PI

Hari ini saya menambahkan Jam dan tulisan bergerak dalam Form pertama saya

Hari ke 64 PI

Saya menambahkan script untuk menampilkan gambar


CommonDialog1.Filter = "All Picture files|*.bmp;*.jpg;*.gif;*.dib*|JPEG Images|*.jpg|Bitmaps|*.bmp|All Files|*.*"
        CommonDialog1.ShowOpen
        Text(7).Text = CommonDialog1.FileName
        Image1.Picture = LoadPicture(Text(7).Text)

Hari Ke 63 PI

Hari ini saya mempelajari Funsi Like dalam MySQL. . .

Hari ke 62 PI

Mulai menggarap report dan mencoba menampilkan

Hari ke 61 PI

 Mempelajari Cystal Report untuk laporan

Hari ke 60 PI

Hari ini saya mencoba untuk mencari script Upload gambar . . .

Hari ke 59 PI

Hari ini saya mengecek kembali pekerjaan yang diberikan

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)