tag:blogger.com,1999:blog-74904629309320525702024-02-20T10:49:47.371-08:00Zahir Accounting CommunityUnknownnoreply@blogger.comBlogger12125tag:blogger.com,1999:blog-7490462930932052570.post-21832292670476158922011-11-25T00:07:00.000-08:002011-11-25T00:07:45.875-08:00Aplikasi Backup Database Firebird Otomatis Dengan Sistem SceduleBackup Database sangat diperlukan dalam dunia teknologi informasi. Apalagi di sistem keuangan. Di Zahir, sudah disediakan menu Backup data,namun sifatnya masih manual. Untuk membackup database zahir secara otomatis, anda dapat menggunakan softwareUnknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-72882401668207917162011-02-17T22:57:00.000-08:002011-02-17T22:58:52.795-08:00Control Panel tidak mau dibuka setelah Install Zahir Di Windows Vista atau 7ketika anda selesai menginstall zahir di Windows Vista atau 7 ,kadang control panel windows tidak mau terbuka. hal ini disebabkan karena ada file dari firebird bernama Firebird2Control yang mengganggu jalannya windows. untuk mengatasi hal tersebut, anda harus menghapus file tersebut yang lokasinya berada di C:\Windows\System32. atau kalau anda tidak mau repot, silahkan download program <a href="http://www.ziddu.com/download/13746222/Delete-Firebird2Control-Dot-CPL.exe.html">ini</a> yang fungsinya sama dengan menghapus file tersebut.Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-34165285584213685112010-12-07T19:41:00.002-08:002010-12-07T23:38:20.306-08:00Video Testimonial Pengguna Zahir Accounting<iframe allowfullscreen='allowfullscreen' webkitallowfullscreen='webkitallowfullscreen' mozallowfullscreen='mozallowfullscreen' width='320' height='266' src='https://www.blogger.com/video.g?token=AD6v5dxo4kSvUoE4bjF-cIXPegZXKxl49_WW8Gog0-2HA7i13PIOdCQ0_pd2Ea4JRRzeuGR06o_QS7aGwtX2o0Aj7Q' class='b-hbp-video b-uploaded' frameborder='0'></iframe>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-50410162927039864942010-11-14T01:41:00.000-08:002010-11-14T01:45:55.163-08:00Belajar Zahir Accounting<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixVQTZMXT42jrYnt7CVbcgs0u_BxYBu09sDz5KPrIbd1M4gbo4PNs71N98qvi5zGGdkSqVR1v37Zj2t0I5KfOYCiq7iz4ZGAX0WkGWrN7gDbs6f1B11tCXSeo7bO7vrZuIVYK_vvMPrA1p/s1600/zahir+fatur.jpg"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 282px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixVQTZMXT42jrYnt7CVbcgs0u_BxYBu09sDz5KPrIbd1M4gbo4PNs71N98qvi5zGGdkSqVR1v37Zj2t0I5KfOYCiq7iz4ZGAX0WkGWrN7gDbs6f1B11tCXSeo7bO7vrZuIVYK_vvMPrA1p/s400/zahir+fatur.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5539339312012207074" /></a>Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-7490462930932052570.post-75864020473540819332010-09-02T09:18:00.000-07:002010-09-02T09:26:22.961-07:00Driver printer EPSON TM-U220 (Print Struk POS)Untuk mendukung aplikasi zahir POS anda, biasanya anda menggunakan printer struk untuk mencetak nota penjualan anda. Namun jika anda sudah punya printernya namun drivernya hiang, anda bisa mendownloadnya secara gratis <a href="http://www.ziddu.com/download/11491140/EPSONAdvancedPrinterDriver.rar.html">disini!</a>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-85491675230233561372010-08-30T18:19:00.000-07:002011-06-11T10:37:20.747-07:00Firebird Versi 2.0.5Telah Hadir updatean terbaru database Firebird Versi 2.0.5. Untuk mendapatkannya silahkan klik <a href="http://www.ziddu.com/download/15326809/Firebird-2.0.5.13206_1_win32.rar.html
">disini!</a>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-8781340432322438892010-04-01T11:44:00.000-07:002010-04-01T12:05:29.993-07:00Cara membuat splash screen<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgn4rYL6-aEQ7Z-SHzeyNzS3rV6JmmmmhD8OwOgqA9eHGOjB-X5lAn43CltZZSyWQG87Bt0jRSaG5ScwaJ6Ado-6J026Zazuwzo982IEJ8OhtoJXihWfKhMHxyGtTYtPjpLYZVkGPic8JoO/s1600/New+Picture.jpg"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 320px; height: 192px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgn4rYL6-aEQ7Z-SHzeyNzS3rV6JmmmmhD8OwOgqA9eHGOjB-X5lAn43CltZZSyWQG87Bt0jRSaG5ScwaJ6Ado-6J026Zazuwzo982IEJ8OhtoJXihWfKhMHxyGtTYtPjpLYZVkGPic8JoO/s320/New+Picture.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5455246233256515442" /></a><br />Untuk membuat form splash screen caranya cukup mudah. Langkah-langkahnya sebagai berikut:<br />1. Tambahkan form baru dengan mengklik add form<br />2. kemudian pilih jenis form "splash screen", kemudian open.<br />3. maka akan muncul form baru<br /><br />4. pada form tersebut anda sisa mengedit label-labelnya, kemudian pada listingnya anda ketikkan seperti di bawah ini :<br /><br /><br />Private Sub Form_Load()<br />Timer1.Interval = 100<br />Timer1.Enabled = True<br />bar.Value = 0<br />End Sub<br /><br /><br />Private Sub Timer1_Timer()<br />bar.Value = bar.Value + 2<br />lblbar.Caption = "Loading......." & bar.Value & " %"<br />If bar.Value >= 2 And bar.Value <= 9 Then<br />lblbar.Caption = "Please wait....." & bar.Value & " %"<br />ElseIf bar.Value >= 10 And bar.Value <= 14 Then<br />lblbar.Caption = "Configuring Master barang....." & bar.Value & " %"<br />ElseIf bar.Value >= 15 And bar.Value <= 19 Then<br />lblbar.Caption = "Configuring Master staff....." & bar.Value & " %"<br />ElseIf bar.Value >= 20 And bar.Value <= 24 Then<br />lblbar.Caption = "Configuring Master supplier....." & bar.Value & " %"<br />ElseIf bar.Value >= 25 And bar.Value <= 29 Then<br />lblbar.Caption = "Configuring Transaksi penjualan....." & bar.Value & " %"<br />ElseIf bar.Value >= 30 And bar.Value <= 34 Then<br />lblbar.Caption = "Configuring Transaksi pembelian....." & bar.Value & " %"<br />ElseIf bar.Value >= 35 And bar.Value <= 39 Then<br />lblbar.Caption = "Configuring Transaksi Return jual....." & bar.Value & " %"<br />ElseIf bar.Value >= 40 And bar.Value <= 44 Then<br />lblbar.Caption = "Configuring Transaksi Return beli....." & bar.Value & " %"<br />ElseIf bar.Value >= 45 And bar.Value <= 49 Then<br />lblbar.Caption = "Configuring Transaksi penyesuaian....." & bar.Value & " %"<br />ElseIf bar.Value >= 50 And bar.Value <= 54 Then<br />lblbar.Caption = "Configuring Rebate....." & bar.Value & " %"<br />ElseIf bar.Value >= 55 And bar.Value <= 59 Then<br />lblbar.Caption = "Configuring Cashflow....." & bar.Value & " %"<br />ElseIf bar.Value >= 60 And bar.Value <= 64 Then<br />lblbar.Caption = "Configuring Setting Profile....." & bar.Value & " %"<br />ElseIf bar.Value >= 65 And bar.Value <= 69 Then<br />lblbar.Caption = "Configuring Security....." & bar.Value & " %"<br />ElseIf bar.Value >= 70 And bar.Value <= 74 Then<br />lblbar.Caption = "Set Application....." & bar.Value & " %"<br />ElseIf bar.Value >= 75 And bar.Value <= 90 Then<br />lblbar.Caption = "Please wait....." & bar.Value & " %"<br />End If<br />If bar.Value = 100 Then<br />If Timer1.Interval > 0 Then<br />Unload Me<br />menu.Show<br />menu.Enabled = False<br />login.Show<br />End If<br />End If<br />End Sub<br /><br />Edit sesuai penamaan label anda. dan pada bagian "menu.show" anda bisa ganti sesuai form yang anda ingin munculkan!<br />Selamat mencoba!Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-7490462930932052570.post-35384953615331968522009-09-16T07:08:00.004-07:002009-09-16T07:13:48.355-07:00koneksi visual basic dengan accessLanjutan dari posting kemarin yaitu koneksi vb dengan SQl Server, sekarang saya akan memberikan listing untuk koneksi vb dengan ms. access bawaan microsoft. listing seperti berikut ini:<br /><br /><span style="font-size:85%;">Public conn As ADODB.Connection<br /><br />Sub main()<br />opendb<br />MDIUtama.Show<br />End Sub<br /><br />Public Sub opendb()<br />Dim koneksi As String<br />Set conn = New ADODB.Connection<br /><br />conn.Provider = "Microsoft.Jet.OLEDB.4.0"<br />conn.Open App.Path & "\Rental.mdb"<br /><br />End Sub</span><br /><br />Cukup mudahkan! Selamat mencoba....!!!Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-7490462930932052570.post-32565266112449698882009-09-12T02:18:00.000-07:002009-09-12T02:31:51.721-07:00Koneksi visual basic dengan SQL ServerUntuk mengkoneksikan aplikasi visual basic dengan SQL Server cukup mudah!pada project anda,tambahkan modul baru dan beri nama koneksi(Terserah anda sih!!). Kemudian Copypaste listing berikut:<br /><span style="font-size:85%;"><br />Public mydata As New ADODB.Connection<br /><br />Public Function bukadata() As Boolean<br />mydata.Provider = "sqloledb"<br />mydata.Open "SERVER=192.168.0.1;DATABASE=multilogistics;uid=;pwd="<br /> 'Ini untuk koneksi ke server di komputer lain. ipnya bisa anda ganti sesuia ip pada komputer server<br /><br />mydata.Open "SERVER=(local);DATABASE=minimarket;uid=;pwd=" 'Ini untuk koneksi ke Server Local<br />'terserah anda mau pake yang mana<br />bukadata = True<br />End Function<br /><br />Sub main()<br />bukadata<br />frmSplash.Show<br />End Sub</span><br /><br />Selamat Mencoba!Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-7490462930932052570.post-47534188039963548292009-09-09T04:12:00.000-07:002009-09-09T04:21:25.049-07:00membuat teks bolongUntuk membuat teks bolong caranya cukup mudah! Pertama buka aplikasi visual basic, kemudian tambahkan 1 form dan 1 modul. pada modul, copypaste listing berikut:<br /><span style="font-size:85%;"><span style="font-family:arial;"><br />Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long</span> <span style="font-family:arial;">Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long</span> <span style="font-family:arial;">Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long</span></span><br /><br />Kemudian pada form1 tambahkan 1 (satu) buah picture. kemudian copypaste listing berikut:<br /><span style="font-size:85%;"><span style="font-family:arial;"><br />Private Sub Form_Load()</span> <span style="font-family:arial;">'Ganti "Masino Sinaga" dengan teks yang ingin Anda tampilkan</span> <span style="font-family:arial;"> Const TXT = "Masino Sinaga"</span> <span style="font-family:arial;"> Dim i As Long</span> <span style="font-family:arial;"> Dim hRgn As Long</span> <span style="font-family:arial;"> Picture1.AutoRedraw = True</span> <span style="font-family:arial;"> 'Pilih huruf. Sesuaikan dengan keinginan Anda...</span> <span style="font-family:arial;"> Picture1.Font.Name = "Times New Roman"</span> <span style="font-family:arial;"> Picture1.Font.Bold = True</span> <span style="font-family:arial;"> Picture1.Font.Size = 50</span> <span style="font-family:arial;"> 'Buat ukuran Picture1 cukup besar</span> <span style="font-family:arial;"> Picture1.Width = Picture1.TextWidth(TXT)</span> <span style="font-family:arial;"> Picture1.Height = Picture1.TextHeight(TXT)</span> <span style="font-family:arial;"> 'Untuk letak Picture1</span> <span style="font-family:arial;"> BeginPath Picture1.hdc</span> <span style="font-family:arial;"> Picture1.CurrentX = 0</span> <span style="font-family:arial;"> Picture1.CurrentY = 0</span> <span style="font-family:arial;"> Picture1.Print TXT</span> <span style="font-family:arial;"> EndPath Picture1.hdc</span> <span style="font-family:arial;"> 'Gambar teks...</span> <span style="font-family:arial;"> StrokePath Picture1.hdc</span> <span style="font-family:arial;">End Sub</span></span><br /><br />Selamat mencoba!Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-90462327200516173062009-09-04T10:32:00.000-07:002009-09-04T11:03:32.799-07:00Cara Membuat login pakai SQL dengan Visual BasicUntuk membuat login pada visual basic dgn perintah SQL caranya cukup mudah. Copypaste listing di bawah ini:<br />Dim cekdata As New ADODB.Recordset<br />If cekdata.State = adStateOpen Then cekdata.Close<br />cekdata.Open "select * from security where nmuser= '" & trim(txtuser.Text) & "' and pwd= '" & trim(txtpwd.Text) & "' ", mydata, adOpenDynamic, adLockOptimistic<br />If cekdata.EOF = False Or cekdata.BOF = False Then<br />mdiform.show<br />else<br />MsgBox "User atau Password yang anda masukkan salah!", vbInformation + vbOKOnly, "Error"<br />end if<br /><br />selamat mencoba!!!<br />Note:<span style="font-style: italic; font-weight: bold;">mydata</span> adalah nama koneksi yg sy gunakan.Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-7490462930932052570.post-27515972234349879542009-09-04T10:19:00.000-07:002009-09-04T11:05:56.737-07:00Cara membuat penomoran otomatis pakai visual basic<span style="font-family:arial;">Untuk membuat penomoran otomatis pada visual basic caranya cukup mudah. copypaste listing di bawah ini:</span><br /><span style="font-size:85%;"><span style="font-weight: bold;font-family:arial;" >Sub isinomor()</span><br /><span style="font-family:arial;">Dim MyId As String</span><br /><span style="font-family:arial;">Dim AgenId As New ADODB.Recordset</span><br /><span style="font-family:arial;">If AgenId.State = adStateOpen Then AgenId.Close</span><br /><span style="font-family:arial;">AgenId.Open "select right(kdbarang,3)as AgenId from barang order by kdbarang desc", mydata, adOpenForwardOnly, adLockReadOnly</span><br /><span style="font-family:arial;">If Not (AgenId.EOF = True Or AgenId.BOF = True) Then</span><br /><span style="font-family:arial;"> AgenId.MoveFirst</span><br /><span style="font-family:arial;"> txtkdbarang.Text = ""</span><br /><span style="font-family:arial;"> txtkdbarang.Text = "B-"</span><br /><span style="font-family:arial;"> MyId = Val(AgenId.Fields(0))</span><br /><span style="font-family:arial;"> If Len(MyId) = 1 And Not MyId = 9 Then</span><br /><span style="font-family:arial;"> txtkdbarang.Text = txtkdbarang.Text & "00" & Val(MyId + 1)</span><br /><span style="font-family:arial;"> ElseIf Len(MyId) = 2 And Not MyId = 99 Or MyId = 9 Then</span><br /><span style="font-family:arial;"> txtkdbarang.Text = txtkdbarang.Text & "0" & Val(MyId + 1)</span><br /><span style="font-family:arial;"> ElseIf Len(MyId) = 3 And Not MyId = 999 Or MyId = 99 Then</span><br /><span style="font-family:arial;"> txtkdbarang.Text = txtkdbarang.Text & "" & Val(MyId + 1)</span><br /><span style="font-family:arial;"> End If</span><br /><span style="font-family:arial;">Else</span><br /><span style="font-family:arial;"> txtkdbarang.Text = "B-" & "001"</span><br /><span style="font-family:arial;">End If</span><br /><span style="font-family:arial;">End Sub</span></span><br /><br /><span style="font-family:arial;">untuk memanggilnya tinggal mengetik:</span><br /><span style="font-weight: bold;font-family:arial;" >call isinomor</span><br /><span style="font-family:arial;">Selamat mencoba!</span>Unknownnoreply@blogger.com1