...

Arsip: manggil form

 
user image
more 15 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
user image
more 15 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.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
Pertanyaan pertama masih ga jelas... Pertanyaan kedua, coba rubah dikit spt ini 

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;
user image
more 15 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
user image
more 15 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
user image
more 15 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;
user image
more 15 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
|
Share to

Last Articles

Last Topic

Random Topic

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