دخول

sabre · 06-02-2017, 10:03 AM

كيف تتم عملية التصفية في TComboBox

وخصوصا اذا كنت تتعامع قاعدة البيانات
وأردت أن تتم عملية التصفية في كومبوبوكس
لأن كومبوبوكس ليس من المجموعة دي بي
ويجب أن تتم عملية ربط برمجيا

بسم الله الرحمن الرحيم
السلام عليكم

ضع فوق الفورم 1
TQuery
و 1
TComboBox
و 1
TDBLookupComboBox
و 2
TButton
و 1
TEdit
و 1
TDataSource
و 1
TDBGrid

نشاء تابل
[left]

كود :
// نشاء تابل
procedure TForm1.FormCreate(Sender: TObject);
begin
    if not fileExists('Emdb1.db') then
    begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('CREATE TABLE "Emdb1.db"(NOM CHAR(20),PRENOM CHAR(15),'+
     'CODE NUMERIC(5))');
     Query1.ExecSQL;
    end;

    if fileExists('Emdb1.db') then
    begin
     Query1.Close;
     Query1.SQL.Clear;
 // مسار مجلد مشروعك
     Query1.DatabaseName := '';
     Query1.SQL.Add('SELECT * FROM Emdb1');
     Query1.Open;

//  TComboBox

  Query1.DisableControls;
  try
  Query1.First;
  while not Query1.Eof do
  begin
   ComboBox1.Items.Add(Query1.FieldValues['NOM']);
   Query1.Next;
  end;
   finally
    Query1.EnableControls;
 end;

 // TDBLookupComboBox

 DBLookupComboBox1.ListSource := DataSource1;
 DBLookupComboBox1.KeyField := 'NOM';
 end;

end;

[/left]

عملية تصفية
[left]

كود :
// عملية تصفية
procedure TForm1.Button1Click(Sender: TObject);
begin
 if Edit1.Text <> '' then
 begin
  Query1.First;
  Query1.Filter := 'NOM='+#39+Edit1.Text+#39;
  Query1.Filtered := true;

  ComboBox1.Items.Clear;
  Query1.DisableControls;
  try
  Query1.First;
  while not Query1.Eof do
  begin
   ComboBox1.Items.Add(Query1.FieldValues['NOM']);
   Query1.Next;
  end;
   finally
    Query1.EnableControls;
 end;
 end;

end;

[/left]

الغاء تصفية
[left]

كود :
// الغاء تصفية
procedure TForm1.Button2Click(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  Query1.Filtered := false;
  Query1.DisableControls;
  try
  Query1.First;
  while not Query1.Eof do
  begin
   ComboBox1.Items.Add(Query1.FieldValues['NOM']);
   Query1.Next;
  end;
   finally
    Query1.EnableControls;
 end;

end;

[/left]

[left]

كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 edit1.Text := ComboBox1.Text;
end;

[/left]

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