реализация Combobox в Paradox...помогите

Тема в разделе "Остальные БД", создана пользователем Vitamin, 29 янв 2011.

Статус темы:
Закрыта.
  1. Vitamin

    Vitamin Гость

    Товарищи,подскажите пожалуйста. У меня такая проблема.Есть две таблицы,файл пример приведен.Хочу сделать так,чтобы в первой таблице третий столбец был типа combobox, значения которого из второго столбца второй таблицы.
     

    Вложения:

    • ___________.zip
      Размер файла:
      409,5 КБ
      Просмотров:
      10
  2. Vitamin

    Vitamin Гость

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;

    type
    TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    Table2: TTable;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    DataSource2: TDataSource;
    procedure FormActivate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.FormActivate(Sender: TObject);
    begin
    with Session do
    begin
    ConfigMode := cmSession;
    try
    AddStandardAlias('STANDARD1',ExtractFilePath(ParamStr(0)) + 'data\','PARADOX');
    Table1.Active := True;
    Table2.Active := True;
    finally
    ConfigMode := cmAll;
    end;
    end;
    end;

    end.


    это код,для тех,кто не может скачать
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей