Images Sintax SQLite copy table dan data dari database, dan copy table antar database

SQLite 
1. copy table dan isi data

CREATE TABLE peg2_rekap_nilai AS SELECT * FROM peg_rekap_nilai

jika hanya struktur table

CREATE TABLE peg2_rekap_nilai AS SELECT * FROM peg_rekap_nilai where 0

2. copy table antar database

 panggil dahulu lokasi databasenya fungsi ini akan menyimpan sementara didatabase

attach "d:\database.db" as source

 kemudian baru bisa dicopy table dan datanya

insert into main.peg_rekap_nilai2 select * from source.peg_rekap_nilai

jika ingin struktur database nya tinggal tambah where 0 

Images Post gambar ke field blob database mengunakan Delphi & Php

akhirnya selama dua minggu surfing di google akhirnya ada titik terang tentang sedikit permasalahan coding yang saya alami, dimana beberapa kasus untuk menyimpan gambar di database hosting via jalur internet lumayan sulit, beberapa teknik sudah saya terapkan, menggunakan convert stream ke binary, convert ke base64 dll sudah saya terapkan dan itu sangat sulit.

dan taadaa akhirnya saya menemukan teknik ini, cekkk itt dottt broww..

disini kita akan membuat aplikasi dekstop menggunakan delphi, yang akan menyimpan gambar di field blob database di hosting. untuk itu kita memerlukan sebuah service untuk menerima data, jadi kita gunakan php, selengkapnya ikuti tahapan berikut.

1. siapkan table databasenya dulu.

CREATE TABLE IF NOT EXISTS `file_attachment` (

`id` bigint(20) NOT NULL,

  `file_content` mediumblob NOT NULL,

  `file_name` varchar(255) NOT NULL,

  `file_type` varchar(255) NOT NULL,

  `file_size` bigint(20) NOT NULL DEFAULT '0'

) ENGINE=MyISAM AUTO_INCREMENT=5 DEFAULT CHARSET=utf8;

2. buat service php untuk menerima post dari aplikasi dekstop. simpan dgn nama insert_blob.php

<?php

// CONECT DATABASE

@mysql_connect("localhost", "root", "") OR die ("NOT CONNECT DATABASE");

@mysql_select_db("gambar") OR die ("CONNECTED, BUT NO DATABASE");

    $file_name = $_FILES['file']['name'];

    $tmp_name  = $_FILES['file']['tmp_name'];

    $file_size = $_FILES['file']['size'];

    $file_type = $_FILES['file']['type'];

    $fp = fopen($tmp_name, 'r');

    $file_content = fread($fp, $file_size) or die("Error: cannot read file");

    $file_content = mysql_real_escape_string($file_content) or die("Error: cannot read file");

    fclose($fp);

    // INSERT

    $qu = "INSERT INTO `file_attachment`

                (`file_content`,`file_name`,`file_type`,`file_size`)

                VALUES

                ('".$file_content."','".$file_name."','".$file_type."','".$file_size."')";

$re = mysql_query($qu) or die ("Sorry Cant insert db!");

echo $file_name." inserted succesfully to database";

?>

3. ini coding php untuk menampil dan mengambil gambar dari database, simpan dgn nama view_blob.php cara menggunakan nya jadi jika ingin melihat gambar di id 1 maka http://localhost/project/view_blob.php?id=1

<?php

// CONECT DATABASE

@mysql_connect("localhost", "root", "") OR die ("NOT CONNECT DATABASE");

@mysql_select_db("gambar") OR die ("CONNECTED, BUT NO DATABASE");

function jin_gfile($txt) {

$txt = preg_replace("/[^a-zA-Z0-9s.]/", "_", trim($txt));

return $txt;

}

$id = $_REQUEST['id'];

$query = "SELECT * FROM `file_attachment` WHERE `id`='".$id."' LIMIT 1";

$qu = mysql_query($query);

$num = mysql_numrows($qu);

if($num > 0) {

$result=mysql_fetch_object($qu);

header("Content-Disposition: attachment; filename=".jin_gfile($result->file_name.""));

header("Content-length: ".$result->file_size."");

header("Content-type: ".$result->file_type."");

echo $result->file_content;

} else {

echo "File tidak valid!";

}

?>

4. coding php untuk menampilkan gambar. ini khusus untuk aplikasi di php

<?php  

echo '<img src="http://localhost/gambar/view_blob.php?id='. $_GET['gambar'] .'" alt="Gambar Alumni 1996">';

?>

5. selanjutnya coding untuk di delphi, untuk menyimpan gambar jgn lupa tambahkan uses IdMultipartFormData

procedure TForm1.Button1Click(Sender: TObject);

var

  PostData: TIdMultipartFormDataStream;

  id : TidHttp;

begin

  PostData := TIdMultipartFormDataStream.Create;

  id := TIdHttp.Create();

    try

      PostData.AddFile('file', 'D:\pictures\images.jpg');

      id.Post('http://localhost/gambar/insert_blob.php', PostData);

      showmessage('Berhasil terupload');

    finally

      PostData.Free;

      id.Free;

    end;

end;

6. untuk mengambil gambar di delphi

procedure TForm1.Button2Click(Sender: TObject);

var

id : TidHttp;

gambar : TMemoryStream;

begin

       id := TIdHttp.Create();

       gambar := TMemoryStream.Create;

       try

          Id.Get('http://localhost/gambar/view_blob.php?id=2',gambar);

          gambar.Position := 0;

          Image1.Bitmap.LoadFromStream(gambar);

       finally

          id.Free;

          gambar.Free;

       end;

end;

7. bonus jadi jika ingin post gambar berserta field yang lain misalnya nama, keterangan dll, jangan lupa untuk menyesuaikan struktur databasenya.

procedure TForm1.Button1Click(Sender: TObject);

var

  PostData: TIdMultipartFormDataStream;

  id : TidHttp;

begin

  PostData := TIdMultipartFormDataStream.Create;

  id := TIdHttp.Create();

    try

      PostData.AddFile('file', 'D:\pictures\images.jpg');

               PostData.AddFormField('nama', nama.text);

               PostData.AddFormField('keterangan', keterangan.text);

      id.Post('http://localhost/gambar/insert_blob.php', PostData);

      showmessage('Berhasil terupload');

    finally

      PostData.Free;

      id.Free;

    end;

end;

Sekian penjelasan singkat tutorial Post gambar ke field blob database di hosting internet menggunakan Delphi dan PHP.

Images Install Komponen AlphaSkin di Delphi 7

Kali ini saya ingin berbagi bagaimana cara menambahkan komponen alpha skin di delphi 7.

1. Copy Folder Komponen Alpha Skin di direktori Programfile/Borland/Delphi7/Source/"FolderAlphaskin"

2. Tambahkan Lokasi komponen alphaskin library pada delphi 7, ikuti petunjuk seperti digambar

masuk pada menu tool > library > klik tombol yg dilingkari merah.

kemudian ikuti langkah seperti digambar kemudian ok.

3. Open file acntD7_R yg berada di file direktory dicopykan pada langkah pertama, kemudian compile
4. Open file acntD7 klik compile kemudian install.

terakhir cek apakah komponen sudah terdapat di aplikasi Delphi 7

selesai.

akhir kata, maaf jika penjalasan ini sangat singkat, se singkat, singkatnya....
karna memang tutorial ini saya tujukan untuk penulis sendiri, karna sering sekali saya berganti2 alpha skin dengan versi yang berbeda.

Images Menambah Space Partisi C menggunakan MiniTool Partition Wizard

kali ini saya akan berbagi bagaimana menambah space atau ruang pada partisi tertentu, beberapa kasus seperti saya membutuhkan ruang lebih di salah satu partisi contohnya di partisi C yang dimana digunakan untuk menambah ruang untuk menambah aplikasi.

bagi saya partisi C butuh ruang yg lebih besar dan sebagian programmer dekstop. ya tanpa basa basi lagi.. cekidott..

kita menggunakan aplikasi MiniTool Partition Wizard 

untuk download aplikasinya disini secara gratis

untuk penggunaanya masuk ke Launch Application

pilih partisi yang akan ditambahkan ruang, kemudian klik extend partition

tarik scroll ke kiri untuk menambah space, perhatikan jumlah space yang bertambah dan berkurang ditiap partisi. jika dirasa sudah cukup klik ok. kemudian klik apply yang ada di menu utama.

sekian dan selamat mencoba.. :) :P

Images Cara mengambil gambar di web menggunakan delphi

tanpa basa basi berikut coding sederhana nya

       id := TIdHttp.Create();

       gambar := TMemoryStream.Create;

       Id.Get('http://localhost/test/gambar.jpg',gambar);

       gambar.Position := 0;

       Image1.Bitmap.LoadFromStream(gambar);

agar tidak terjadi error dalam aplikasi sebaiknya menggunakan struktur penulisan yg benar dalam menjalankan code. sekian penjelasan yg super singkat dari saya, salam.

Images Aplikasi Raport K13 Profesional

Assalamu'alaikum warahmatullahi wabarakatuh... kali ini saya ingin memperkenalkan salah satu aplikasi khusus guru yg menggunakan kurikulum 2013, fitur aplikasi sudah sangat lengkap mulai dari data peserta didik, ki dan kd, pemetaan kd, kunci kd, kkm penilaian pengetahuan dan keterampilan serta penilaian sikap spiritual dan sisosial hasil penilaian sudah berupa raport, rekap nilai, daftar nilai, dan jurnal sikap, hasil laporan juga bisa di eksport ke format excel, word, pdf, dan jpg. Serta ada fitur analys fitur ini menginformasikan sejauh mana proses input jika status 100% berarti data penginputan sudah selesai. Aplikasinya di jamin sesuai dengan penilaian k13 revisi 2016 dan 2017 terbaru.

berikut beberapa fitur dari aplikasi kurikulum 2013 Profesional.
1. Menu Home dan Dasboard

Pada Menu Home dapat menginformasikan sejauh mana pengolahan penilaian pada peserta didik, misalnya berapa jumlah peserta didik, jumlah kd yang di gunakan, berapa persentase pengolahan penilaian, kkm satuan pendidik yang digunakan, jumlah tema yang di gunakan.

2. Menu Sekolah, MKT, dan EKP

Menu Sekolah

MKT adalah Mata Pelajaran, KKM dan Tema.

Pada Menu MKT ada mata pelajaran yang digunakan, kkm permata pelajaran, kkm satuan pendidikan, tema dan judul tema, serta predikat dari perhitungan kkm satuan pendidikan.

EKP
EKP adalah menu pengaturan untuk data ekrakurikuler, Kesehatan dan Prestasi peserta didik

3. Kompetensi indikator
Pada bagian ini sudah terbagi 4 KI, pengetahuan, keterampilan, sikap spiritual dan sosial.
Untuk menambah kd pada ki 3 dan 4 gunakan menu dengan cara klik kanan pada tabel mata pelajaran yg akan ditambahkan, begitu juga dengan edit dan hapus.
Ada fungsi khusus, cara agar pemetaan kd bisa terisi otomatis yaitu dengan menggunakan tombol load yg ada di sebelah kanan, system akan mengisi otomatis kd berdasarkan kd permendikbud no 24 tahun 2016.

4. Peserta didik
Pada menu ini adalah daftar peserta didik yg akan di nilai, cara menambah, edit dan hapus ada dipojok kiri atas tabel peserta didik, atau bisa juga double klik jika ingin melakukan pengolahan data jika peserta didik sudah terinput.

5. Identita peserta didik
Pada menu form ini menginformasikan semua data dari salah satu peserta didik, mengenai data diri, penilaian, dan perkembangan peserta didik. Untuk pindah2 peserta didik bisa gunakan tombol next atau perv tanpa harus kembali ke tabel peserta didik

6. Penilaian pengetahuan dan keterampilan
Berikut contoh form pengolahan penilaian pengetahuan dan keterampilan, jika ingin menginput nilai persub tema klik kanan pada nama mata pelajaran lalu pilih input sub tema

7. Penilaian pengetahuan dan keterampilan
Berikut contoh form pengolahan penilaian sikap spiritual dan sosial, klik kanan pada tabel penilaian sikap.

Berikut beberapa perview cetak raport, pemetaan, dan rekap nilai.

Tanpa panjang lebar aplikasi k13 profesional bisa di download di http://sourceforge.net/projects/k13pro

Atau si situs resminya di http://www.rasoftware.net

Terakhir aplikasi trialnya hanya sampai batas uji coba, jika tertarik jgn lupa di beli ya. Untuk pertanyaan bisa email ke admin@rasoftware.net

Images Membuat registry icon dan ekstensi file sendiri Menggunakan delphi

asslmualaikum...

kali ini saya akan berbagi pengalaman dan solusi bagi teman2 programmer tentang bagaimana sih cara membuat icon pada file ekstensi buatan sendiri.
mungkin masih bingung ya dengan apa yang saya maksud, gini loh, misalkan ada file .doc atau .docx nah file itu kan milik dari microsoft untuk aplikasi office word.

ketika microsoft office tidak terinstall di Sistem Operasi kita, pasti file2 berekstensi .doc dan .docx file icon nya pasti ngk seperti di gambar di atas, baru ketika setelah install aplikasi microsoft office baru file2nya tampak seperti di atas.

nah kasus kita kali ini adalah kita akan membuat file ekstensi sendiri yang berakhiran di belakang dot(.) milik atau buatan kita sendiri, dan membuatnya tampak menarik dan profesional.

yang kita butuhkan adalah siapkan file icon yg nantinya akan jadi icon dari ekstensi milik aplikasi buatan kita kemudian mendaftarkan icon tersebut ke registry OS windows.

berikut standarnya kunci registrynya untuk mendaftarkan ekstensi dan icon aplikasi kita :

HKEY_CURRENT_USER\Software\Classes\.myfile
HKEY_CURRENT_USER\Software\Classes\MyAppDataFile
HKEY_CURRENT_USER\Software\Classes\MyAppDataFile\DefaultIcon
HKEY_CURRENT_USER\Software\Classes\MyAppDataFile\Shell\open\command

keterangan:
.myfile adalah nama ekstensi file yg kita buat misalnya microsot punya .doc
MyAppDataFile adalah nama registry yg kita daftarkan untuk aplikasi kita.
DefaultIcon adalah icon standar yg kita daftarkan untuk jadi icon ekstensi aplikasi kita
Shell open command ini adalah perintah untuk menjalankan aplikasi kita (untuk yg ini kita bahas diselanjutnya ).

bonus, ini contoh coding untuk delphi yg juga saya gunakan.

with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Classes\.myfile', true) then
      WriteString('', 'MyAppDataFile');
    if OpenKey('\Software\Classes\MyAppDataFile', true) then
      WriteString('', 'My Very Own Text File Type');
    if OpenKey('\Software\Classes\MyAppDataFile\DefaultIcon', true) then
      WriteString('', 'C:\WINDOWS\snotepad.exe');
    if OpenKey('\Software\Classes\MyAppDataFile\shell\open\command', true) then
      WriteString('', 'C:\WINDOWS\snotepad.exe "%1"');
  finally
    Free;
  end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);