Skip to main content

Project Aplikasi VB.Net buat dikantor

Image
By
huhhh lama rasanya ga lagi posting.. diselah-selah pekerjaan menyelesaikan skripsi. iseng dulu sebentar. aplikasi sederhana ini dibuat untuk kebutuhan orang kantor (purchasing) dalam pembuatan surat kuasa DO. singkatnya, pengurusan surat ke shipping line buat ambil container punya pabrik. silahkan di liat-liat beberapa screen shoot nya. moga-moga aplikasi ini bisa bermanfaat.. bagi pengguna sistem SAP tentu layout ini tidak asing bagi anda, ya memang GUI yang saya buat mirip dengan sistem yang terkenal itu. untuk source code menyusul, karena belum sempat buat tutorial pembuatan aplikasi ini ya... harap maklum,,, lagi nulis skripsi juga neh.. kejar2an akhir tahun wisuda insya alloh. doain ya..

























Comments

Post a Comment

Popular posts from this blog

CheckBox dalam DataGridView VB.Net

By
Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click         Dim Y As String = Mid(CmbUSER.Text, 1, 7)         Dim iROW As Integer         Dim AKSES As String         For iROW = 0 To DGVSample.Rows.Count - 1             'AksesBox = Nama CheckBox yang ada di DatagridView             If DGVSample.Rows(iROW).Cells("AksesBox").Value Then    ...
1 comment
Read more

Create Comment As .xls In Farpoint Spread

By
  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...
4 comments
Read more