hentjanson
سه شنبه 06 دی 1390, 10:00 صبح
سلام دوستان من یک جدول دارم چندین فیلد میخواستم بر اساس چند فیلد کاربر بتونه جستجو کنه .
یعنی اینکه یک combobox باشه که حالت رو انتخاب کنی سپس جستجو کنی .
من اینطور نوشتم
procedure TForm1.MaskEdit9Change(Sender: TObject);
var
FieldName : String;
begin
FieldName := DBGrid1.Columns[ComboBox1.ItemIndex].FieldName;
DataModule2.ADOTable1.Filtered := False;
DataModule2.ADOTable1.Filter := FieldName+' Like '+QuotedStr('%'+MaskEdit9.Text+'%');
IF MaskEdit9.Text <> '' Then
begin
DataModule2.ADOTable1.Filtered := True;
StaticText9.Caption := IntToStr(DataModule2.ADOTable1.RecordCount);
end
اینم برنامه منه میشه دوستان یک نگاه به برنامه من بکنن مشکلات کارم بگن
یعنی اینکه یک combobox باشه که حالت رو انتخاب کنی سپس جستجو کنی .
من اینطور نوشتم
procedure TForm1.MaskEdit9Change(Sender: TObject);
var
FieldName : String;
begin
FieldName := DBGrid1.Columns[ComboBox1.ItemIndex].FieldName;
DataModule2.ADOTable1.Filtered := False;
DataModule2.ADOTable1.Filter := FieldName+' Like '+QuotedStr('%'+MaskEdit9.Text+'%');
IF MaskEdit9.Text <> '' Then
begin
DataModule2.ADOTable1.Filtered := True;
StaticText9.Caption := IntToStr(DataModule2.ADOTable1.RecordCount);
end
اینم برنامه منه میشه دوستان یک نگاه به برنامه من بکنن مشکلات کارم بگن