Kali ini saya akan memberikan tips membuat quick access toolbar yaitu icon kecil dekat tombol ribbon, seperti dibawah ini.

Icon disamping itulah yang nantinya kita buat. disini kita akan membuat tiga icon New, Copy, dan Print caranya sebagai berikut.

1. Pertama buat konstanta

view source

print?

1	Public Const ID_FILE_NEW = 4001

2	Public Const ID_EDIT_COPY = 4002

3	Public Const ID_FILE_PRINT = 4003

2. Masukkan Script Quick Access Toolbar berikut.

1	RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_NEW, "&New"

2	RibbonBar.QuickAccessControls.Add xtpControlButton, ID_EDIT_COPY, "&Copy"

3	RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_PRINT, "&Print"

Gampang bukan!...Silahkan Mencoba!

Sumber : http://djuliar.blogspot.com/2011/10/quick-acces-toolbar-codejock.html#more

Mungkin ini masalah yang banyak di alami oleh beberapa programmer yaitu sulitnya membuat laporan atau report terhadap sebuah data. Pada kesempatan kali ini saya akan memberikan cara membuat laporan dengan mudah dan dengan interface yang menarik, selain itu, kita dapat memilih orientation dari kertas yaitu bisa Portrait dan Landscape dengan beberapa coding pemanggil database untuk menampilkan datanya, mari kita mulai, tapi sebelum itu berikut tampilan hasil dari Print Preview laporan dengan Report Control Codejock :

Komponen Yang Dibutuhkan :

1. Xtreme CommandBar ActiveX Control
2. Xtreme Report ActiveX Control

Siapkan satu database dan tabel misalkan seperti berikut :



Selanjutnya buat form baru dan koneksikan dengan database anda misalkan menggunakan database access. koneksi tidak akan dibahas disini, untuk lebih jelasnya masalah koneksi database bisa searching di google dan tambahkan komponen CommandBars dan Report Control pada Component Visual Basic :

sehingga meghasilkan component berikut di toolbox :



Selanjutnya masukkan satu CommandBars, satu Report Control, satu PrintPreview, susun komponen berikut pada form seperti gambar dibawah ini :

Selanjutnya mari kita berkoding,
Pertama, memanggil datanya terlebih dahulu, disini saya menggunakan ADODB, scirpt SQL bebas diubah sesuai kebutuhan, kita pakai script berikut :

01	Option Explicit

02	Dim Rs As ADODB.Recordset

03

04	Private Sub TampilData()

05	Set Rs = New ADODB.Recordset

06	Rs.CursorType = adOpenStatic

07	Rs.CursorLocation = adUseClient

08	Rs.Open "SELECT kodeBuku, judul, ISBN, pengarang, penerbit, " _

09	& "kategori, rak, jmlHalaman, tahun, tglMasuk, harga, qty " _

10	& "FROM Buku ORDER BY kodeBuku", Conn, adOpenDynamic, adLockOptimistic

11	Set ReportControl.DataManager.DataSource = Rs

12

13	ReportControl.DataManager.DataBind

14	ReportControl.PaintManager.HeaderRowsDividerStyle = xtpReportFixedRowsDividerThin

15	ReportControl.HeaderRecords.DeleteAll

16	ReportControl.PopulateHeaderRows

17

18	With Me.ReportControl

19	.PaintManager.DrawGridForEmptySpace = True

20	.PaintManager.HorizontalGridStyle = xtpGridSolid

21	.PaintManager.VerticalGridStyle = xtpGridSolid

22

.Populate

23

End With

24

End Sub

Kedua, kita buat report control kita rapi dan memberi header laporan dengan nama instansi kita, berikut scriptnya :

01	Private Sub FormatGrid()

02	ReportControl.Columns(0).Width = 150

03	ReportControl.Columns(0).Caption = "Kode Buku"

04	ReportControl.Columns(1).Width = 400

05	ReportControl.Columns(1).Caption = "Judul"

06	ReportControl.Columns(2).Width = 225

07	ReportControl.Columns(2).Caption = "ISBN"

08	ReportControl.Columns(3).Width = 200

09	ReportControl.Columns(3).Caption = "Pengarang"

10	ReportControl.Columns(4).Width = 150

11	ReportControl.Columns(4).Caption = "Penerbit"

12	ReportControl.Columns(5).Width = 150

13	ReportControl.Columns(5).Caption = "Kategori"

14	ReportControl.Columns(6).Width = 150

15	ReportControl.Columns(6).Caption = "Rak"

16	ReportControl.Columns(7).Width = 200

17	ReportControl.Columns(7).Caption = "Jumlah Halaman"

18	ReportControl.Columns(8).Width = 150

19	ReportControl.Columns(8).Caption = "Tahun"

20	ReportControl.Columns(9).Width = 175

21	ReportControl.Columns(9).Caption = "Tanggal Masuk"

22	ReportControl.Columns(10).Width = 100

23	ReportControl.Columns(10).Caption = "Harga"

24	ReportControl.Columns(11).Width = 100

25	ReportControl.Columns(11).Caption = "Banyak"

26

27	With Me.ReportControl.PrintOptions

28	.Landscape = True

29	.Header.FormatString = "Nama" & vbCr & "Alamat" & vbCr & "Telepon"

30	.Header.Font.Bold = True

31	.Header.Font.Size = 10

32	.Footer.FormatString = "Tanggal Cetak : &D" & vbCr & "Halaman &p/&P"

33

End With

34

End Sub

Ketiga, Pada Form_Load Tambahkan Script berikut agar kita bisa menggunakan ShortCut Ctrl+P untuk preview laporannya, untuk sementara Print Preview di visible = False, berikut script di Form_Load :

1	Private Sub Form_Load()

2	Me.PrintPreview.Visible = False

3	Me.CommandBars.KeyBindings.Add 8, vbKeyP, 100

4	Me.Caption = "Preview Data Buku (Press Ctrl+P for Print Preview)"

5

6	AmbilKoneksi

7	TampilData

8	FormatGrid

9

End Sub

Keempat, Tambahkan script berikut agar data di Report Control masuk ke Print Preview :

1	Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

2	Select Case Control.Id

3

Case 100

4	Set Me.PrintPreview.PrintView = Me.ReportControl.CreatePrintView

5

6	Me.ReportControl.Visible = False

7	Me.PrintPreview.Visible = True

8	End Select

9

End Sub

Kelima, Agar besar ukuran laporan bisa berubah sesuai besar kecilnya form beri script berikut :

1	Private Sub Form_Resize()

2	With Me.PrintPreview

3	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

4

End With

5

6	With Me.ReportControl

7	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

8

End With

9

End Sub

Keenam, dan yang terakhir kita beri Action pada tombol Print dan tombol close yang berada pada Print Preview :

1	Private Sub PrintPreview_CloseClick()

2	Me.ReportControl.Visible = True

3	Me.PrintPreview.Visible = False

4

End Sub

5

6	Private Sub PrintPreview_PrintClick()

7	PrintPreview.ShowPrintDialog

8	PrintPreview_CloseClick

9

End Sub

Mudah Bukan!....Selamat Mencoba!!!
Semoga cara ini memberi kemudahan bagi yang lagi pusing membuat laporan.
Yang membutuhkan file project download-nya silahkan. saya belajar dari file ini.

Mungkin ini masalah yang banyak di alami oleh beberapa programmer yaitu sulitnya membuat laporan atau report terhadap sebuah data. Pada kesempatan kali ini saya akan memberikan cara membuat laporan dengan mudah dan dengan interface yang menarik, selain itu, kita dapat memilih orientation dari kertas yaitu bisa Portrait dan Landscape dengan beberapa coding pemanggil database untuk menampilkan datanya, mari kita mulai, tapi sebelum itu berikut tampilan hasil dari Print Preview laporan dengan Report Control Codejock :

Komponen Yang Dibutuhkan :

1. Xtreme CommandBar ActiveX Control
2. Xtreme Report ActiveX Control

Siapkan satu database dan tabel misalkan seperti berikut :



Selanjutnya buat form baru dan koneksikan dengan database anda misalkan menggunakan database access. koneksi tidak akan dibahas disini, untuk lebih jelasnya masalah koneksi database bisa searching di google dan tambahkan komponen CommandBars dan Report Control pada Component Visual Basic :

sehingga meghasilkan component berikut di toolbox :



Selanjutnya masukkan satu CommandBars, satu Report Control, satu PrintPreview, susun komponen berikut pada form seperti gambar dibawah ini :

Selanjutnya mari kita berkoding,
Pertama, memanggil datanya terlebih dahulu, disini saya menggunakan ADODB, scirpt SQL bebas diubah sesuai kebutuhan, kita pakai script berikut :

01	Option Explicit

02	Dim Rs As ADODB.Recordset

03

04	Private Sub TampilData()

05	Set Rs = New ADODB.Recordset

06	Rs.CursorType = adOpenStatic

07	Rs.CursorLocation = adUseClient

08	Rs.Open "SELECT kodeBuku, judul, ISBN, pengarang, penerbit, " _

09	& "kategori, rak, jmlHalaman, tahun, tglMasuk, harga, qty " _

10	& "FROM Buku ORDER BY kodeBuku", Conn, adOpenDynamic, adLockOptimistic

11	Set ReportControl.DataManager.DataSource = Rs

12

13	ReportControl.DataManager.DataBind

14	ReportControl.PaintManager.HeaderRowsDividerStyle = xtpReportFixedRowsDividerThin

15	ReportControl.HeaderRecords.DeleteAll

16	ReportControl.PopulateHeaderRows

17

18	With Me.ReportControl

19	.PaintManager.DrawGridForEmptySpace = True

20	.PaintManager.HorizontalGridStyle = xtpGridSolid

21	.PaintManager.VerticalGridStyle = xtpGridSolid

22

.Populate

23

End With

24

End Sub

Kedua, kita buat report control kita rapi dan memberi header laporan dengan nama instansi kita, berikut scriptnya :

01	Private Sub FormatGrid()

02	ReportControl.Columns(0).Width = 150

03	ReportControl.Columns(0).Caption = "Kode Buku"

04	ReportControl.Columns(1).Width = 400

05	ReportControl.Columns(1).Caption = "Judul"

06	ReportControl.Columns(2).Width = 225

07	ReportControl.Columns(2).Caption = "ISBN"

08	ReportControl.Columns(3).Width = 200

09	ReportControl.Columns(3).Caption = "Pengarang"

10	ReportControl.Columns(4).Width = 150

11	ReportControl.Columns(4).Caption = "Penerbit"

12	ReportControl.Columns(5).Width = 150

13	ReportControl.Columns(5).Caption = "Kategori"

14	ReportControl.Columns(6).Width = 150

15	ReportControl.Columns(6).Caption = "Rak"

16	ReportControl.Columns(7).Width = 200

17	ReportControl.Columns(7).Caption = "Jumlah Halaman"

18	ReportControl.Columns(8).Width = 150

19	ReportControl.Columns(8).Caption = "Tahun"

20	ReportControl.Columns(9).Width = 175

21	ReportControl.Columns(9).Caption = "Tanggal Masuk"

22	ReportControl.Columns(10).Width = 100

23	ReportControl.Columns(10).Caption = "Harga"

24	ReportControl.Columns(11).Width = 100

25	ReportControl.Columns(11).Caption = "Banyak"

26

27	With Me.ReportControl.PrintOptions

28	.Landscape = True

29	.Header.FormatString = "Nama" & vbCr & "Alamat" & vbCr & "Telepon"

30	.Header.Font.Bold = True

31	.Header.Font.Size = 10

32	.Footer.FormatString = "Tanggal Cetak : &D" & vbCr & "Halaman &p/&P"

33

End With

34

End Sub

Ketiga, Pada Form_Load Tambahkan Script berikut agar kita bisa menggunakan ShortCut Ctrl+P untuk preview laporannya, untuk sementara Print Preview di visible = False, berikut script di Form_Load :

1	Private Sub Form_Load()

2	Me.PrintPreview.Visible = False

3	Me.CommandBars.KeyBindings.Add 8, vbKeyP, 100

4	Me.Caption = "Preview Data Buku (Press Ctrl+P for Print Preview)"

5

6	AmbilKoneksi

7	TampilData

8	FormatGrid

9

End Sub

Keempat, Tambahkan script berikut agar data di Report Control masuk ke Print Preview :

1	Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

2	Select Case Control.Id

3

Case 100

4	Set Me.PrintPreview.PrintView = Me.ReportControl.CreatePrintView

5

6	Me.ReportControl.Visible = False

7	Me.PrintPreview.Visible = True

8	End Select

9

End Sub

Kelima, Agar besar ukuran laporan bisa berubah sesuai besar kecilnya form beri script berikut :

1	Private Sub Form_Resize()

2	With Me.PrintPreview

3	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

4

End With

5

6	With Me.ReportControl

7	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

8

End With

9

End Sub

Keenam, dan yang terakhir kita beri Action pada tombol Print dan tombol close yang berada pada Print Preview :

1	Private Sub PrintPreview_CloseClick()

2	Me.ReportControl.Visible = True

3	Me.PrintPreview.Visible = False

4

End Sub

5

6	Private Sub PrintPreview_PrintClick()

7	PrintPreview.ShowPrintDialog

8	PrintPreview_CloseClick

9

End Sub

Mudah Bukan!....Selamat Mencoba!!!
Semoga cara ini memberi kemudahan bagi yang lagi pusing membuat laporan.
Yang membutuhkan file project download-nya silahkan. saya belajar dari file ini.

Football, Fashion and Phones = Fun with Widgetbox Mobile

Question: What do an Italian football club and a swanky New York/Miami production studio have in common? (Besides a tendency towards on-field and on-screen drama, of course!)
Answer: Forza Pescara and Splashlight have both shown their mobile savvy by building Widgetbox apps to take their sites to your phones.



Now “tifosi del Pescara” (supporters of Pescara) and Splashlight clients like InStyle, Tiffany & Co. and Marc Jacobs can connect with the latest info and news wherever they carry their mobile phones (read: everywhere).

While it’s possible that the two apps share a similar target market - Italian fashionistas who love soccer isn’t a big stretch - these apps are notable for the ways they help their fans and clients stay connected.

Forza Pescara’s app contains a collection of video clips and highlight reels from the team. Miss that latest save (or awesome GOOOOALLL!)? Now you can catch up when you’re away from the TV and on-the-go.

While Splashlight’s app doesn’t have a gallery of video clips, it does show a location-aware map of their studio locations in Miami and New York. One can easily imagine this being a lifesaver for a harried fashion assistant rushing to make it to the shoot on time, or an art director trying to find the perfect place to film their next ad campaign.

Of course, there’s one more thing these two apps have in common: they’re both entered in Widgetbox’s 5K Mobile App Contest and are eligible to win prizes including a $299 Apple gift card, a free Diamond service subscription, and an expert consultation on building a great app. The contest is still going strong, but we’re getting close to 5k - hurry and create your free app today for your chance to win!