Arsip: menjalankan beberapa prosedur di button...

 
user image
more 7 years ago

idhiel

mohon pencerahannya para master.... aq input data yg terdiri dari field kode_kurir,bank,antar(date),dll... dan pada saat selesai diinput aq ingin mengetahui jumlah record yg aq input per bank kode yg dah aq buat seperti ini

dm.ADOQuery1.Close ;
dm.ADOQuery1.SQL.Text := 'select kode_kurir,bank,antar from data '
+'where kode_kurir like ''%'+sedit7.Text+''' and bank like "%BII"'
+'and DTOS(antar) ='+QuotedStr(Formatdatetime('yyyymmdd',date()));
dm.ADOQuery1.ExecSQL ;
dm.ADOQuery1.Open ;
form7.close;
Application.CreateForm(Tdetail,detail);
detail.sPanel2.Caption :=spanel4.Caption ;
detail.sEdit1.Text := inttostr(dm.ADOQuery1.RecordCount);
kode di atas hanya menampilkan jumlh record bank BII.. aq dah buat beberapa prosedur dengan mengganti kata BII dgn nama bank lain dan sedit1 aq ganti sedit2 kemudian aq tempatkan pada sebuah button

procedure TForm7.sBitBtn1Click(Sender: TObject);
begin
bii;
bri;
end;
pada form detail jumlah record yg tampil bargantian sedit1 dan sedit2... aq kepengen pada saat button di click muncul jumlah record tiap bank semua bank secara bersamaan di form detail... para master.... bagaiman modifikasi kode di atas sehinggan yg aq inginkan dapat terpenuhi... mohon pencerahannya...
user image
more 7 years ago

hendrang67

@idhiel: mohon pencerahannya para master.... aq input data yg terdiri dari field kode_kurir,bank,antar(date),dll... dan pada saat selesai diinput aq ingin mengetahui jumlah record yg aq input per bank kode yg dah aq buat seperti ini

dm.ADOQuery1.Close ;
dm.ADOQuery1.SQL.Text := 'select kode_kurir,bank,antar from data '
+'where kode_kurir like ''%'+sedit7.Text+''' and bank like "%BII"'
+'and DTOS(antar) ='+QuotedStr(Formatdatetime('yyyymmdd',date()));
dm.ADOQuery1.ExecSQL ;
dm.ADOQuery1.Open ;
form7.close;
Application.CreateForm(Tdetail,detail);
detail.sPanel2.Caption :=spanel4.Caption ;
detail.sEdit1.Text := inttostr(dm.ADOQuery1.RecordCount);
kode di atas hanya menampilkan jumlh record bank BII.. aq dah buat beberapa prosedur dengan mengganti kata BII dgn nama bank lain dan sedit1 aq ganti sedit2 kemudian aq tempatkan pada sebuah button

procedure TForm7.sBitBtn1Click(Sender: TObject);
begin
bii;
bri;
end;
pada form detail jumlah record yg tampil bargantian sedit1 dan sedit2... aq kepengen pada saat button di click muncul jumlah record tiap bank semua bank secara bersamaan di form detail... para master.... bagaiman modifikasi kode di atas sehinggan yg aq inginkan dapat terpenuhi... mohon pencerahannya...
Apa maksudmu menampilkan bank tidak terbatas BII dan BRI saja, tp bisa bank2 yang lain juga? Kalau spt itu karena kemungkinan banknya sgt bnyk maka menampilkan jumlah data / banknya sdh tidak cocok pakai TEdit, ada baiknya pakai TListbox atau TDBGrid. untuk SQL Query bisa pakai SQL Group By. Syntax nya : dm.ADOQuery1.SQL.Text := 'select kode_kurir,bank,antar,count() as jumlahdata from data ' +'where kode_kurir like ''%'+sedit7.Text+'''' +'and DTOS(antar) ='+QuotedStr(Formatdatetime('yyyymmdd',date())) +' group by kode_kurir,bank,antar'; untuk test create satu TListBox (Listbox1) di form code nya : procedure TForm1.Button1Click(Sender: TObject); begin dm.ADOQuery1.Close ; dm.ADOQuery1.SQL.Text := 'select kode_kurir,bank,antar,count( ) as jumlahdata from data ' +'where kode_kurir like ''%'+sedit7.Text+'''' +'and DTOS(antar) ='+QuotedStr(Formatdatetime('yyyymmdd',date())) +' group by kode_kurir,bank,antar'; dm.ADOQuery1.Open ; ListBox1.Clear; while not dm.ADOQuery1.eof do begin ListBox1.Items.Add(dm.ADOQuery1['Bank']+' '+ dm.ADOQuery1.FieldByName('JumlahData').AsString); dm.ADOQuery1.Next; end; end;
user image
more 7 years ago

idhiel

bgini gan.. coding ini masih kelanjutan yg kemarin Gan... aq input data dari beberapa bank (15 bank).. setelah aq input aq kepengen tahu berapa jumlah data yg aq input per bank. dengan mengklik button jumlah data setiap bank muncul di form detail... sekarang ini di form detail aq menggunakan 15 Tedit untuk menampilkan jumlh data dari 15 bank yg terinput ... masalhnya dengan menggunakan coding yg aq punya, prosedur yg dijalankan hanya yg terakhir saja... gimana caranya agar jumlah datax semua tampil bersamaan di form detail...?? mohon pencerahannnya lagi Gan....
user image
more 7 years ago

hendrang67

@idhiel: bgini gan.. coding ini masih kelanjutan yg kemarin Gan... aq input data dari beberapa bank (15 bank).. setelah aq input aq kepengen tahu berapa jumlah data yg aq input per bank. dengan mengklik button jumlah data setiap bank muncul di form detail... sekarang ini di form detail aq menggunakan 15 Tedit untuk menampilkan jumlh data dari 15 bank yg terinput ... masalhnya dengan menggunakan coding yg aq punya, prosedur yg dijalankan hanya yg terakhir saja... gimana caranya agar jumlah datax semua tampil bersamaan di form detail...?? mohon pencerahannnya lagi Gan....
Ada bbrp cara unt ini, kita pakai cara paling sederhana, tp kalau data bnyk mungkin agak lambat karena perlu melakukan Query data sebanyak 15 kali, caranya dengan membuat 1 Function yang akan return jumlah data per bank. Contoh: procedure TForm1.Button1Click(Sender: TObject); begin detail.sEdit1.Text := inttostr(JumlahData('BRI'); detail.sEdit2.Text := inttostr(JumlahData('BNI'); detail.sEdit3.Text := inttostr(JumlahData('BII'); <seterusnya smp sedit15> end; Function TForm1.JumlahData(aBank:String): Integer; begin dm.ADOQuery1.Close ; dm.ADOQuery1.SQL.Text := 'select kode_kurir,bank,antar from data ' +'where kode_kurir like ''%'+sedit7.Text+''' and bank like '+ QuotedStr('%'+aBank) +'and DTOS(antar) ='+QuotedStr(Formatdatetime('yyyymmdd',date())); dm.ADOQuery1.Open ; Result:= dm.ADOQuery1.RecordCount; end;
user image
more 7 years ago

idhiel

makasih banyak lagi agan Hendrang67... msalahnya dah selesai aq ikutin sesuai petunjuk agan hendrang67.... :D :D :D
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com