Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi и базы данных

Войти
Регистрация
Восстановить пароль
 
 
NovAID
1 / 1 / 0
Регистрация: 02.11.2013
Сообщений: 153
#1

Как переписать то что в radiogroup под combobox - Delphi БД

03.05.2014, 22:42. Просмотров 723. Ответов 20
Метки нет (Все метки)

Delphi
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
118
119
120
121
122
123
124
125
126
127
128
129
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, DBTables, DB, Grids, DBGrids,
  CheckLst, Buttons;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    Query1: TQuery;
    Edit1: TEdit;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
DataSource1.DataSet := Table1;
Table1.Active := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: if not Table1.Locate('Название', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
ShowMessage('Запись не найдена');
1: if not Table1.Locate('Потребляемая энергия', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
ShowMessage('Запись не найдена');
2: if not Table1.Locate('Используемое топливо', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
ShowMessage('Запись не найдена');
3: if not Table1.Locate('Местоположение', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
    ShowMessage('Запись не найдена');
     end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
with Table1 do
  begin
    Active:= false;
    case RadioGroup1.ItemIndex of
      0:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'Название', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'Название';
        end;
      1:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'Потребляемая энергия', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'Потребляемая энергия';
        end;
      2:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'Используемое топливо', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'Используемое топливо';
        end;
      3:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'Местоположение', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'Местоположение';
        end;
    end;
    Active:= true;
  end;
 
 
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Insert;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
if not DBGrid1.DataSource.DataSet.Eof then
  DBGrid1.DataSource.DataSet.Delete;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
if DBGrid1.EditorMode or DBGrid1.DataSource.DataSet.Modified then
  DBGrid1.DataSource.DataSet.Post;
end;
 
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2014, 22:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как переписать то что в radiogroup под combobox (Delphi БД):

Как сохранить значение RadioGroup - Delphi
Привет всем! Помогите пожалуйста, как сделать так чтобы компонент RadioGroup сохранял свое значение ? Есть компонент RadioGroup, в...

comboBox и RadioGroup - Delphi
На форме Есть СomboBox в котором 4 варианта, если выбрать 2 последних варианта в СomboBox, тогда в RadioGroup(3 кнопки) 2-я и 3-я кнопка...

Combobox и RadioGroup - Delphi
Есть компонент RadioGroup с тремя кнопками. Нужно чтобы при нажатии в Combobox выводил определенные элементы. Например: 3 кнопки в...

Создать проект, содержащий ComboBox, RadioGroup, CheckBox и ScrollBar - Lazarus
Создать проект, содержащий следующие компоненты: 1 - ComboBox, позволяющий выбрать из списка в 8 элементов (* - с возможностью...

Вывести информацию из Edit, RadioGroup, ComboBox в текстовый файл - Delphi
Здравствуйте народ. Я сбился с темы выdода в ворд собственно вопрос: Как вывести в .txt(надеюсь это проще чем word) поля...

Вывод из RadioGroup, CheckListBox, ComboBox в StringGrid другой формы - Delphi
Здравствуйте! Необходимо создать программу из 5 окон, в каждом отдельном окне расположены элементы RadioGroup, CheckListBox, ComboBox и...

20
andrey_k3
128 / 128 / 31
Регистрация: 17.10.2013
Сообщений: 333
04.05.2014, 00:28 #16
поправил
0
andrey_k3
128 / 128 / 31
Регистрация: 17.10.2013
Сообщений: 333
04.05.2014, 00:44 #17
хм... из обнаруженного (код пока не правил) - 1) не отмечен ключ, 2) когда закрывашь форму Form1, куда хочешь попасть? просто предыдущие формы скрыты, в частности главной формой назначена IntroForm и пока она существует приложение не может закрыться. либо отображай её, либо убивай
1
Миниатюры
Как переписать то что в radiogroup под combobox  
NovAID
1 / 1 / 0
Регистрация: 02.11.2013
Сообщений: 153
04.05.2014, 00:46  [ТС] #18
Когда закрываю Форму1 хочу чтобы прога вообще включалась, извините, делал как понимал
0
andrey_k3
128 / 128 / 31
Регистрация: 17.10.2013
Сообщений: 333
04.05.2014, 01:08 #19
добавлен комбобокс, удалена радиогруппа. проверь установку ключа. после закрытия Form1 программа закрывается
1
Вложения
Тип файла: rar Курсовая_combobox.rar (1.63 Мб, 3 просмотров)
NovAID
1 / 1 / 0
Регистрация: 02.11.2013
Сообщений: 153
04.05.2014, 01:16  [ТС] #20
Цитата Сообщение от andrey_k3 Посмотреть сообщение
добавлен комбобокс, удалена радиогруппа. проверь установку ключа. после закрытия Form1 программа закрывается
Спасибо огромное все заработало,скажите пожалуйста ,а можно к вам как-нибудь на прямую за помощью обращаться?)
0
andrey_k3
128 / 128 / 31
Регистрация: 17.10.2013
Сообщений: 333
04.05.2014, 01:25 #21
ответил в личку
1
04.05.2014, 01:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2014, 01:25
Привет! Вот еще темы с ответами:

Создать проект содержащий: ComBobox, StringGrid, Button, RadioGroup, Label - Delphi
Здравствуйте. Я не давно познакомилась с делфи 2007. Мне дали задание создать проект содержащий: combobox, stirnggrid, button, radiogroup,...

Лабораторная работа с использованием RadioGroup, ComboBox, Edit, StringGrid, Label, Button - Delphi
Помогите с работой,которая содержит такие компоненты : RadioGroup,ComboBOX,Edit,StringGrid,label,button. Если у вас есть подобные...

Как переписать или что подправить, что бы плавно двигался объект в div? - JavaScript
Есть скрипт: function dd(){ document.all.f.style.left+="50";} T=setTimeout("dd()",3000); <DIV id="f" style="position:absolute;...

Как переписать программу под серверный вариант - C#
Добрый день. Подскажите как переписать(написать) прогу, чтобы установив ее на сервере, смогли работать клиенты на своих местах и еще чтобы...


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

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

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