Friday, February 10, 2017

Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string

Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string
::
::
Waktu itu uda ya bikin kode otomatis, nah sekarang dimodif lagi nih... kode otomatisnya diambil dari tanggal sekrang dan tambahan string (misal belakangnya 0001).
Nah silakan dicoba yak :)
::
::
langsung aja cobain kodingnya yah, jangan lupa dipanggil di Form_Load

------------------------------------------------------------------------------------------------------------------------
Sub otomatis()
        cmd = New OleDbCommand("select ID_pemeriksaan from Pemeriksaan order by ID_pemeriksaan desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            tidp.Text = Format(Today, "yyMMdd") + "0001"
        Else
            If Microsoft.VisualBasic.Left(dr.Item("ID_pemeriksaan"), 6) = Format(Today, "yyMMdd") Then
                tidp.Text = dr.Item("ID_pemeriksaan") + 1
            Else
                tidp.Text = Format(Today, "yyMMdd") + "0001"
            End If
        End If
    End Sub
-----------------------------------------------------------------------------------------------------------------------
-

13 comments:

  1. AnonymousFebruary 17, 2025 at 8:17 AM

    Sub tampilgrid()
    Call koneksi()
    da = New OdbcDataAdapter("select * from pelanggan", conn)
    ds = New DataSet
    da.Fill(ds)
    DGV.DataSource = ds.Tables(0)
    DGV.ReadOnly = True
    DGV.GridColor = Color.WhiteSmoke
    DGV.DefaultCellStyle.ForeColor = Color.Black
    DGV.GridColor = Color.SteelBlue
    DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.MistyRose
    End Sub

    ReplyDelete
    Replies
    1. AnonymousFebruary 17, 2025 at 8:18 AM

      Sub panggil_kode()
      Call koneksi()
      cmd = New OdbcCommand("Select * from pelanggan where Pelanggan_ID = '" & TextBox1.Text & "'", conn)
      dr = cmd.ExecuteReader
      dr.Read()

      End Sub

      ''Query untuk panggil data
      Sub panggil_data()
      TextBox2.Text = dr.Item("Nama_Pelanggan")
      TextBox7.Text = dr.Item("Alamat")
      TextBox4.Text = dr.Item("Nomor_Telepon")
      TextBox6.Text = dr.Item("Point")
      End Sub

      Sub batal()
      TextBox2.Clear()
      TextBox6.Clear()
      TextBox4.Clear()
      TextBox7.Clear()
      TextBox2.Focus()
      End Sub

      Delete
  2. AnonymousFebruary 17, 2025 at 8:18 AM

    Sub ID_Otomatis()
    Call koneksi()
    cmd = New OdbcCommand("Select Pelanggan_ID from pelanggan order by Pelanggan_ID desc", conn)
    dr = cmd.ExecuteReader
    dr.Read()
    If Not dr.HasRows Then
    TextBox1.Text = Format(Today, "yyyyMM") + "0001"
    Else
    If Microsoft.VisualBasic.Left(dr.Item("Pelanggan_ID"), 6) = Format(Today, "yyyyMM") Then
    TextBox1.Text = dr.Item("Pelanggan_ID") + 1
    Else
    TextBox1.Text = Format(Today, "yyyyMM") + "0001"
    End If
    End If
    End Sub

    ReplyDelete
    Replies
    1. AnonymousFebruary 17, 2025 at 8:18 AM

      Private Sub DGV_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellContentClick
      On Error Resume Next
      TextBox1.Text = DGV.Rows(e.RowIndex).Cells(0).Value
      Call panggil_kode()
      If dr.HasRows Then
      Call panggil_data()
      End If
      End Sub

      Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      Call batal()
      End Sub

      Delete
  3. AnonymousFebruary 17, 2025 at 8:21 AM

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    Call koneksi()
    cmd = New OdbcCommand("SELECT * FROM pelanggan WHERE Pelanggan_ID='" & TextBox1.Text & "'", conn)
    dr = cmd.ExecuteReader
    dr.Read()
    If dr.HasRows Then
    transaksipenjualan.Show()
    transaksipenjualan.lblpelanggan.Text = dr.Item("Pelanggan_ID")
    transaksipenjualan.lblnamapelanggan.Text = dr.Item("Nama_Pelanggan")
    transaksipenjualan.Point.Text = dr.Item("Point")
    End If
    Close()
    End Sub

    ReplyDelete
  4. AnonymousFebruary 17, 2025 at 8:21 AM

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox7.Text = "" Or TextBox4.Text = "" Or TextBox6.Text = "" Then
    MsgBox("Isi Data Dengan Lengkap!", MsgBoxStyle.Information, "informasi")
    Exit Sub
    End If
    Try
    Dim cekData As String = "SELECT * FROM pelanggan where Pelanggan_ID = '" & TextBox1.Text & "'"
    cmd = New OdbcCommand(cekData, conn)
    dr = cmd.ExecuteReader

    If Not dr.HasRows Then
    Dim simpan As String = "Insert into pelanggan(Pelanggan_ID, Nama_Pelanggan, Alamat, Nomor_Telepon, Point) values (?, ?, ?, ?, ?)"
    cmd = New OdbcCommand(simpan, conn)
    cmd.Parameters.AddWithValue("?", TextBox1.Text)
    cmd.Parameters.AddWithValue("?", TextBox2.Text)
    cmd.Parameters.AddWithValue("?", TextBox7.Text)
    cmd.Parameters.AddWithValue("?", TextBox4.Text)
    cmd.Parameters.AddWithValue("?", TextBox6.Text)
    cmd.ExecuteNonQuery()
    MsgBox("Data berhasil ditambah..", MsgBoxStyle.Information)
    Call tampilgrid()
    Else
    Dim edit As String = "update produk set Nama_Pelanggan =?, Satuan =?, Harga =?, Stok =? where Produk_ID =?"
    cmd = New OdbcCommand(edit, conn)
    cmd.Parameters.AddWithValue("?", TextBox2.Text)
    cmd.Parameters.AddWithValue("?", TextBox7.Text)
    cmd.Parameters.AddWithValue("?", TextBox4.Text)
    cmd.Parameters.AddWithValue("?", TextBox6.Text)
    cmd.Parameters.AddWithValue("?", TextBox1.Text)
    cmd.ExecuteNonQuery()
    MsgBox("Data berhasil diedit..", MsgBoxStyle.Information)
    Call tampilgrid()
    End If
    Catch ex As Exception
    MsgBox("Terjadi Kesalahan: " & ex.Message, MsgBoxStyle.Critical)
    Finally
    If conn.State = ConnectionState.Open Then conn.Close()
    End Try
    End Sub

    ReplyDelete
  5. AnonymousFebruary 17, 2025 at 8:56 AM

    Imports System.Data.Odbc
    Public Class login

    Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    lbltgl.Text = Format(Today)
    Call koneksi()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    lbljam.Text = (TimeOfDay)
    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    cmd = New OdbcCommand("SELECT * FROM user WHERE Username='" & TextBox1.Text & "' AND Password='" & TextBox2.Text & "' AND Status_User='" & ComboBox1.Text & "'", conn)
    dr = cmd.ExecuteReader
    dr.Read()

    If dr.HasRows Then
    MsgBox("Login Berhasil!")
    master.Show()
    Else
    MsgBox("Data yang diisi salah, coba lagi")
    End If
    End Sub


    Private Sub PictureBox4_MouseHover(sender As Object, e As EventArgs) Handles PictureBox4.MouseHover
    TextBox2.UseSystemPasswordChar = False
    End Sub

    Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
    TextBox2.UseSystemPasswordChar = True
    End Sub
    End Class

    ReplyDelete
  6. AnonymousFebruary 17, 2025 at 9:03 PM

    Nitip kodingan buat user

    Private Sub user_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Call koneksi()
    Call tampilgrid()
    End Sub
    Sub tampilgrid()
    Call koneksi()
    da = New OdbcDataAdapter("select * from user", conn)
    ds = New DataSet
    da.Fill(ds)
    DGV.DataSource = ds.Tables(0)
    DGV.ReadOnly = True
    DGV.GridColor = Color.WhiteSmoke
    DGV.DefaultCellStyle.ForeColor = Color.Black
    DGV.GridColor = Color.SteelBlue
    DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.MistyRose
    End Sub

    Sub panggil_kode()
    Call koneksi()
    cmd = New OdbcCommand("Select * from user where Username = '" & TextBox1.Text & "'", conn)
    dr = cmd.ExecuteReader
    dr.Read()

    End Sub

    ReplyDelete
    Replies
    1. AnonymousFebruary 17, 2025 at 9:04 PM

      Sub panggil_data()
      TextBox2.Text = dr.Item("Password")
      ComboBox1.Text = dr.Item("Status_user")
      If dr.Item("Jenis_kelamin") = "Laki-laki" Then
      RadioButton1.Checked = True
      ElseIf dr.Item("Jenis_kelamin") = "Perempuan" Then
      RadioButton2.Checked = True
      End If
      TextBox4.Text = dr.Item("Telepon")
      TextBox3.Text = dr.Item("foto")
      End Sub
      Sub batal()
      TextBox2.Clear()
      ComboBox1.Text = ""
      TextBox3.Clear()
      TextBox4.Clear()
      RadioButton1.Checked = False
      RadioButton2.Checked = False
      TextBox1.Focus()
      End Sub

      Delete
  7. AnonymousFebruary 17, 2025 at 9:04 PM

    Sub gambar()
    On Error Resume Next
    PictureBox1.Load(TextBox3.Text)
    PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    End Sub


    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    Call batal()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim gender As String = ""
    If RadioButton1.Checked = True Then
    gender = "Laki-laki"
    ElseIf RadioButton2.Checked = True Then
    gender = "Perempuan"
    End If


    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Or (RadioButton1.Checked = False And RadioButton2.Checked = False) Then
    MsgBox("Isi data dengan lengkap!", MsgBoxStyle.Information)
    Exit Sub
    End If

    Dim cekData As String = "SELECT * FROM user where Username = ?"
    cmd = New OdbcCommand(cekData, conn)
    cmd.Parameters.AddWithValue("?", TextBox1.Text)
    dr = cmd.ExecuteReader
    Dim newtext As String
    Dim oldtext As String = TextBox3.Text
    newtext = oldtext.Replace("\", "\\")
    If Not dr.HasRows Then
    Dim simpan As String = "INSERT INTO user(Username, Password, Status_user, Jenis_kelamin, Telepon, Foto) VALUES(?,?,?,?,?,?)"
    cmd = New OdbcCommand(simpan, conn)
    cmd.Parameters.AddWithValue("?", TextBox1.Text)
    cmd.Parameters.AddWithValue("?", TextBox2.Text)
    cmd.Parameters.AddWithValue("?", ComboBox1.Text)
    cmd.Parameters.AddWithValue("?", gender)
    cmd.Parameters.AddWithValue("?", TextBox4.Text)
    cmd.Parameters.AddWithValue("?", newtext)
    cmd.ExecuteNonQuery()
    Call tampilgrid()
    MsgBox("Data Berhasil Disimpan!", MsgBoxStyle.Information)
    Else
    Dim edit As String = "UPDATE user SET Username= ?, Password = ?, Status_user = ?, Jenis_kelamin = ?, Telepon = ?, Foto = ? WHERE Username = ?"
    cmd = New OdbcCommand(edit, conn)
    cmd.Parameters.AddWithValue("?", TextBox1.Text)
    cmd.Parameters.AddWithValue("?", TextBox2.Text)
    cmd.Parameters.AddWithValue("?", ComboBox1.Text)
    cmd.Parameters.AddWithValue("?", gender)
    cmd.Parameters.AddWithValue("?", TextBox4.Text)
    cmd.Parameters.AddWithValue("?", TextBox3.Text)
    cmd.Parameters.AddWithValue("?", TextBox1.Text)
    cmd.ExecuteNonQuery()
    Call tampilgrid()
    MsgBox("Data Berhasil Diedit!", MsgBoxStyle.Information)
    End If

    End Sub

    ReplyDelete
    Replies
    1. AnonymousFebruary 17, 2025 at 9:05 PM



      Private Sub PictureBox4_MouseHover(sender As Object, e As EventArgs) Handles PictureBox4.MouseHover
      TextBox2.UseSystemPasswordChar = False
      End Sub

      Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
      TextBox2.UseSystemPasswordChar = True

      End Sub

      Private Sub DGV_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellContentClick
      On Error Resume Next
      TextBox1.Text = DGV.Rows(e.RowIndex).Cells(0).Value
      Call panggil_kode()
      If dr.HasRows Then
      Call panggil_data()
      PictureBox1.Image = Image.FromFile(TextBox3.Text)
      End If
      End Sub

      Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


      If MessageBox.Show("Ingin Menghapus?") = DialogResult.Yes Then
      Dim hapus As String = "DELETE FROM user WHERE Username =?"
      cmd = New OdbcCommand(hapus, conn)
      cmd.Parameters.AddWithValue("?", TextBox1.Text)
      cmd.ExecuteNonQuery()
      Call tampilgrid()
      Else
      MsgBox("Data tidak jadi dihapus")
      End If
      End Sub

      Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
      Call gambar()
      End Sub

      Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      Call batal()
      End Sub
      End Class

      Delete
  8. Trainz Creators IDFebruary 18, 2025 at 9:50 PM

    If Msgbox("ingin hapus data?", MsgBoxStyle.YesNo) = Windows.Forms.Dialogresult.Yes then

    ReplyDelete

Subscribe to: Post Comments (Atom)

Tutorial Membuat LEVEL ADMIN dengan status strip lengkap dengan koding

Tutorial Membuat LEVEL ADMIN dengan status strip lengkap dengan koding. ------------------- PERHATIKAN LANGKAH-LANGKAH BERIKUT!!! (urut) ...