کلینیک دلفی

 آقای میرزایی عزیز  من فکر میکنم شما Premission کافی ندارین لطف کنین اون درایوتون و از بابت Security Full کنترل کنین مشکلتون حل میشه ...

جعفر آقای عزیز  شما هم احتمالا اون فایل ها یه جای دیگهای بوده و اونو حرکت دادین داخل کد آدرس اون فایل پاس رو تصحیح بفرمایین و کامپایل مجدد کنین مشکل حل میشه ...

فاطمه خانم گرامی شما میتونین از کامپوننتهای DevExpress استفاده کنین ...

سحر خانم محترم شما هم میتونین از این کد استفاده کنین :

procedure TForm1.DBGrid1MouseMove
  (Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  pt: TGridcoord;
begin
  pt:= DBGrid1.MouseCoord(x, y);

  if pt.y=0 then
    DBGrid1.Cursor:=crHandPoint
  else
    DBGrid1.Cursor:=crDefault;
End;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const PreviousColumnIndex : integer = 0;
{$J-}
begin
  if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    try
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
    except
    end;

    Column.title.Font.Style :=
    Column.title.Font.Style + [fsBold];
    PreviousColumnIndex := Column.Index;

    if (Pos(Column.Field.FieldName, Sort) = 1)
    and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;
end;

خانم دلخوش گرامی شما هم باید همچین کاری رو بکنین :

اگه ADO  هستش : ADOTable.Sort := 'Code Desc'

 اگه ADOQuery :  Select * From Table_1
Order By Code Desc

سرکار خانم فروغی (خواهش می کنم لطف دارین ..) شما مشخص نکردین  با چی کار کردینINDY یا Socket Progamming یا ... لطفا دقیق توضیح بدین مرسی ! ...

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