مرتب کردن ستون جدول
با سلام
یک adotable و دی بی گرید دارم که دی بی گرید به adotable وصل است و از stored procedure استفاده می کنم برای عمل ثبت در جدولم
یک ستون در جدولم با نام شماره کلاس دارم که می خوام وقتی عمل ثبت در اون رو انجام می دم اعداد به ترتیب ثبت بشن یعنی اگه اول عدد 20 را ثبت کردم و بعد عدد 10 را عدد 10 قبل از 20 در جدولم ثبت بشه و در دی بی گرید نشون داده بشه (ضمنا اون ستون از نوع int است دلفی با بانک sql )
اگه می خواین بگین از order by استفاده کنم بگید کجا استفاده کنم اینم تکه برنامم
begin
if Edit1.Text='' then
begin
ShowMessage(' ÔãÇ ÈÇíÏ ˜Ï ÇÊÇÞ ÑÇ æÇÑÏ ˜äíÏ ');
Edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
Edit1.SetFocus;
end
else
begin
adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.SQL.Add('select * from ttkelas');
adoquery1.SQL.Add('where shomare=:a order by shomare');
adoquery1.Parameters.ParamValues['a']:=Edit1.Text;
adoquery1.Open;
if ADOQuery1.IsEmpty=false then
begin
ShowMessage(' ˜Ïí ÈÇ ÔãÇÑå '+Edit1.text+'ÏÑ ÌÏæá ãæÌæÏ ãí ÈÇÔÏ ');
Edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
Edit1.SetFocus;
end
else
begin
adostoredproc1.Parameters [1].Value :=trim(Edit1.Text );
adostoredproc1.Parameters [2].Value :=trim(edit2.Text );
adostoredproc1.Parameters [3].Value :=trim(edit3.Text );
adostoredproc1.Parameters [4].Value :=trim(edit4.Text );
adostoredproc1.Prepared ;
adostoredproc1.ExecProc ;
Edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
ADOTable1.Close;
ADOTable1.Open;
showmessage('ËÈÊ ˜áÇÓ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ');
Edit1.SetFocus ;
end;
end;
end;
جواب بصورت نقل قول
