اضافه کردن یک select به query

سلام به دوستان
من تو یک فرم با نام فاکتور خرید یه dbgridدارم و یک combobox و یک دکمه

هر بار کاربر یکی از کالاهای لیست شده در combobox رو انتخاب میکنه و روی دکمه کلیک می کنه این کالای جدید همراه مشخصاتش به dbgrid اضافه می شه . در نهایت db gird شامل لیست کالاهایی است که تو یک فاکتور خرید برای کاربر نمایش داده شده است

کد به صورت زیر است:

کد:

---

procedure Tfactor_kharid.Button1Click(Sender: TObject);
 var o_name:string;
    min_order,max_order,i : integer;
begin

 
 o_name:=combobox3.Text;
 dm1.IBQuery2.Active:=false;
 dm1.IBQuery2.close;

 //dm1.IBQuery2.SQL.Clear;

 dm1.IBQuery2.SQL.Add('select * from object where o_name=:o_name');
 dm1.IBQuery2.Params[0].Value:=o_name;
 dm1.IBQuery2.Active:=true;

 //dm1.DataSource6.Edit;

  dm1.DataSource6.DataSet:=dm1.IBQuery2;
  dbgrid1.DataSource:=dm1.DataSource6;

end;

---

مشکل اینه که با هر بار کلیک فقط رکورد جدید نشون داده می شه و قبلی از dbgrid پاک می شه . راه حل چیه ؟
وقتی هم قسمت dm1.DataSource6.Edit رو فعال می کنم بار اول مشکلی نداره ولی وقتی برای کالای دوم روی دکمه کلیک می کنم ÷یغام می ده که دیتاست readonly است و نمی شه اونو تغییر داد

سلام
query ها برای انجام پرس و جو استفاده میشن و معمولا قابلیت insert , delete , edit ندارند. لا اقل query از تب BDE که اینجوری هست. اما با IBQuery کار نکردم. بهتره که برای inset , edit , delete از IBTable استفاده کنی.

من نمی خوام چیزی به جدول بانکم اضافه کنم که از Ibtabel و متد Appned اون استفاده کنم

می خوام کاربر هربار که کالایی از لیست Combobox انتخاب می کنه اطلاعات اون کالا در Dbgrid که کنار اونه نشون داده بشه در واقع به Dbgrid اضافه بشه نه اینکه جای رکورد قبلی رو بگیره . در نهایت Dbgridشامل لیست کالاهایی است که کاربر قصد خرید اونها رو داره. این لیست زیر مجموعه ای از کل کالاهای تعریف شده در جدول بانک اطلاعاتی است

ببخشید من منظور شما رو درست متوجه نشدم. البته شما هم بی تقصیر نیستی:

نقل قول:

---

این کالای جدید همراه مشخصاتش به dbgrid اضافه می شه

---

اگر درست متوجه شده باشم شما میخوای نتیجه جستجوهای مختلف رو با هم داشته باشی. در واقع شما کنترل مناسبی رو برای این کار انتخاب نکردی چون dbgrid رابطه مستقیم با تغییرات dataset مربوطه داره. بهتره که نتیجه های جستجو رو توی Listbox یا StringGrid نمایش بدی.

سلام

ممنون از راهنماییتون

ولی من یک سری فیلد اضافه دارم مثل ردیف کالا و مبلغ که از بانک مقدار نمی گیرند بلکه تو روال DBGrid1DrawColumnCell به اونا مقدار می دم . این کار رو با stringgridهم می شه انجام داد .

یه سواال دیگه هم داشتم : عنوان رو برای ستون های stringgrid چه طور تعریف می کنند؟

اگه از دیتا بیس Sql استفاده میکنی از جدولهای موقت استفاده کن و گرنه توی اکسس یه جدول بساز و در هر بار محتویاتش رو پاک کن و رکورد جدید درج کنی

نقل قول:

---

سلام

ممنون از راهنماییتون

ولی من یک سری فیلد اضافه دارم مثل ردیف کالا و مبلغ که از بانک مقدار نمی گیرند بلکه تو روال DBGrid1DrawColumnCell به اونا مقدار می دم . این کار رو با stringgridهم می شه انجام داد .

---

سلام
فرقی نمیکنه، مهم خوندن اطلاعات از dataset هست
این کدی رو که نوشتم اطلاعات جدول شما رو به stringgrid اضافه میکنه اما برای جستجوهای بعدی، دوباره از اول ساخته میشه. نتونستم محتویات stringgrid رو حفظ کنم و اطلاعات جدیدی رو اضافه کنم. کد رو میذارم شاید مفید باشه:
جدولی که اینجا مثال زده شده، جدولی هست با 4 فیلد:

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var j,count:integer;
begin
count:=Table1.RecordCount+1;
StringGrid1.RowCount:=count;

StringGrid1.ColCount:=4;
StringGrid1.FixedCols:=0;

Table1.First;
if not table1.Eof then
while not Table1.Eof do
  begin
  for j:=1  to count do
    begin
    StringGrid1.Cells[0,j]:=Table1.fieldbyname('نام فیلد').Value;
    StringGrid1.Cells[1,j]:=Table1.fieldbyname('نام فیلد').Value;
    StringGrid1.Cells[2,j]:=Table1.fieldbyname('نام فیلد').Value;
    StringGrid1.Cells[3,j]:=Table1.fieldbyname('نام فیلد').Value;
    table1.next;
    end;
  end;

end;

---

نقل قول:

---

یه سواال دیگه هم داشتم : عنوان رو برای ستون های stringgrid چه طور تعریف می کنند؟

---

کد:

---

StringGrid1.Cells[سطر,ستون]:='عنوان';

---

برای تنظیم عرض ستونها:

کد:

---

StringGrid1.ColWidths[شماره ستون]:=مقدار عددی;

---

پس به احتمال زیاد stringgrid هم کار شما رو انجام نمیده و همونطوری که MasterData عزیز گفتن شما باید از یه جدول موقت استفاده کنی.

کد:

---

procedure MakeDataBase;
begin
  with TTable.Create(nil) do
  begin
    DatabaseName  := 'c:\temp';
    TableName    := 'نام جدول.db';
    TableType    := ttParadox;
    with FieldDefs do
    begin
      Add('نام فیلد', ftString,20,false);
      Add('نام فیلد', ftInteger);
    end;
    CreateTable;
  end;
end;

---

آقا فرهاد من نمی دونم کدی که شما گذاشتین برای کار با چه کاپوننت های بانک اطلاعاتیه . من با اینتر بیس کار می کنم. کد شمار و تست کردم ولی از قسمت Add فیلد ها خطا می گیره و ftstring و ftinteger رو نمی شناسه

کدی که خودم برای createگذاشتم خطایی نداره ولی موقع اجرا جدول ایجاد شده رو نمی شناسه یعنی از خط آخر که جدول رو فعال می کنم خطا می گیره ...

کد من :

کد:

---

begin
  dm1.IBQuery3.Close;
  dm1.IBQuery3.SQL.Clear;
  with dm1.IBQuery3.SQL do
      begin
        Add('create table _kala(');
        Add('o_code    integer,');
        Add('o_name      char(30),');
        Add('o_group  char(30))');
      end;
      dm1.IBQuery3.ExecSQL;

    dm1.IBTable14.Database:=dm1.IBDatabase1  ;
    dm1.IBTable14.Transaction:=dm1.IBTransaction1  ;
    dm1.IBTable14.TableName:='kala';
    dm1.IBTable14.CachedUpdates:=true;
    dm1.IBTable14.active:=true;
end;

---

برای استفاده از کدی که من گذاشتم باید از تب BDE یه TTable به فرم اضافه کنی.
چه خطایی میده؟ پیغام خطا رو بنویس