Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder: Базы данных
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
Evgeny92
276 / 4 / 4
Регистрация: 09.11.2011
Сообщений: 294
1

Не переключается картинка после отбора данных в ComboBox С++ Builder

02.05.2013, 11:45. Просмотров 2385. Ответов 46
Метки нет (Все метки)

Появилась проблема - одна.
В программе после отбора по жанрам потом открываю по каком-то фильму описание, и там по DBNavigator щелкаю вперед или назад, картинка не переключается, а переключается только текст. Если не отбирать данные перещелкивание картинки работает вместе с текстом.
0
Вложения
Тип файла: rar Kinoteatr.rar (7.48 Мб, 5 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2013, 11:45
Ответы с готовыми решениями:

Не переключается изображение. C++ Builder 6
Один баг у меня в программе, нужно устранить. Всего лишь один баг. А баг...

С помощью запроса значение из Edit и ComboBox поместить в базу данных при нажатии кнопки в builder c++
с помощью запроса значение из Edit и ComboBox поместить в базу данных при...

ComboBox в С++ Builder
Как добавить поля StringGrid в ComboBox для осуществления поиска.

ComboBox в Builder C++
Всем привет .Очень нужна ваша помощь ,народ .Можете кинуть какой-нить пример...

ComboBox/C++Builder
хочу проверить, заполены ли поля ComboBox. Всего на форме 6 комбоБокс`ов. По...

46
The_Immortal
1560 / 496 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
06.05.2013, 02:26 41
Evgeny92,
Цитата Сообщение от Evgeny92 Посмотреть сообщение
Все сделал
Верните сериалы - я настаиваю

Кстати, хотел узнать вот что: вам кто-нибудь "Базы данных" читал? Складывается впечатление, что нет.
Следов процесса проектирования БД не наблюдается.
0
Evgeny92
276 / 4 / 4
Регистрация: 09.11.2011
Сообщений: 294
06.05.2013, 02:33  [ТС] 42
Пока время есть до защиты.
1)Думаю добавить в проект Расписание сеансов, Время проката фильмов в виде таблиц будет 3-й и 4-й вкладке.
(Возможно откажусь).
2)Что то вроде кассы, бронирование мест, отчет(печать билетов, билеты оформленные). Это будет сложно сделать возможно откажусь, видеть бы примеры.
Заходил в кинотеатр известно мне расположение мест в зале 8 рядов 8 ряд диваны Vip. 16 мест. 1-7 ряд по 21 месту вроде.
От всего наверное откажусь.

Добавлено через 3 минуты
Цитата Сообщение от The_Immortal Посмотреть сообщение
Evgeny92,

Верните сериалы - я настаиваю

Кстати, хотел узнать вот что: вам кто-нибудь "Базы данных" читал? Складывается впечатление, что нет.
Следов процесса проектирования БД не наблюдается.
Ну сделаю, только путем добавления несколько форм и компонентов. По другому никак не пойму.
0
The_Immortal
1560 / 496 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
06.05.2013, 02:35 43
Evgeny92,

Цитата Сообщение от Evgeny92 Посмотреть сообщение
бронирование мест
В таком случае предлагаю сделать что-то типа такого:
1
Миниатюры
Не переключается картинка после отбора данных в ComboBox С++ Builder  
Evgeny92
276 / 4 / 4
Регистрация: 09.11.2011
Сообщений: 294
06.05.2013, 11:33  [ТС] 44
И так, пишу то что я пока не понимаю как мне это сделать...

Добавлено через 28 минут
Создавал проект, начинал переделывать. Пишу условно, помню как делал. Программы нет переделанной.

Формы и компоненты:

Form1 (Программа Kinoteatr)
Размещены компоненты Button1(Фильмы), Button2(Сериалы), Edit1(Поле поиска по названиям фильма или сериалов), ComboBox1(По жанрам), ComboBox2(По странам), ComboBox3(По годам), Button3(Найти), DBGrid1, DBNavigator1, Button4(Добавить запись), Button5(Изменить запись), Button6(Удалить запись), Button7(Описание).

DataModule2 размещены компоненты DataSourse1, DataSourse2, ADOConnection1, ADOTable1, ADOTable2, ADOQurery1, ADOQurery2.

Form3(Добавление записи в БД Фильмы)

Размещены компоненты Edit1,2,3,4,5,6,7 Memo1,2 Label1 до 9 Image1, Button1(Добавить запись и закрыть), Button2(Добавить запись), Button3(Закрыть), Button4(Загрузить постер),

Ну пока имеется отношение по этим 2-м формам.


Я писал на кнопках Button1 (Фильмы) и Button2(Сериалы). DBGrid1 установил в инспекторе объектов связь с первой таблицей(Фильмы). Далее прописываю на кнопках:

Button1. При нажатии кнопки в DBGrid1 меняется связь с таблицей Фильмы, Меняется в поле название с Названия сериала на Название фильма.
C++
1
2
3
4
5
6
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule2->DataSource1;
DBGrid1->Columns->Items[0]->Title->Caption = "Название фильма";
 
}
Button2. При нажатии кнопки в DBGrid1 меняется связь с таблицей Сериалы, Меняется в поле название с Названия фильма на Название сериала.

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule2->DataSource2;
DBGrid1->Columns->Items[0]->Title->Caption = "Название сериала";
// это не все еще было прописано. Прописано было еще
// на то чтобы при нажатии кнопки сериалы менялись названия свойством Caption Label'ов, Button'ов, 
// Form3(Добавление записи в БД Сериалы). 
}
Далее пишу...

Добавлено через 16 минут
Код в Добавить запись и закрыть
На Дата сет по таблице Фильмы.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
void __fastcall TForm3::Button3Click(TObject *Sender)
{
if (Edit1->Text=="")
{
ShowMessage("Введите данные Название фильма!");
return;
}
else if (Edit2->Text=="")
{
ShowMessage("Введите данные Жанры!");
return;
}
else if (Edit3->Text=="")
{
ShowMessage("Введите данные Страна!");
return;
}
else if (Edit4->Text=="")
{
ShowMessage("Введите данные Год выхода!");
return;
}
else if (Edit5->Text=="")
{
ShowMessage("Введите данные Режиссер!");
return;
}
else if (Edit6->Text=="")
{
ShowMessage("Введите данные Время!");
return;
}
else if (Memo1->Text=="")
{
ShowMessage("Введите данные В ролях!");
return;
}
else if (Memo2->Text=="")
{
ShowMessage("Введите данные Сюжет!");
return;
}
else if (Edit7->Text=="")
{
ShowMessage("Введите данные Трейлер!");
return;
}
else if(Image1->Picture->Graphic==NULL)
{
ShowMessage("Вставьте Обложку фильма");
return;
}
 
DataModule2->ADOTable1->Insert();
DataModule2->ADOTable1->FieldByName("Название фильма")->AsString = Form3->Edit1->Text;
DataModule2->ADOTable1->FieldByName("Жанры")->AsString = Form3->Edit2->Text;
DataModule2->ADOTable1->FieldByName("Страна")->AsString = Form3->Edit3->Text;
DataModule2->ADOTable1->FieldByName("Год выхода")->AsString = Form3->Edit4->Text;
DataModule2->ADOTable1->FieldByName("Режиссер")->AsString = Form3->Edit5->Text;
DataModule2->ADOTable1->FieldByName("Время")->AsString = Form3->Edit6->Text;
DataModule2->ADOTable1->FieldByName("В ролях")->AsString = Form3->Memo1->Text;
DataModule2->ADOTable1->FieldByName("Сюжет")->AsString = Form3->Memo2->Text;
DataModule2->ADOTable1->FieldByName("Трейлер")->AsString = Form3->Edit7->Text;
 
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)DataModule2->ADOTable1->FieldByName("Постер фильма"))->LoadFromStream(strm);
 delete strm;
 strm = NULL;
 
DataModule2->ADOTable1->Post();
 
 Form3->Hide();   //Закрыть форму Добавление записи в БД Фильмы
 
//Очистить текст в полях
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Memo1->Clear();
Memo2->Clear();
Edit7->Clear();
Image1->Picture->Graphic=NULL;
        
}
Вот тут вопрос. Как прописать и для второй таблице. Ну она также прописывается, поменять только с ADOTable1 на ADOTable2, и там Названия поменять полей. Вот как тут на на кнопке Добавлении записи в зависимости подключенной таблицы, при нажатии этой кнопке добавлял в свою таблицу. Т.е. нужна смена ADOTable1 на ADOTable2(При нажатии кнопки Сериалы) или наоборот c ADOTable2 на ADOTable1(при нажатии кнопки Фильмы).
Нужно по ходу прописывать на Button1(Фильмы) и Button2(Сериалы).

Также нужно сделать и в первой форме Form1(программа Kinoteatr) для компонентов BUtton3(Найти), ComboBox1-3 в зависимости подключенной Таблицы кнопками Button1(Фильмы) и Button2(Сериалы).

Коды на них
Button3(Найти)

C++
1
2
3
4
5
DataModule2->DataSource1->DataSet = DataModule2->ADOQuery1;
    DataModule2->ADOQuery1->Close();
   DataModule2->ADOQuery1->SQL->Clear();
    DataModule2->ADOQuery1->SQL->Add("Select * from Фильмы WHERE  [Название фильма] LIKE '%"+Edit1->Text+"%'");
    DataModule2->ADOQuery1->Open();
Здесь тоже нужно переключение c ADOQuery1 на ADOQuery2 или наоборот в зависимости от подключенной таблицы.

Один из ComboBox'ов. Тоже самое.
ComboBox1
C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
DataModule2->DataSource1->DataSet = DataModule2->ADOQuery1;
    DataModule2->ADOQuery1->Close();
    DataModule2->ADOQuery1->SQL->Clear();
    if(ComboBox1->ItemIndex == 0)
      DataModule2->ADOQuery1->SQL->Add("Select * from Фильмы");
    else
      DataModule2->ADOQuery1->SQL->Add("Select * from Фильмы WHERE  Жанры LIKE '%"+ComboBox1->Text+"%'");
    DataModule2->ADOQuery1->Open();        
}
Добавлено через 9 минут
На кнопку удалить запись (Button6)
C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if (DataModule2->ADOTable1->RecordCount==0)
{
ShowMessage("Нечего удалять, нет записи");
}
else
{
DataModule2->ADOTable1->Delete();
}
 
}
Здесь тоже самое надо, при нажатии Фильмы удаление происходит по ADOTable1 при нажатии Сериалы удаление по ADOTable2.
Может сделать удаление с подтверждением типа "Вы действительно хотите удалить данную запись" и варианты ДА и Отмена. Как это сделать?

И вот по моему все пока.

Добавлено через 8 минут
Еще у меня 2-е формы одна Form4 Изменить запись вторая описание FOrm5.
про изменение запси вопросов не будет, т.к. из Добавление запсиси возьму.
А по Form5, будут вопросы. И еще 1 вопрос будет по FOrm1.
0
Evgeny92
276 / 4 / 4
Регистрация: 09.11.2011
Сообщений: 294
06.05.2013, 12:18  [ТС] 45
проект
0
Вложения
Тип файла: rar Kinoteatr.rar (7.98 Мб, 1 просмотров)
Evgeny92
276 / 4 / 4
Регистрация: 09.11.2011
Сообщений: 294
06.05.2013, 12:48  [ТС] 46
Вот забыл дописать код на удаление.
проект: В проекте По другому компоненты подписаны. Т.е. Кнопки Фильмы не Button1 а Button* под другим номером, и т.д.
0
Вложения
Тип файла: rar Kinoteatr.rar (7.98 Мб, 5 просмотров)
Evgeny92
276 / 4 / 4
Регистрация: 09.11.2011
Сообщений: 294
06.05.2013, 22:42  [ТС] 47
Кнопка фильмы
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Button5Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule2->DataSource1;
DBGrid1->Columns->Items[1]->Title->Caption = "Название фильма";
Label1->Caption = "Поиск фильма";
Label2->Caption = "Выбрать жанр фильма";
Label3->Caption = "Выбрать страну фильма";
Label4->Caption = "Выбрать год выхода фильма";
 
Form3->Caption = "Добавление записи в БД Фильмы";
Form3->Label1->Caption = "Название фильма";
Form3->Label8->Caption = "Сюжет фильма";
Form3->Button2->Caption = "Загрузить постер фильма";
 
Form4->Caption = "Добавление записи в БД Фильмы";
Form4->Label1->Caption = "Название фильма";
Form4->Label8->Caption = "Сюжет фильма";
Form4->Button2->Caption = "Загрузить постер фильма";
 
Form5->Caption = "О фильме";
Form5->Label7->Caption = "Сюжет фильма";
 
}
----------------------------------------------------------------------------------------
Кнопка сериалы
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::Button6Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule2->DataSource2;
DBGrid1->Columns->Items[1]->Title->Caption = "Название сериала";
Label1->Caption = "Поиск сериала";
Label2->Caption = "Выбрать жанр сериала";
Label3->Caption = "Выбрать страну сериала";
Label4->Caption = "Выбрать год выхода сериала";
 
Form3->Caption = "Добавление записи в БД Сериалы";
Form3->Label1->Caption = "Название сериала";
Form3->Label8->Caption = "Сюжет сериала";
Form3->Button2->Caption = "Загрузить постер сериала";
 
Form4->Caption = "Добавление записи в БД Сериалы";
Form4->Label1->Caption = "Название сериала";
Form4->Label8->Caption = "Сюжет сериала";
Form4->Button4->Caption = "Загрузить постер сериала";
 
Form5->Caption = "О сериале";
Form5->Label7->Caption = "Сюжет сериала";
}
-------------------------------------------------------------------------------
Поле поиска фильма или сериала(без сериала). Нужно сделать, если нажал на Фильмы будет искать фильмы, если на Сериалы будет искать сериалы.
C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
DataModule2->DataSource1->DataSet = DataModule2->ADOQuery1;
    DataModule2->ADOQuery1->Close();
   DataModule2->ADOQuery1->SQL->Clear();
    DataModule2->ADOQuery1->SQL->Add("Select * from Фильмы WHERE  [Название фильма] LIKE '%"+Edit1->Text+"%'");
    DataModule2->ADOQuery1->Open();        
}
--------------------------------------------------------------------------------
Выпадающий список по жанрам фильмы. Тоже самое нужно так сделать.
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
DataModule2->DataSource1->DataSet = DataModule2->ADOQuery1;
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
if(ComboBox1->ItemIndex == 0)
DataModule2->ADOQuery1->SQL->Add("Select * from Фильмы");
else
DataModule2->ADOQuery1->SQL->Add("Select * from Фильмы WHERE Жанры LIKE '%"+ComboBox1->Text+"%'");
DataModule2->ADOQuery1->Open();
}
[/CPP]
----------------------------------------------------------------------------------
Кнопка Удалить запись. Тоже самое нужно реализовать.
C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (DataModule2->ADOTable1->RecordCount==0)
{
ShowMessage("Нечего удалять, нет записи");
}
else
{
DataModule2->ADOTable1->Delete();
}
 
}
----------------------------------------------------------------------------------------------

На DBGrid1
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
void __fastcall TForm1::DBGrid1CellClick(TColumn *Column)
{
AnsiString wsg = DataModule2->ADOTable1->FieldByName( "Трейлер" )
        ->AsString; // Из поле Трейлер будет открываться ссылка на веб страницу
    wsg = wsg.SubString( wsg.Pos( "#" ) + 1, wsg.Length( ) );
    wsg = wsg.Delete( wsg.Pos( "#" ), 1 );
    Form5->CppWebBrowser1->Navigate(WideString(wsg) ) ;  //На форме О фильме Отображает веб страницу с трейлером.
 
  if ( Form1->DBGrid1->DataSource->DataSet == DataModule2->ADOTable1 )
    {
        Browser( DataModule2->ADOTable1 );
    }
    if ( Form1->DBGrid1->DataSource->DataSet == DataModule2->ADOQuery1 )
    {
        Browser( DataModule2->ADOQuery1 );
    }
 //---------------------------------------------------------------------------
if ( !( TBlobField * )DataModule2->ADOTable1->FieldByName( "Постер фильма" )
        ->IsNull && Form1->DBGrid1->DataSource->DataSet ==
        DataModule2->ADOTable1 )
    {
        if ( !Form5->Image1->Visible )
        {
            Form5->Image1->Visible = true;
        }
        TMemoryStream * strm = new TMemoryStream;
        TJPEGImage * ptJpg = new TJPEGImage;
        ( ( TGraphicField * )DataModule2->ADOTable1->FieldByName
            ( "Постер фильма" ) )->SaveToStream( strm );
        strm->Seek( 0, 0 );
        if ( *( Word * )strm->Memory == 0xD8FF )
        {
            Form5->Image1->Picture->Graphic = ptJpg;
        }
        Form5->Image1->Picture->Graphic->LoadFromStream( strm );
        delete strm;
        delete ptJpg;
    }
    else
        if ( !( TBlobField * )DataModule2->ADOQuery1->FieldByName
            ( "Постер фильма" )
            ->IsNull && Form1->DBGrid1->DataSource->DataSet ==
            DataModule2->ADOQuery1 )
        {
            if ( !Form5->Image1->Visible )
            {
                Form5->Image1->Visible = true;
            }
            TMemoryStream * strm = new TMemoryStream;
            TJPEGImage * ptJpg = new TJPEGImage;
            ( ( TGraphicField * )DataModule2->ADOQuery1->FieldByName
                ( "Постер фильма" ) )->SaveToStream( strm );
            strm->Seek( 0, 0 );
            if ( *( Word * )strm->Memory == 0xD8FF )
            {
                Form5->Image1->Picture->Graphic = ptJpg;
            }
            Form5->Image1->Picture->Graphic->LoadFromStream( strm );
            delete strm;
            delete ptJpg;
        }
        else
        {
            Form5->Image1->Visible = false;
        }
//---------------------------------------------------------------------------
 
      if ( !( TBlobField * )DataModule2->ADOTable1->FieldByName( "Постер фильма" )
        ->IsNull && Form1->DBGrid1->DataSource->DataSet ==
        DataModule2->ADOTable1 )
    {
        if ( !Form4->Image1->Visible )
        {
            Form4->Image1->Visible = true;
        }
        TMemoryStream * strm = new TMemoryStream;
        TJPEGImage * ptJpg = new TJPEGImage;
        ( ( TGraphicField * )DataModule2->ADOTable1->FieldByName
            ( "Постер фильма" ) )->SaveToStream( strm );
        strm->Seek( 0, 0 );
        if ( *( Word * )strm->Memory == 0xD8FF )
        {
            Form4->Image1->Picture->Graphic = ptJpg;
        }
        Form4->Image1->Picture->Graphic->LoadFromStream( strm );
        delete strm;
        delete ptJpg;
    }
    else
        if ( !( TBlobField * )DataModule2->ADOQuery1->FieldByName
            ( "Постер фильма" )
            ->IsNull && Form1->DBGrid1->DataSource->DataSet ==
            DataModule2->ADOQuery1 )
        {
            if ( !Form4->Image1->Visible )
            {
                Form4->Image1->Visible = true;
            }
            TMemoryStream * strm = new TMemoryStream;
            TJPEGImage * ptJpg = new TJPEGImage;
            ( ( TGraphicField * )DataModule2->ADOQuery1->FieldByName
                ( "Постер фильма" ) )->SaveToStream( strm );
            strm->Seek( 0, 0 );
            if ( *( Word * )strm->Memory == 0xD8FF )
            {
                Form4->Image1->Picture->Graphic = ptJpg;
            }
            Form4->Image1->Picture->Graphic->LoadFromStream( strm );
            delete strm;
            delete ptJpg;
        }
        else
        {
            Form4->Image1->Visible = false;
        }
 
}
------------------------------------------------------------------------------------

Кнопка добавить запись в другом окне Form3.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
void __fastcall TForm3::Button3Click(TObject *Sender)
{
if (Edit1->Text=="")
{
ShowMessage("Введите данные Название фильма!");
return;
}
else if (Edit2->Text=="")
{
ShowMessage("Введите данные Жанры!");
return;
}
else if (Edit3->Text=="")
{
ShowMessage("Введите данные Страна!");
return;
}
else if (Edit4->Text=="")
{
ShowMessage("Введите данные Год выхода!");
return;
}
else if (Edit5->Text=="")
{
ShowMessage("Введите данные Режиссер!");
return;
}
else if (Edit6->Text=="")
{
ShowMessage("Введите данные Время!");
return;
}
else if (Memo1->Text=="")
{
ShowMessage("Введите данные В ролях!");
return;
}
else if (Memo2->Text=="")
{
ShowMessage("Введите данные Сюжет!");
return;
}
else if (Edit7->Text=="")
{
ShowMessage("Введите данные Трейлер!");
return;
}
else if(Image1->Picture->Graphic==NULL)
{
ShowMessage("Вставьте Обложку фильма");
return;
}
 
DataModule2->ADOTable1->Insert();
DataModule2->ADOTable1->FieldByName("Название фильма")->AsString = Form3->Edit1->Text;
DataModule2->ADOTable1->FieldByName("Жанры")->AsString = Form3->Edit2->Text;
DataModule2->ADOTable1->FieldByName("Страна")->AsString = Form3->Edit3->Text;
DataModule2->ADOTable1->FieldByName("Год выхода")->AsString = Form3->Edit4->Text;
DataModule2->ADOTable1->FieldByName("Режиссер")->AsString = Form3->Edit5->Text;
DataModule2->ADOTable1->FieldByName("Время")->AsString = Form3->Edit6->Text;
DataModule2->ADOTable1->FieldByName("В ролях")->AsString = Form3->Memo1->Text;
DataModule2->ADOTable1->FieldByName("Сюжет")->AsString = Form3->Memo2->Text;
DataModule2->ADOTable1->FieldByName("Трейлер")->AsString = Form3->Edit7->Text;
 
TMemoryStream* strm = new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(strm);
((TGraphicField*)DataModule2->ADOTable1->FieldByName("Постер фильма"))->LoadFromStream(strm);
 delete strm;
 strm = NULL;
 
DataModule2->ADOTable1->Post();
 
 Form3->Hide();   //Закрыть форму Добавление записи в БД Фильмы
 
//Очистить текст в полях
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Memo1->Clear();
Memo2->Clear();
Edit7->Clear();
Image1->Picture->Graphic=NULL;
        
}
Добавлено через 3 минуты
Т.е. то что я сделал в проекте это Фильмы. без сериалов. На форму добавил 2-е кнопки. Таблица переключается. Но отбор и поиск и добаление удаление производится по таблице Фильмы. без сериалов.

Добавлено через 1 час 45 минут
Наверное придется продублировать компоненты для другой таблицы. КомбоБоксы, Идит, ДБГрид и много чего... Также как делал бардак в том проекте. Или сериалов не будет.

Добавлено через 4 часа 26 минут
Значит мне сериалы не надо.
Оставлю только фильмы.
Вообще эту программу взял из курсового. На курсовом не было добавления, изменения и удаления, описание. Руководитель говорил что норм программа для дипломки пойдет, только его усовершенствовать необходимо, функционала по больше. И вот дополнение к программе по последней ссылке.
0
06.05.2013, 22:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2013, 22:42

C++ Builder, ComboBox
Доброго вечера! пожалуйста, помогите разобраться: Порядок занесения новой...

Работа с ComboBox в С++ Builder 6
Есть такая проблема, надо на форме связать два ComboBox компонента. При выборе...

DBImage и ComboBox в C++Builder
Добрый день специалисты. Использую C++Builder 6. Дипл. проект делаю. Тема...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
47
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru