Aplikasi kamus terjemah perkalimat dengan delphi

APP KAMUS TERJEMAH PERKALIMAT

jika agan ingin melihat app silahkan unduh..

->terimakasih atas perhatian nya

kamus terjemah.rar

caranya mengabungkan isi dr chekbox ke dalam satu field

Chipy PereSyza Pereira > KOMUNITAS PENGGEMAR PEMROGRAMAN DELPHI INDONESIA

16 March at 14:02

[ASK] agan2 & master2 semua, saya bikin form inputan seperti di gmbr, yg mau saya tanyakn gmna caranya mengabungkan isi dr chekbox ke dalam satu field.(delphi 7(zeos) & mysql)
syntax yg sdh ane biki kaya gini tp blom lengkap...
======================
with Dm.QInputPerijinan do
begin
Close;
SQL.Clear;
SQL.Text:='insert into tb_perijinan (id_perijinan,no_passport,tgl_permohonan,jenis_perijinan)'+
'values(:id,:pass,:tgl,:jenis)';
ParamByName('id').AsString:=Edit1.Text;
ParamByName('pass').AsString:=Edit2.Text;
ParamByName('tgl').AsString:=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date);
if RadioGroup1.ItemIndex=0 then
ParamByName('jenis').AsString:='Baru';
if RadioGroup1.ItemIndex=1 then
ParamByName('jenis').AsString:='Perpanjangan';
ExecSQL;
end;
================================
mohon bantuannya...

Like·Comment·Follow

Buyut Joko Rivai
Penginputan Checkbox Tergantung tipe fieldnya. Yang pake tipe varchar(5), lalu pas inputnya pake: FieldByName('fotocopy').AsString := BoolToStr(CheckBox1.Checked, True);

Jangan lupa, RadioGroup.ItemIndex mempengaruhi grup checkbox di bawah. Bisa dikasih event, misalnya onclick pada RadioGroup:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
GroupBox1.Enabled := RadioGroup1.ItemIndex = 0;
end;

Like · 16 March at 14:13

Chipy PereSyza Pereira
bang Buyut Joko Rivai untuk filednya "syarat varchar(50)" bang. ane pengen chekbox1 & 2 bisa di inputkan jd satu di field syarat jd nanti hasilnya "fotocopy passport 1x, administrasiRp.5000"

Like · 16 March at 14:22

Chipy PereSyza Pereira
koppen,,,

Like · 16 March at 14:42

Chipy PereSyza Pereira
undang bang ArRady Fuad Ar-Radhi

Like · 16 March at 15:32

ArRady Fuad Ar-Radhi
maksudnya gimana ini?

Like · 16 March at 16:22

Chipy PereSyza Pereira
maksudnya ane pengen insert chkbox 1 dan 2 di jadikan satu di field syarat bang jadi nanti hasilnya kalo di tabel seperti ini
"Fotocopy Passport 1x, AdministrasiRp.5.000"

Like · 16 March at 16:26

ArRady Fuad Ar-Radhi
itu kan tinggal di tambah aja :)

Like · 16 March at 17:25

ArRady Fuad Ar-Radhi
x := '';
if a.checked then x := x + 'aaaaaa';
if b.checed then x := x + 'bbbbbbb';

fields[0].value := x;

Like · 16 March at 17:26

Chipy PereSyza Pereira
ni bang sdh ane bikin kaya gini bang tp pas simpan muncul pesan Sql Error : column count dosen't match value count at row 1'
=============================
procedure TFrmPermohonanPerijinan.sBitBtn1Click(Sender: TObject);
var gabung, a, b : string;
begin
try Dm.koneksi.StartTransaction;
with Dm.QInputPerijinan do
begin
Close;
SQL.Clear;
SQL.Text:='insert into tb_perijinan (id_perijinan,no_passport,nama,tgl_permohonan,jenis_perijinan,syarat)'+
'values(:id,:pass,:nm,:tgl,:jenis:syrt)';
ParamByName('id').AsString:=Edit1.Text;
ParamByName('pass').AsString:=Edit2.Text;
ParamByName('nm').AsString:=Label4.Caption;
ParamByName('tgl').AsString:=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date);
if RadioGroup1.ItemIndex=0 then
ParamByName('jenis').AsString:='Baru';
if RadioGroup1.ItemIndex=1 then
ParamByName('jenis').AsString:='Perpanjangan';
if chk5.Checked=True then
a:='Fotocopy Passport 1x'
else a:='';
if chk6.Checked=True then
b:='Biaya Administrasi Rp.5.000' else b:='';
gabung:=a+b;
ParamByName('syrt').AsString:=gabung;
ExecSQL;
end;
Dm.koneksi.Commit;
Application.MessageBox('Permohonan anda berhasil disimpan','Informasi',MB_OK or MB_ICONINFORMATION);
Edit2.Clear;
RadioGroup1.ItemIndex:=-1;
edit2.SetFocus;
FrmPermohonanPerijinan.Close;
Exit;
except
Dm.koneksi.Rollback;
Application.MessageBox('Permohonan anda gagal disimpan','Perhatian',MB_OK or MB_ICONERROR);
Exit;
end;
============================

Like · 16 March at 17:36

ArRady Fuad Ar-Radhi
column count dosen't match value count at row 1'
jika ga sama jumlah nya field sama value

Like · 16 March at 17:38

ArRady Fuad Ar-Radhi
if RadioGroup1.ItemIndex=0 then
ParamByName('jenis').AsString:='Baru';
if RadioGroup1.ItemIndex=1 then
ParamByName('jenis').AsString:='Perpanjangan';

ini seharusnya ada else

Like · 16 March at 17:39

Cahyo Sasongko
ijin menyimak..

Like · 16 March at 17:41

ArRady Fuad Ar-Radhi
dibantu om :3

Like · 16 March at 17:41

ArRady Fuad Ar-Radhi
ouhhhh bukan itu salahnya :o
tp ada koma (,) yang kurang :v

Like · 16 March at 17:42

ArRady Fuad Ar-Radhi
'values(:id,:pass,:nm,:tgl,:jenis:syrt)';

ada yg kurang itu koma nya,,,

Like · 16 March at 17:42

Cahyo Sasongko
itulah kelebihan programmer yg blom py istri...matanya pasti sangat awas...

Like · 1 · 16 March at 17:44

ArRady Fuad Ar-Radhi
:v
wakakaka,,
didoain donk om biar punya -_-

Like · 16 March at 17:45

Chipy PereSyza Pereira
hehe maaf bang ArRady Fuad Ar-Radhi dan bang Cahyo Sasongko kurang teliti, sdh bisa bang. tp pas nampilkan di dbgrid malah jd (MEMO)

Edited · Like · 16 March at 17:47

ArRady Fuad Ar-Radhi
klo tipe MEMO memang seperti itu,, :)
harus diakali sedikit klo pake dbgrid standart

Like · 16 March at 17:47

Chipy PereSyza Pereira
ane pake dbgrideh bang, cara ngakali di dbgrid gmna bang??

Like · 16 March at 17:48

ArRady Fuad Ar-Radhi
klo dbrgideh ada di property nya,, draw memo,, ceklist aja

Like · 16 March at 17:49

Chipy PereSyza Pereira
terima kasih bang (y) Buyut Joko Rivai, bang (y) ArRady Fuad Ar-Radhi, bang (y) Cahyo Sasongko sudah bisa. [SOLVED]

Mengambil data dari Form dan tabel lain

Gan, Gmn caranya ngambl data yang sudah terinput dari From "A" Melalui ComboBox Di Form"B" misalkan saya mau ambil kode nya aja. Jadi Yg muncul di Item ComboBox tersebut semua code yg sudah terinput di Form "A"...!!! thank's..

Eko Erdiansyah Khairat
procedure TForm3.ComboBox1Click(Sender: TObject);
begin
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('Select kode_tamu From T_tamu');
Adoquery2.SQL.Add('Where kode_tamu = ''' + ComboBox1.Text + '''');
Adoquery2.Open;

end;

procedure TForm3.ComboBox1DropDown(Sender: TObject);
begin
combobox1.Items.Clear;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct kode_tamu from t_tamu order by kode_tamu');

adoquery2.Open;
while not adoquery2.Eof do
begin
combobox1.Items.add(adoquery2['kode_tamu']);
adoquery2.Next

end;

end;

Filter data per tanggal

Mat malam Agan2 sekalian,,
Mohon Bantuannya,, Misalnya data Daftar Chek-In Banyakkkkkkkkkk,,
dan saya ingin Memfilter data tersebut dari Tanggal 3/17/2013 sampai 3/19/2013.

Sintaknya bagaiman ,, mohon pencerahan..???

Terimakasi :D

Like·Comment·Follow

Gusrio Tendra
di coba om :D

adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from check_in where tanggal between '''+ formatdatetime('mm/dd/yyyy',datetimepicker1.Date) +''' and '''+ formatdatetime('mm/dd/yyyy',datetimepicker2.Date) +''' ');
adoquery1.Open;

Edited · Unlike · 1 · Monday at 01:08

Endra Wijaya
MYSQL,
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('Select * From tablename');
Query.SQL.Add('where tgl_checkin Between "'+ FormatDateTime('yyyy-mm-dd',Datepicker1.Date)+'"');
Query.SQL.Add('And "'+ FormatDateTime('yyyy-mm-dd',Datepicker2.Date)+'"');
Query.SQL.Add('Order by no_registrasi Asc');
Query.Open;

beda database beda kayake,

live chat Jquery dgn HTTPServer dengan delphi

ane buat live chat Jquery dgn HTTPServer
dicoba buat iseng2 juga :)

untuk ujicobanya,
jalankan aplikasinya,,
terus buka 2 browser atau lebih,, masuk ke localhost:1011

LINK DOWNLOAD:
http://www.mediafire.com/?5kjhrfc15s6cz5b

#Ane buat dengan Delphi XE,, Indy Bawaan Delphi,, Database Access. — with Arief Sofiyan and 2 others.

Form alert pengingat nasabah dalam masa tenggang

aplikasi ini sederhana,, dulu ane buat untuk salah satu member disini,, hanya untuk lulus ujian,, tp menghilang entah kemana :)

hanya ada 1 form dengan pagecontrol.
- minimize to systray
- ada desktop alert nya JEDI yg udah ane masukin ke dll,
fungsinya sebagai pengingat jika ada nasabah dalam masa tenggang,,
akan muncul setiap 10 detik..
buat ujicoba, "start reminder" kemudian tunggu 10 detik,,

drpada ane simpan ga ada guna,, mending ane share dimari :)
http://www.mediafire.com/?dtazzk4aaf9c5d7

Unlike·Comment·Unfollow

You, Muhammad Ridzky and 34 others like this.

Fhadlly Zhi
(y) tak sedot dlu ni hadiah bang Klik Disini

Like · 1 · 10 March

Fadli Aries
Thanks Klik Disini semoga bermanfaat...

Like · 1 · 10 March

ArRady Fuad Ar-Radhi
sama2 bang :)

Like · 10 March

Chipy PereSyza Pereira
Thanks bang, numpang sedot :)

Like · 1 · 10 March

Nda Obra Setiawan
ikut nyedot gan

Like · 1 · 10 March

Saepudin Ali Asgar
Trimakasih mas udah di share...ini sangat membantu untuk pengembangan aplikasi saya nantinya... :)

Like · 1 · 10 March

ArRady Fuad Ar-Radhi
;)

Like · 10 March

Bang Gosir
izin sedot master Klik :)

Like · 1 · 10 March

Bayu SituyulGembul
ijin sedotbang....makasih bang...

Like · 10 March

Saepudin Ali Asgar
Mas Ardhy...fungsi dari remainder.dll itu apa ya dan bagaimana cara membuatnya..?

Like · 10 March

ArRady Fuad Ar-Radhi
itu ga usah dibuat,, diinclude kan saja ke folder project nya..
terus dipanggil di delphi

klo mau dibuat, install JEDI dulu,,
ada komponen khusus,,
ane sengaja buat jd dll,, berhubung yg ane butuhkan cuma desktop alert di JEDI,,

Like · 1 · 10 March

Koko Harianto
izin sedot bg.

Like · 1 · 10 March

Endra Wijaya
:O bagi bang ArRady Fuad Ar-Radhi

Like · 1 · 10 March

ArRady Fuad Ar-Radhi
loh ente ga boleh bang :o

Like · 1 · 10 March

Endra Wijaya
:O terlanjur bang

Like · 10 March

ArRady Fuad Ar-Radhi
klo udah terlanjur di donlot, diupload ulang ke asalnya bang :o

Like · 1 · 10 March

Endra Wijaya
:D man user dan passwtnya bang haha

Like · 10 March

Fhadlly Zhi
spertinya bang Klik Disini kcpean ni, bnyak yg nyedot nih . . . . :) :D :v

Like · 10 March

Vyan Perdiawan
mantep bang..

Like · 10 March

ArRady Fuad Ar-Radhi
bang Endra Wijaya kan tinggal masuk ke access nya -_-

Like · 10 March

ArRady Fuad Ar-Radhi
bang Fhadlly Zhi.. udah abis nie bang disedot terus -_-

Like · 10 March

Fhadlly Zhi
gkgkgkgk.... :v :v :v

Like · 10 March

Rony Indrajaya
Segeralah kau selesaikan tugas akhirmu sendiri bung Klik Disini... Hehehehe

Like · 10 March

ArRady Fuad Ar-Radhi
wakakakak,,
siap laksanakan om Rony Indrajaya :v

Like · 10 March

Bayu SituyulGembul
saya coba pelajari dengan buka projectnya kok muncul pesan error ya bang Klik...??*maklum masih pemula bang....

Edited · Like · 10 March

ArRady Fuad Ar-Radhi
saya tidak tau error apa bang :o

Like · 10 March

Bayu SituyulGembul
gni errornya bang..."error reading form

class TsLabel not found. Ignore the error and continue?
Note:ignoring the error may cause components to be deleted or property values to be lost." saat pertama buka projectnya...

Like · 10 March

ArRady Fuad Ar-Radhi
ouh,, lupa ane bilang,, ane pake alphaskin,,
klo ga ada alphaskin di ignore aja,, :)
tu cuma buat tampilan aja koq

Like · 10 March

Bayu SituyulGembul
udah saya ignore tpi saat saya run keluar error lg bang gni errornya
"filed aplikasi.lab does not have a corresponding component. remove the declaration?"

Edited · Like · 10 March

ArRady Fuad Ar-Radhi
di yes2 aja bang,,
maklum itu delphi 7 jd ane pake alphaskin biar macho :v

Like · 1 · 10 March

Bayu SituyulGembul
sama bang saya juga pake delphi 7 tapi lum ada alphaskinnya..dan setelah di yes muncul lg gni "[Fatal Error] Unit1.pas(8): File not found: 'sSkinManager.dcu'"..

Like · 10 March

Vicky IndRiyono
Copy file .dcu alphaskin ke lib delphi

Like · 1 · 10 March

Bayu SituyulGembul
cara masukin ke lib delphi gmana bang Vicky IndRiyono?*maklum bang masih pemula...

Like · 10 March

Bayu SituyulGembul
udah bisa bang...makasih buat ilmunya bang... :-)

Like · 1 · 10 March

Innovators
izin sedot master...

Like · 1 · 10 March

Achmad Arifin
istimewa..

Like · 1 · 10 March

Delphi Yan's Syah Borland
bang Klik Disini ada masalah ne ketika sy buka aplikasinya abang tuch muncul error saat pertama kali dibuka tu project bang:

Error reading btnTambah.DoubleBufered: Property
DoubleBufered does not exist. ignore the error and
continue? NOTE: Ignore the error may cause
components to be deleted or property values to be lost.

Like · 10 March

ArRady Fuad Ar-Radhi
silahkan dibaca2 komentar sebelumnya bang,,

Like · 10 March

Delphi Yan's Syah Borland
udah sy yes bang Klik Disini muncul eror lagi "[Fatal Error] Unit1.pas(9): File not found: 'frxClass.dcu'"...

Like · 10 March

ArRady Fuad Ar-Radhi
itu juga udah dibahas di atas,, -_-

Like · 10 March

Delphi Yan's Syah Borland
beda bang Klik Disini yg diatas tu errornya di 'sSkinManager.dcu bang??

Like · 10 March

ArRady Fuad Ar-Radhi
itu fastreport,, klo ga pake fastreport akan error gitu,,
dihapus aja ga apa2,, kan ga butuh fastreport nya :o

Like · 10 March

Innovators
Master tolong jelakan, untuk program ini pake komponen apa aja?,thx

Like · 10 March

ArRady Fuad Ar-Radhi
fastreport dan alphaskin,, jika cuma mau baca source,, dihapus saja keduanya tidak apa2,,