دخول

Abiox · 14-11-2012, 03:08 PM

السلام عليكم و رحمة الله و بركاته
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات بحيث يتم تحديث محتواها مع تغير عناصر الحقل المربوطة به.

Abiox · 15-11-2012, 06:01 PM

أقصد DBGrid و ليس strigGrid لاني اود لعمود الوحدات ان ياخذ قيمه تلقائيا من قاعدة البيانات و شكرا مجددا

**kachwahed** · 15-11-2012, 08:42 PM

وعليكم السلام ورحمة الله وبركاته
اختر حدث مناسب تقوم من خلاله بتعبئة 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
بالتوفيق.

Abiox · 16-11-2012, 08:10 PM

احسن الله اليك اخي لقد نجحت معي الفكرة بشكل جيد

كود :
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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة