Perkembangan Bahasa Pemrograman

Minggu Sore saat lagi utak atik program pesanan, istri saya iseng menanyakan siapa sih yg menciptakan kode kode pemrograman itu .. hehehe simple emang tapi bikin geli juga !!. akhirnya saya jelasin bahwa  bahsa pemrograman sekarang gaya bahasanya sudah lebih mengarah ke bahasa yg mudah dimengerti manusia. dulu waktu kuliah dulu  diajarin bahasa assembler yg bahasanya gak karu karuan .
Dari sini saya coba jelaskan sediit tentang perkembangan bahasa pemrograman atau yg lebih di kenal Generation of Programming Language atau sering disingkat GL (tapi apa gak ketukar ama General ledger ya )

Berikut Perjalanan GL (dari 1GL – 5GL):

Disarikan dari

From Wikipedia, the free encyclopedia

Beberapa bulan lalu (tepatnya bulan maret 2007) saya beli notebook baru untuk pertama kalinya, dan beberapa waktu yg lalu pula saya jual notebook baru untuk pertama kalinya hiks.., sedih memang.. disaat lagi seneng ngotak ngatik program baru plus ditambah anakku sarach yang sudah mulai bisa maen game Sim’s sendiri (mulai dari booting sampe jalananin gamesnya… not bad for 3 years old gal’s ) tapi karena satu dan lain hal kuputuskan untuk menjualnya..
  
Tapi yang saya akan bahas disini bukan kenapa dijualnya , akan tetapi saya mau mengupas spesifikasi dan review dari notebook HP Compaq Presario V3000 series tsb sebagai kenang-kenangan saya atas notebook tsb serta sebagai bahan perbandingan bagi rekan rekan yang mau membeli notebook.
  Berikut spesifikasinya :

Spesifikasi HP Compaq Presario  V3000 Series :

Notebook yang saya beli adalah versi yang V3201,  perbedaan dari kedua series yg lainnya adalah ada pada Prosesor, Video Card, Hardisk dan terakhir Harga   tapi selebihnya semua sama !!

Pada awalnya, setelah berembug dengan istri  diniatkanlah akan membeli Notebok Lenovo Y400 disuatu pameran , namun setelah melihat bentuknya (bukan maksud memojokkan pak Le’ novo  loh..:D)  kemudian merasakan bahan materialnya pada bodynya..  membuat saya ragu dan akhirnya tidak jadi membelinya. Kemudian pilihan jatuh pada HP Compaq Presario V3000 series setelah melihat bentuknya yang menawan, bahan material notebooknya juga yang top banget ..sepertinya gak malu kalo dipake demo atau presentasi ) 

memang karena tidak sanggup utk membeli series yang tingginya,  ada beberapa yg mesti di korbankan antara lain preosesor, namun jika rekan2 memliki dana lebih tidak ada salahnya membeli yang series tingginya disamping prosesornya lebih tinggi (core 2 duo) anda juga akan mendapatkan graphic card yang lebih baik.

Hal yang memikat berikutnya adalah, Brightview TFT nya (kalo di Acer istilahnya crystalbrite) jadi tampilan lebih baik dan anti gores (ya ..tapi kalo ditusuk tusuk atau maksain digores gores bakal baret juga :P  )

selanjutnya yang menjadi andalan adalah Card Reader, hahahaha ya card reader .. gak usah pusing pusing lagi kalo mo mindahin foto dari camera digital tinggal selipin memory cardnya lalu tinggal pindahin

Bluetooth, walaupun belum punya handphone yang ada blutut-nya, fungsi ini sangat bagus jika suatu saat anda memiliki device yg ingin dihubungkan ke notebook.
berikutnya adalah S-Video Slot ,  jadi dengan menggunakan video connector cable, kita bisa menghubungkan notebook ke TV. Pernah suatu saat DVD dirumah lagi ngadat tapi sudah gak sabar pingin nonton Spiderman 3,  akhirnya teringat Notebook yang bisa dikonek ke TV, akhirnya tetap nonton pake TV namun playernya notebook.. hahaha, wuah.. gak sia sia punya notebook itu (hiks hiks, jadi sedih juga ingat ama laptop..)

Speaker dari Altec Lansing nya juga Lumayan enak didenger asal jangan keras keras aja deh 

Hal menarik lainnya, anda bisa meng “On” / “Off” kan Touch-pad nya langsung dari notebooknya (jadi ada semacam tombol on off nya gitu),  Tombol ini juga ada untuk meng On Off kan wireless dan bluetooth.
kemudian Port USB ada sampai 3 Port !!!

and tentunya DVD RW nya yang bisa baca tulis di format DVD  juga gak kalah penting,

oh ya jika anda penggemar berat prosesor AMD,  HP Compaq Presario V3000 juga memilik seri dengan prosesor tsb yaitu V3221  + Graphic Cardnya NVIDIA GeForce Go 6150 256 MB  , manteb khan..

Kemudian mengenai O/S , dari ketiga series yang saya sebutkan diatas tadi hanya seri v3201 saja yang tidak dilengkapi dengan O/S (namanya juga lagi gak punya dana… hehehehe), serie yang lainnya dibundel dengan Windows Vista.

Mungkin segitu saja, kalo ada yg kurang nanti akan saya lengkapi lagi,
Selamat jalan Notebookku, semoga kamu bisa bermanfaat buat majikkanmu (
 

Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

Disarikan dari

Visual Basic

From Wikipedia, the free encyclopedia

Liat judulnya jadi geli sendiri (hueheueheuheu) , posting kali ini saya buat atas permintaan rekan kerja saya, VB NET atau VB 2005 ya terserah lah drei yg pasti kita akan bahas teknologi kodingnya saja !, jadi intinya kita akan coba bahas cara koneksi dari VB.NET ke ACCESS (weks.. kok access sih ??, yah sekarang gilirannya mas access tampil, kesian khan dia juga database hehehehe !!, utk yg mau ke database ke sql server, my sql atao oracle ya sama saja.. tinggal contek posting saya yg dulu , semua-tentang-vb-connection-string dilanjutkan dengan bagaimana mengambil data mentah Excel untuk kita masukan ke database , lalu kita coba tampilkan list datanya di Flexgrid dan terakhir tampilkan reportnya di Crystal report. Selamat menunggu ! huehuehuehuehue

1. Siapkan database Sql Server : Buat  database dgn nama Sales
2. Buat Table “STAFF” dengan kriteria sbb :
   0 StaffID varchar 50  (Primary Key)
   0 StaffName varchar 50 
   0 Div varchar 10 
   0 [Position] int 
   0 Password varchar 50 
   0 Levelusr int 4 
3. Buat Folder di Web Root anda (misal : inetpub/wwwroot/sales)
4. Didalam folder sales , buat kembali folder dgn nama includes
5. didalam folder includes, buatlah satu file text berakhiran “inc” dengan  nama conn.inc
6. Berikut isi dari file conn.inc
<?php
 $conn = mssql_connect(“komnet”, “sa”, “marlboro”);
 if ($conn<=0){
  $info = “Cannot connect to database server”;
  echo $info;
  return;
 }
 
 if (!mssql_select_db(“sales”, $conn))
    {
  $info = “”;
  return;
 }
 else
    {
  $info = “”;
 }
?>

Ket : ganti nama servernya sesuai dengan nama server anda,
File ini digunakan untuk melakukan koneksi ke database

7. Masih dalam folder includes, buat file validsession.php Berikut isi dari file validsession.php

<?php
if (!isset($_SESSION['UserID']))
{
 $strUser=”";
}
else
{
 $strUser=$_SESSION['UserID'];
}
if ($strUser== “”)
{ print “<HTML><HEAD><TITLE> CMS Session Expired </TITLE>”;
 print “<SCRIPT LANGUAGE=\”JAVASCRIPT\”>\n” ;
 print “<!–\n” ;
 print “function onLoad1()\n”;
 print “{\n\t”;
 print  “alert(‘Your session is expired. Please logon again’)\n\t” ;
 
 print  “setTimeout(\”parent.location=’” . $strRootpath . “Logon.php’\”,1000)\n” ;
 print “}”;
 print “// –>\n” ;
 print “</SCRIPT>\n</HEAD><BODY onLoad=\”JavaScript:onLoad1();\”></BODY></HTML>”;
end;
}
?>

8 . didalam folder sales, buatkan file dgn nama index.php
dan copy  kan script dibawah lalu pastekan di dalam file index.php melalu aplikasi dreamweaver

<?php
session_start();
include(“Includes/conn.inc”);
 if (!isset($_REQUEST["txtUserID"]))
 {
  $strUserID=”";
 }
 else
 {
   $strUserID= $_REQUEST["txtUserID"];
 }
$strErrorMessages=”";

if ($strUserID != “”)
{
 $strPassword=$_REQUEST["txtPassword"];
 $strUserID= strtoupper($strUserID);
 $sql = “select * from Staff where StaffID=’$strUserID’”;
 $sql .= ” and Password=’$strPassword’”;
 $result=mssql_query($sql, $conn);
 if (!mssql_fetch_row($result))
 {
  $strErrorMessages=”Invalid user id/password combination”; 
 } 
 else
 {
  $strErrorMessages=”";
  $_SESSION['UserID']= $strUserID;
  $_SESSION['DivBran']=mssql_result($result, 0, “Div”);
  $posstaf =mssql_result($result, 0, “Levelusr”); 
  $_SESSION['Admin']=$posstaf;  
  header(“Location: main.php”);
  return;
 }
}
?>

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd“>
<html xmlns=”http://www.w3.org/1999/xhtml“>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-1″ />
<title>e-komfreight</title>
<style type=”text/css”>
<!–
.style5 {
 font-family: Arial, Helvetica, sans-serif;
 color: #00CC00;
 font-weight: bold;
}
body,td,th {
 color: #FF9900;
}
body {
 background-color: #FFFFFF;
}
.style6 {
 color: #006600;
 font-family: “Trebuchet MS”, Tahoma, “Estrangelo Edessa”;
 font-size: 14px;
}
.style20 {font-family: Arial, Helvetica, sans-serif; color: #006600; font-weight: bold; }
.style29 {font-family: Arial, Helvetica, sans-serif; font-size: 10; }
.style38 {font-family: Tahoma; font-size: 12; font-weight: bold; }
.style39 {color: #0000FF}
.style40 {color: #660000}
.style41 {
 font-size: 12px;
 color: #666666;
}
.style45 {font-size: 24px}
–>
</style>
</head>

<body>

<table width=”750″ border=”0″ align=”center” cellpadding=”0″ cellspacing=”0″>
  <tr>
    <td width=”213″ height=”73″><p align=”left” class=”style5″> </p>    </td>
    <td width=”352″ height=”73″> </td>
    <td width=”185″ height=”73″><table width=”185″ border=”0″ cellspacing=”1″ cellpadding=”1″>
      <tr>
        <td width=”165″> </td>
        <td width=”13″> </td>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
      </tr>
      <tr>
        <td colspan=”2″><div align=”center”>
          <?php
 print $strErrorMessages;
 ?>
        </div></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td colspan=”3″><hr /></td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″><div align=”right”></div></td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″ bgcolor=”#f7f7f7″><form method=POST id=frmLogon name=frmLogon>
      <table width=”389″ border=”0″ align=”center” cellpadding=”1″ cellspacing=”1″>
        <tr>
          <td colspan=”5″ valign=”top”><div align=”center”><span class=”style45″><br />
            Login System</span>
              <hr />
</div></td>
          </tr>
        <tr>
          <td width=”70″ valign=”top”> </td>
          <td width=”89″><div align=”center”></div></td>
          <td width=”42″> </td>
          <td width=”175″ colspan=”2″> </td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td class=”style6″><div align=”left” class=”style38″>
            <div align=”left” class=”style20″>User ID </div>
          </div></td>
          <td class=”style20″><div align=”center”>:</div></td>
          <td colspan=”2″><span class=”style29″>
            <label> <span class=”style39″>
            <input type=”text” id=”txtUserID” name=”txtUserID” class=”style39″ />
            </span></label>
          </span></td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td class=”style6″><div align=”left” class=”style38″>
            <div align=”left” class=”style20″>Password</div>
          </div></td>
          <td class=”style20″><div align=”center”>:</div></td>
          <td colspan=”2″><span class=”style29″>
            <label>
            <input type=”password” id=”txtPassword” name=”txtPassword” class=”style39″ />
            </label>
          </span></td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td class=”style6″><div align=”center”></div></td>
          <td class=”style20″> </td>
          <td colspan=”2″> </td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td><div align=”center”></div></td>
          <td> </td>
          <td colspan=”2″><label></label></td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td><div align=”center”></div></td>
          <td> </td>
          <td colspan=”2″><hr align=”left” width=”75%” /></td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td><div align=”center”></div></td>
          <td> </td>
          <td colspan=”2″ valign=”top”><label>
              <div align=”center”>
                <input class=”button” onMouseOver=”this.className=’buttonover’” onMouseOut=”this.className=’button’”  type=”button” value=”Login” id=”cmdLogin” name=”cmdLogin” onclick = “myLogin();” />
              </div>
            </label></td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td><div align=”center”></div></td>
          <td> </td>
          <td colspan=”2″> </td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td><div align=”center”></div></td>
          <td> </td>
          <td colspan=”2″><div align=”left”></div></td>
        </tr>
        <tr>
          <td valign=”top”> </td>
          <td><div align=”center”></div></td>
          <td> </td>
          <td colspan=”2″> </td>
        </tr>
      </table>
          </form>    </td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″> </td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″> </td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″><div align=”center”>Global Putera International Group </div></td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″><div align=”center”>IT – Departement </div></td>
  </tr>
  <tr>
    <td height=”13″ colspan=”3″><div align=”center”>March 2007 </div></td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
    <td> </td>
  </tr>
</table>
<SCRIPT LANGUAGE=javascript>
<!–
function myLogin() {
 var strUserID = document.frmLogon.txtUserID.value;
  if (!strUserID ) {
  document.frmLogon.txtUserID.focus();
     alert(“User ID cannot be Empty !!”);
     return;
     }
 var strPassword=document.frmLogon.txtPassword.value;
 if (!strPassword) {
  document.frmLogon.txtPassword.focus();
  alert(“Password cannot be Empty !!”);
  return;
  }
   document.frmLogon.submit();           
 }    
function myCancel() {
 document.frmLogon.txtUserID.value=”;
 document.frmLogon.txtPassword.value=”;
 }    

</SCRIPT>
</body>
</html>

9.  Buatkan file dengan nama main.php di folder sales
berikut isi dari file main.php

<?php
session_start();
include_once (“Includes/conn.inc”);
include_once (“Includes/validsession.php”);
?>
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd“>
<html xmlns=”http://www.w3.org/1999/xhtml“>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-1″ />
<title>Untitled Document</title>
</head>

<body>
<p>Sucess….</p>
<p> </p>
<p><a href=”logout.php” mce_href=”logout.php” ><span class=”style31″>Logout</span></a> </p>
</body>
</html>

10. Terakhir buatkan program logoutnya (logout.php)  difolder sales

berikut isi dari file logout.php
<?php 
session_start();

 $_SESSION["UserID"]=”";
 $_SESSION["UserName"]=”";
 $_SESSION["Admin"]=”";
// Destroy session data
 session_destroy();
 print “<HTML><HEAD><TITLE> CMS Logged out </TITLE>\n”;
 print “<SCRIPT LANGUAGE=\”JAVASCRIPT\”>\n”;
 print “<!–\n” ;
 print “function onLoad1()\n”; 
 print “{\t\n”;
 print  “setTimeout(\”parent.location=’index.php’\”,10)\n”;
 
 print “}\n”;
 print “// –>\n”;
 print “</SCRIPT>\n”;
 include (“Includes/Styles.php”);
 print “</HEAD>\n<BODY onLoad=\”JavaScript:onLoad1();\”>\n”;

?>

kalo kata lagunya Alm Bang Ben , “Eh ujan gerimis aje.. ikan teri di asinin, eh jangan menangis aje, yg pergi  jangan di pikirin ..”
trus hubungannya ama oracle apa yak!!  sumpah gak ada !!! huehuehuehue,
tapi setidaknya ditengah banjir2 gini.. nyari ilmu harus jalan terus ..
Pada posting ini saya coba tuliskan cara koneksi VB ke Oracle via ODBC dan Connection string .
Berikut Selengkapnya :

Coba buat form seperti berikut :

Kita akan mengisikan kode pada Tombol “Connect ODBC” dan “Connection String”
1. Tombol Connect ODBC
Private Sub cmdConnectODBC_Click()
    On Error GoTo erhan
        Dim Objcnn As New ADODB.Connection
        Dim SQLString As String
        SQLString = “DSN=RyanOra;UID=ryan;PWD=Killme;”
        Objcnn.Open SQLString
        Objcnn.CommandTimeout = 0
        MsgBox “Sucess”
    Exit Sub
erhan:
    MsgBox Err.Description
End Sub

Kode diatas dapat dijalankan,d engan Asumsi, Kita sudah membuat ODBC data sourcenya dengan Nama : RyanORa

2. Tombol Connection String

Private Sub CmdConStr_Click()
On Error GoTo erhan
        Dim Objcnn As New ADODB.Connection
        Dim SQLString As String
        SQLString = “Provider=OraOLEDB.Oracle.1;Password=itonly;Persist Security Info=True;User ID=ryan;Data Source=ORARYAN”

        Objcnn.Open SQLString
        Objcnn.CommandTimeout = 0
    MsgBox “Sucess”
Exit Sub
erhan:
MsgBox Err.Description
End Sub

Kode diatas menerangkan, cara koneksi untuk ke database oracle :RYANORA

Pas hari pertama ramadhan , pengasuh anak2 ku sudah pada pulang kampung duluan alias mudik. jadi puntang panting deh cari pengasuh part timer .. hueheuhuehue.. alhamdulillah dapet juga, yah paling tidak kalo siang ada yg jagain, karena perjanjiannya dengan pengasuh cuman sampe jam 5 sore dari jam 6 pagi … jadinya pulang kantor tenggo mulu..

  Maksud hati pengen tarawihan tapi kesian anak2 gak ada yg jagain, jadinya tarawihannya diundur sampe anak2 tidur.

  Disela2 mengasuh luthfan dan sarah sehabis buka , iseng2 saya coba menginstall2 OS Linux mulai dari fedora, xandros sampe mandriva. tapi cuman mandriva2 yg smooth dinstall di laptop axioo ku (baca Laptop temen…huehuehuehue).

sebagai infromasi, saat ini mandriva telah mengeluarkan versi paling anyarnya yaitu- Mandriva  2007, ceritanya saya liat artikelnya di gudanglinux.net dan sepertinya menarik untuk dicoba. Setelah beli cd-nya di ITC kuningan (sayang nya baru ada LiveCD nya aja…) malemnya langsung diinstall. dan hasilnya : wow.. cool abis , bener2 jadi penasaran pengen coba versi power packnya. 
Setelah mandrivanya Up (mandriva 2006), saya terusin install aplikasi gambas
  Berikut Langkah menginstall Gambas :

[linux@home ~]$ wget http://gambas.sourceforge.net/gambas-1.0.4.tar.bz2
  Then, you must unpack the downloaded archive in a well chosen place. For example, in your home directory.

[linux@home ~] cd ~

[linux@home ~]$ bunzip2 gambas-1.0.4.tar.bz2

[linux@home ~]$ tar xf gambas-1.0.4.tar

[linux@home ~]$ ls
  … gambas-1.0.4 …
  A gambas directory has been created with the contents of the archive. Enter it !

[linux@home ~]$ cd gambas-1.0.4
  Then you can launch the compilation of the sources with the two following magic commands : configure and make.

The first command is configure. This command is used to analyze your system in order to adapt the compilation process. It is a script located in the source directory, so you could be obliged to add “./” before the command name to launch it.

[linux@home gambas-1.0.4]$ ./configure
  …
  Note: if you want to compile a development version, type:

[linux@home gambas-1.9.4]$ ./configure -CMany messages scroll before you get the prompt. If something wrong happens, you get an error message, and must go to the troubleshooting page to identify your configuration problem, before continuing.

If you have problems, you can disable component compilation by passing the following options to configure :

a.. –disable-kde-component to disable the compilation of the KDE component.
  b.. –disable-db-component to disable the compilation of the database component.
  c.. And so on… Type ./configure –help to get the complete list of options.
  For example :

[linux@home gambas-1.0.4]$ ./configure –disable-db-component
  Note that if you forgot to install a development package, the components that need it will be automatically disabled. You will see a warning message in the output of the configure command.

When configure ends without any error, you can launch the compilation with make.

[linux@home gambas-1.0.4]$ make
  …
  If something wrong happens during the compilation, you get an error message. It may be a configuration problem that the configure script should have detected, or an incompatibility with your system and/or compiler. I suggest to you to go to the mailing-list to carefully expose your problem with every detail.

Once compilation is terminated without problems, you can install Gambas. To do that, you must be root. So we are going to use the su command :

[linux@home gambas-1.0.4]$ su -c “make install” Password:
  …
  Type the root password, and the installation proceeds. Everything is installed under /opt/gambas by default. If you want to specify another installation directory, you must use the –prefix configure option. Read the INSTALL file in the source directory for more details.

For example, to install Gambas under /usr, just type the following:

[linux@home gambas-1.0.4]$ ./configure –prefix=/usr
  Note that symbolic links are created in the /usr/bin folder so that Gambas programs are always in your path, and can be easily located by the development environment.

Of course, if you install Gambas directly in /usr, these symbolic links are not created.

Once everything is done, you can launch the development environment.

[linux@home gambas-1.0.4]$ gambas
  You are entering the warp zone…

Selanjutnya, data akan kita tampilkan pada VSFlexgrid dan terakhir Crystal report (Mudah2n dengan posting ini, hutang saya sudah ter tebus …. hueuehueue.. 200x)
seblumnya, saya ucapkan mohon maaf  jika banyak email dan comment yg belum terbalas, juga terimakasih atas segala dukungannya demi memajukan para coder indonesia..
Insya Allah….

I. Buat tampilan seperti dibawah ini ,
   

   dgn komposisi sebagai berikut :
   1. satu buah combo box dengan nama CboFields
   2. satu buah vsFlexgrid dengan nama VSFlexGrid1
   3. dua buah command button dengan nama :
       cmdprocess dan cmdprint

II.  Berikut syntax2-nya :

1. Form load :Private Sub Form_Load()
    Me.Left = 0
    Me.Top = 0
    Me.VSFlexGrid1.Rows = 1
    Call SQLConnection
    Me.CboFields.Clear
   
    ‘syntax dibawah ini digunakan untuk mengisi combo box dengan
    ’nama2 filed dari table marketdetail  

2. tombol Process (CmdProcess)

Private Sub CmdProcess_Click()
On Error GoTo erhan
Call SQLConnection
Dim i As Integer
Dim y As Integer
Dim cnt1 As Integer
i = 0
y = 0
If Len(Trim(Me.CboFields.Text)) = 0 Then
    MsgBox “Please select Order By Selection !”, vbOKOnly + vbInformation
    Exit Sub
End If
    With objcmd
        .ActiveConnection = objCnn
        .CommandText = “Select  * From marketdetail order by ” + Me.CboFields.Text + ” asc”
        .CommandType = adCmdText
    End With
    Set objRst = objcmd.Execute
    If objRst.EOF = False Then
  cnt1 = objRst.RecordCount
  For i = 0 To objRst.Fields.Count – 1
        Me.VSFlexGrid1.Rows = 1
        Me.VSFlexGrid1.Cols = 11
        Me.VSFlexGrid1.Row = 0
        Me.VSFlexGrid1.Col = i + 1
        Me.VSFlexGrid1.Text = objRst.Fields(i).Name
        Me.VSFlexGrid1.CellFontBold = True
   Next
    i = 0
    y = 1
    Do While objRst.EOF = False
        Me.VSFlexGrid1.Rows = Me.VSFlexGrid1.Rows + 1
        For i = 0 To objRst.Fields.Count – 1
            Me.VSFlexGrid1.TextMatrix(y, i + 1) = Trim(objRst.Fields(i))
            DoEvents
        Next i
        y = y + 1
        DoEvents
        objRst.MoveNext
        DoEvents
    Loop
Else
    Exit Sub
End If
Call SQLDisconnection
  
   
    DoEvents
    Me.VSFlexGrid1.AllowUserResizing = flexResizeBoth
    i = 0
    For i = 1 To 10
        Me.VSFlexGrid1.MergeCol(i) = True
    Next i
SortAndShow
      
VSFlexGrid1.MergeCells = 1
VSFlexGrid1.MergeCells = 2
‘
VSFlexGrid1.Subtotal flexSTSum, -1, 3, m_Fmt, , RGB(255, 0, 0), True
VSFlexGrid1.Subtotal flexSTSum, -1, 7, m_Fmt, , RGB(255, 0, 0), True

VSFlexGrid1.Subtotal flexSTSum, 1, 3, m_Fmt, , RGB(0, 0, 255), True
VSFlexGrid1.Subtotal flexSTSum, 1, 7, m_Fmt, , RGB(255, 0, 0), True
Exit Sub
erhan:
MsgBox Err.Description
Call SQLDisconnection
End Sub
”—– additional procedure

Sub SortAndShow()
    Dim r%, c%
    On Error GoTo erhan
    VSFlexGrid1.Redraw = False

    r = VSFlexGrid1.Row
    c = VSFlexGrid1.Col

    VSFlexGrid1.Col = 0
    VSFlexGrid1.ColSel = VSFlexGrid1.Cols – 1
    VSFlexGrid1.Row = r
    VSFlexGrid1.Col = c
    VSFlexGrid1.Redraw = True
    Exit Sub
erhan:
    MsgBox Err.Description
    Resume Next
End Sub

3. tombol Print (cmdprint)
 
   untuk tombol print ini pastikan reportnya sudah dibuat terlebih dahulu, dengan nama file reportnya adalah “mymarket.rpt”
 

Private Sub CmdPrint_Click()
On Error GoTo erhan
    LocText$ = LCase(App.path)
    If Right$(App.path, 1) <> “\” Then LocText$ = LocText$ + “\”
    CrystalReport1.Connect = strconnect
    CrystalReport1.ReportFileName = LocText$ + “mymarket.rpt”

On Error GoTo erhan
        CrystalReport1.Action = 0
    Exit Sub
erhan:
    MsgBox Err.Description
End Sub

jadi hasil akhirnya harusnya seperti ini :

dan seperti ini