Главная страница
Навигация по странице:

  • Листинг программы

  • Печатная форма документа «Прайс–лист»

  • Печатная форма документа «Платежное требование»

  • Печатная форма документа «Сопроводительный лист груза»

  • Пояснительная. 2 Спецификация проекта 34


    Скачать 1 Mb.
    Название2 Спецификация проекта 34
    Дата17.06.2022
    Размер1 Mb.
    Формат файлаdoc
    Имя файлаПояснительная.doc
    ТипРеферат
    #600495
    страница8 из 8
    1   2   3   4   5   6   7   8

    Список использованных источников





    1. ГОСТ 19.001-77 ЕСПН. Общие положения.

    2. ГОСТ 19.002-77 ЕСПН. Виды программ и программных документов

    3. ГОСТ 19.003-77 ЕСПН. Стадии разработки

    4. ГОСТ 19.005-78 ЕСПН. Общие требования к программным документам

    5. ГОСТ 19.301-79 ЕСПН. Порядок и методика испытаний

    6. ГОСТ 19.402-78 ЕСПН. Описание программы

    7. ГОСТ 19.404-79 ЕСПН. Пояснительная записка. Требования к содержанию и оформлению.

    8. Архангельский, А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi [Текст] / А.Я. Архангельский.- М. : Бином, 2006

    9. Архангельский, А.Я. 100 компонентов Delphi [Текст] / А.Я. Архангельский. – СПб. : Питер, 2007.

    10. Абрамов, С.А. Начала программирования на языке Паскаль [Текст] / С.А. Абрамов, Е.В. Зима. - М. : Лори, 2007

    11. Белецкий, Я. Турбо Паскаль с графикой для персональных компьютеров [Текст] / Я. Белецкий. - М. : Интуит, 2003

    12. Вендров, А.М. Проектирование программного обеспечения экономических информационных систем [Текст] / А.М. Вендров. - М. : Финансы и статистика, 2002.

    13. Голицина О.Л.. Базы данных [Текст] : Учебное пособие / О.Л. Глицина, Н.В.Максимов, И.И Попов. - М. : ИНФРА-М, 2003

    14. Горев, А. Эффективная работа в СУБД [Текст] / А.Горев, Р. Ахаян, С. Макшарипов. – СПб. : Питер, 2007.

    15. Дейт, К. Введение в системы баз данных [Текст] / К. Дейт. – М. : Диалект, 2004.

    16. Дарахвелидзе, П. Программирование в Delphi [Текст] / П. Дарахвелидзе, Е. Марков. 3 – СПб. : БХВ-Санкт-Петербург, 2005.

    17. Дж. Ордейн. Справочник программиста персональных компьютеров [Текст] / Дж. Ордейн. - М.: Финансы и статистика, 2002.

    18. Журавлев, А.П. Язык и компьютер [Текст] / А.П. Журавлев, Н.А. Павлюк. - М. : ДиаСофт, 2009.

    19. Королев, А.Ю. Экономическая информатика и вычислительная техника [Текст] / А.Ю. Королев. - М. : Финансы и статистика, 2003.

    20. Кузнецов, С.Д. Основы современных баз данных [Текст] / С.Д. Кузнецов. – М. : Бином, 2002

    21. Мейер, Д. Теория реляционных баз данных [Текст] : пер. с англ. / Д. Меййер – М. : Интуит, 2007.

    22. Норенков, И.П. Введение в автоматизированное проектирование технических устройств и систем [Текст] : Учебное пособие для вузов / И.П. Норенков. - М. : Высшая школа, 2000.

    23. Питер, Р. Системы баз данных: проектирование, реализация и управление [Текст] / Р. Питер, К. Коронел. - СПб. : БХВ - Петербург, 2004

    24. Пасько, В.П. Энциклопедия ПК. Аппаратура. Программы. Интернет [Текст] / В.П. Пасько. – Киев : Издательская группа BHV, 2004.

    25. Смирнова, Г.Н. Проектирование экономических информационных систем [Текст] / Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов. - М. : Финансы и статистика, 2002.

    26. Соколов, А.В. Защита от компьютерного терроризма [Текст] / А.В. Соколов, О.М. Степанюк. – СПб. : Арлит, 2002.

    27. Трубилин, И.Т. Автоматизированные информационные технологии в экономике [Текст] / И.Т. Трубилин, Т.П. Барановская, М.И. Семенов, В.И.Лойко. - М. : Финансы и статистика, 2008.

    28. Ульман, Дж. Основы современных баз данных [Текст] : пер. с англ. / Дж. Ульман. – М. : Солон-пресс, 2002.

    29. Фаронов, В.В. Delphi [Текст] : Учебный курс / В.В. Фаронов. – М. : Нолидж, 2004.

    30. Фаронов, В.В. Турбо Паскаль 7.0. – М. : Нолидж, 2002.

    31. Хомоненко, А.Д. Базы Данных [Текст] : Учебное пособие / А.Д. Хомоненко, В.М. Циганков, М.Г. Мальцев. - СПб. : КОРОНА принт, 2002.



    Список сокращений



    АИС – автоматизированная информационная система

    АСУ – автоматизированная система управления

    ПО – программное обеспечение

    Приложение А



    Листинг программы

    unit Unit1;
    interface
    uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, DB, DBTables, Menus, StdCtrls,

    Mask, ComCtrls, Buttons, RpRave, RpDefine, RpCon, RpConDS, RpBase,

    RpSystem;
    type

    TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N4: TMenuItem;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    DataSource4: TDataSource;

    DataSource5: TDataSource;

    Table1: TTable;

    Table2: TTable;

    Table3: TTable;

    Table4: TTable;

    Table5: TTable;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    Panel3: TPanel;

    Label7: TLabel;

    DBGrid3: TDBGrid;

    DBNavigator2: TDBNavigator;

    Button17: TButton;

    Edit3: TEdit;

    Button18: TButton;

    Button19: TButton;

    TabSheet2: TTabSheet;

    Panel4: TPanel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    DBGrid4: TDBGrid;

    DBEdit4: TDBEdit;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    Button21: TButton;

    Button22: TButton;

    Button23: TButton;

    Button25: TButton;

    DBMemo2: TDBMemo;

    TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;

    Panel1: TPanel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEdit1: TDBEdit;

    DBComboBox1: TDBComboBox;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBMemo1: TDBMemo;

    BitBtn1: TBitBtn;

    DBGrid1: TDBGrid;

    DBEdit5: TDBEdit;

    DBEdit9: TDBEdit;

    Label1: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    DBEdit10: TDBEdit;

    DBMemo3: TDBMemo;

    Label15: TLabel;

    Butto1: TButton;

    N1: TMenuItem;

    Edit1: TEdit;

    Button1: TButton;

    dob: TButton;

    DBEdit11: TDBEdit;

    DBEdit12: TDBEdit;

    DBEdit13: TDBEdit;

    DBEdit14: TDBEdit;

    DBEdit16: TDBEdit;

    DBEdit17: TDBEdit;

    Dooformit: TButton;

    Soh: TButton;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    Label21: TLabel;

    DBGrid2: TDBGrid;

    RvDataSetConnection1: TRvDataSetConnection;

    RvProject1: TRvProject;

    Pechat: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label22: TLabel;

    DBNavigator1: TDBNavigator;

    Table5Ng: TFloatField;

    Table5Name: TStringField;

    Table5Kol: TFloatField;

    Table5Cena: TCurrencyField;

    Table5Sum: TCurrencyField;

    DBNavigator3: TDBNavigator;

    DBNavigator4: TDBNavigator;

    Table1Name: TStringField;

    Table1Typ: TStringField;

    Table1Naz: TMemoField;

    Table1Cena: TCurrencyField;

    Table1Kol: TFloatField;

    Table2Ng: TAutoIncField;

    Table2Spisok: TMemoField;

    Table2Sum: TCurrencyField;

    Table2Date: TDateField;

    Table2Pred: TStringField;

    Table3Org: TStringField;

    Table3Pred: TStringField;

    Table3Adr: TStringField;

    Table3Tel: TMemoField;

    Table3Email: TStringField;

    Table4Ng: TFloatField;

    Table4Otv: TStringField;

    Table4DateOt: TDateField;

    Table4DateDos: TDateField;

    Table4Pred: TStringField;

    Table4Adr: TStringField;

    RvDataSetConnection2: TRvDataSetConnection;

    RvProject2: TRvProject;

    RvDataSetConnection3: TRvDataSetConnection;

    RvDataSetConnection4: TRvDataSetConnection;

    RvDataSetConnection5: TRvDataSetConnection;

    RvProject3: TRvProject;

    platr: TButton;

    soprov: TButton;

    dogov: TButton;

    RvProject4: TRvProject;

    RvSystem1: TRvSystem;

    RvSystem2: TRvSystem;

    RvSystem3: TRvSystem;

    RvSystem4: TRvSystem;

    procedure of_zakClick(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure platClick(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure zakClick(Sender: TObject);

    procedure Buttonn1Click(Sender: TObject);

    procedure Butto1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure Button17Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure dobClick(Sender: TObject);

    procedure DooformitClick(Sender: TObject);

    procedure SohClick(Sender: TObject);

    procedure PechatClick(Sender: TObject);

    procedure platrClick(Sender: TObject);

    procedure soprovClick(Sender: TObject);

    procedure dogovClick(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;

    var

    Form1: TForm1;
    implementation
    uses Unit2, Unit3, Unit5;
    {$R *.dfm}
    procedure TForm1.of_zakClick(Sender: TObject);

    begin

    panel1.Visible:=true;

    table1.Append;
    end;
    procedure TForm1.Button2Click(Sender: TObject);

    begin

    panel1.Visible:=true;

    table1.Edit;
    end;
    procedure TForm1.Button3Click(Sender: TObject);

    begin

    if Application.MessageBox(' Вы уверены, что хотите удалить данную запись ? ','Сообщение !!!',mb_IconQuestion+mb_yesno)= idYes then

    Form1.Table1.Delete;

    end;
    procedure TForm1.N4Click(Sender: TObject);

    begin

    close;

    application.Terminate;

    end;
    procedure TForm1.Edit1Change(Sender: TObject);

    begin

    table1.IndexFieldNames:='name';

    table1.FindNearest([edit3.Text]);

    end;
    procedure TForm1.platClick(Sender: TObject);

    begin

    table1.IndexFieldNames:='typ;name';

    end;
    procedure TForm1.Button6Click(Sender: TObject);

    begin

    if table1.Filtered then table1.Filtered:=false;

    form3.ShowModal;

    table1.Filtered:=true;

    table1.Filter:='typ='''+form3.comboBox1.text+ '''';

    end;
    procedure TForm1.Button7Click(Sender: TObject);

    begin

    Panel1.Visible:=true;

    end;
    procedure TForm1.Button8Click(Sender: TObject);

    begin

    table3.Append;

    end;
    procedure TForm1.Button9Click(Sender: TObject);

    begin

    table3.Edit;

    end;
    procedure TForm1.Button12Click(Sender: TObject);

    begin

    table3.Post;

    end;
    procedure TForm1.Button10Click(Sender: TObject);

    begin

    if Application.MessageBox(' Вы уверены, что хотите удалить данную запись ? ','Сообщение !!!',mb_IconQuestion+mb_yesno)= idYes then

    Form1.Table3.Delete;

    end;
    procedure TForm1.zakClick(Sender: TObject);

    begin

    panel1.Visible:=false;

    end;
    procedure TForm1.Buttonn1Click(Sender: TObject);

    begin

    table2.First;

    table2.Append;

    dbedit9.Text:=dbedit6.Text;

    table2.Post;

    table2.Edit;

    end;
    procedure TForm1.Butto1Click(Sender: TObject);

    begin

    table5.Append;

    form5.DBEdit1.Text:=table2.FieldValues['ng'];

    table5.FieldValues['name']:=table1.FieldValues['name'];

    table5.FieldValues['cena']:=table1.FieldValues['cena'];

    table5.FieldValues['kol']:=strtoint(edit1.Text);

    form5.show;

    table5.Post;
    table1.Edit;

    table1.FieldValues['kol']:=table1.FieldValues['kol']-strtoint(edit1.Text);

    table1.Post;

    end;
    procedure TForm1.BitBtn2Click(Sender: TObject);

    begin

    form1.Table1.Next;

    end;
    procedure TForm1.BitBtn1Click(Sender: TObject);

    begin

    form1.Table1.Post;

    end;
    procedure TForm1.BitBtn3Click(Sender: TObject);

    begin

    form1.Table1.Prior;

    end;
    procedure TForm1.N1Click(Sender: TObject);

    begin

    table5.First;

    while not table5.Eof do

    table5.Delete;

    table2.Append;

    table2.Post;

    end;
    procedure TForm1.Button17Click(Sender: TObject);

    begin

    table1.Filtered:=false;

    end;
    procedure TForm1.Button1Click(Sender: TObject);

    begin

    table2.post;

    end;
    procedure TForm1.dobClick(Sender: TObject);

    begin

    table2.Edit;

    table2.FieldValues['pred']:=table3.FieldValues['pred'];

    table4.Append;

    table4.FieldValues['pred']:=table3.FieldValues['pred'];

    table4.FieldValues['adr']:=table3.FieldValues['adr'];

    table4.FieldValues['ng']:=table2.FieldValues['ng'];

    table4.Post;

    end;
    procedure TForm1.DooformitClick(Sender: TObject);

    begin

    table4.Edit;

    end;
    procedure TForm1.SohClick(Sender: TObject);

    begin

    table4.Post;

    end;
    procedure TForm1.PechatClick(Sender: TObject);

    begin

    form1.RvSystem1.DoNativeOutput := False;

    form1.RvSystem1.DefaultDest := rdPreview;

    form1.RvSystem1.SystemSetups := form1.RvSystem1.SystemSetups - [ssAllowSetup];

    form1.RvProject1.Execute;
    end;
    procedure TForm1.platrClick(Sender: TObject);

    begin

    form1.RvSystem2.DoNativeOutput := False;

    form1.RvSystem2.DefaultDest := rdPreview;

    form1.RvSystem2.SystemSetups := form1.RvSystem1.SystemSetups - [ssAllowSetup];

    form1.RvProject2.Execute;

    end;
    procedure TForm1.soprovClick(Sender: TObject);

    begin

    form1.RvSystem3.DoNativeOutput := False;

    form1.RvSystem3.DefaultDest := rdPreview;

    form1.RvSystem3.SystemSetups := form1.RvSystem1.SystemSetups - [ssAllowSetup];

    form1.RvProject3.Execute;

    end;
    procedure TForm1.dogovClick(Sender: TObject);

    begin

    form1.RvSystem4.DoNativeOutput := False;

    form1.RvSystem4.DefaultDest := rdPreview;

    form1.RvSystem4.SystemSetups := form1.RvSystem1.SystemSetups - [ssAllowSetup];

    form1.RvProject4.Execute;

    //rvproject4.Execute;

    end;
    end.

    unit Unit2;
    interface
    uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls, Buttons, DBCtrls, Mask;
    type

    TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEdit1: TDBEdit;

    DBComboBox1: TDBComboBox;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBMemo1: TDBMemo;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    BitBtn3: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;
    var

    Form2: TForm2;
    implementation
    uses Unit1;
    {$R *.dfm}
    procedure TForm2.BitBtn1Click(Sender: TObject);

    begin

    form1.table1.post;

    end;
    procedure TForm2.BitBtn2Click(Sender: TObject);

    begin

    if not form1.Table1.Eof then form1.Table1.Next;

    end;
    procedure TForm2.Button1Click(Sender: TObject);

    begin

    form1.Table1.Edit;

    end;
    procedure TForm2.Button2Click(Sender: TObject);

    begin

    form1.Table1.Append;

    end;
    procedure TForm2.Button3Click(Sender: TObject);

    begin

    form2.Hide;

    end;
    procedure TForm2.BitBtn3Click(Sender: TObject);

    begin

    if not form1.Table1.Bof then form1.Table1.Prior;

    end;
    end.

    unit Unit3;
    interface
    uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls;
    type

    TForm3 = class(TForm)

    ComboBox1: TComboBox;

    Label1: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;
    var

    Form3: TForm3;
    implementation
    {$R *.dfm}
    procedure TForm3.Button1Click(Sender: TObject);

    begin

    form3.close;

    end;
    end.
    unit Unit4;
    interface
    uses

    SysUtils, Classes;
    type

    TDataModule4 = class(TDataModule)

    private

    { Private declarations }

    public

    { Public declarations }

    end;
    var

    DataModule4: TDataModule4;
    implementation
    {$R *.dfm}
    end.

    unit Unit5;
    interface
    uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;
    type

    TForm5 = class(TForm)

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    Button3: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DBGrid1: TDBGrid;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;
    var

    Form5: TForm5;
    implementation
    uses Unit1;
    {$R *.dfm}
    procedure TForm5.Button1Click(Sender: TObject);

    begin

    form1.table5.post;

    end;
    procedure TForm5.Button2Click(Sender: TObject);

    begin
    form1.table5.append;

    form5.DBEdit1.Text:=form1.table2.FieldValues['ng'];

    end;
    procedure TForm5.Button3Click(Sender: TObject);

    var s:real;i:integer;

    begin

    i:=0;

    form1.Table5.First;

    form1.DBMemo3.Clear;

    form1.Table2.Last;

    form1.Table2.Edit;

    while not form1.Table5.Eof do

    begin

    s:=s+form1.table5.FieldValues['cena']*form1.table5.FieldValues['kol'];

    i:=i+1;

    form1.DBMemo3.Lines.Add(form1.Table5.FieldValues['name']);

    form1.DBMemo3.Lines.Add(form1.Table5.FieldValues['kol']);

    form1.Table5.Next;

    end;

    form1.Table5.Edit;

    form1.table5.FieldValues['sum']:=s;

    form1.table5.Post;

    form1.Table2.FieldValues['sum']:=s;

    form1.table2.FieldValues['spisok']:= form1.DBMemo3.Text;

    form1.Table2.Post;

    end;
    end.

    Приложение Б



    Печатная форма документа «Прайс–лист»



    Приложение В



    Печатная форма документа «Договор купли - продажи»



    Приложение Г



    Печатная форма документа «Платежное требование»


    Приложение Д



    Печатная форма документа «Сопроводительный лист груза»




    1   2   3   4   5   6   7   8


    написать администратору сайта