- •Cодержание:
- •1. Основная часть:
- •1.3 Разработка управляющей программы для работы с бд:
- •Введение.
- •1.1 Проектирование реляционной бд “Книжный склад ”.
- •1.2 Создание бд “Книжный склад”.
- •1.3 Разработка управляющей программы для работы с бд.
- •1.3.1 Процедура контроля вводимых значений при редактировании бд.
- •1.3.2 Процедура контроля ссылочной целостности при удалении данных.
- •1.3.3 Процедура добавления данных в 1-ю таблицу.
- •1.3.4 Процедура заполнения компонентов ComboBox1 и ComboBox2 на Form3.
- •1.3.5 Процедура поиска с фильтрацией по 1-ой таблице.
- •1.3.6 Процедура восстановления связей.
- •1.3.7 Процедура запрашивания пароля при создании Form 1.
- •1.3.8 Формирование отчётов средствами sql запросов.
- •Заключение.
- •Список используемой литературы.
1.3.3 Процедура добавления данных в 1-ю таблицу.
procedure TForm2.Button1Click(Sender: TObject);
begin
//Делаем 1-ю таблицу главной
Form1.Table1.MasterFields:='';
Form1.Table1.MasterSource:=nil;
Form1.Table2.MasterSource:=Form1.DataSource4;
Form1.Table2.MasterFields:='Kod_klienta';
Form1.Table3.MasterSource:=Form1.DataSource5;
Form1.Table3.MasterFields:='Kod_knigi';
Form1.Table4.MasterSource:=Form1.DataSource3;
Form1.Table4.IndexName:='Kodknigi';
Form1.Table4.MasterFields:='Kod_knigi';
Form1.Table5.MasterSource:=Form1.DataSource1;
Form1.Table5.IndexName:='Kodizdat';
Form1.Table5.MasterFields:='Kod_izdatelstva';
Form1.Table6.MasterSource:=Form1.DataSource2;
Form1.Table6.IndexName:='Kodklienta';
Form1.Table6.MasterFields:='Kod_klienta';
Form1.Table7.MasterSource:=Form1.DataSource1;
Form1.Table7.MasterFields:='';
//Добавление данных в таблицу
Form1.Table1.Append;
Form1.Table1.FieldByName('Kod_izdatelstva').AsInteger:=
Form2.SpinEdit1.Value;
Form1.Table1.FieldByName('Nazvanie').AsString:=Form2.Edit1.Text;
Form1.Table1.FieldByName('Adres').AsString:=Form2.Edit2.Text;
Form1.Table1.FieldByName('Telefon').AsString:=Form2.Edit3.Text;
Form1.Table1.Post;
Form1.Table1.Refresh;//Обновление изменений в 1-ой таблице
Form2.Close;
end;
1.3.4 Процедура заполнения компонентов ComboBox1 и ComboBox2 на Form3.
procedure TForm3.ComboBox1Change(Sender: TObject);
var
i:integer;
begin
//В зависимости от выбранного значения ItemIndexвComboBox1, заполняемComboBox2
case Form3.ComboBox1.ItemIndex of ;
0: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table1.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 1
Form3.ComboBox2.Items.Add(Form1.Table1.Fields[i].FieldName);
end;
end;
1: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table2.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 2
Form3.ComboBox2.Items.Add(Form1.Table2.Fields[i].FieldName);
end;
end;
2: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table3.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 3
Form3.ComboBox2.Items.Add(Form1.Table3.Fields[i].FieldName);
end;
end;
3: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table4.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 4
Form3.ComboBox2.Items.Add(Form1.Table4.Fields[i].FieldName);
end;
end;
4: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table5.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 5
Form3.ComboBox2.Items.Add(Form1.Table5.Fields[i].FieldName);
end;
end;
5: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table6.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 6
Form3.ComboBox2.Items.Add(Form1.Table6.Fields[i].FieldName);
end;
end;
6: begin
Form3.ComboBox2.Items.Clear; //Очищаем значение Items ComboBox2
for i:=0 to Form1.Table7.FieldCount-1 do
begin
//Заполняем ComboBox2 названиями полей Таблицы 7
Form3.ComboBox2.Items.Add(Form1.Table7.Fields[i].FieldName);
end;
end;
end;
Form3.ComboBox2.ItemIndex:=0; //Устанавливаем значение ItemIndex=0 для СomboBox2
end;