Готовые работы
Дипломная работа
- Дипломная работа
- Доклад
- Курсовая работа
- Ответы на билеты
- Реферат
- Эссе
Программирование

Cклад торгового предприятия

Заказать уникальную дипломную работу

Тип работы: Дипломная работа

Предмет: Программирование

59 59 страниц
32 + 32 источника
Добавлена 23.07.2015

2 500 руб.

Содержание
Часть работы
Список литературы
Вопросы/Ответы

Введение 3
1.Постановка задачи 6
2.Средства реализации 18
2.1. Выбор средства разработки 18
2.2.Анализ существующих разработок 19
3.Требования к аппаратному и программному обеспечению 23
4.Реализация базы данных складского учета 27
4.1. Описание обеспечивающих подсистем 27
4.2.Разработка структуры данных 33
5. Интерфейс пользователя 46
6.Структура программного продукта 55
Заключение 56
Список источников и литературы 57

Фрагмент для ознакомления

Clear; sql.Add('update gur_hran set kol=kol+'+form1.ADOQuery10kol.AsString+' where mesto=1'); execsql; end; with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('delete from pos_nakl where code_str='+form1.ADOQuery10code_str.AsString); execsql; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); open; end; showmessage('Удалено');end;procedure TForm13.RzBitBtn3Click(Sender: TObject);begin form1.ADOQuery8.open; with form1.ADOQuery6 do begin close; sql.Clear; sql.add('select * from contrag where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open; end; form1.ADOQuery8.AppendRecord([edit1.Text,form1.ADOQuery6code.AsInteger,datetimepicker1.date,'расход']); edit1.Text:=inttostr(1+strtoint(edit1.Text)); with form1.ADOQuery14 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); open; end; showmessage('Накладнаязакрыта');end;procedure TForm13.RzBitBtn4Click(Sender: TObject);begin form13.close;end;procedure TForm13.RzBitBtn2Click(Sender: TObject);var calc:toocalc; i:integer;begincalc:=toocalc.Create('c:\skl\xlt\torg14.xlt'); form1.ADOQuery3.Open; form1.ADOQuery10.First; for i:=1 to form1.ADOQuery14.RecordCount do begin calc.Cell[28+i,1]:=i; calc.Cell[28+i,5]:=trim(form1.adoquery14nam.AsString); with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.adoquery10nam.AsString)+form1.Label1.Caption); open; end; calc.Cell[28+i,45]:=form1.ADOQuery1edizm.AsString; calc.Cell[28+i,17]:=form1.ADOQuery1code.AsString; calc.Cell[28+i,64]:=form1.ADOQuery1stm.AsString; calc.Cell[28+i,71]:=form1.ADOQuery14kol.AsString; calc.Cell[28+i,75]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc.Cell[28+i,93]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1.adoquery10.next; end; calc.Cell[19,12]:='оператор'; form1.ADOQuery3.Open; calc.Cell[19,30]:=form1.ADOQuery3oper.AsString; calc.Cell[21,30]:=form1.ADOQuery6oper.AsString; calc.Cell[16,63]:=edit1.Text; calc.Cell[16,72]:=datetostr(datetimepicker1.date); calc.Cell[8,87]:=form1.ADOQuery3inn.AsString; calc.Cell[7,1]:=form1.ADOQuery3nam.AsString;calc.Visible:=true;end;end.unit Unit14;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm14 = class(TForm) Label3: TLabel; Label1: TLabel; Label2: TLabel; ComboBox1: TComboBox; Edit1: TEdit; ComboBox2: TComboBox; Label4: TLabel; Edit2: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure ComboBox2Select(Sender: TObject); procedure ComboBox1Select(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form14: TForm14;implementationuses Unit1, Unit11, Unit13;{$R *.dfm}procedure TForm14.RzBitBtn2Click(Sender: TObject);begin form14.close;end;procedure TForm14.ComboBox2Select(Sender: TObject);var i:integer;begin with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad where nam='+form1.Label1.Caption+trim(combobox2.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where mesto='+form1.ADOQuery4mesto.AsString); open; end; combobox1.clear; for i:=1 to form1.ADOQuery13.RecordCount do begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where code='+form1.ADOQuery13cd_prod.AsString); open; end; combobox1.Items.Add(trim(form1.adoquery1nam.asstring)); form1.ADOQuery13.Next; end;end;procedure TForm14.ComboBox1Select(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad where nam='+form1.Label1.Caption+trim(combobox2.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where (cd_prod='+form1.ADOQuery1code.AsString+') and (mesto='+form1.ADOQuery4mesto.AsString+')'); open; end; if form1.ADOQuery13.RecordCount>0 then edit2.Text:=form1.ADOQuery13kol.asstring else edit2.Text:='0';end;procedure TForm14.RzBitBtn1Click(Sender: TObject);var pos:integer;begin if strtoint(edit1.Text)>strtoint(edit2.Text) then showmessage('Неттакогоколичестватоваравналичии') else begin with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad where nam='+form1.Label1.Caption+trim(combobox2.Text)+form1.Label1.Caption); open; end; if form1.ADOQuery4.RecordCount=0 then showmessage('Невыбраноместохранения') else begin with form1.ADOQuery1 do beginclose; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery12 do begin close; sql.Clear; sql.add('select max(code_str) from pos_nakl'); open; end; if form1.ADOQuery12.RecordCount=0 then pos:=1 else pos:=1+form1.ADOQuery12Column1.AsInteger; form1.ADOQuery9.open; form1.ADOQuery9.AppendRecord([form13.Edit1.Text,form1.ADOQuery1code.AsInteger,edit1.Text,0,edit1.Text,pos]); with form1.ADOQuery14 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); active:=true; end; form1.ADOQuery13.Open; with form1.adoquery13 do begin close; sql.Clear; sql.Add('select * from gur_hran where (cd_prod='+form1.ADOQuery1code.AsString+') and (mesto='+form1.ADOQuery4mesto.AsString+')'); open; end; if form1.ADOQuery13.RecordCount>0 then begin with form1.ADOQuery13 do begin close; sql.Clear; sql.Add('update gur_hran set kol=kol-'+edit1.Text+' where (cd_prod='+form1.ADOQuery1code.AsString+') and (mesto='+form1.ADOQuery4mesto.AsString+')'); execsql; end; end ; end; showmessage('Записано'); end;end;end.unit Unit15;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, StdCtrls, RzButton;type TForm15 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form15: TForm15;implementationuses Unit1, UOOCalc;{$R *.dfm}procedure TForm15.RzBitBtn2Click(Sender: TObject);begin form15.close;end;procedure TForm15.RzBitBtn1Click(Sender: TObject);var calc:toocalc; i:integer;begincalc:=toocalc.Create('c:\skl\xlt\torg14.xlt'); form1.ADOQuery3.Open; if trim(form1.ADOQuery15typ.AsString)='приход' then begin with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form1.ADOQuery15code.AsString); open; end; form1.ADOQuery10.First; for i:=1 to form1.ADOQuery10.RecordCount do begin calc.Cell[28+i,1]:=i; calc.Cell[28+i,5]:=trim(form1.adoquery10nam.AsString); with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.adoquery10nam.AsString)+form1.Label1.Caption); open; end; calc.Cell[28+i,45]:=form1.ADOQuery1nam.AsString; calc.Cell[28+i,17]:=form1.ADOQuery1code.AsString; calc.Cell[28+i,64]:=form1.ADOQuery1stm.AsString; calc.Cell[28+i,71]:=form1.ADOQuery10kol.AsString; calc.Cell[28+i,75]:=form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc.Cell[28+i,93]:=form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1.adoquery10.next; end; end else begin with form1.ADOQuery14 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form1.ADOQuery15code.AsString); active:=true; end; form1.ADOQuery14.First; for i:=1 to form1.ADOQuery14.RecordCount do begin calc.Cell[28+i,1]:=i; calc.Cell[28+i,5]:=trim(form1.adoquery10nam.AsString); with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.adoquery14nam.AsString)+form1.Label1.Caption); open; end; calc.Cell[28+i,45]:=form1.ADOQuery1nam.AsString; calc.Cell[28+i,17]:=form1.ADOQuery1code.AsString; calc.Cell[28+i,64]:=form1.ADOQuery1stm.AsString; calc.Cell[28+i,71]:=form1.ADOQuery14kol.AsString; calc.Cell[28+i,75]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc.Cell[28+i,93]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1.adoquery10.next; end; end; calc.Cell[19,12]:='оператор'; form1.ADOQuery3.Open; calc.Cell[19,30]:=form1.ADOQuery3oper.AsString; with form1.ADOQuery6 do begin close; sql.Clear; sql.add('select * from contrag where nam='+form1.Label1.Caption+trim(form1.adoquery15nam.AsString)+form1.Label1.Caption); open ; end; calc.Cell[21,30]:=form1.ADOQuery6oper.AsString; calc.Cell[16,63]:=form1.ADOQuery15code.AsString; calc.Cell[16,72]:=form1.ADOQuery15day.AsString; calc.Cell[8,87]:=form1.ADOQuery3inn.AsString; calc.Cell[7,1]:=form1.ADOQuery3nam.AsString;calc.Visible:=true;end;end.unit Unit16;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, ComCtrls;type TForm16 = class(TForm) Label1: TLabel; DateTimePicker1: TDateTimePicker; Label2: TLabel; DateTimePicker2: TDateTimePicker; Label3: TLabel; ComboBox1: TComboBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form16: TForm16;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TForm16.RzBitBtn2Click(Sender: TObject);begin form16.close;end;procedure TForm16.RzBitBtn1Click(Sender: TObject);var calc:toocalc; i,ost:integer;beginwith form1.ADOQuery1 dobegin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open;end;calc:=toocalc.Create('c:\skl\xlt\torg18.xlt'); with form1.adoquery16 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.rash, oper.code, nomen.edizm FROM oper INNER JOIN (nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod) ON oper.code = pos_nakl.code_oper where (oper.day>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (oper.day<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104))) and (pos_nakl.code_prod='+form1.ADOQuery1code.AsString+')'); open; end; form1.ADOQuery3.Open; calc.Cell[7,1]:=trim(form1.ADOQuery3nam.AsString); calc.Cell[29,16]:=datetostr(datetimepicker1.date); calc.Cell[29,42]:=datetostr(datetimepicker2.date); calc.ActivateSheet(2); ost:=0; calc.Cell[1,14]:=combobox1.Text; calc.Cell[2,13]:=form1.ADOQuery1edizm.AsString; for i:=1 to form1.ADOQuery16.RecordCount do begin with form1.ADOQuery8 do begin close; sql.Clear; sql.add('select * from oper where code='+form1.adoquery16code.AsString); open; end; ost:=ost+form1.ADOQuery16prih.AsInteger-form1.adoquery16rash.AsInteger; calc.Cell[7+i,1]:=form1.ADOQuery8day.AsString; calc.Cell[7+i,10]:=form1.ADOQuery16code.AsString; calc.Cell[7+i,19]:=form1.ADOQuery16prih.AsString; calc.Cell[7+i,28]:=form1.ADOQuery16rash.AsString; calc.Cell[7+i,37]:=ost; form1.ADOQuery16.Next; end; calc.visible:=true;end;end.unit Unit17;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm17 = class(TForm) private { Private declarations } public { Public declarations } end;var Form17: TForm17;implementation{$R *.dfm}end. unit Unit18;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm18 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form18: TForm18;implementation{$R *.dfm}procedure TForm18.RzBitBtn2Click(Sender: TObject);begin form18.Close;end;procedure TForm18.RzBitBtn1Click(Sender: TObject);var f:textfile;begin assignfile(f,'c:\skl\connect.txt'); rewrite(f); writeln(f,edit1.text); writeln(f,edit2.text); closefile(f);showmessage('Для применения настроек перезапустите программу');end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, RzButton, StdCtrls;type TForm2 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementationuses Unit1, Unit3, Unit4;{$R *.dfm}procedure TForm2.RzBitBtn3Click(Sender: TObject);begin form2.close;end;procedure TForm2.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.add('select max(code) from nomen'); open; end; if form1.ADOQuery2.RecordCount=0 then form3.Edit1.Text:='1' else form3.edit1.Text:=inttostr(1+form1.ADOQuery2column1.AsInteger); form3.Show;end;procedure TForm2.RzBitBtn2Click(Sender: TObject);begin form4.Edit1.Text:=form1.adoquery1code.AsString; form4.Edit2.Text:=form1.adoquery1edizm.AsString; form4.Edit3.Text:=form1.adoquery1nam.AsString; form4.Edit4.Text:=form1.adoquery1stm.AsString; form4.Show;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm3 = class(TForm) Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementationuses Unit1;{$R *.dfm}procedure TForm3.RzBitBtn2Click(Sender: TObject);begin form3.close;end;procedure TForm3.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery1.AppendRecord([edit1.Text,edit3.Text,edit2.Text,edit4.Text]); edit1.Text:=inttostr(1+strtoint(edit1.Text)); edit2.clear; edit3.clear; edit4.Clear; showmessage('Записано');end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm4 = class(TForm) Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4;implementationuses Unit1;{$R *.dfm}procedure TForm4.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('update nomen set nam='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update nomen set edizm='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update nomen set stm='+trim(edit4.Text)+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from nomen'); active:=true; end; form1.ADOQuery1.Locate('code',edit1.Text,[]); showmessage('Сохранено');end;procedure TForm4.RzBitBtn2Click(Sender: TObject);begin form4.close;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm5 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form5: TForm5;implementationuses Unit1;{$R *.dfm}procedure TForm5.RzBitBtn2Click(Sender: TObject);begin form5.close;end;procedure TForm5.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery3.Open; if form1.ADOQuery3.RecordCount>0 then form1.adoquery3.Delete; form1.ADOQuery3.AppendRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.Text,edit6.Text]); showmessage('Сохранено');end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, DB;type TForm6 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementationuses Unit1, Unit7;{$R *.dfm}procedure TForm6.RzBitBtn1Click(Sender: TObject);begin form6.close;end;procedure TForm6.RzBitBtn2Click(Sender: TObject);begin with form1.ADOQuery5 do begin close; sql.Clear; sql.add('select max(mesto) from sklad'); open; end; if form1.ADOQuery5.RecordCount=0 then form7.Edit1.Text:='1' else form7.edit1.Text:=inttostr(1+form1.ADOQuery5column1.AsInteger); form7.edit2.clear; form7.edit3.Clear; form7.Show;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm7 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TForm7;implementationuses Unit1;{$R *.dfm}procedure TForm7.RzBitBtn2Click(Sender: TObject);begin form7.close;end;procedure TForm7.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery4.AppendRecord([edit1.Text,edit2.Text,edit3.Text]); edit1.Text:=inttostr(1+strtoint(edit1.text)); edit2.Clear; edit3.Clear; showmessage('Записано');end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, DB;type TForm8 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; Label5: TLabel; DBText5: TDBText; Label6: TLabel; DBText6: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form8: TForm8;implementationuses Unit1, Unit9, Unit10;{$R *.dfm}procedure TForm8.RzBitBtn3Click(Sender: TObject);begin form8.Close;end;procedure TForm8.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery7 do begin close; sql.Clear; sql.add('select max(code) from contrag'); open; end; if form1.adoquery7.RecordCount=0 then form9.edit1.text:='1' else form9.Edit1.Text:=inttostr(1+form1.ADOQuery7column1.AsInteger); form9.Show;end;procedure TForm8.RzBitBtn2Click(Sender: TObject);begin form10.edit1.Text:=form1.ADOQuery6code.AsString; form10.edit5.Text:=form1.ADOQuery6nam.AsString; form10.edit2.Text:=form1.ADOQuery6adr.AsString; form10.edit3.Text:=form1.ADOQuery6inn.AsString; form10.edit4.Text:=form1.ADOQuery6tel.AsString; form10.edit6.Text:=form1.ADOQuery6oper.AsString; form10.Show;end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm9 = class(TForm) Label6: TLabel; Label5: TLabel; Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form9: TForm9;implementationuses Unit1;{$R *.dfm}procedure TForm9.RzBitBtn2Click(Sender: TObject);begin form9.close;end;procedure TForm9.RzBitBtn1Click(Sender: TObject);beginform1.ADOQuery6.AppendRecord([edit1.Text,edit5.Text,edit2.Text,edit3.Text,edit4.Text,edit6.Text]); edit1.text:=inttostr(1+strtoint(edit1.Text)); edit2.Clear; edit3.Clear; edit4.clear; edit5.Clear; edit6.Clear; showmessage('Записано');end;end.

1. Агальцов, В.П. Базы данных. В 2-х т.Т. 1. Локальные базы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 352 c.
2. Акперов, И.Г. Информационные технологии в менеджменте: Учебник / И.Г. Акперов, А.В. Сметанин, И.А. Коноплева. - М.: НИЦ ИНФРА-М, 2013. - 400 c.
3. Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.
4. Голицына, О.Л. Базы данных: Учебное пособие / О.Л. Голицына, Н.В. Максимов, И.И. Попов. - М.: Форум, 2012. - 400 c.
5. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий – М.: ИНТУИТ.ру, 2009. с.135
6. Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351400 "Прикладная информатика (по обл.)", 061100 "Менеджмент орг.", 061000 "Гос. и муницип. упр."] /А.С. Гринберг, Н.Н. Горбачев, А.С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.
7. Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности "Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.
8. Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям "Прикладная информатика (по обл.)", "Менеджмент орг.", "Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.
9. Информатика: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /А. Н. Гуда [и др.] ; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.
10. Информатика: учебник для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и другим экономическим специальностям /[В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.
11. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /[В. В. Трофимов и др.] ; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.
12. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. экон. специальностям /В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.
13. Исаев, Г.Н. Информационные технологии: Учебное пособие / Г.Н. Исаев. - М.: Омега-Л, 2013. - 464 c.
14. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c.
15. Кириллов, В.В. Введение в реляционные базы данных.Введение в реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. - СПб.: БХВ-Петербург, 2012. - 464 c.
16. Комплексная система защиты информации на предприятии. Часть 1. – М.: Московская Финансово-Юридическая Академия, 2008. – 124 с.
17. Коноплева, И.А. Информационные технологии: учеб. пособие : [для вузов по специальности "Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.
18. Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности "Прикладная информатика" /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.
19. Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер ; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.
20. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М. : ДИАЛОГ-МЭФИ, 2009.
21. Максимов, Н.В. Современные информационные технологии: Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013. - 512 c.
22. Малыхина, М.П. Базы данных: основы, проектирование, использование. – СПб: БХВ Петербург.2009.
23. Марков, А.С. Базы данных: Введ. в теорию и методологию : [Учеб. по специальности "Прикладная математика и информатика"] /А.С. Марков, К.Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.
24. Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с
25. Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской. - М.: Юрайт, 2013. - 463 c.
26. Степанов А.Н. Информатика: учебное пособие. – СПб: Питер Пресс, 2012. – 764 с.
27. Стражева Н. С., Стражев А. В. Бухгалтерский учет. - М.: Диалог, 2008. – 252с.
28. Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010
29. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. - М.: ИЦ Академия, 2012. - 320 c.
30. Хлебников, А.А. Информационные технологии: Учебник / А.А. Хлебников. - М.: КноРус, 2014. - 472 c.
31. Черников, Б.В. Информационные технологии управления: Учебник / Б.В. Черников. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 368 c.
32. Чиртик, А.А. : Программирование в Delphi /А.А.Чиртик. - СПб: Питер, 2012. – 312 с.

Вопрос-ответ:

Какие задачи решает склад торгового предприятия?

Склад торгового предприятия решает следующие задачи: хранение товаров, приемка и отгрузка товаров, инвентаризация, контроль за движением товаров, учет и контроль за остатками товаров и т.д.

Как выбирается средство разработки для реализации складского учета?

Выбор средства разработки для реализации складского учета зависит от ряда факторов, таких как требования к функциональности, доступность необходимых инструментов, наличие опыта у разработчиков, бюджет проекта и т.д. Как правило, выбирается средство разработки, которое позволяет создать надежную и эффективную систему складского учета.

Какие существуют разработки в области складского учета?

Существует множество различных разработок в области складского учета. Некоторые из них предлагают комплексные решения, объединяющие в себе функции учета, контроля и анализа, другие специализируются на определенных аспектах складского учета, таких как приемка и отгрузка товаров, инвентаризация или учет остатков. Необходимо провести анализ существующих разработок и выбрать наиболее подходящее решение для конкретного предприятия.

Какие требования предъявляются к аппаратному и программному обеспечению системы складского учета?

К требованиям к аппаратному и программному обеспечению системы складского учета относятся: производительность компьютерной системы, наличие достаточного объема оперативной памяти, наличие необходимых периферийных устройств (например, сканеров штрих-кодов), совместимость с операционной системой и другими предустановленными программами и т.д. Важно учитывать требования к оборудованию и программному обеспечению при разработке системы складского учета.

Как организуется база данных для складского учета?

Организация базы данных для складского учета включает в себя описание обеспечивающих подсистем, разработку структуры данных и создание интерфейса пользователя. Обеспечивающие подсистемы могут включать функции учета поступления и отгрузки товаров, контроля за остатками, генерации отчетов и другие. Структура данных определяет, как информация будет храниться в базе данных и как будут связаны различные сущности. Интерфейс пользователя предоставляет удобный способ взаимодействия с базой данных и осуществления операций складского учета.

Какая задача стоит перед разработчиками при создании склада торгового предприятия?

Задача разработчиков при создании склада торгового предприятия состоит в разработке программного продукта, который позволит автоматизировать учет и управление складскими операциями.

Какими средствами будет осуществляться реализация складского учета?

Реализация складского учета будет осуществляться с помощью специального программного обеспечения, которое будет разработано или выбрано из уже существующих разработок.

Какие требования предъявляются к аппаратному и программному обеспечению склада торгового предприятия?

К аппаратному и программному обеспечению склада торгового предприятия предъявляются требования по производительности, надежности и совместимости. Например, для работы с программным обеспечением может потребоваться наличие определенного типа компьютеров или операционных систем.

Каким образом будет реализована база данных складского учета?

База данных складского учета будет реализована с помощью разработки соответствующих обеспечивающих подсистем и разработки структуры данных. Для управления базой данных может использоваться язык запросов SQL.