گذاشتن شرط برای query [بایگانی]

me1364

یک شنبه 11 مرداد 1388, 17:08 عصر

سلام بر همگی
من جدولی دارم داری سه فیلد نام،نام خانوادگی و ایتم حالا میخوام بسته به انتخاب کامبو باکس که انتخاب میکنم در داخل فیلد item عدد 0 یا 1 یا 2 قرار گیرد من کد خودم را به اینصورت نوشتم اما فکر میکنم این راه صحیحی نیست لطفا یک راه بهتر به من نشان دهید ممنون می شوم البته حتما میخوام کوئری های SQL بنویسم

with Dm.Query1 do

begin

Close;

SQL.Clear;

if (ComboBox1.ItemIndex = 0) then

begin

SQL.Text:='insert into Query1(name,family,item) values('

+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+' ,'+ '0' + ')';

end;

if (ComboBox1.ItemIndex = 1) then

begin

SQL.Text:='insert into Query1(name,family,item) values('

+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+' ,'+ '1' + ')';

end;

if (ComboBox1.ItemIndex = 2) then

begin

SQL.Text:='insert into Query1(name,family,item) values('

+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+' ,'+ '2' + ')';

end;

ExecSQL;

Close;

SQL.Clear;

SQL.Text := 'select * from Query1';

Open;

end;