MySQL DATE_FORMAT() Function

 MySQL Date Functions

Definition and Usage

Syntax

Example

Variable dan Penamaannya di MySQL

• kita mengambil suatu kode transaksi yang kita anggap tidak valid.
• dari kode transaksi yang sudah kita ketahui tersebut kita masukkan data ke suatu audit table.
• kemudian kita hapus data transaksi dari header maupun detilnya, atau ..
• kita rubah saja data transaksi tersebut dengan status "tidak valid"

Bagaimana kita melakukan hal tersebut ? Jika Anda terbayang menggunakan subquery untuk melakukan hal tersebut tentunya akan sangat memberatkan server MySQL sendiri karena perlu banyak cache.

Solusinya adalah dengan menggunakan variable yang berfungsi sebagai "pengingat" nilai tersebut dan dapat direferensikan dengan suatu nama di statement-statement berikutnya yang independen. Tetapi ini tentunya hanya dalam satu sesi koneksi yang sama.

Penamaan variable pada sql memiliki prefix @, artinya setiap nama variable diawali dengan simbol @ diikuti nama variable. Sebagai contoh :  @var1, @kode_transaksi, @nilai_awal, dan lain-lain.

Inisialisasi Variable

Inisialisasi variable pada MySQL dapat dilakukan dengan penggunaan perintah SET dan dalam konstruksi perintah lainnya seperti SELECT, syntax dan perbedaannya adalah sebagai berikut :

• SET digunakan untuk inisialisasi variable dengan satu nilai pada suatu waktu dengan penggunaan operator assignment " = " atau " := ".
  
  Syntax :
  
  
     SET @namavar1 = nilai [, @namavar2 = nilai2 [, @namavar = nilai3] ]  ;
atau

   SET @namavar1 := nilai [, @namavar2 = nilai2 [, @namavar := nilai3] ]  ;
  
  Contoh :
• SET @kolom_pertama = 'kode_produk';
• SET @nilai1 = 10, @nilai2 = 20, @kolom = "nilai_penjualan";
• dan seterusnya
  
• SELECT digunakan untuk inisialisasi variable dengan operator assignment " := " dan mengisi variable dengan nilai lain sesuai iterasi hasil row dari eksekusi query. Operator " = " pada statement ini dianggap sebagai operator pembanding nilai (value omparison).
  
  
  Syntax :
  
     SELECT @namavar1 := nilai [, @namavar2 := nilai2 [, @namavar := nilai3] ]  ;
  
  Contoh :
• SELECT @nilai1 := 10, @nilai2 := 20, @kolom := "nilai_penjualan";
• SELECT @nilai1 from (SELECT @nilai1 := 20) T;
• dan seterusnya

Urutan Pemberian Nilai Variable pada SELECT

Jika Anda sudah jelas dengan pemberian nilai variable, mari kita lihat proses urutan proses pemberian nilai ini pada SELECT statement :

• Jika terdapat daftar variable dengan pemisah koma. Maka operasi variable di depan akan didahulukan dan memberi efek kepada variable di belakangnya.
  
  Contoh :
• SET @nilai := 10; SELECT @nilai, @nilai := 20; -- Hasilnya 10, 20
• SET @nilai := 10; SELECT @nilai := 10, @nilai; -- Hasilnya 10, 10
  
• Jika operasi variable terdapat subquery maka operasi tersebut akan terjadi terlebih dahulu dibandingkan query yang memanggil subquery tersebut.
  
  Contoh :
• SET @nilai := 20; SELECT @nilai from (select @nilai := 10) as T; -- Hasilnya 10

SELECT t.*
from t_nt t
where tgl_akta BETWEEN (SELECT date_format(date_sub(curdate(), interval 0 month), '%Y-%m-01') AS a)and
( select date_sub(date_format(curdate(), '%Y-%m-'+LAST_DAY(CURRENT_DATE)), interval 0
day) AS b)

TfrxMemoView(frxReport1.FindObject('Memo22')).Memo.Text:='adslbfadsdfgsd;gsd';

Langkah-langkah pembuatan laporan dengan menggunakan Rave adalah :
1. Menambahkan form baru pada projek yang telah dibuat sebelumnya.
2. Tambahkan komponen :
1 buah Ado connection, 2 buah ADoQuery dan Dataset
dan tambahkan juga 2 buah button, Button1 untuk cetak dan Button2 untuk CancelUntuk membuat laporan kita menggunakan dua komponen pallete RAVE yaitu : 1 buah RVProject dan 2 buah RVDataSetConnectionD
3. Mengkoneksikan Database dengan Adoconnection :

tabel_1
+----------+-------+------------+
| id_nreal | no_nt      | tgl_nt          |
+----------+-------+------------+
| 3              | 01a     | 2013-01-01 |
+----------+-------+------------+
procedure tform1.buttom1click(Sender: TObject);
var v,code : integer;
begin
   val(tabel_1no_nt,v,code);//format val(s:string;var V;var code:integer)
edit1.text := inttostr(v);

output edit1 = 1;
   

pada field memo tekan event  OnGetText :

procedure TForm1.Table1SomeFieldGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

Text := Copy(Sender.AsString, 1, 50);

end;

1. Pastikan Anda Sudah Bisa Menampilkan data kedalam DBGrid

2. Tambahkan Sebuah Component Combobox kedalam Projek Anda.

3. Hidden Combobox.a dengan mengetikkan Coding ini dalam event FromCreate :
Combobox1.Visible:=False;

4. Masukan Coding ini didalam event DrawColoumCell milik DBGrid
DBGrid1.Columns[1].PickList:=ComboBox1.Items;

program tanggal_dan_waktu;
uses crt,sysutils;
begin
  clrscr;
  writeln('tanggal hari ini : ',datetostr(now));
  writeln('jam saat ini : ',timetostr(now));
  readln;
end.

program soundtest;
uses mmsystem;
begin
   PlaySound('Windows Logon Sound.wav',0,SND_ASYNC);
   readln;
end.