Файл: Проектирование реализации операций бизнес-процесса (обоснование проектных решений по программному обеспечению).pdf
Добавлен: 15.06.2023
Просмотров: 360
Скачиваний: 3
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.2. Характеристика существующих бизнес–процессов
1.3. Характеристика документооборота, возникающего при решении задачи учета продаж
1.4. Обоснование проектных решений по информационному обеспечению необходимо выполнить
1.5. Обоснование проектных решений по программному обеспечению
2.1. Информационная модель и её описание
2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.3. Характеристика результатной информации
2.4. Общие положения (дерево функций и сценарий диалога)
2.5. Характеристика базы данных
2.6 Структурная схема пакета (дерево вызова программных модулей)
2.7 Описание программных модулей
2.8. Контрольный пример реализации проекта и его описание
Form5.Show;
form5.TabSheet3.Show;
Form1.Hide;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
form6.QuickRep2.Preview;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
end;
procedure TForm1.N17Click(Sender: TObject);
begin
form6.QuickRep5.Preview;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form7.show;
Form1.Hide;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet4.Show;
Form1.Hide;
end;
procedure TForm1.N19Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet5.Show;
Form1.Hide;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet6.Show;
Form1.Hide;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet7.Show;
Form1.Hide;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.HelpContext(0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.N2.Enabled:=false;
Form1.N22.Enabled:=false;
Form1.N8.Enabled:=false;
Form1.N9.Enabled:=false;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.N2.Enabled:=false;
Form1.N22.Enabled:=false;
Form1.N8.Enabled:=false;
Form1.N9.Enabled:=false;
Form8.show;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm1.N25Click(Sender: TObject);
begin
Form10.Show;
end;
procedure TForm1.N23Click(Sender: TObject);
begin
Form7.Show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls,db, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
Buttons, jpeg;
type
TForm2 = class(TForm)
PageControl1: TPageControl;
…
procedure RadioButton14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit6;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
IF DataMOdule3.AdoTable4.Locate('Шифр', DataMOdule3.adotable2.Fieldbyname('Шифр').Value, []) then
begin
DataMOdule3.AdoTable4.Edit;
//AdoTable2.Edit;
DataMOdule3.AdoTable4.FieldByName('Кол_во').Value:=DataMOdule3.AdoTable4.FieldByName('Кол_во').Value +DataMOdule3.AdoTable2.FieldByName('Кол_во').Value;
end
else
begin
DataMOdule3.AdoTable4.Append;
DataMOdule3.Adotable4.FieldByName('Шифр').Value:=DataMOdule3.Adotable2.FieldByName('Шифр').Value;
DataMOdule3.Adotable4.FieldByName('Кол_во').Value:=DataMOdule3.Adotable2.FieldByName('Кол_во').Value;
IF DataMOdule3.AdoTable3.Locate('Шифр', DataMOdule3.adotable4.fieldbyname('Шифр').Value, []) then
DataMOdule3.Adotable4.FieldByName('Ед_изм').Value:=DataMOdule3.Adotable3.FieldByName('Ед_изм').Value;
form4.show;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
DataModule3.ADOTable2.First;
while not (DataModule3.ADOTable2.eof) do begin
DataModule3.AdoTable2.edit;
DataModule3.AdoTable2.FieldByName('Стоим').Value:=0;
DataModule3.AdoTable2.FieldByName('Сумм_НДС').Value:=0;
DataModule3.AdoTable2.FieldByName('Сумма_ск').Value:=0;
IF (DataModule3.AdoTable3.Locate('Шифр', DataModule3.adotable2.fieldbyname('Шифр').Value, [])) and
(DataModule3.AdoTable1.Locate('Наим_Пост', DataModule3.adotable2.fieldbyname('Наим_Пост').Value, []))
then begin
DataModule3.AdoTable2.FieldByName('Стоим').Value:=DataModule3.AdoTable2.fieldbyname('Кол_во').Value* DataModule3.AdoTable3.FieldByname('Цена').Value;
DataModule3.AdoTable2.FieldByName('Сумм_НДС').Value:=DataModule3.AdoTable2.fieldbyname('Стоим').Value* DataModule3.AdoTable1.FieldByname('Ст_НДС').Value/100;
DataModule3.AdoTable2.FieldByName('Сумма_ск').Value:=DataModule3.AdoTable2.fieldbyname('Стоим').Value* DataModule3.AdoTable1.FieldByname('Скидка').Value/100;
end;
DataModule3.ADOTable2.next;
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
IF DataMOdule3.AdoTable4.Locate('Шифр', DataMOdule3.adotable5.Fieldbyname('Шифр').Value, []) then
IF DataMOdule3.AdoTable4.FieldByName('Кол_во').Value-DataMOdule3.AdoTable5.FieldByName('Кол_во').Value<0
then DataMOdule3.AdoTable4.FieldByName('Кол_во').Value:=0
else begin
DataMOdule3.AdoTable4.Edit;
DataMOdule3.AdoTable4.FieldByName('Кол_во').Value:=DataMOdule3.AdoTable4.FieldByName('Кол_во').Value -DataMOdule3.AdoTable5.FieldByName('Кол_во').Value
end
else Showmessage ('Продажа не возможна! Склад пуст!');
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton4Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton5Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Наим_тов';
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form6.QuickRep2.Preview;
end;
procedure TForm2.Button11Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm2.Button12Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
end;
procedure TForm2.Button13Click(Sender: TObject);
begin
form6.QuickRep5.Preview;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
DataModule3.ADOTable5.First;
while not (DataModule3.ADOTable5.eof) do begin
DataModule3.AdoTable5.edit;
IF DataModule3.AdoTable3.Locate('Шифр', DataModule3.adotable5.fieldbyname('Шифр').Value, [])
then begin
DataModule3.AdoTable5.FieldByName('Стоим').Value:=DataModule3.AdoTable5.fieldbyname('Кол_во').Value* DataModule3.AdoTable3.FieldByname('Цена').Value;
end;
DataModule3.ADOTable5.next;
end;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
Form2.Hide;
end;
procedure TForm2.RadioButton6Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Цена';
end;
procedure TForm2.RadioButton7Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Дата_пост';
end;
procedure TForm2.RadioButton8Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton9Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Дата_реал';
end;
procedure TForm2.RadioButton10Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='№_Чека';
end;
procedure TForm2.RadioButton11Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Адрес_Пост';
end;
procedure TForm2.RadioButton12Click(Sender: TObject);
begin
