Сеть компьютерных магазинов "21 век"
Разработка информационной системы с возможностями добавления, удаления, редактирования информации о магазинах, продавцах, поставщиках, продажах, покупателях, заказах, комплектующих, каталоге. Организация взаимодействия клиентской программы с базой данных.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 28.02.2013 |
| Размер файла | 1,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
// ADOStoredProc28.Parameters.ParamValues['@n']:=dblookupcombobox26.KeyValue;
//rvproject3.SetParam('nomer_pokupatelya',inttostr(datam.nakl.FieldValues['№накладной']));
//ADOStoredProc27.ExecProc;
//ADOStoredProc28.ExecProc;
// ADOStoredProc28.Active:=false;
// ADOStoredProc28.Active:=true;
// ADOStoredProc27.Active:=false;
// ADOStoredProc27.Active:=true;
RvProject6.Execute;
dblookupcombobox26.Visible:=false;
dblookupcombobox44.Visible:=false;
label81.Visible:=false;
label82.Visible:=false;
label83.Visible:=false;
button66.Visible:=false;
//edit18.Visible:=false;
label24.Visible:=false;
dblookupcombobox44.Visible:=false;
label87.Visible:=false;
//end
//else showmessage('Неправильный ввод');
end;
procedure TForm1.Button67Click(Sender: TObject);
begin
if parol
then begin
//dblookupcombobox26.Visible:=false;
dblookupcombobox26.Visible:=true;
label81.Visible:=true;
label82.Visible:=true;
label83.Visible:=true;
dblookupcombobox44.Visible:=true;
label87.Visible:=true;
//label24.Visible:=true;
//edit18.Visible:=true;
end
else showmessage('У вас нет прав для изменения данных в БД');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
unit5.Form5.Visible:=true;
end;
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
//label51.Visible:=true;
label52.Visible:=true;
label53.Visible:=true;
label54.Visible:=true;
//edit53.Visible:=true;
edit54.Visible:=true;
edit55.Visible:=true;
edit56.Visible:=true;
button1.Visible:=true;
button27.Visible:=true;
end;
procedure TForm1.DBLookupComboBox4Click(Sender: TObject);
begin
//label5.Visible:=true;
//label6.Visible:=true;
label7.Visible:=true;
label8.Visible:=true;
label18.Visible:=true;
//edit1.Visible:=true;
//edit2.Visible:=true;
edit3.Visible:=true;
edit4.Visible:=true;
edit11.Visible:=true;
button20.Visible:=true;
button62.Visible:=true;
end;
procedure TForm1.DBLookupComboBox6Click(Sender: TObject);
begin
//label1.Visible:=true;
//label2.Visible:=true;
label19.Visible:=true;
label20.Visible:=true;
//edit5.Visible:=true;
//edit6.Visible:=true;
edit13.Visible:=true;
edit14.Visible:=true;
button21.Visible:=true;
button33.Visible:=true;
end;
procedure TForm1.DBLookupComboBox8Click(Sender: TObject);
begin
//label37.Visible:=true;
//label38.Visible:=true;
//label39.Visible:=true;
//label40.Visible:=true;
//label41.Visible:=true;
//label42.Visible:=true;
//label43.Visible:=true;
label44.Visible:=true;
//label45.Visible:=true;
//label46.Visible:=true;
//label47.Visible:=true;
//label48.Visible:=true;
//label49.Visible:=true;
//label50.Visible:=true;
a:=dblookupcombobox8.text;
//dblookupcombobox43.Visible:=true;
//dblookupcombobox42.Visible:=true;
dblookupcombobox31.Visible:=true;
dblookupcombobox32.Visible:=true;
dblookupcombobox33.Visible:=true;
dblookupcombobox34.Visible:=true;
dblookupcombobox35.Visible:=true;
dblookupcombobox36.Visible:=true;
dblookupcombobox37.Visible:=true;
dblookupcombobox38.Visible:=true;
dblookupcombobox39.Visible:=true;
dblookupcombobox40.Visible:=true;
dblookupcombobox41.Visible:=true;
//edit31.Visible:=true;
//edit32.Visible:=true;
//edit33.Visible:=true;
//edit34.Visible:=true;
//edit35.Visible:=true;
//edit36.Visible:=true;
//edit37.Visible:=true;
edit38.Visible:=true;
//edit39.Visible:=true;
//edit40.Visible:=true;
//edit41.Visible:=true;
//edit42.Visible:=true;
//edit43.Visible:=true;
//edit44.Visible:=true;
button19.Visible:=true;
button56.Visible:=true;
end;
procedure TForm1.Button59Click(Sender: TObject);
begin
if parol
then begin
label64.Visible:=true;
label38.Visible:=false;
dblookupcombobox42.Visible:=false;
dblookupcombobox43.Visible:=false;
dblookupcombobox8.Visible:=true;
{label37.Visible:=true;
label38.Visible:=true;
label39.Visible:=true;
label40.Visible:=true;
label41.Visible:=true;
label42.Visible:=true;
label43.Visible:=true;
label44.Visible:=true;
label45.Visible:=true;
label46.Visible:=true;
label47.Visible:=true;
label48.Visible:=true;
label49.Visible:=true;
label50.Visible:=true;
edit31.Visible:=true;
edit32.Visible:=true;
edit33.Visible:=true;
edit34.Visible:=true;
edit35.Visible:=true;
edit36.Visible:=true;
edit37.Visible:=true;
edit38.Visible:=true;
edit39.Visible:=true;
edit40.Visible:=true;
edit41.Visible:=true;
edit42.Visible:=true;
edit43.Visible:=true;
edit44.Visible:=true;
button19.Visible:=true;
button56.Visible:=true;}
{dblookupcombobox43.Visible:=true;
dblookupcombobox42.Visible:=true;
dblookupcombobox31.Visible:=true;
dblookupcombobox32.Visible:=true;
dblookupcombobox33.Visible:=true;
dblookupcombobox34.Visible:=true;
dblookupcombobox35.Visible:=true;
dblookupcombobox36.Visible:=true;
dblookupcombobox37.Visible:=true;
dblookupcombobox38.Visible:=true;
dblookupcombobox39.Visible:=true;
dblookupcombobox40.Visible:=true;
dblookupcombobox41.Visible:=true; }
end;
end;
procedure TForm1.DBLookupComboBox10Click(Sender: TObject);
begin
label66.Caption:=DBLookupComboBox10.KeyValue;
//label21.Visible:=true;
//label11.Visible:=true;
//edit15.Visible:=true;
//dblookupcombobox9.Visible:=true;
button12.Visible:=true;
button38.Visible:=true;
end;
procedure TForm1.DBLookupComboBox13Click(Sender: TObject);
begin
button13.Visible:=true;
button41.Visible:=true;
label72.Caption:=dblookupcombobox13.KeyValue
end;
procedure TForm1.DBLookupComboBox3Click(Sender: TObject);
begin
button10.Visible:=true;
button61.Visible:=true;
end;
procedure TForm1.DBLookupComboBox5Click(Sender: TObject);
begin
button11.Visible:=true;
button32.Visible:=true;
end;
procedure TForm1.DBLookupComboBox7Click(Sender: TObject);
begin
button15.Visible:=true;
button55.Visible:=true;
end;
procedure TForm1.DBLookupComboBox14Click(Sender: TObject);
begin
label77.Caption:=dblookupcombobox14.KeyValue;
//label14.Visible:=true;
label15.Visible:=true;
label22.Visible:=true;
label23.Visible:=true;
label44.Visible:=true;
//edit9.Visible:=true;
edit10.Visible:=true;
edit16.Visible:=true;
edit17.Visible:=true;
edit38.Visible:=true;
label71.Visible:=true;
button23.Visible:=true;
button42.Visible:=true;
dblookupcombobox12.Visible:=true; label85.Visible:=true;
edit7.Visible:=true;
end;
procedure TForm1.DBLookupComboBox16Click(Sender: TObject);
begin
button6.Visible:=true;
button16.Visible:=true;
end;
procedure TForm1.DBLookupComboBox19Click(Sender: TObject);
begin
button7.Visible:=true;
button50.Visible:=true;
end;
procedure TForm1.DBLookupComboBox22Click(Sender: TObject);
begin
button51.Visible:=true;
button14.Visible:=true;
dblookupcombobox23.KeyValue:= dblookupcombobox22.KeyValue;
//dblookupcombobox24.KeyValue:= dblookupcombobox23.KeyValue;
label34.Visible:=true;
label34.Caption:=dblookupcombobox23.Text
end;
procedure TForm1.DBLookupComboBox24Click(Sender: TObject);
begin
dblookupcombobox21.Visible:=true;
//dblookupcombobox19.Visible:=true;
//dblookupcombobox20.Visible:=true;
dblookupcombobox1.Visible:=true;
label80.Visible:=true;
datetimepicker2.Visible:=true;
label29.Visible:=true;
//label30.Visible:=true;
//label31.Visible:=true;
//label32.Visible:=true;
label33.Visible:=true;
//label34.Visible:=true;
label35.Visible:=true;
label36.Visible:=true;
//edit23.Visible:=true;
//edit24.Visible:=true;
//edit25.Visible:=true;
//edit26.Visible:=true;
//edit27.Visible:=true;
//edit28.Visible:=true;
edit29.Visible:=true;
//edit30.Visible:=true;
button25.Visible:=true;
button52.Visible:=true;
dblookupcombobox25.KeyValue:= dblookupcombobox24.KeyValue;
//dblookupcombobox24.KeyValue:= dblookupcombobox23.KeyValue;
label80.Visible:=true;
label80.Caption:=dblookupcombobox25.Text
end;
procedure TForm1.DBLookupComboBox11Click(Sender: TObject);
begin
label70.Caption:=DBLookupComboBox11.KeyValue;
label21.Visible:=true;
//label11.Visible:=true;
edit15.Visible:=true;
//dblookupcombobox9.Visible:=true;
button22.Visible:=true;
button39.Visible:=true;
end;
procedure TForm1.DBLookupComboBox26Click(Sender: TObject);
begin
button66.Visible:=true;
dblookupcombobox27.KeyValue:=dblookupcombobox26.KeyValue;
label83.Caption:=dblookupcombobox27.Text;
end;
procedure TForm1.Button68Click(Sender: TObject);
begin
//AdoTable5.Locate('Naimenovanie_tovara',AdoTable8.IndexName[2],[]);
ADOStoredProc29.Parameters.ParamValues['@n']:=dblookupcombobox28.KeyValue;
ADOStoredProc37.Parameters.ParamValues['@n']:=1;
ADOStoredProc38.Parameters.ParamValues['@n']:=3;
ADOStoredProc39.Parameters.ParamValues['@n']:=1;
ADOStoredProc40.Parameters.ParamValues['@n']:=2;
ADOStoredProc41.Parameters.ParamValues['@n']:=1;
ADOStoredProc42.Parameters.ParamValues['@n']:=2;
ADOStoredProc43.Parameters.ParamValues['@n']:=1;
ADOStoredProc44.Parameters.ParamValues['@n']:=2;
ADOStoredProc45.Parameters.ParamValues['@n']:=1;
ADOStoredProc46.Parameters.ParamValues['@n']:=2;
ADOStoredProc47.Parameters.ParamValues['@n']:=1;
RvProject5.Execute;
button68.Visible:=false;
label84.Visible:=false;
dblookupcombobox28.Visible:=false;
end;
procedure TForm1.Button69Click(Sender: TObject);
begin
label84.Visible:=true;
dblookupcombobox28.Visible:=true;
end;
procedure TForm1.DBLookupComboBox28Click(Sender: TObject);
begin
button68.Visible:=true;
end;
procedure TForm1.Button70Click(Sender: TObject);
begin
//adostoredproc32.Parameters.ParamValues['@nom']:=unit2.Form2.DBLookupComboBox1.KeyValue;
label89.Visible:=true;
edit12.Visible:=true;
button71.Visible:=true;
//ADOStoredProc32.ExecProc;
//ADOStoredProc32.close;
//dbgrid9.Refresh;
//adotable1.Close;
//adotable1.Open;
end;
procedure TForm1.Edit22KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
val(edit22.Text,x,z5);
if (z5=0)
and (dblookupcombobox15.Text<>'')and (edit22.Text<>'')
then
begin
adostoredproc33.Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;
adostoredproc33.Parameters.ParamValues['@kol']:=edit22.Text;
ADOStoredProc33.ExecProc;
x:= ADOStoredProc6.Parameters.ParamValues['@RETURN_VALUE'];
case x of
0: showmessage('Продажа осуществлена');
1: showmessage('Нет товара в наличии');
end;
end
else showmessage('Введите количество')
end;
procedure TForm1.Edit22Enter(Sender: TObject);
begin
val(edit22.Text,x,z5);
if (z5=0)
and (dblookupcombobox15.Text<>'')and (edit22.Text<>'')
then
begin
adostoredproc33.Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;
adostoredproc33.Parameters.ParamValues['@kol']:=edit22.Text;
ADOStoredProc33.ExecProc;
x:= ADOStoredProc33.Parameters.ParamValues['@RETURN_VALUE'];
case x of
0: begin
label24.Visible:=true;
label25.Visible:=true;
label26.Visible:=true;
//label27.Visible:=true;
dblookupcombobox16.Visible:=true;
dblookupcombobox17.Visible:=true;
dblookupcombobox18.Visible:=true;
datetimepicker1.Visible:=true;
label55.Visible:=true;
end;
1: showmessage('Нет товара в наличии');
end;
end
else showmessage('Введите наименование товара/количество')
end;
procedure TForm1.Edit22Exit(Sender: TObject);
begin
val(edit22.Text,x,z5);
if (z5=0)
and (dblookupcombobox15.Text<>'')and (edit22.Text<>'')
then
begin
adostoredproc33.Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;
adostoredproc33.Parameters.ParamValues['@kol']:=edit22.Text;
ADOStoredProc33.ExecProc;
x:= ADOStoredProc33.Parameters.ParamValues['@RETURN_VALUE'];
case x of
0: begin
label24.Visible:=true;
label25.Visible:=true;
label26.Visible:=true;
//label27.Visible:=true;
dblookupcombobox16.Visible:=true;
dblookupcombobox17.Visible:=true;
dblookupcombobox18.Visible:=true;
datetimepicker1.Visible:=true;
label55.Visible:=true;
end;
1: showmessage('Нет товара в наличии');
end;
end
else showmessage('Введите наименование товара/количество')
end;
procedure TForm1.Edit22Change(Sender: TObject);
begin
val(edit22.Text,x,z5);
if (z5=0)
and (dblookupcombobox15.Text<>'')and (edit22.Text<>'')
then
begin
adostoredproc33.Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;
adostoredproc33.Parameters.ParamValues['@kol']:=edit22.Text;
ADOStoredProc33.ExecProc;
x:= ADOStoredProc33.Parameters.ParamValues['@RETURN_VALUE'];
case x of
0: begin
label24.Visible:=true;
//label25.Visible:=true;
label26.Visible:=true;
//label27.Visible:=true;
dblookupcombobox16.Visible:=true;
//dblookupcombobox17.Visible:=true;
dblookupcombobox18.Visible:=true;
datetimepicker1.Visible:=true;
label55.Visible:=true;
end;
1: showmessage('Нет товара в наличии');
end;
end
else showmessage('Введите наименование товара/количество')
end;
procedure TForm1.hggfh1Click(Sender: TObject);
begin
unit6.Form6.Visible:=true;
end;
procedure TForm1.Button71Click(Sender: TObject);
begin
if Adotable2.locate('nazvanie_firmi',edit12.Text,[])
then begin showmessage('Фирма '+ edit12.Text+' является покупателем')
end
else showmessage('Фирма '+ edit12.Text+' не является покупателем');
label88.Visible:=false;
edit12.Visible:=false;
button71.Visible:=false;
end;
procedure TForm1.Button72Click(Sender: TObject);
begin
label89.Visible:=true;
edit18.Visible:=true;
button73.Visible:=true;
end;
procedure TForm1.Button73Click(Sender: TObject);
begin
if Adotable3.locate('nazvanie_firmi',edit18.Text,[])
then begin showmessage('Фирма '+ edit18.Text+' является поставщиком')
end
else showmessage('Фирма '+ edit18.Text+' не является поставщиком');
label89.Visible:=false;
edit18.Visible:=false;
button73.Visible:=false;
end;
procedure TForm1.Button74Click(Sender: TObject);
begin
label90.Visible:=true;
edit19.Visible:=true;
button75.Visible:=true;
end;
procedure TForm1.Button75Click(Sender: TObject);
begin
if Adotable4.locate('FIO',edit19.Text,[])
then begin showmessage(edit19.Text+' является продавцом')
end
else showmessage( edit19.Text+' не является продавцом');
label90.Visible:=false;
edit19.Visible:=false;
button75.Visible:=false;
end;
procedure TForm1.Button76Click(Sender: TObject);
begin
label91.Visible:=true;
edit20.Visible:=true;
button77.Visible:=true;
end;
procedure TForm1.Button77Click(Sender: TObject);
begin
if Adotable5.locate('Naimenovanie_tovara',edit20.Text,[])
then begin showmessage(edit20.Text+' присутствует в каталоге ')
end
else showmessage( edit20.Text+' не присутствует в каталоге');
label91.Visible:=false;
edit20.Visible:=false;
button77.Visible:=false;
end;
procedure TForm1.Button78Click(Sender: TObject);
begin
//label92.Visible:=true;
edit21.Visible:=true;
button79.Visible:=true;
end;
procedure TForm1.Button79Click(Sender: TObject);
begin
if Adotable8.locate('Naimenovanie_tovara',edit21.Text,[])
then begin showmessage(edit21.Text+' присутствует в каталоге ')
end
else showmessage( edit21.Text+' не присутствует в каталоге');
//label92.Visible:=false;
edit21.Visible:=false;
button79.Visible:=false;
end;
procedure TForm1.Button80Click(Sender: TObject);
begin
label93.Visible:=true;
dblookupcombobox29.Visible:=true;
end;
procedure TForm1.Button82Click(Sender: TObject);
begin
label93.Visible:=false;
dblookupcombobox29.Visible:=false;
button81.Visible:=false;
button82.Visible:=false;
end;
procedure TForm1.DBLookupComboBox29Click(Sender: TObject);
begin
button81.Visible:=true;
button82.Visible:=true;
end;
procedure TForm1.Button81Click(Sender: TObject);
begin
ADOStoredProc32. Parameters.ParamValues['@N']:=dblookupcombobox29.KeyValue;
ADOStoredProc32.ExecProc;
adotable1.Close;
adotable1.Open;
//ADOTable4.Refresh;
x:=
ADOStoredProc32.Parameters.ParamValues['@RETURN_VALUE'];
case x of
0: showmessage('Запись удалена');
1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');
2: showmessage('Данная запись не существует')
end;
end;
procedure TForm1.Button83Click(Sender: TObject);
begin
label51.Visible:=true;
label52.Visible:=true;
label53.Visible:=true;
label54.Visible:=true;
edit53.Visible:=true;
edit54.Visible:=true;
edit55.Visible:=true;
edit56.Visible:=true;
button84.Visible:=true;
button85.Visible:=true;
end;
procedure TForm1.Button85Click(Sender: TObject);
begin
label51.Visible:=false;
label52.Visible:=false;
label53.Visible:=false;
label54.Visible:=false;
edit53.Visible:=false;
edit54.Visible:=false;
edit55.Visible:=false;
edit56.Visible:=false;
button84.Visible:=false;
button85.Visible:=false;
end;
procedure TForm1.Button84Click(Sender: TObject);
begin
val(edit53.Text,x,z1);
if (z1=0)
then begin
if (adotable1.Locate('Nomer_magazina',edit53.Text,[])=false) then begin
val(edit53.Text,x,z1);
if (z1=0)
and (edit53.Text<>'') and (edit54.Text<>'')
and (edit55.Text<>'') and (edit56.Text<>'')
then begin
adostoredproc34.Parameters.ParamValues['@n']:=Edit53.Text;
//ADOStoredProc2. Parameters.ParamValues['@nom1']:= Edit45.Text;
ADOStoredProc34. Parameters.ParamValues['@nazv']:= Edit54.Text;
ADOStoredProc34. Parameters.ParamValues['@fio']:= Edit55.Text;
ADOStoredProc34.Parameters.ParamValues['@adr']:= Edit56.Text;
ADOStoredProc34.ExecProc;
adotable1.Close;
adotable1.Open;
end
else showmessage('Неправильный ввод');
end
else showmessage('Запись уже существует');
//ADOTable2.Refresh;
end
else showmessage('Неправильно введен номер магазина');
end;
procedure TForm1.Button87Click(Sender: TObject);
begin
label95.Visible:=true;
//button88.Visible:=false;
// button86.Visible:=false;
dblookupcombobox30.Visible:=true;
// dblookupcombobox15.Visible:=true;
//button16.Visible:=true;
//label17.Visible:=true;
//label28.Visible:=true;
//edit12.Visible:=true;
//edit18.Visible:=true;
//edit19.Visible:=true;
//edit20.Visible:=true;
//edit21.Visible:=true;
//edit22.Visible:=true;
//edit48.Visible:=true;
end;
procedure TForm1.Button86Click(Sender: TObject);
begin
button88.Visible:=false;
button86.Visible:=false;
dblookupcombobox30.Visible:=false;
label95.Visible:=false;
end;
procedure TForm1.DBLookupComboBox30Click(Sender: TObject);
begin
button88.Visible:=true;
button86.Visible:=true;
end;
procedure TForm1.Button88Click(Sender: TObject);
begin
if dblookupcombobox30.Text<>''
then begin
ADOStoredProc35. Parameters.ParamValues['@n']:= dblookupcombobox30.KeyValue;
ADOStoredProc35.ExecProc;
adotable6.Close;
adotable6.Open;
adotable7.Close;
adotable7.Open;
end
else showmessage('Заказов нет ')
end;
procedure TForm1.DBLookupComboBox42Click(Sender: TObject);
begin
label96.Caption:=dblookupcombobox42.KeyValue;
label96.Visible:=true;
label37.Visible:=true;
end;
end.
Приложение 3
Сценарий инсталяции программы
[setup]
AppName= Клиентское приложение БД
AppVerName=21 век 1.0
AppPublisher= DefaultDirName={pf}\BD
DefaultGroupName=Клиент БД
[Languages]
Name: "ru"; MessagesFile: "compiler:Languages\russian.isl"
[Types]
Name: "custom"; Description: "Выборочная установка";Flags: iscustom;
Name: "full"; Description: "Полная установка"
[Components]
Name: "program"; Description: "Приложение";Types: custom full;
[Files]
;Приложение
Source: "project1.exe"; DestDir: "{app}";CopyMode: alwaysoverwrite; Components: program
[Icons]
;Ярлык приложения в главном меню
Name: "{group}\Пример"; Filename: "{app}\project1.exe";WorkingDir: "{app}"; Components: program
;Ярлык приложения на рабочем столе
Name: "{userdesktop}\Пример"; Filename: "{app}\project1.exe";WorkingDir: "{app}"; Components: program
Name: "{group}\Удалить программу";Filename:"{uninstallexe}"
Размещено на Allbest.ru
Подобные документы
Организационно-управленческая структура ООО "Гранит". Оценка проблемных ситуаций, поиск методов их разрешения. Разработка баз данных, содержащих информацию о поставщиках, покупателях, покупках и продажах предприятия ООО "Гранит", программные требования.
дипломная работа [8,1 M], добавлен 01.07.2011Программа управления базой данных "Отдел сбыта", содержащей информацию об организациях, приобретающих продукцию завода, о продукции и ее продаже. Обеспечение хранения, добавления, удаления и редактирования информации, использования запросов и отчетов.
курсовая работа [567,8 K], добавлен 18.08.2009Разработка программы, создающей и управляющей базой данных, ее реализация на языке Turbo Pascal. Организация алгоритма программы. Вывод информации и возможность добавления информации в базу данных. Поиск информации в базе данных по заданному значению.
курсовая работа [26,7 K], добавлен 19.06.2010Разработка информационной системы административного управления. Выбор языка и среды программирования. Структура взаимодействия информации. Требования к программно-аппаратному окружению. Создание программы в Delphi и связывание ее с базой данных.
курсовая работа [1010,9 K], добавлен 08.10.2015Разработка информационной системы по учету, хранению, анализу информации о персонале автосервиса, поставках автозапчастей, клиентах, заказах, информации об услугах автосервиса и сроках их выполнения. Руководство пользователя для работы с базой данных.
курсовая работа [2,1 M], добавлен 25.09.2010Проектирование концептуальной, логической и физической модели базы данных. Формирование сущностей и связей между ними. Создание форм с функциями добавления, редактирования, удаления, поиска, печати. Разработка клиентской части БД с помощью среды Lazarus.
курсовая работа [1,3 M], добавлен 05.04.2015Cоздание базы данных "Договора" для сети компьютерных магазинов "Вега" в целях автоматизации процессов учета поставки товаров, обеспечения уверенного поиска поставщиков (комплектующих) по заданным условиям. Организация работы базы данных в локальной сети.
курсовая работа [1,9 M], добавлен 05.06.2013Разработка модели информационной системы "Рыболовный магазин" с помощью СУБД Firebird. Компоненты программного продукта. Физическая диаграмма базы данных, обзор функций добавления, изменения, удаления и сортировки данных. Руководство администратора.
курсовая работа [406,2 K], добавлен 21.02.2016Проектирование системы управления базой данных "Почтовые отделения" для создания единой информационной системы: создание таблиц для хранения данных, ввод данных, разработка элементов базы, предназначенных для просмотра, редактирования и вывода информации.
курсовая работа [1,4 M], добавлен 31.03.2010Разработка программного продукта "Железная дорога". Вид и классификация инструментальных средств, используемых для создания прикладного ПО. Организация взаимодействия клиентской программы с базой данных; реализация системы контроля движения поездов.
курсовая работа [895,0 K], добавлен 11.11.2010
