Разработка приложения «Склад»

 

1. PageControl1

На панель добавлены 3 листа (TabSheet1- TabSheet3)

2 LabeledEdit1

3 DBEdit1- DBEdit8

4 Label1- Label8

5 SpeedButton2, SpeedButton4

Остальные листы реализованы  аналогичным образом

События

SpeedButton2Click – поиск по полю 'fio'

SpeedButton6Click - поиск по полю 'stag'

SpeedButton3Click - поиск по полю 'dolj'

SpeedButton5Click -  закрытие формы

SpeedButton1Click - закрытие формы

SpeedButton4Click - закрытие формы

Форма FTPoisk реализована  аналогично и содержит 7 листов

Форма Form1 – запрос

 

 

1 DBGrid1

Свойство

DataSourse – DM.DataSource1

2 DBNavigator1

Свойства

DataSourse – DM.DataSource1

VisibleButtons - [nbFirst,nbPrior,nbNext,nbLast]

3 SpeedButton2, SpeedButton4

События

SpeedButton4Click – закрытие формы

SpeedButton2Click – обновление запроса

Форма FRepVed– форма отчета

 

1 QuickRep1

 Свойство

DataSet - DM.Ttov

Bands.HasTitle - true

Bands.HasPageHeader - false

Bands.HasColumnHeader - true

Bands.HasDetail - true

Bands.HasPageFooter - false

Bands.HasSummary - true

2 QRLabel2 – QRLabel10

3 QRDBText1 – QRDBText9

Свойство

DataSet - DM.Ttov

DataField – соответствующие поля вышеуказанной таблицы

Форма Fzast – заставка

 

 

1 Timer1

2 Label1, Label2

3 ProgressBar1

3 Image1

События

procedure TFZast. – запуск таймера

Timer1Timer Прокрутка панели прогресса и открытие формы меню

 

 

 

2.2 Спецификация программы

Исполняемый файл программы  “База данных “Склад” имеет название ARM_klad.exe и расположен на компакт-диске (дискете) в каталоге «Склад». Состав проекта.

Наименование файла	Обозначение	Примечание
ARM_klad.cfg	Файл конфигурации	Содержит системные  настройки приложения
ARM_klad.dpr	Файл проекта	Связывает все файлы  проекта
ARM_klad.dof	Файл параметров проекта	Содержит текущие установки  проекта: настройки компилятора  и компоновщика, имена служебных  каталогов, условные директивы
ARM_klad.res	Файл ресурсов	Содержит пиктограммы, графические изображения
Klad.db	Таблица klad СУБД Paradox	Хранит информацию о  кладовщиках
Post.db	Таблица Post СУБД Paradox	Хранит информацию о  фирмых-поставщиках
Tovar.db	Таблица tovar СУБД Paradox	Хранит информацию о  товарах
Zakaz.db	Таблица zakaz СУБД Paradox	Хранит информацию о  заказчиках и заказах
Readme.txt	Текстовый файл	Инструкция по установке  псевдонима
Uabout.dfm	Файл формы «О программе»	Содержит список свойств всех компонентов, размещенных на форме
Uabout.pas	Файл модуля формы  «О программае»	Содержит программную  реализацию форма (обработчики событий)
Udm.dfm	Файл формы контейнера DataModule	Содержит список свойств  всех компонентов, размещенных на форме (компоненты для связи с БД, таблицами, запросами)
Udb.pas	Файл модуля формы  контейнера DataModule	Содержит программную  реализацию форма (обработчики событий)
Udobfirm.dfm	Файл формы для добавления  поставщиков	Содержит список свойств  всех компонентов, размещенных на форме
Udobfirm.pas	Файл модуля формы  добавления  поставщиков	Содержит программную  реализацию форма (обработчики событий)
Udobklad.dfm	Файл формы добавления  кладовщиков	Содержит список свойств  всех компонентов, размещенных на форме
Udobklad.pas	Файл модуля формы добавления  кладовщиков	Содержит программную  реализацию форма (обработчики событий)
Udobtovar.dfm	Файл формы добавления  товаров	Содержит список свойств  всех компонентов, размещенных на форме
Udobtovar.pas	Файл модуля формы  добавления  товаров	Содержит программную  реализацию форма (обработчики событий)
Udogf.dfm	Файл формы для формирования договора заказа	Содержит список свойств  всех компонентов, размещенных на форме
Udogf.pas	Файл модуля формы для формирования договора заказа	Содержит программную реализацию форма (обработчики событий)
Ufirm.dfm	Файл формы просмотра фирм	Содержит список свойств  всех компонентов, размещенных на форме
Ufirm.pas	Файл модуля формы просмотра фирм	Содержит программную реализацию форма (обработчики событий)
Uinvved1.dfm	Файл формы для формирования инвентаризационной ведомости	Содержит список свойств  всех компонентов, размещенных на форме
Uinvved1.pas	Файл модуля формы для формирования инвентаризационной ведомости	Содержит программную  реализацию форма (обработчики событий)
Uklad.dfm	Файл формы просмотра кладовщиков	Содержит список свойств  всех компонентов, размещенных на форме
Uklad.pas	Файл модуля формы просмотра кладовщиков	Содержит программную  реализацию форма (обработчики событий)
Umain.dfm	Файл главной формы	Содержит список свойств  всех компонентов, размещенных на форме
Umain.pas	Файл модуля главной формы	Содержит программную  реализацию форма (обработчики событий)
Urepved.dfm	Файл формы отчета «Инвентаризационная ведомость»	Содержит список свойств всех компонентов, размещенных на форме
Urepved.pas	Файл модуля формы «Инвентаризационная ведомость	Содержит программную  реализацию форма (обработчики событий)
Uspoisk.dfm	Файл формы поиска сотрудников	Содержит список свойств  всех компонентов, размещенных на форме
Uspoisk.pas	Файл модуля формы поиска сотрудников	Содержит программную  реализацию форма (обработчики событий)
Utovar.dfm	Файл формы просмотра товаров	Содержит список свойств  всех компонентов, размещенных на форме
Utovar.pas	Файл модуля формы просмотра товаров	Содержит программную  реализацию форма (обработчики событий)
Utpoisk.dfm	Файл формы поиска товаров	Содержит список свойств  всех компонентов, размещенных на форме
Utpoisk.pas	Файл модуля формы поиска товаров	Содержит программную реализацию форма (обработчики событий)
Uzakaz.dfm	Файл формы просмотра заказов	Содержит список свойств  всех компонентов, размещенных на форме
Uzakaz.pas	Файл модуля формы просмотра заказов	Содержит программную  реализацию форма (обработчики событий)
Uzapr.dfm	Файл формы запроса	Содержит список свойств  всех компонентов, размещенных на форме
Uzapr.pas	Файл модуля формы запроса	Содержит программную  реализацию форма (обработчики событий)
Uzast.dfm	Файл формы заставки	Содержит список свойств  всех компонентов, размещенных на форме
Uzast.pas	Файл модуля формы заставки	Содержит программную  реализацию форма (обработчики событий)
Договор.doc	Файл MS Word	Содержит шаблон договора заказа

 

 

3. Текст программы

 

 

unit Umain;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus, ImgList;

type

  TFmain = class(TForm)

    MainMenu1: TMainMenu;

    ImageList1: TImageList;

    N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;

    N5: TMenuItem;     N6: TMenuItem;     N7: TMenuItem;     N8: TMenuItem;

    N9: TMenuItem;     N11: TMenuItem;     N12: TMenuItem;

    N14: TMenuItem;     N15: TMenuItem;     N13: TMenuItem;

    N16: TMenuItem;

    procedure N5Click(Sender: TObject);     procedure N12Click(Sender: TObject);

    procedure N8Click(Sender: TObject);     procedure N7Click(Sender: TObject);

    procedure N15Click(Sender: TObject);     procedure N6Click(Sender: TObject);

    procedure N14Click(Sender: TObject);    procedure N13Click(Sender: TObject);

    procedure N9Click(Sender: TObject);     procedure N16Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

  private     { Private declarations }

  public     { Public declarations }

 end;

var

  Fmain: TFmain;

Implementation

uses UDM, UDobTovar, UTovar, UDobFirm, UFirm, UZakaz, UDobZakaz, UInvVed1, URepIVed, UKlad, Upass, UDogf, UTPoisk, UAbout, USPoisk, UZapr;

{$R *.dfm}

procedure TFmain.N5Click(Sender: TObject);

begin

   FTovar.Show;

end;

procedure TFmain.N12Click(Sender: TObject);

begin

   FPass.Close;

   close;

end;

procedure TFmain.N8Click(Sender: TObject);

begin  

   FFirm.Show; 

end;

procedure TFmain.N7Click(Sender: TObject);

begin

  FZakaz.Show; 

end;

procedure TFmain.N15Click(Sender: TObject);

begin 

  FInvVed.Show;

end;

procedure TFmain.N6Click(Sender: TObject);

begin

    FKlad.Show;

end;

procedure TFmain.N14Click(Sender: TObject);

begin

   fdog.Show;

end;

procedure TFmain.N13Click(Sender: TObject);

begin

   FTPoisk.Show;

end;

procedure TFmain.N9Click(Sender: TObject);

begin

    AboutBox.Show;

end;

procedure TFmain.N16Click(Sender: TObject);

begin

   FSPoisk.Show;

end;

procedure TFmain.N3Click(Sender: TObject);

begin

   Form1.Show;

end;

end.

unit URepIVed;

interface

uses

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

  Dialogs, QRCtrls, QuickRpt, ExtCtrls;

Type   TFRepIVed = class(TForm)

    QuickRep1: TQuickRep;     DetailBand1: TQRBand;

    ColumnHeaderBand1: TQRBand;     TitleBand1: TQRBand;

    QRLabel1: TQRLabel;     QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;     QRLabel4: TQRLabel;

    QRLabel5: TQRLabel;     QRLabel6: TQRLabel;

    QRLabel7: TQRLabel;    QRLabel8: TQRLabel;

    QRLabel9: TQRLabel;     QRLabel10: TQRLabel;

    QRDBText1: TQRDBText;     QRDBText2: TQRDBText;

    QRDBText3: TQRDBText;     QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;     QRDBText6: TQRDBText;

    QRDBText7: TQRDBText;     QRDBText8: TQRDBText;

    QRDBText9: TQRDBText;     SummaryBand1: TQRBand;

    QRLabel11: TQRLabel;     QRLabel12: TQRLabel;

    QRLabel13: TQRLabel;

  Private     { Private declarations }

  Public     { Public declarations }

  end;

var   FRepIVed: TFRepIVed;

implementation

uses UDM;

{$R *.dfm}

end.

unit USPoisk;

interface

uses

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

  Dialogs, Mask,db, DBCtrls, StdCtrls, ExtCtrls, Buttons, ComCtrls;

type

  TFSPoisk = class(TForm)

    PageControl1: TPageControl;     TabSheet1: TTabSheet;

    Label1: TLabel;     Label2: TLabel;     Label3: TLabel;

    Label4: TLabel;     Label5: TLabel;     Label6: TLabel;

  Label7: TLabel;      Label8: TLabel;     SpeedButton2: TSpeedButton;

    SpeedButton4: TSpeedButton;    LabeledEdit1: TLabeledEdit;

    DBEdit1: TDBEdit;     DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;    DBEdit8: TDBEdit;

    TabSheet2: TTabSheet;     SpeedButton1: TSpeedButton;

    SpeedButton3: TSpeedButton;     Label12: TLabel;

    Label13: TLabel;     Label14: TLabel;

    Label15: TLabel;     Label16: TLabel;

    DBEdit12: TDBEdit;     DBEdit13: TDBEdit;

    DBEdit14: TDBEdit;     DBEdit15: TDBEdit;

    DBEdit16: TDBEdit;    LabeledEdit2: TLabeledEdit;

    TabSheet3: TTabSheet;     SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;     Label9: TLabel;

    DBEdit9: TDBEdit;    Label10: TLabel;

    DBEdit10: TDBEdit;     Label11: TLabel;

    DBEdit11: TDBEdit;    LabeledEdit3: TLabeledEdit;

    Label17: TLabel;     DBEdit17: TDBEdit;

    Label18: TLabel;     DBEdit18: TDBEdit;

    Label19: TLabel;    DBEdit19: TDBEdit;

    Label20: TLabel;    DBEdit20: TDBEdit;

    Label21: TLabel;    DBEdit21: TDBEdit;

    Label22: TLabel;    DBEdit22: TDBEdit;

    Label23: TLabel;    DBEdit23: TDBEdit;

    Label24: TLabel;    DBEdit24: TDBEdit;

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

  private     { Private declarations }

  public    { Public declarations }

  end;

var   FSPoisk: TFSPoisk;

implementation

uses UDM;

{$R *.dfm}

procedure TFSPoisk.SpeedButton2Click(Sender: TObject);

begin

       DM.Tklad.Locate('fio',LabeledEdit1.Text,[lopartialkey]);

end;

procedure TFSPoisk.SpeedButton6Click(Sender: TObject);

begin

      DM.Tklad.Locate('stag',strtoint(LabeledEdit3.Text),[lopartialkey]);

end;

procedure TFSPoisk.SpeedButton3Click(Sender: TObject);

begin

      DM.Tklad.Locate('dolj',LabeledEdit2.Text,[lopartialkey]);

end;

procedure TFSPoisk.SpeedButton5Click(Sender: TObject);

begin

   close;

end;

procedure TFSPoisk.SpeedButton1Click(Sender: TObject);

begin

   close;

end;

procedure TFSPoisk.SpeedButton4Click(Sender: TObject);

begin

  close;

end;

end.

unit UTovar;

interface

uses

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

  Dialogs, Grids, DBGrids, ImgList, ComCtrls, ToolWin;

Type   TFTovar = class(TForm)

    ToolBar1: TToolBar;     TBFirst: TToolButton;

    ToolButton2: TToolButton;     ToolButton3: TToolButton;

    ToolButton4: TToolButton;     ToolButton5: TToolButton;

    ToolButton6: TToolButton;    ToolButton7: TToolButton;

    ImageList1: TImageList;    DBGrid1: TDBGrid;

    ToolButton1: TToolButton;

    procedure TBFirstClick(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure ToolButton1Click(Sender: TObject);

  private     { Private declarations }

  public     { Public declarations }

  end;

var

  FTovar: TFTovar;

implementation

uses UDM, UDobTovar, Umain;

{$R *.dfm}

procedure TFTovar.TBFirstClick(Sender: TObject);

begin

   DM.Ttov.First;

end;

procedure TFTovar.ToolButton2Click(Sender: TObject);

begin

   DM.Ttov.Prior;

end;

procedure TFTovar.ToolButton3Click(Sender: TObject);

begin

   DM.Ttov.Next;

end;

procedure TFTovar.ToolButton4Click(Sender: TObject);

begin  

   DM.Ttov.Last;

end;

procedure TFTovar.ToolButton5Click(Sender: TObject);

begin

    DM.Ttov.Post;

end;

procedure TFTovar.ToolButton6Click(Sender: TObject);

begin

   DM.Ttov.Delete;

end;

procedure TFTovar.ToolButton7Click(Sender: TObject);

var n:integer;

begin

   DM.Ttov.Last;

   n:=DM.Ttov.FieldByName('idn').Value;

   DM.Ttov.Append;

  DM.Ttov.FieldByName('idn').Value:=n+1;

  FDobTov.Show;   

  close;

end;

procedure TFTovar.ToolButton1Click(Sender: TObject);

begin

   Fmain.Show;   

   close;

end;

end.

unit UTPoisk;

interface

uses

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

  Dialogs, Buttons, StdCtrls, Mask, db,DBCtrls, ExtCtrls, ComCtrls;

Type   TFTPoisk = class(TForm)

    PageControl1: TPageControl;     TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;     TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;    TabSheet5: TTabSheet;

    LabeledEdit1: TLabeledEdit;     DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;   DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;    Label1: TLabel;     Label2: TLabel;    Label3: TLabel;

    Label4: TLabel;    Label5: TLabel;     Label6: TLabel;    Label7: TLabel;

    Label8: TLabel;    SpeedButton2: TSpeedButton;

    SpeedButton4: TSpeedButton;     SpeedButton1: TSpeedButton;

    SpeedButton3: TSpeedButton;    DBEdit9: TDBEdit;

    Label9: TLabel;    DBEdit10: TDBEdit;     Label10: TLabel;

    DBEdit11: TDBEdit;    Label11: TLabel;     DBEdit12: TDBEdit;

    Label12: TLabel;    Label13: TLabel;     DBEdit13: TDBEdit;

    Label14: TLabel;    DBEdit14: TDBEdit;    Label15: TLabel;

    DBEdit15: TDBEdit;    DBEdit16: TDBEdit;    Label16: TLabel;

    LabeledEdit2: TLabeledEdit;    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;    DBEdit17: TDBEdit;

    Label17: TLabel;    DBEdit18: TDBEdit;    Label18: TLabel;

    DBEdit19: TDBEdit;    Label19: TLabel;    DBEdit20: TDBEdit;

    Label20: TLabel;    Label21: TLabel;    DBEdit21: TDBEdit;

    Label22: TLabel;    DBEdit22: TDBEdit;    Label23: TLabel;

    DBEdit23: TDBEdit;    DBEdit24: TDBEdit;    Label24: TLabel;

    LabeledEdit3: TLabeledEdit;    SpeedButton7: TSpeedButton;

    SpeedButton8: TSpeedButton;    DBEdit25: TDBEdit;

    Label25: TLabel;    DBEdit26: TDBEdit;    Label26: TLabel;

    DBEdit27: TDBEdit;    Label27: TLabel;    DBEdit28: TDBEdit;