Arsip: manggil form

more 17 years ago
ags606
hallo all
langsung aja. minta bantuan master2.
sy buat form_browse_item dimana formnya dipanggil oleh dua/ato lebih form yang berbeda,
biasanya cara bodohnya saya buat form_browse_item utk masing2 form yang memanggilnya..
nyang saya mau tanyakan ada enggak cara pinter untuk memanggil form_browse_item dari banyak form tanpa membuat banyak form_browse_item (ato form_brose_itemnya cm 1 bh).
satulagi
saya mau memasukkan data di edit1, edit2, edit3, edit4 ke dalam stringgrid setiap button.click terus-menerus ampe stringgrid.rowcount
procedure Tform1.button1click(sender : TObject);
var i, k, b : integer;
begin
k := 1;
b := 1;
for i := 0 to stringgrid.rowcount-1 do
stringgrid.cell[k, b] := edit1.text;
inc(k);
stringgrid.cell[k, b] := edit2.text;
inc(k);
stringgrid.cell[k, b] := edit3.text;
inc(k);
stringgrid.cell[k, b] := edit4.text;
inc(b);
end;
codenya enggak berhasil, mohon petuahnya
trims sebelumnya
more 17 years ago
reminder2k1
@ags606: hallo all langsung aja. minta bantuan master2. sy buat form_browse_item dimana formnya dipanggil oleh dua/ato lebih form yang berbeda, biasanya cara bodohnya saya buat form_browse_item utk masing2 form yang memanggilnya.. nyang saya mau tanyakan ada enggak cara pinter untuk memanggil form_browse_item dari banyak form tanpa membuat banyak form_browse_item (ato form_brose_itemnya cm 1 bh). satulagi saya mau memasukkan data di edit1, edit2, edit3, edit4 ke dalam stringgrid setiap button.click terus-menerus ampe stringgrid.rowcountPertanyaan pertama masih ga jelas... Pertanyaan kedua, coba rubah dikit spt inicodenya enggak berhasil, mohon petuahnya trims sebelumnyaprocedure Tform1.button1click(sender : TObject); var i, k, b : integer; begin k := 1; b := 1; for i := 0 to stringgrid.rowcount-1 do stringgrid.cell[k, b] := edit1.text; inc(k); stringgrid.cell[k, b] := edit2.text; inc(k); stringgrid.cell[k, b] := edit3.text; inc(k); stringgrid.cell[k, b] := edit4.text; inc(b); end;
procedure Tform1.button1click(sender : TObject);
var i, k, b : integer;
begin
for i := 0 to stringgrid.rowcount-1 do
k := 0;
b := 0;
stringgrid.cell[k, b] := edit1.text;
inc(k);
stringgrid.cell[k, b] := edit2.text;
inc(k);
stringgrid.cell[k, b] := edit3.text;
inc(k);
stringgrid.cell[k, b] := edit4.text;
inc(b);
end;

more 17 years ago
ags606
sy juga bingung nanyaknya maklum, masih nyubiee
contohnya kira-kira gini :
ini pemanggilan di form Fbrowse_item di form FItem
procedure TFItem.sbKode_ItemClick(Sender : TObject);
begin
FBrowse_Item.ShowModal;
end;
ini code perintah dblClick di dbggrid yang ada di form FBrowse_Item
procedure TFBrowse_Item.grdBrowse_Item.dblClick(Sender : TObject);
begin
//kalo yang memanggilnya form FItem
with FItem.qryBrowse_Item do
begin
locate('KODE_ITEM',grdBrowse_Iem.Fields[0].Asstring,);
end;
//kalo yang memanggilnya form FItem_MAsuk
//FItem_Masuk.edKode_Item.text := grdBrowse_Item.Fields[0].Asstring;
end;
maksudnya dari mana kita bisa tau yang memanggilnya adalah form Item ato form Item_Masuk?
mudahan bisa dimengerti pertanyaanya
oke trims sebelumnya
more 17 years ago
ags606
@reminder2K1
codenya hasilnya sama dgn code yang diatas, cuma beda row mulainya,
yang saya mau setiap button click data terus dimasukkan sampai batas rowcount yang ditentukan
trims

more 17 years ago
MrLee
sepertinya loop nya salah
for i := 0 to stringgrid.rowcount-1 do
stringgrid.cell[k, b] := edit1.text;
bila semua yg di bawah mau di kerjakan dlm satu loop
for i := 0 to stringgrid.rowcount-1 do
begin //tambahan
stringgrid.cell[k, b] := edit1.text;
....
...
end; //tambahan
saran dr saya u/ memngetahui dari form mana yg manggil
letakkan 1 var public di form grid browse- nya
private
...
public
drForm : String;
...
jadi form yg manggil harus memberi nama var tersebut
FBrowse_Item.drForm := 'Form Yg Manggil';
semoga bermanfaat;
more 17 years ago
donlego
procedure Tform1.button1click(sender : TObject);
var i,frm:integer;
begin
stringgrid.cell[0,0];
case frm of
0:begin //form 1
stringgrid.cell[0, 1] := edit1.text;
stringgrid.cell[1, 1] := edit2.text;
stringgrid.cell[2, 1] := edit3.text;
stringgrid.cell[3, 1] := edit4.text;
StringGrid1.Col:=1;
StringGrid1.Row:=StringGrid1.Row+1;
end;
2:begin //form 2
stringgrid.cell[0, 1] := edit1.text;
stringgrid.cell[1, 1] := edit2.text;
stringgrid.cell[2, 1] := edit3.text;
stringgrid.cell[3, 1] := edit4.text;
StringGrid1.Col:=1;
StringGrid1.Row:=StringGrid1.Row+1;
end;
end;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Tampilkan Hexadecimal
by om20020 in Tip n Trik Pemrograman more 17 years ago - Produksi Jaket Delphi
by yayaretina in Moderator Only more 15 years ago - Aplikasi konversi Biner desimal
by ilhuna in Hal umum tentang Pascal Indonesia more 14 years ago - Cara nampilin data yang sudah di QUERY ke EditText
by flamade in Tip n Trik Pemrograman more 17 years ago - Help File Just For Cyber Hecker
by saysansay in Hal umum tentang Pascal Indonesia more 19 years ago - pilihan kombinasi tool untuk development
by simba in Hal umum tentang Pascal Indonesia more 17 years ago - freeware exporting dataset to excel
by delphi_warrior in Hal umum tentang Pascal Indonesia more 18 years ago - Pilih Avatar terbagus di delphi-id...
by eksant in OOT more 18 years ago - simpan otomatis
by Ayahe_Hasna in Paradox more 16 years ago - cari component
by alfian in Enginering more 19 years ago