PROGRAM GAJI MENGGUNAKAN DATABASE
Program
ini di buat menggunakan Delphi 7. Program ini adalah tentang menghitung data pegawai, disini saya akan menerapkannya pada pemrograman delphi.
Program
ini menggunakan label, button, edit, panel,
timer, DBGrid, DBNavigator, ADOConnection, ADOQuery dan DataSource. Sebenarnya program ini tidak terlalu sulit, cara
kerja dari program ini adalah kita hanya diminta untuk memasukan inputan nama
pegawai, jam kerja dan gaji per jam. Setelah terisi semua data dan ketika kita
klik button input maka data yang kita
inputkan akan tampil dalam stringgrid, ketika kita klik button clear maka data
yang pernah kita masukkan di pilihan edit akan di bersihkan. Data yang tampil
dalam stringgrid bisa kita hapus dengan menggunakan DBNavigator, dan button
close untuk keluar dari program. Berikut source codenya;
unit gaji;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DB, DBGrids, ADODB, DBCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Kode: TEdit;
Pegawai: TEdit;
Jam: TEdit;
Button1: TButton;
Button2: TButton;
Panel2: TPanel;
Panel3: TPanel;
Button3: TButton;
Gj: TEdit;
Label4: TLabel;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var t,jm,gj2,lembur,lembur2,pokok:integer;
a:string;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
a:='Riyan Susilo Adji ';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg(' Apakah ingin anda input?', mtInformation, [mbYes, mbNO],0)= MRYES THEN
jm:=strtoint(Jam.text);
gj2:=strtoint(Gj.Text);
if jm > 10 then
begin
lembur:=jm-10;
lembur2:=lembur*gj2*2;
pokok:=(jm-lembur)*gj2;
t:=lembur2+pokok;
end
else
begin
t:=jm*gj2;
lembur2:=0;
end;
adoquery1.Append;
adoquery1['Kode']:=kode.Text;
adoquery1['Nama Barang']:=pegawai.Text;
adoquery1['Jam Kerja']:=jam.Text;
adoquery1['Gaji Per Jam']:=gj.Text;
adoquery1['Total Gaji']:=IntToStr(t);
adoquery1.Post;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
kode.Clear;
Pegawai.Clear;
Jam.Clear;
Gj.clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
end.
Berikut tampilan outputnya :
Bagi yang ingin mendownload silahkan klik Di Sini!!!
PROGRAM VIEW PHOTOS
Program ini di buat menggunakan Delphi 7. Program ini adalah tentang view photos, disini saya akan menerapkannya pada pemrograman delphi. Sebenarnya program ini sangat sederhana karena cara kerja dari program ini adalah dengan kita melihat foto dan akan muncul pilihan ketika kita klik kanan pada foto tersebut. Pilihan yang tampil ketika di klik kanan adalah change, clear, dan save. Ketika kita klik change maka kita akan mengganti foto sesuai yang kita inginkan, ketika kita klik clear maka foto tersebut akan hilang dan ketika kita klik save maka foto tersebut akan kita save ke direcroti yang kita inginkan. Program ini menggunakan label, speedbutton, timer, mainmenu, panel, popupmenu, openpicturedialog, savedialog, dan image. Berikut source codenya;
a. Source code form menu
unit MNU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls;
type
Tmnnn = class(TForm)
MainMenu1: TMainMenu;
VIEW1: TMenuItem;
ABOUT1: TMenuItem;
EXIT1: TMenuItem;
Image1: TMenuItem;
Timer1: TTimer;
Label1: TLabel;
procedure Image1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ABOUT1Click(Sender: TObject);
procedure EXIT1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mnnn: Tmnnn;
a:string;
implementation
uses gambar, about;
{$R *.dfm}
procedure Tmnnn.Image1Click(Sender: TObject);
begin
gbr.show;
end;
procedure Tmnnn.FormCreate(Sender: TObject);
begin
a:='Riyan Susilo Adji ';
end;
procedure Tmnnn.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
mnnn.Caption := a;
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
procedure Tmnnn.ABOUT1Click(Sender: TObject);
begin
About3.show;
end;
procedure Tmnnn.EXIT1Click(Sender: TObject);
begin
if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo or MB_ICONQUESTION)=ID_Yes ) then
begin
application.Terminate;
end
end;
end.
b. Source code form view photos
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ExtDlgs, StdCtrls, jpeg, Buttons, Menus;
type
Tgbr = class(TForm)
Panel1: TPanel;
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
SpeedButton1: TSpeedButton;
Timer1: TTimer;
Timer2: TTimer;
Panel2: TPanel;
Label1: TLabel;
Panel3: TPanel;
Image2: TImage;
PopupMenu1: TPopupMenu;
Change1: TMenuItem;
Clear1: TMenuItem;
PopupMenu2: TPopupMenu;
Change2: TMenuItem;
Clear2: TMenuItem;
OpenPictureDialog2: TOpenPictureDialog;
SaveDialog1: TSaveDialog;
SaveDialog2: TSaveDialog;
Save_2: TMenuItem;
Save_1: TMenuItem;
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Change1Click(Sender: TObject);
procedure Clear1Click(Sender: TObject);
procedure Change2Click(Sender: TObject);
procedure Clear2Click(Sender: TObject);
procedure Save_1Click(Sender: TObject);
procedure Save_2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
gbr: Tgbr;
strfile,a,namafile:string;
implementation
{$R *.dfm}
//richedit.1.cuttoclipboard
procedure Tgbr.SpeedButton1Click(Sender: TObject);
begin
close
end;
procedure Tgbr.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
gbr.Caption := a;
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
procedure Tgbr.FormCreate(Sender: TObject);
begin
a:='Riyan Susilo Adji ';
end;
procedure Tgbr.Timer2Timer(Sender: TObject);
begin
if label1.Visible = true then label1.visible := false
else label1.Visible:=true;
end;
procedure Tgbr.Change1Click(Sender: TObject);
var
strfile:string;
begin
if (openpicturedialog1.Execute) then
begin
strfile:=openpicturedialog1.FileName;
image1.Picture.LoadFromFile(strfile);
end;
end;
procedure Tgbr.Clear1Click(Sender: TObject);
begin
image1.Picture:=nil;
end;
procedure Tgbr.Change2Click(Sender: TObject);
var
strfile:string;
begin
if (openpicturedialog2.Execute) then
begin
strfile:=openpicturedialog2.FileName;
image2.Picture.LoadFromFile(strfile);
end;
end;
procedure Tgbr.Clear2Click(Sender: TObject);
begin
image2.Picture:=nil;
end;
procedure Tgbr.Save_1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
NamaFile := SaveDialog1.FileName;
image1.picture.SaveToFile(namafile);
ShowMessage('Berhasil disimpan!');
end;
end;
procedure Tgbr.Save_2Click(Sender: TObject);
begin
if SaveDialog2.Execute then
begin
NamaFile := SaveDialog2.FileName;
image2.picture.SaveToFile(namafile);
ShowMessage('Berhasil disimpan!');
end;
end;
end.
Berikut tampilan outputnya :
PROGRAM HITUNG MUNDUR
Program ini di buat menggunakan Delphi 7. Program ini
adalah tentang menghitung waktu mundur, bisa di bilang program ini seperti stopwatch, disini
saya akan menerapkannya pada pemrograman delphi. Sebenarnya program ini sangat
sederhana karena cara kerja dari program ini adalah kita hanya diminta untuk
memasukan inputan berapa waktu yang di inginkan untuk menghitung mundur. Ketika
kita klik button mulai maka akan waktu yang kita inputkan akan berjalan mundur
sampai waktu tersebut habis, ketika kita klik button stop maka waktu tersebut
akan berhenti dan ketika kita klik button keluar maka program akan keluar. Program
ini menggunakan label, button, date
timepicker, timer dan progressbar. Berikut source codenya :
unit uUtama;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, ShellApi;
type
TForm1 = class(TForm)
DTWaktu: TDateTimePicker;
Label1: TLabel;
Button1: TButton;
ProgressBar1: TProgressBar;
Label2: TLabel;
Button2: TButton;
Label3: TLabel;
Timer1: TTimer;
Button3: TButton;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
INFO = WM_USER + 1;
var
Form1: TForm1;
a:string;
ITime : TTime;// Variabel
implementation
uses DateUtils;//Uses ini dulu
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
h,m,s : word;
sec,jam,menit,detik : word;
incs : word;
begin
ProgressBar1.Position := 0;
h := HourOf(DTWaktu.Time);
m := MinuteOf(DTWaktu.Time);
s := SecondOf(DTWaktu.Time);
incs := (h*Sqr(60)) + (m*60) + s;
ITime := Now();
ITime := IncSecond(ITime,incs);
sec := SecondsBetween(Now(),ITime);
jam := sec div 3600;
menit := (sec mod 3600) div 60;
detik:= (sec mod 3600) mod 60;
Label3.Caption := 'Sisa waktu : '+IntToStr(jam)+' jam '+IntToStr(menit)+' menit '+IntToStr(detik)+' detik';
ProgressBar1.Max := sec;
Button1.Enabled := false;
Button3.Enabled := true;
Timer1.Enabled := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ProgressBar1.Position := 0;
DTWaktu.Time := EncodeTime(0,0,10,0);
Timer1.Enabled := false;
Timer1.Enabled := false;
Button1.Enabled := true;
Button3.Enabled := false;
Label3.Caption := '-||-';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
hSysMenu: HMENU;
begin
hSysMenu := GetSystemMenu(Handle, false);
AppendMenu(hSysMenu, MF_SEPARATOR, 0, nil);
AppendMenu(hSysMenu, MF_STRING, INFO, PChar('&Tentang...'));
Timer1.Enabled := false;
Timer1.Interval := 500;
a:='Riyan Susilo Adji ';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
sec,jam,menit,detik : word;
begin
if ProgressBar1.Position = ProgressBar1.Max then
begin
Timer1.Enabled := false;
Button1.Enabled := true;
Button3.Enabled := false;
end
else
begin
sec := SecondsBetween(Now(),ITime);
ProgressBar1.Position := ProgressBar1.Max - (sec -1);
jam := sec div 3600;
menit := (sec mod 3600) div 60;
detik:= (sec mod 3600) mod 60;
Label3.Caption := 'Sisa waktu : '+IntToStr(jam)+' jam '+IntToStr(menit)+' menit '+IntToStr(detik)+' detik';
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
end.
Berikut tampilan outputnya :
Bagi yang ingin mendownload silahkan klik Di Sini!!!
PROGRAM DATA PEGAWAI
Program ini di buat menggunakan Delphi 7. Program ini
adalah tentang menghitung data pegawai, disini saya akan
menerapkannya pada pemrograman delphi. Sebenarnya program ini tidak terlalu
sulit, cara kerja dari program ini adalah kita hanya diminta untuk memasukan
inputan nama pegawai, jam kerja dan gaji per jam. Setelah terisi semua data dan
ketika kita klik button input maka data
yang kita inputkan akan tampil dalam stringgrid, ketika kita klik button
clear maka data yang pernah kita masukkan di pilihan edit akan di bersihkan. Data
yang tampil dalam stringgrid bisa kita hapus, tapi satu per satu dari bawah dan
tidak langsung terhapus semuanya, caranya dengan mengklik button delete, dan
button close untuk keluar dari program. Berikut Source codenya :
unit gaji;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Pegawai: TEdit;
Jam: TEdit;
Gj: TEdit;
Button1: TButton;
Button2: TButton;
Panel2: TPanel;
Panel3: TPanel;
Button4: TButton;
Button3: TButton;
Timer1: TTimer;
sg: TStringGrid;
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var i,j,t,tb,jm,gj2,gj3,lembur,lembur2,pokok:integer;
a:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
a:='Riyan Susilo Adji ';
sg.ColCount := 5;
sg.RowCount := 1;
sg.Cells[0,0]:='No';
sg.Cells[1,0]:='Nama Pegawai';
sg.Cells[2,0]:='Jam Kerja';
sg.Cells[3,0]:='Gaji';
sg.Cells[4,0]:='Total Gaji';
sg.ColWidths [0]:=30;
sg.ColWidths [1]:=80;
sg.ColWidths [2]:=80;
sg.Colwidths[3]:=60;
sg.colwidths[4]:=80;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg(' Apakah ingin anda input?', mtInformation, [mbYes, mbNO],0)= MRYES THEN
jm:=strtoint(Jam.text);
gj2:=strtoint(Gj.Text);
if jm > 10 then
begin
lembur:=jm-10;
lembur2:=lembur*gj2*2;
pokok:=(jm-lembur)*gj2;
t:=lembur2+pokok;
end
else
begin
t:=jm*gj2;
lembur2:=0;
end;
sg.RowCount := sg.rowcount+1;
sg.cells[1,sg.RowCount-1]:= Pegawai.Text;
sg.Cells[2,sg.RowCount-1]:= Jam.Text ;
sg.Cells[3,sg.rowcount-1]:= Gj.Text ;
sg.cells[4,sg.RowCount-1] :=IntToStr(t);
for i:=1 to sg.RowCount-1 do
sg.Cells[0,i]:=inttostr(i);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
sg.RowCount := sg.rowcount-1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Pegawai.Clear;
Jam.Clear;
Gj.clear;
end;
end.
Berikut tampilan outputnya :
Bagi yang ingin mendownload silahkan klik Di Sini!!!