+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات? (/showthread.php?tid=4721)
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات? - Abiox - 14-11-2012
السلام عليكم و رحمة الله و بركاته
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات بحيث يتم تحديث محتواها مع تغير عناصر الحقل المربوطة به.
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات? - Abiox - 15-11-2012
أقصد DBGrid و ليس strigGrid لاني اود لعمود الوحدات ان ياخذ قيمه تلقائيا من قاعدة البيانات و شكرا مجددا
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات? - kachwahed - 15-11-2012
وعليكم السلام ورحمة الله وبركاته
اختر حدث مناسب تقوم من خلاله بتعبئة PickList بشكل داينامك:
كود :
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
var
S: TStringList;
begin
S := TStringList.Create;
with Table1 do
try
DisableControls;
First;
while not eof do begin
S.Add(Table1.FieldByName('AREA').AsString);
Next;
end;
finally
EnableControls;
end;
DBGrid1.Columns[3].PickList := S;
S.Free;
end;http://delphi.about.com/od/usedbvcl/l/aa092703b.htm
بالتوفيق.
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات? - Abiox - 16-11-2012
احسن الله اليك اخي لقد نجحت معي الفكرة بشكل جيد
كود :
procedure TFPrinc.FormCreate(Sender: TObject);
var
S: TStringList;
begin
S := TStringList.Create;
with TProduits do
try
DisableControls;
First;
while not eof do begin
S.Add(TProduits.FieldByName('Produit').AsString);
Next;
end;
finally
EnableControls;
end;
DBGrid1.Columns[4].PickList := S;
S.Free;
end;