Program ini adalah pengembangan dari program cetak nota service yang pernah saya posting : http://pregool.com/2011/02/23/aplikasi-cetak-nota-service-dengan-visual-basic-6-source-code/

Berikut beberapa screen capture nya :

Form Utama

Form Master Barang

Form Input Nota

Download program di sini.

Petunjuk meteran masih menggunakan jarum / non digital

Cocok untuk rumah sakit, bidan, posyandu dan sejenisnya.

Stok barang ada 9 buah.

Dijual dengan harga : Rp. 210.000 ,-

Nego, belum termasuk ongkos kirim

lokasi barang ada di daerah Rungkut, Surabaya

Berminat hubungi Yosef
telp / sms : 081 70340 1999 / 0821 800 78999
email : pregool@gmail.com
ym : pregool@yahoo.com

Berikut foto-foto dari produk timbangan bayi :

Dus dan buku

Tempat timbangan dan Meteran

Buku panduan

Jika anda memiliki ribuan record misalnya dari table lain untuk di insert ke dalam sebuah table MySQL maka biasanya cara dilakukan adalah dengan looping seperti ini :

while not rs1.eof do begin
  rs2.insert;
  rs2.FieldByName('field1').AsString := rs1.FieldByName('field1').AsString;
  rs2.FieldByName('field2').AsString := rs1.FieldByName('field2').AsString;
  rs2.Post;
  rs1.Next;
end

Tidak ada yang salah dengan kode di atas, tapi cobalah insert dengan lebih dari 10.000 record, maka proses akan terasa sangat lambat.

MySQL mendukung insert banyak record dengan 1 statement seperti ini :

INSERT INTO table VALUES('value1','value'), ('value1','value2'), ('value1','value2'), dst

Dengan menggunakan kelebihan tersebut berikut contoh coding untuk insert ribuan data ke dalam mysql :
Asumsi : koneksi dan query ke database menggunakan komponen ZEOLib
(http://sourceforge.net/projects/zeoslib/)

var
  sSQL: WideString;
  i: integer;
  rs1: TZQuery;
begin
  rs1 := TZQuery.Create(nil);
  rs1.SQL.Text := 'SELECT * FROM table1';
  rs1.Connection := dm.zConn;
  rs1.Open;

  i := 1;
  sSQL := 'INSERT INTO table2 VALUES';
  while not rs1.eof do begin
    sSQL := sSQL + Format('(''%s'', ''%s''),',
      [rs1.FieldByName('field1').AsString, rs1.FieldByName('field2').AsString]);
    rs1.Next;
    inc(i);
    if i = 10000 then begin
      sSQL := Copy(sSQL,1,Length(sSQL)-1) + ';'; //utk menghilangkan , di belakang
      try
        dm.zConn.ExecuteDirect(sSQL);
      except
      end;
      sSQL := 'INSERT INTO table2 VALUES'; // kembalikan sSQL ke awal
      i := 1;
    end;
  end;
end;

Pada kode diatas, setiap 10.000 record statement SQL akan dijalankan, pengalaman penulis jika statement lebih dari 10.000 dan statement dijalankan akan menimbulkan error.

Kode seperti ini saya gunakan di program POS dan DPT yang saya buat.

Semoga bermanfaat.

Berikut alur program :

1. Ambil data dari MySQL pindahkan ke database MS Access
2. Compress file dengan winrar, beri password
3. Kirimkan ke alamat tujuan

Agar dapat membuka source code program ini dengan Delphi 7, terlebih dahulu komponen Indy diupdate ke versi 10 karena bawaan Delphi 7 adalah komponen Indy  versi 9.

Langkah-langkah update komponen Indy ke versi 10 :

1. Buang dulu komponen Indy versi 9 dengan menggunakan installer Delphi 7
2. Download komponen Indy 10 disini
3. Extract di mana saja, bebas tetapi saya anjurkan di folder C:\Program Files\Borland\Delphi7 lalu buatkan folder baru dengan nama misalnya : Indy10
4. Buka dan compile file .dpk dengan urutan sebagai berikut :
5. IndySystem70.dpk (folder : Lib\System)
6. IndyCore70.dpk (folder : Lib\Core)
7. IndyProtocols70.dpk (folder : Lib\Protocols)
8. Lalu buka semua file .dpk, klik Install dengan urutan sebagai berikut :
9. dclIndyCore70.dpk (folder : Lib\Core)
10. dclIndyProtocols70.dpk (folder : Lib\Protocols)
11. Tambahkan library path di Delphi 7 antara lain :
• Lib\Protocols
• Lib\System
• Lib\Core
12. Installasi komponen Indy 10 selesai

Download source code antara lain :

1. MySQL Script download disini
2. Download MySQL ODBC Driver 3.51 disini
3. Download source code Delphi 7 disini

Beberapa screen capture program :

Semoga bermanfaat.

Beberapa fitur dari program ini adalah :

1. Support barcode scanner
2. Import data tamu dari Excel
3. Mendata tamu yang hadir
4. Mendata tamu yang mengambil suvenir
5. Client Server
6. Jumlah Client tidak terbatas
7. Jumlah data tamu tidak terbatas karena disimpan dalam database MySQL
8. Laporan dalam bentuk file Excel
9. Pilihan skin / theme aplikasi
10. Tidak ada lisensi, bisa di install di banyak komputer

Keterangan lebih lanjut silahkan buka :
http://pregool.com/aplikasi-penerima-tamu-untuk-pernikahan-atau-acara-lain/

copy struk.txt > prn

Cara diatas bisa berjalan lancar jika printer yang digunakan adalah printer Dot Matriks misalnya : LX-300+, LQ-21XX dan sejenisnya.

Kendala muncul jika user menggunakan printer USB karena port USB bukan LPT1, perintah diatas tidak akan bisa jalan. Setelah googling, saya menemukan satu procedure untuk mencetak file text ke printer default tanpa peduli port yang digunakan.

Berikut procedurenya :

uses
  SysUtils,
  Printers,
  WinSpool,
  System;

procedure CetakFile(Const sFileName: String);
Const
  cBUFSIZE = 16384;
Type
  TDoc_Info_1 = record
  pDocName: pChar;
  pOutputFile: pChar;
  pDataType: pChar;
end;
Var
  Count : Cardinal;
  BytesWritten: Cardinal;
  hPrinter : THandle;
  hDeviceMode : THandle;
  Device : Array[0..255] Of Char;
  Driver : Array[0..255] Of Char;
  Port : Array[0..255] Of Char;
  DocInfo : TDoc_Info_1;
  f : File;
  Buffer : Pointer;
begin
  Printer.PrinterIndex := -1;
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  If Not WinSpool.OpenPrinter(@Device, hPrinter, Nil) Then
    Exit;
  DocInfo.pDocName := 'Report';
  DocInfo.pOutputFile := Nil;
  DocInfo.pDatatype := 'RAW';

  If StartDocPrinter(hPrinter, 1, @DocInfo) = 0 Then
  begin
    WinSpool.ClosePrinter(hPrinter);
    Exit;
  end;

  If Not StartPagePrinter(hPrinter) Then
  begin
    EndDocPrinter(hPrinter);
    WinSpool.ClosePrinter(hPrinter);
    Exit;
  end;

  System.Assign(f, sFileName);
  try
    Reset(f, 1);
    GetMem(Buffer, cBUFSIZE);
    While Not Eof(f) Do
    begin
      Blockread(f, Buffer^, cBUFSIZE, Count);
      If Count > 0 Then
      begin
        If Not WritePrinter(hPrinter, Buffer, Count, BytesWritten) Then
        begin
          EndPagePrinter(hPrinter);
          EndDocPrinter(hPrinter);
          WinSpool.ClosePrinter(hPrinter);
          FreeMem(Buffer, cBUFSIZE);
          Exit;
        end;
      end;
    end;
    FreeMem(Buffer, cBUFSIZE);
    EndDocPrinter(hPrinter);
    WinSpool.ClosePrinter(hPrinter);
  finally
    System.CloseFile(f);
  end;
end;

Cara penggunaannya : CetakFile(‘c:\struk.txt’);
Semua program POS saya sudah saya update menggunakan procedure ini.

Update 15-07-2011 :

Berikut file PrintFile.exe yang bisa digunakan untuk langsung mencetak file text sebagai parameter. Cara penggunaan panggil file PrintFile.exe dengan nama file sebagai parameter, contoh  :

PrintFile.exe nota.txt

Semoga bermanfaat.

Di sisi server, aplikasi Code Igniter ini tidak mempunyai tampilan visual karena hanya bertindak sebagai server yang melayani request. Jika anda buka di browser, maka tampilannya seperti ini :

Di sisi client, tampilan program seperti ini :

Jika user menekan tombol kirim, maka inputan akan terkirim ke server XMLRPC, oleh server hasil inputan langsung disimpan di database. Untuk lebih jelas, silahkan lihat source code. Di contoh program ini tidak ada enkripsi dan pengecekan user, lebih aman jika 2 hal tersebut diterapkan atau dengan menggunakan SSL.

Program client dibuat menggunakan Netbean IDE versi 6.9.1.

Download source program disini.

Semoga bermanfaat.

Dengan menggabungkan dua teknik ini maka kita bisa mendapatkan semua isi spesifik dari setiap halaman website yang diinginkan. Hmm… tidak semua sih, selama ada link masuk ke dalam sebuah halaman, maka halaman itu akan di Crawl.

Program ini dibuat dengan bantuan library java yang diambil dari buku dengan judul : Programming Spiders, Bots and Aggregators in Java karangan Jeff Heaton terbitan Sybex tahun 2002. Jika anda ingin mempelajari lebih dalam, silahkan baca buku tersebut. Sudah ada banyak format pdf nya di website-website ebook gratis.

Program ini akan melakukan crawl dan scrape link gambar, berikut alternate text (tag alt) ke dalam database MySQL. Program ini dibuat dengan menggunakan : NetBeans IDE 6.9.1 (download disini). Masih ada beberapa kekurangan di program ini antara lain jika ditutup maka thread tidak langsung mati. Jika hal ini terjadi, silahkan gunakan task manager untuk membunuh program sacara paksa.

Berikut beberapa hasil capture program :

Program ini menggunakan regex untuk mengambil isi website pregool.com. Silahkan sesuaikan dengan keinginan. Untuk merubah silahkan lihat fungsi dengan nama :

processFile(HTTP file)

di dalam fungsi ini pemilihan konten dan penyimpanan ke database dilakukan. Untuk merubah setting database silahkan edit file setting.ini sesuaikan dengan setting database MySQL anda.

Download source code disini.

Gunakan Netbean IDE untuk membuka project.

Akhirnya saya berinisiatif untuk membuatkan aplikasi sederhana untuk mencetak Nota dengan menggunakan Visual Basic 6, MS-Access, dan Component One. Aplikasi ini sangat sederhana, hanya terdiri dari Input Nota, Update Nota, Hapus Nota dan Cetak Nota. Nota yang sudah diinput tersimpan dalam database berfungsi sebagai history pekerjaan.

Berikut beberapa tampilan program untuk cetak Nota :

Form Utama

Input Nota

Nota Service

Program ini dibuat menggunakan menggunakan :

1. Visual Basic 6
2. Ms-Access 2003
3. Komponen Component-One (indowebster.com)
4. Crystal Report 8.5 (indowebster.com)
5. Installer Inno DB Setup 5 (http://www.innosetup.com)

Download Source Code, Script Inno DB dan Installer disini (format .7z).