Программа "Таблица Менделеева" с помощью бд Aссess

[Лиза.А]

Добрый день, нужна помощь
Нужно сделать программу "Таблица Менделеева" с помощью бд Aссess. Суть программы в том, чтобы она выводила информацию о каждом химическом элементе. Внешний вид программы должен быть как сама таблица Менделеева. У меня есть кое-какие соображения, а вот с Access-ом не представляю как сделать. Может у кого-нибудь есть идеи?

[Dark_Spirit]

как одна из идей:
1. в бд Aссess созхдайте таблицу и заполните её данными о химических елементах;
2. в программе попробуйте использовать грид, чтобы отобразить таблицу Менделеева.

[eval]

Дмитрий Иванович. фик знает сколько лет назад. закономерность в хаосе нашел. а вы не можете понять её...
совсем плохо

[superedward]

Классический вид таблицы Менделеева будет очень трудоемко построить из БД в гриде. Лучше имхо поискать другой вид таблицы, более подходящий для реализации в гриде.

[Аватар]

В StringGrid, например, еще как можно. На примере одной ячейки и массива рекордов. В реальности вместо него информацию из базы брать

type TElementInfo = record
     Weight: Real;
     Col,Row,Number,Count: Smallint;
     Designation,Name: String;
     Electr: array of Byte;
     end;
var Infos: array of TElementInfo;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=0 to StringGrid.RowCount-1 do StringGrid.RowHeights[i]:=90;
  for i:=0 to StringGrid.ColCount-1 do StringGrid.ColWidths[i]:=90;
  StringGrid.Font.Name:='Arial';
  SetLength(Infos,1);
  Infos[0].Col:=0;
  Infos[0].Row:=0;
  Infos[0].Number:=79;
  Infos[0].Designation:='Au';
  Infos[0].Name:='золото';
  Infos[0].Weight:=196.9665;
  Infos[0].Count:=6;
  SetLength(Infos[0].Electr,6);
  Infos[0].Electr[0]:=2;
  Infos[0].Electr[1]:=8;
  Infos[0].Electr[2]:=18;
  Infos[0].Electr[3]:=32;
  Infos[0].Electr[4]:=18;
  Infos[0].Electr[5]:=1;
end;

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i,j: Integer;
    s: String;
    r: TRect;
    t: TSize;
begin
  for i:=Low(Infos) to High(Infos) do
    if (Infos[i].Col=ACol) and (Infos[i].Row=ARow) then begin
      StringGrid.Canvas.Font.Size:=6;
      t:=StringGrid.Canvas.TextExtent('99');
      for j:=0 to Infos[i].Count-1 do begin
        s:=IntToStr(Infos[i].Electr[j]);
        r:=Types.Rect(Rect.Left+2,Rect.Bottom-(j+1)*t.cy,Rect.Left+2+t.cx,Rect.Bottom-j*t.cy);
        DrawText(StringGrid.Canvas.Handle,PChar(s),Length(s),r,DT_RIGHT);
      end;
      StringGrid.Canvas.Font.Size:=10;
      StringGrid.Canvas.TextOut(Rect.Left+20,Rect.Top+2,IntToStr(Infos[i].Number));
      StringGrid.Canvas.Font.Size:=12;
      r:=Types.Rect(Rect.Right-60,Rect.Top+16,Rect.Right,Rect.Top+16+StringGrid.Canvas.TextHeight('9'));
      DrawText(StringGrid.Canvas.Handle,PChar(Infos[i].Designation),Length(Infos[i].Designation),r,DT_CENTER);
      StringGrid.Canvas.Font.Size:=8;
      r:=Types.Rect(Rect.Right-60,r.Bottom,Rect.Right,r.Bottom+StringGrid.Canvas.TextHeight('9'));
      s:=FormatFloat('#0.####',Infos[i].Weight);
      DrawText(StringGrid.Canvas.Handle,PChar(s),Length(s),r,DT_CENTER);
      r:=Types.Rect(Rect.Left+20,Rect.Bottom-StringGrid.Canvas.TextHeight('9'),Rect.Right-8,Rect.Bottom);
      DrawText(StringGrid.Canvas.Handle,PChar(Infos[i].Name),Length(Infos[i].Name),r,DT_RIGHT);
    end;
end;

[eval]

так оно и у Менделеева в гриде, чего тут еще выдумывать

[Лиза.А]

http://rghost.ru/55129784
С помощью DBGrid сделать попробовала, вот что получилось. А как дальше?

[Лиза.А]

а можно как-нибудь попроще?) я не так хорошо разбираюсь в Delphi)
а как с помощью StringGrid сделать так, как у вас на изображении?

[Аватар]

а как с помощью StringGrid сделать так, как у вас на изображении?

А что выложено в #5? Если там не заметен способ отрисовки грида с таблицей Менделеева, то не стоит даже начинать этим заниматься Лучше сразу в фриланс за денежку
http://programmersforum.ru/forumdisplay.php?f=29