مشكل ترتيب قاعدة بيانات - نسخة قابلة للطباعة

كود :

procedure Sorting;
var NoteTable : Array[1..8]of real;
    NumTable : Array[1..8]of integer;
    i : integer;
    Temp : Real;
    Found : Boolean;
begin

   with Grid1 do
     begin
       NoteTable[1] := StrToFloat(Cells[0,1]);
       NoteTable[2] := StrToFloat(Cells[0,2]);
       NoteTable[3] := StrToFloat(Cells[0,3]);
       NoteTable[4] := StrToFloat(Cells[0,4]);
       NoteTable[5] := StrToFloat(Cells[0,5]);
       NoteTable[6] := StrToFloat(Cells[0,6]);
       NoteTable[7] := StrToFloat(Cells[0,7]);
       NoteTable[8] := StrToFloat(Cells[0,8]);
     end;

repeat
    Found := False;
    For i := 1 To length(NoteTable)-1 do
        If NoteTable[i] < NoteTable[i+1] Then // ترتيب تنازلي
[color=Blue]//        If NoteTable[i] > NoteTable[i+1] Then // ترتيب تصاعدي[/color]
          begin
              Temp := NoteTable[i];
              NoteTable[i] := NoteTable[i+1];
              NoteTable[i+1] := Temp;
              Found := True;
          end;
until Found=false;

NumTable[1]:=1;

For i := 1 To length(NoteTable)-1 do
        If NoteTable[i] = NoteTable[i+1] Then
            NumTable[i+1]:= NumTable[i]
          else NumTable[i+1]:= NumTable[i]+1;

   with Grid2 do
     begin
       Cells[0,1] := inttostr(NumTable[1]);
       Cells[0,2] := inttostr(NumTable[2]);
       Cells[0,3] := inttostr(NumTable[3]);
       Cells[0,4] := inttostr(NumTable[4]);
       Cells[0,5] := inttostr(NumTable[5]);
       Cells[0,6] := inttostr(NumTable[6]);
       Cells[0,7] := inttostr(NumTable[7]);
       Cells[0,8] := inttostr(NumTable[8]);
     end;

    with Grid2 do
     begin
       Cells[1,1] := floattostr(NoteTable[1]);
       Cells[1,2] := floattostr(NoteTable[2]);
       Cells[1,3] := floattostr(NoteTable[3]);
       Cells[1,4] := floattostr(NoteTable[4]);
       Cells[1,5] := floattostr(NoteTable[5]);
       Cells[1,6] := floattostr(NoteTable[6]);
       Cells[1,7] := floattostr(NoteTable[7]);
       Cells[1,8] := floattostr(NoteTable[8]);
     end;

end;

كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Table2: TTable;
    SmallintField1: TSmallintField;
    FloatField1: TFloatField;
    DBGrid1: TDBGrid;
    Table1Num: TSmallintField;
    Table1Note: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure Table1BeforePost(DataSet: TDataSet);
    procedure Table2BeforeOpen(DataSet: TDataSet);
    procedure Table1BeforeOpen(DataSet: TDataSet);
  private
    { Déclarations privées }
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;Table2.Open;
end;

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
Table2.IndexFieldNames:='Note';
if Table2.FindKey([Table1.FieldByName('Note').AsString]) then
  Table1.FieldByName('Num').AsInteger:=Table2.fieldByName('Num').AsInteger
  else Table1.FieldByName('Num').AsInteger:=StrToInt(Inputbox('إدخال الرقم','أدخل الرقم الجديد','0'));
end;

procedure TForm1.Table2BeforeOpen(DataSet: TDataSet);
begin
Table2.TableName:=ExtractFilePath(Application.exeName)+'data\notes.DB' ;
end;

procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);
begin
Table1.TableName:=ExtractFilePath(Application.exeName)+'data\notes.DB' ;
end;

end.

كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Table2: TTable;
    SmallintField1: TSmallintField;
    FloatField1: TFloatField;
    DBGrid1: TDBGrid;
    Table1Num: TSmallintField;
    Table1Note: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure Table1BeforePost(DataSet: TDataSet);
    procedure Table2BeforeOpen(DataSet: TDataSet);
    procedure Table1BeforeOpen(DataSet: TDataSet);
    procedure Table1AfterDelete(DataSet: TDataSet);
  private
    { Déclarations privées }
  public
    procedure Tartib;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;Table2.Open;
end;

procedure TForm1.Tartib;
var Note: Real;
   I: integer;
begin
  Table2.IndexFieldNames:='Note';
  Table2.First;
  I:=1; Note:=Table2.FieldByName('Note').AsFloat;
  While not Table2.Eof do
    begin
    Table2.Edit;
    if Table2.FieldByName('Note').AsFloat=Note then
       Table2.FieldByName('Num').AsInteger:=I
       else begin
            I:=I+1;
            Table2.FieldByName('Num').AsInteger:=I;
            end;
    Note:=Table2.FieldByName('Note').AsFloat;
    Table2.Post;
    Table2.Next;
    end;
    Table1.Refresh;
end;

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
Tartib;
end;

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
Table2.IndexFieldNames:='Note';
if Table2.FindKey([Table1.FieldByName('Note').AsString]) then
  Table1.FieldByName('Num').AsInteger:=Table2.fieldByName('Num').AsInteger;
end;

procedure TForm1.Table2BeforeOpen(DataSet: TDataSet);
begin
Table2.TableName:=ExtractFilePath(Application.exeName)+'data\notes.DB' ;
end;

procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);
begin
Table1.TableName:=ExtractFilePath(Application.exeName)+'data\notes.DB' ;
end;

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
Tartib;
end;

end.