Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
1

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

03.05.2014, 22:42. Просмотров 750. Ответов 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
Привет всем! Помогите пожалуйста, как сделать так чтобы компонент RadioGroup...

Combobox и RadioGroup
Есть компонент RadioGroup с тремя кнопками. Нужно чтобы при нажатии в Combobox...

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

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

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

20
andrey_k3
128 / 128 / 41
Регистрация: 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

Вывести информацию из Edit, RadioGroup, ComboBox в текстовый файл
Здравствуйте народ. Я сбился с темы выdода в ворд собственно вопрос: Как...

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

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


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

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

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