UAS AUDIT TEKNOLOGI MENGGUNAKAN ACL

Dalam Memenuhi Tugas Ujian Akhir Semester

Mata Kuliah Audit Tekhnologi Informasi

Disini Saya Mencoba Mengaudit dan Melacak Jasa Pengiriman (Kurir) Menggunakan ACL


Tabbel yang saya gunakan dalam kasus ini :
1. Tabel CATEGORY
2. Tabel TRANSAKSI


Langkah pertama Klik Analyze lalu pilih Count Record  

Selanjutnya pilih IF

KASUS 1

Mengaudit dan Melacak Pengiriman Barang yang BERAT nya Lebih dari 10KG, Untuk Memudahkan Mensortir barang .
1. AKTIF pada File Transaksi
2. Masukan Kata Kunci BERAT > 10 pada COUNT IF EXPRESSION 
3. Lalu pilih Verify

Lalu akan muncul hasil record

Kesimpulan yang di dapat menggunakan ACL dari 50 Data terdapat 18 Data Records Pengiriman yang berat nya lebih dari 10kg .

KASUS 2

Mengaudit dan Melacak Pengiriman Barang yang BERAT nya Kurang dari 10KG, Untuk Memudahkan Mensortir barang .
1. AKTIF pada File Transaksi
2 Masukan Kata Kunci BERAT < 10 pada COUNT IF EXPRESSION 
3. Lalu pilih Verify

Lalu akan muncul hasil record

Kesimpulan yang di dapat menggunakan ACL dari 50 Data terdapat 28 Data Records Pengiriman yang berat nya kurang dari 10kg .

KASUS 3

Mengaudit dan Melacak Pengiriman Barang yang berdasarkan Tanggal '12012019' dan Kota Tujuan 'DEPOK', Untuk Memudahkan Mensortir barang .
1. AKTIF pada File Transaksi
2. Masukan Kata Kunci DATE  = `20191201` AND KOTA_TUJUA = 'DEPOK'pada COUNT IF EXPRESSION 
3. Lalu pilih Verify

Lalu akan muncul hasil record

Kesimpulan yang di dapat menggunakan ACL dari 50 Data terdapat 1 Data Records Pengiriman yang berdasarkan Tanggal '12012019' dan Kota Tujuan 'DEPOK'

KASUS 4

Mengaudit dan Melacak Pengiriman Barang yang berdasarkan Category "REGULER", Untuk Memudahkan Mensortir barang .
1. AKTIF pada File Transaksi
2. Masukan Kata Kunci CATEGORY = 'REGULER' pada COUNT IF EXPRESSION 
3. Lalu pilih Verify

Lalu akan muncul hasil record

Kesimpulan yang di dapat menggunakan ACL dari 50 Data terdapat 9 Data Records Pengiriman yang berdasarkan Category 'REGULER'

KASUS 5

Mengaudit dan Melacak Pengiriman Barang yang berdasarkan KOTA TUJUAN  Untuk Memudahkan Mensortir barang .
1. AKTIF pada File Transaksi
2. Masukan Kata Kunci KOTA TUJUAN = 'DEPOK' pada COUNT IF EXPRESSION 
3. Lalu pilih Verify

Lalu akan muncul hasil record

Kesimpulan yang di dapat menggunakan ACL dari 50 Data terdapat 3 Data Records Pengiriman yang berdasarkan KOTA TUJUAN = 'DEPOK'

Tugas UTS Audit IT QUERY DML (DATA MANIPULATION LANGUAGE)

Dalam Memenuhi Tugas Ujian Tengah Semester

Mata Kuliah Audit Tekhnologi Informasi

Disini Saya Mencoba Mengaudit Jasa Pengiriman (Kurir)

Dalam dalam jasa pengiriman tersebut terdapat sebuah database mempunyai 4 tabel diantaranya :


1.  TABEL DATE PENGIRIMAN

 2. TABLE JASA CATEGORY

3. TABLE KOTA

4. TABLE TRANSAKSI

 

 

 

Dari beberapa data table tersebut akan dilakukan audit ;

•  Menampilkan data transaksi pengiriman barang ke kota "BANDUNG"

•  Menampilkan data transaksi pengiriman barang yang berat nya "lebih dari 20kg"

•  Menampilkan data transaksi pengiriman pada "tanggal tertentu"

•  Menampilkan data transaksi pengiriman barang ke kota "SURABAYA" berdasarkan tanggal yang di pilih

•  Menampilkan data transaksi pengiriman barang berdasarkan kategori yg dipilih c/: "Reguler"

 Menampilkan data transaksi pengiriman barang yang beratnya "kurang lebih dari 20kg" 

Sekian gambaran proses Audit IT yang saya telah audit menggunakan microsoft acces

Terimakasih

 

REKAYASA PERANGKAT LUNAK

APLIKASI KASIR PENJUALAN PIZZA

1.  Analisa Kebutuhan Dan Manfaat Aplikasi Penjualan Kasir Pizza

• merancang dan membangun sistem informasi penjualan pizza 
• mempermudah pengguna menjual pizza dengan menggunakan program penjualan
• mempercepat proses transaksi dan memudahkan kasir dalam penjualan

2.  Analisa Kebutuhan Sistem 

• perancangan sistem proses penjualan ini ,agar kasir menjalankan dan mengkordinir semua kegiatan operasional dan aktivitas kasir dalam memberikan pelayanan semua pelanggan yang diarahkan untuk memenuhi kepuasan pelanggan dan meningkatkan jumlah pelanggan .

INTERFACE DESAIN WEBFORM

TAMPILAN INPUT SAVE

TAMPILAN VIEW DATA 

TAMPILAN DATABASE ACCES 2012

TAMPILAN DESAIN VIEW DATABASE

SOURCE CODE

Imports System.Data Imports System.Data.OleDb Public Class WebForm1 Inherits System.Web.UI.Page Dim Koneksi As String = "Provider=Microsoft.jet.oledb.4.0;Data Source=C:\Users\sabila mula prawira\Documents\Visual Studio 2012\Projects\WebApplication1\WebApplication1\app\UAS_WEB.mdb" Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi) Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As Single Dim b As Single Dim c As Single Dim d As Single Dim Hasil As Single Dim Hasil2 As Single Dim Hasil3 As Single a = TextBox5.Text b = TextBox6.Text c = TextBox11.Text d = TextBox12.Text Hasil = a * b Hasil2 = c * d Hasil3 = Hasil + Hasil2 TextBox14.Text = Hasil TextBox15.Text = Hasil2 TextBox13.Text = Hasil3 End Sub Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ObjKoneksi.Open() Dim tambah As String = "INSERT INTO Stock values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "') " Dim oCmd = New OleDbCommand(tambah, ObjKoneksi) oCmd.ExecuteNonQuery() ObjKoneksi.Close() MsgBox("Sukses") End Sub Protected Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged End Sub Protected Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged End Sub Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" End Sub Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Response.Redirect("ViewData.aspx") End Sub Protected Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged End Sub Protected Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged End Sub Protected Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged End Sub End Class

REKAYASA PERANGKAT LUNAK

Project Aplikasi Inventory Barang

• Aplikasi ini berfungsi untuk menyimpan  dan mencatat barang masuk dari supplier
• Mempermudah dalam memasukan data dan menghitung stock barang di gudang untuk mencatat transaksi opname.

Interface Login User

Interface Dasboard Admin

Interface View Data Inventory

Interface Input Tambah Barang

*Source Code*

Form 1 Login

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form5.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Me.Close() End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class

Form 2  Dasboard

Public Class Form5 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form4.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form3.Show() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class

Form 3 View Data Inventory

Imports System.Data.OleDb Public Class Form4 Dim Conn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Dim LokasiDB As String Sub Koneksi() LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb" Conn = New OleDbConnection(LokasiDB) If Conn.State = ConnectionState.Closed Then Conn.Open() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Koneksi() da = New OleDbDataAdapter("Select * from barang", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "Barang") DataGridView1.DataSource = (ds.Tables("Barang")) End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form3.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Close() End Sub End Class

Form 4 Input Tambah Barang

Public Class Form3 Public Class Form3 Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click End Sub Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click MsgBox("Simpan berhasil", MsgBoxStyle.Information, "Berhasil") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class

DATABASE TABLE INPUT BARANG