Display informasi sekolah

Penting tidak penting display informasi itu harus di buat. Memberikan informasi searah yang memberikan banyak manfaat bagi murid sekaligus guru sendiri.

Berikut video display informasi sekolah dimana ditampilkan jadwal mengajar guru dan informasi lainya.

Advertisements

Aplikasi pembuatan surat jalan usaha air

Saya hadir lagi dengan aplikasi surat jalan, yang sebelumnya sudah banyak saya posting. Ternyata diluar sana banyak yg menginginkan pembuatan aplikasi cetak surat jalan.

Berikut aplikasi terbaru dari cetak surat jalan, dimana sudah di lengkapi dengan laporan perperiode dan backup data.

System Informasi Sekolah

Ikut membantu dan saling bekerjasama, niat sedekah/wakaf tapi dapet aplikasi gratis..

Buat saudara yang memiliki yayasan sekolah atau bekerja disana, ada tawaran dari kami wakaf uang tunai dapet Aplikasi Informasi Sekolah Gratis. Jumlah wakaf seihklasnya, dan tambahan uang transport aja untuk instalasi, training dan jika ada trouble.

 

Aplikasi Inventory

Disela istirahat saya coba posting aplikasi Inventory. Sudah banyak aplikasi sejenis di ciptakan. Namun tiap developper aplikasi mempunyai kelebihan masing masing.

Monggo yang mau coba.

Tampilan login

Tampilan menu utama

Tampilan master satuan

Tampilan Input master barang

Tampilan pengelolaan barang berdasar pemasok

Tampilan Input Pengeluaran Barang

Tampilan Cetak stock barang

Tampilan Limit Stock

Tampilan menu untuk mengunci transaksi

Tampilan Laporan Barang

Tampilan Laporan Stock Detail

Tampilan Laporan Stock summary

adf.ly adalah

Kita sering download file program, freeware, lagu dan muncul web adfly .

Terlihat bagi yang belum terbiasa merasa kesulitan, karena kita ditampilkan dengan iklan yang muncul. Tapi bagi yang sudah terbiasa itu tidak masalah.

Terus apa sih adfly itu, dia adalah jasa periklanan. Setiap pemilik usaha yang menginginkan diiklankan usahanya, adfly adalah tempatnya. Adfly akan menampilkan usaha setiap link yang digunakan di click.

Bagi pemilik web atau blog akan mendapat komisi dolar dari setiap click link yang mereka pasang.

Bagi teman-teman yang berkunjung di blog saya, mulai saat ini saya gabung dengan adfly. Semoga tidak menggangu. Ini bentuk usaha saya untuk mendapat uang dari internet. Dan bagi teman-teman ingin gabung silahkan ikut mendaftar disini adfly.

Membuat Backup dan Restore Mysql dengan Lazarus

Pagi – pagi buat catatan di blog ” Membuat Backup dan Restore database Mysql di lazarus “ Cara ini berlaku juga di delphi. LAngsung saja Buatlah 2 button, Button Backup dan Restore. Pada proses ini kita menggunakan mysqldump yang sudah disediakan oleh mysql. Lokasi mysqldump tergantung dari instalasi mysqlnya. Jika menggunakan Xampp, cari lokasi terlebihdahulu.

Pada Button Backup isi event click berikut ;

procedure TMain.BackupClick(Sender: TObject);
const
READ_BYTES = 2048;

var
command: TProcess;
s: string;
output: TStringList;
BytesRead, n: LongInt;
m: TMemoryStream;

begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
SaveDialog1.Free;
SaveDialog1 := TSaveDialog.Create(Self);
SaveDialog1.InitialDir:= GetUserDir + ‘My Documents\’;
SaveDialog1.Filter:=’Backup Files|*.bfl’;
if SaveDialog1.Execute then begin
s := SaveDialog1.FileName;
if not (copy(s,Length(s)-3,Length(s)-1) = ‘.bfl’) then
s := s + ‘.bfl’;
command := TProcess.Create(Nil);
output := TStringList.Create;
M := TMemoryStream.Create;
BytesRead := 0;
command.CommandLine := ‘c:\mysqldump -u root -p’+ZConnection1.Password+’ -h ‘+ZConnection1.HostName+’ database’;
command.Options := command.Options + [poUsePipes];
command.Execute;
while command.Running do begin
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n)
else
// whitout data, wait 100 ms
Sleep(100);
end;
// we read the last part
repeat
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n);
until n <= 0;
M.SetSize(BytesRead);
output.LoadFromStream(M);
output.SaveToFile(s);
output.Free;
command.Free;
M.Free;
ShowMessage(‘Backup ready.’)
end else
ShowMessage(‘Backup canceled.’);
end;

 

Dan untuk button Restore isi dengan prosedure berikut

procedure TFMain.restoreClick(Sender: TObject);
var
s: string;
tfFile: TextFile;
begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
OpenDialog1.Free;
OpenDialog1 := tOpenDialog.Create(Self);
OpenDialog1.InitialDir:=GetUserDir+’My Documents\’;
OpenDialog1.Filter:=’Backup Files|*.bfl’;
if OpenDialog1.Execute then begin
AssignFile(tfFile, OpenDialog1.FileName);
if not FileExists(OpenDialog1.FileName) then
exit;
reset(tfFile);
ZQuery1.SQL.Clear;
readln(tfFile,s);
While not eof(tfFile) do begin
Readln(tfFile,s);
if length(s) > 0 then begin
s := StringReplace(s, #10, ”, [rfReplaceAll]);
s := StringReplace(s, #13, ”, [rfReplaceAll]);
s := StringReplace(s, #9, ‘ ‘, [rfReplaceAll]);
if not ((s[1]+s[2]) = ‘–‘) then begin
ZQuery1.SQL.Add(s);
if s[length(s)] = ‘;’ then begin
ZQuery1.ExecSQL;
ZQuery1.SQL.Clear
end
end
end
end;
CloseFile(tfFile);
ShowMessage(‘Restauration done.’);
end else
ShowMessage(‘Restauration canceled.’);
end;

 

Semoga bermanfaat

Aplikasi Administrasi PAUD, TK Dan Bimbel

Alhamdulillah selesai juga. Terimakasih buat Al Madani yang sabar menunggu. Aplikasi ini mencakup

1. Pendaftaran siswa baru

2. Input master kelas

3. Input Master Pembayaran

4. Menu bayaran

5. Laporan keuangan

Beberapa menu master 

Menu pendaftaran siswa

Report pembayaran

Silahkan kirim email ke maseadi@gmail.com jika ada yang ditanyakan.terimakasih

Aplikasi bisa jalan di os linux

Untuk melihat video penggunaannya ada di bawah ini