LAMPIRAN
Wawancara Kelompok kami melakukan teknik wawancara sebanyak dua kali, di awal masa kunjungan kami pada PT. CONCEPT TECHNOLOGIES yaitu pada tanggal 11 Mei 2011 dan 18 Mei 2011 selama masa survei kami, yang terhitung sejak tanggal 2 Mei 2011 hingga tanggal 11 Juni 2011. Kami mewawancari beberapa top management yang ada pada PT. CONCEPT TECHNOLOGIES. I. Rabu, 11 Mei 2011 Ini merupakan wawancara pertama kami untuk proses penulisan skripsi, sekaligus hari kedua kunjungan kami pada PT. CONCEPT TECHNOLOGIES. Kami mewawancari General Manager perusahaan. Adapun beberapa pertanyaan yang kami tanyakan sebagai berikut : •
Bagaimana sejarah PT. CONCEPT TECHNOLOGIES ?
PT. Consept Technologies berdiri pada tanggal 19 September 1985, yang dimiliki oleh Bapak Christoper Tju. Alasan didirikan perusahaan ini karena pemilik perusahaan sangat menyukai hal dibidang design, dan masih jarang perusahaan lain berdiri di bidang yang sama, yaitu Consultan Lighting, diperusahaan ini juga dapat mendesign model lampu.
L1
L2
•
Apa visi dan misi PT. CONCEPT TECHNOLOGIES ?
Visi Menjadi perusahaan terbaik dan terpercaya dalam bidang desain custom electronics design and architectural lighting illumination. Misi Berperan aktif dalam pengembangan custom electronics design and architectural lighting illumination yang diperlukan masyarakat luas.
•
Bagaimana
struktur
TECHNOLOGIES ?
organisasi
PT.
CONCEPT
L3
•
Apa tugas dan wewenang Staff ?
Pada Halaman 60 sampai Halaman 66
II. Rabu, 18 Mei 2011 Wawancara ke dua dilaksanakan pada satu minggu berikut nya kedepan, tepat nya pada hari rabu. Kami mengajukan beberapa pertanyaan kepada orang yang sama seperti sebelum nya, yaitu General Manager pada PT. CONCEPT TECHNOLOGIES, dengan pertanyaan yang berbeda dari pertanyaan wawancara sebelum nya (pertama), yaitu sebagai berikut : •
Bagaimana
Sistem
yang
berjalan
pada
PT.
CONCEPT
TECHNOLOGIES ? PT. CONCEPT TECHNOLOGIES sudah memiliki sistem yang sudah berjalan. Ada tiga sistem yang sudah berjalan, yaitu : 1. Sistem Pembelian Barang 2. Sistem Penjualan Barang 3. Sistem Pelaporan Manajemen Adapun penjelasan dari ketiga sistem diatas dengan jelas dan singkat yang tertulis pada halaman 67 sampai halaman 69.
L4
•
Apakah PT. CONCEPT TECHNOLOGIES sudah mengunakan Teknologi Informasi? Jika ada Teknologi Informasi apa saja?
‐
PT. CONCEPT TECHNOLOGIES sudah memiliki Teknologi Informasi yang ada sebelum nya
‐
Teknologi Informasi yang digunakan tersebut antara lain : a. Perangkat Keras 1. Server Satu buah PC ( personal computer ) dengan spesifikasi : a. Processor : Pentium IV 2,4 GHz b. Memory
: 1204 MB
c. OS
: Windows Server 2003
d. Jumlah
: 1 (satu)
2. Workstation Sebelas buah PC ( personal computer ) dengan spesifikasi : a. Processor : Pentium IV 1,4 GHz b. Memory
: 512 MB
c. OS
: Windows Vista
d. Jumlah
: 11 (sebelas)
3. Router, Modem 4. Jaringan LAN 5. Printer dan Scanner
L5 6. Fax Machine b. Perangkat Lunak 1. Server a. Database
: Microsoft SQL Server 2005
b. Development Tool
: Microsoft Visual Basic 6.0 Visual Studio
c. Tool
: Microsoft Office 2007
2. Workstation a. Database
: Microsoft SQL Server 2005
b. Aplikasi data warehouse : Penjualan dan Pembelian c. Tool
•
: Microsoft Office 2003
Adakah suatu permasalahan yang dihadapi selama ini pada PT. CONCEPT TECHNOLOGIES ?
PT. CONCEPT TECHNOLOGIES adalah perusahaan yang bergerak di bidang perdagangan lampu, dimana perusahaan ini berusaha menjadi perusahaan yang baik dalam hal penjualan maupun pelayanannya. Masalah yang ada antara lain adalah tidak tersedianya fasilitas mendukung kegiatan untuk mendukung kegiatan analisis penjualan, pembelian, dan persediaan
L6 Listing Program Imports System.Data.SqlClient Module DatabaseModule Dim connectionString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Lie\My Documents\Visual Studio 2008\Projects\Data Warehouse\aplikasi dwh\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True" Dim sqlConnection As New SqlConnection(connectionString) Public Function LoadData(ByVal queryString As String) Dim dataTable As New DataTable Dim sqlDataAdapter As SqlDataAdapter Try If sqlConnection.State = ConnectionState.Open Then sqlConnection.Close() End If sqlConnection.Open() sqlDataAdapter = New SqlDataAdapter(queryString, connectionString) sqlDataAdapter.Fill(dataTable) sqlConnection.Close() Catch ex As Exception MessageBox.Show("Failed loading data !", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Return DataTable End Function Public Sub ChangeData(ByVal QueryString As String) Try If sqlConnection.State = ConnectionState.Open Then sqlConnection.Close() End If sqlConnection.Open() Dim cmd As SqlCommand = sqlConnection.CreateCommand cmd.CommandText = QueryString cmd.ExecuteNonQuery() sqlConnection.Close() Catch ex As Exception MessageBox.Show("Failed changing data!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub End Module
L7 Untuk Menu Home : Imports System.Windows.Forms Public Class Home Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) ' Create a new instance of the child form. Dim ChildForm As New System.Windows.Forms.Form ' Make it a child of this MDI form before showing it. ChildForm.MdiParent = Me m_ChildFormNumber += 1 ChildForm.Text = "Window " & m_ChildFormNumber ChildForm.Show() End Sub Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Dim OpenFileDialog As New OpenFileDialog OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = OpenFileDialog.FileName ' TODO: Add code here to open the file. End If End Sub Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Dim SaveFileDialog As New SaveFileDialog SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = SaveFileDialog.FileName ' TODO: Add code here to save the current contents of the form to a file. End If End Sub Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click Login.Show() Me.Close() End Sub Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click Me.Close()
L8 End Sub Private m_ChildFormNumber As Integer Private Sub PivotToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PivotToolStripMenuItem.Click FaktaPembelian.Show() End Sub Private Sub ChangePasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem.Click ChangePassword.Show() End Sub Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click FaktaPenjualan.Show() End Sub Private Sub PersediaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PersediaanToolStripMenuItem.Click FaktaPersediaan.Show() End Sub Private Sub AddUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddUserToolStripMenuItem.Click AddUser.Show() End Sub End Class
Untuk Change Password : Public Class ChangePassword Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click If txtuser.Text = "" Then MessageBox.Show("Username must be filled", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtuser.Focus() ElseIf txtnewpass.Text = "" Then txtnewpass.Focus() MessageBox.Show("Password must be filled", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ElseIf Len(txtnewpass.Text) < 6 And Len(txtnewpass.Text) > 15 Then MessageBox.Show("Password lenght must be between 6 and 15") txtnewpass.Focus() ElseIf txtconfirm.Text = "" Then MessageBox.Show("Please confirm your password", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtconfirm.Focus()
L9 ElseIf txtconfirm.Text <> txtnewpass.Text Then MessageBox.Show("Password did not match", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtconfirm.Focus() Else ChangeData("update MsUser set Password ='" & txtconfirm.Text & "' where Username='" & txtuser.Text & "'") MessageBox.Show("Success", "Success", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) GroupBox1.Visible = False Me.Close()
End If End Sub Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click txtuser.Text = "" txtnewpass.Text = "" txtconfirm.Text = "" End Sub Private Sub Btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncancel.Click Me.Close() End Sub End Class
Untuk Add User : Public Class AddUser Dim DataTable As New DataTable Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If txtuser.Text = "" Then MessageBox.Show("Username Harus DiIsi!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) txtuser.Focus() ElseIf txtpass.Text = "" Then MessageBox.Show("Password Harus diIsi!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf cbLoginAs.SelectedIndex = -1 Then MessageBox.Show("Masukkan Login as", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) cbLoginAs.Focus() Else DataTable = LoadData("SELECT * FROM MsUser WHERE Username LIKE '" & txtuser.Text & "';") If DataTable.Rows.Count <> 0 Then MessageBox.Show("Username Yang Anda Masukkan Sudah Terdaftar!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) txtuser.Focus()
L10 Else ChangeData("insert into MsUser values('" & txtuser.Text & "','" & txtpass.Text & "','" & cbLoginAs.SelectedItem & "');") End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
Untuk Login : Public Class Login Dim datatable As DataTable Private Sub OK_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If txtuser.Text = "" Then MessageBox.Show("Username Harus DiIsi!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) txtuser.Focus() ElseIf txtpass.Text = "" Then MessageBox.Show("Password Harus diIsi!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf loginas.SelectedIndex = -1 Then MessageBox.Show("Pilih Login as", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) loginas.Focus() Else datatable = LoadData("SELECT * FROM MsUser WHERE Username LIKE '" & txtuser.Text & "';") If datatable.Rows.Count = 0 Then MessageBox.Show("Username Yang Anda Masukkan Belum Terdaftar!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) txtuser.Focus() Else If txtpass.Text <> datatable.Rows(0).Item("Password") Then MessageBox.Show("Password Yang Anda Masukkan Salah", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) txtpass.Focus() ElseIf loginas.SelectedItem <> datatable.Rows(0).Item("Login As") Then MessageBox.Show("Login as anda Salah", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Else If loginas.SelectedIndex = 0 Then Home.Show() Me.Close() Home.LogInToolStripMenuItem.Visible = False ElseIf loginas.SelectedIndex = 1 Then Home.Show()
L11 Me.Close() Home.LogInToolStripMenuItem.Visible = False Home.AddUserToolStripMenuItem.Visible = False End If End If End If End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub End Class
