SIMPLE DELPHI



BUKA EXE
procedure TForm1.Button1Click(Sender: TObject);
var
  app: String;
begin
  app := 'C:\Windows\notepad.exe';
  ShellExecute(Handle, 'open', PAnsiChar(app), Nil, Nil, SW_SHOWNORMAL);
end;

 TUTUP EXE
procedure TForm1.Button2Click(Sender: TObject);
var
  appH: HWND;
begin
  appH := FindWindow('Notepad', Nil);
  SendMessage(appH, WM_CLOSE, 0, 0);
end;

 INPUT DATETIMEPaCKER
Edit1.Text:=FormatDateTime('dd/mm/yyyy',DateTimePicker1.DateTime);

 SIMPAN
(letakkan di dalam tombol SIMPAN dgn cara klik 2x tombol SIMPAN)
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('insert into pelajar values('''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+DateToStr(DateTimePicker1.Date)+''','''+ComboBox1.Text+''','''+Edit5.Text+''','''+ComboBox2.Text+''','''+Edit6.Text+''')');
ADOQuery1.ExecSQL;

 UPDATE 
(letakkan di dalam tombol UPDATE dgn cara klik 2x tombol UPDATE)
if(Edit1.Text<>'')then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('update pelajar set nama='"+Edit2.Text+"', Alamat='"+Edit3.Text+"', tgl_lahir='"+DateToStr(DateTimePicker1.Date)+"', jk='''+DBLookupComboBox1.Text+''', tlp ='"+Edit3.Text+"', hobby='''+DBLookupComboBox2.Text+''', ket='''+Edit4.Text
+''' where id_buku='''+Edit1.Text+'''');
ADOQuery1.ExecSQL;
MessageDlg('DATA KAMU SUDAH DIPERBAHARUI',mtInformation,[mbOK],0);
END ELSE
MessageDlg('SILAHKAN ISI DULU ID BUKU YANG MAU KAMU UPDATE',mtInformation,[mbOK],0);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear

 REFRESH 
(letakkan di dalam tombol REFRESH dgn cara klik 2x tombol REFRESH)
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('SELECT * FROM pelajar order by ID_PELAJAR desc');
ADOQuery1.Open;

 HAPUS 
(letakkan di dalam tombol HAPUS dgn cara klik 2x tombol HAPUS)
if (MessageDlg('Yakin Hapus Data Anda?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('Delete From pelajar where ID_PELAJAR='''+Edit1.Text+'''');
ADOQuery1.ExecSQL;
MessageDlg('DATA ANDA SUDAH DIHAPUS',mtConfirmation,[mbOK],0);
Button3.Click; //Sesuaikan dengan tombol refresh

 EXIT
(letakkan di dalam tombol TUTUP dgn cara klik 2x tombol TUTUP)
Close;

///GABUNG KATA///
procedure TForm1.ButtongabungClick(Sender: TObject);
var depan,belakang,tengah,gabung : string[80];
begin
  depan := Edepan.Text;
  tengah := Etengah.Text;
  belakang := Ebelakang.Text;
  gabung := depan + ' ' + tengah + ' ' + belakang;
  Elengkap.Text := gabung;
end; 


///hapus memo///
var str: string; .... str := Memo1.Text; Delete(str, index, count); Memo1.Text := str;



////Hitung......
procedure TForm1.insert;
var a:string;
b:string;
c:double;
begin
a:= Edit2.Text;
b:= Edit3.Text;
c:= StrToFloat(Edit2.Text) * StrToFloat(Edit3.Text);
Edit4.Text:= FloatToStr(c);
with ADOQuery1 do
begin
active:=false;
close;
sql.clear;
sql.Text:= 'insert into tbl_hit values ('+QuotedStr(edit1.Text)+
','+QuotedStr(Edit2.Text)+
','+QuotedStr(Edit3.Text)+
','+QuotedStr(Edit4.Text)+')';
ExecSql;
end;
with ADOQuery1 do
begin
active:=false;
close;
sql.Clear;
sql.Text:='select *from tbl_hit';
ExecSql;
active:=true;
end;

/////HURUF BESARm.......
onkeyup="this.value = this.value.toUpperCase()"


/////kode untuk warna sesuikan dengan button yang diinginkan ae

procedure TForm1.Button2Click(Sender: TObject);
begin
APPLIKASI.Color:=clBlue;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
APPLIKASI.Color:=clYellow;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
APPLIKASI.Color:=clBlack;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
APPLIKASI.Color:=clGreen;
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
APPLIKASI.Color:=clWhite;
end;


procedure TForm1.Button14Click(Sender: TObject);
begin
APPLIKASI.Color:=clRed;
end;


procedure TForm1.Button13Click(Sender: TObject);
begin
APPLIKASI.Color:=CLRBREAK;
end;


//kode untuk mengeluarkan program delphi 7

procedure TForm1.Button18Click(Sender: TObject);
begin
Close;
end;


// kode untuk memindahkan data dari combobox ke edit text

procedure TForm1.Button19Click(Sender: TObject);
begin
ComboBox1.Clear;
EDPRO.Clear;
SetFocus;
end;




/////Simpan (Button Simpan) :
ADOTable1.Append;
ADOTable1.FieldByName('NIK').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama').AsString:=Edit2.Text;
ADOTable1.FieldByName('Tgl_Lahir').AsDateTime:=DateTimePicker1.Date;
ADOTable1.FieldByName('Tempat_Lahir').AsString:=Edit3.Text;
ADOTable1.FieldByName('Jenis_Kelamin').AsString:=ComboBox1.Text;
ADOTable1.FieldByName('Alamat').AsString:=Edit4.Text;
ADOTable1.FieldByName('No_Tlpn').AsString:=Edit5.Text;
ADOTable1.Post;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';


//////Edit (Button Edit) :
ADOTable1.Edit;
ADOTable1.FieldByName('Kd_Barang').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama_Barang').AsString:=Edit2.Text;
ADOTable1.FieldByName('Satuan').AsString:=Edit3.Text;
ADOTable1.FieldByName('Harga_Beli').AsString:=Edit4.Text;
ADOTable1.FieldByName('Harga_Jual').AsString:=Edit5.Text;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';


/////Delete (Button Delete) :
ADOTable1.Delete;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';


///////Cancel (Button Cancel) :
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
ComboBox1.Text :='Pilih';
edit4.Text :='';
edit5.Text :='';


//////Coding Program Close (Button Close) :
Close;


/////Panggila Data dari DBGrid :
Edit1.Text:=ADOTable1.Fields[0].AsString;
Edit2.Text:=ADOTable1.Fields[1].AsString;
Edit3.Text:=ADOTable1.Fields[3].AsString;
ComboBox1.Text:=ADOTable1.Fields[4].AsString;
Edit4.Text:=ADOTable1.Fields[5].AsString;
Edit5.Text:=ADOTable1.Fields[6].AsString



////// refresh DBgrid.....
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select* from naon');
ADOQuery1.Open;



///////Code Simpan.............
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('insert into pelajar values('''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+DateToStr(DateTimePicker1.Date)+''','''+ComboBox1.Text+''','''+Edit5.Text+''','''+ComboBox2.Text+''','''+Edit6.Text+''')');
ADOQuery1.ExecSQL;



//////Code Delete...... 
if (MessageDlg('Yakin Hapus Data Anda?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('Delete From pelajar where ID_PELAJAR='''+Edit1.Text+'''');
ADOQuery1.ExecSQL;
MessageDlg('DATA ANDA SUDAH DIHAPUS',mtConfirmation,[mbOK],0);



////////Code Refresh...........
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('SELECT * FROM pelajar order by ID_PELAJAR desc');
ADOQuery1.Open;


////////Code Exit..............
DBGrid : klik DBGrid 1x - events - OnDBLClick - DBGrid1DBLClik - klik2x - masukkan coding


////////coding DBGrid____________________
Edit1.Text:=ADOQuery1.Fields[0].AsString;
Edit2.Text:=ADOQuery1.Fields[1].AsString;
Edit3.Text:=ADOQuery1.Fields[2].AsString;
DateTimePicker1.Date:=ADOQuery1.Fields[3].AsDateTime;
ComboBox1.Text:=ADOQuery1.Fields[4].AsString;
Edit5.Text:=ADOQuery1.Fields[5].AsString;
ComboBox2.Text:=ADOQuery1.Fields[6].AsString;
Edit6.Text:=ADOQuery1.Fields[7].AsString; 



tekan ENTER
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit2.setfocus;
end;


Kode untuk button1(Tambah)
procedure TForm1.Button1Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;



Kode untuk button2(Kurang)
procedure TForm1.Button2Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1-angka2;
label3.caption := floattostr(hasil);
end;



Kode untuk button3 (Kali)
procedure TForm1.Button3Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1*angka2;
label3.caption := floattostr(hasil);
end;



Kode untuk button4(Bagi)
procedure TForm1.Button4Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1/angka2;
label3.caption := floattostr(hasil);
end;


Huruf saja
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin   
if not(key in['A'..'Z','a'..'z',' ',#8,chr(13)]) then   key:=#0;   if (key=chr(13)) then Edit2.SetFocus; 
end;



angka saja
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin   
if not(key in['0'..'9',#8,chr(13)]) then   key:=#0; //program fungsi enter   if (key=chr(13)) then  
Edit2.SetFocus; 
end;



Await 
var
button: TButton;
begin
button := Sender as TButton;
button.Caption := 'Working ...';
button.Enabled := false;
Sleep(5000);
button.Enabled := true;
button.Caption := 'Done!';
end;











Subscribe to: Comments (Atom)