Создание программы ведения базы данных торговой фирмы

     События: Button2Click. 

     Окно  Form3.

     Свойства:

     Caption - Запросы;

     Border Style – bsSingle;

     BiMaximize – False;

     Position – poScreenCenter;

     События: FormActivate; 

     Компонент Memo1.

     Свойства:

     ReadOnly – True;

     ScrollBars – ssVertical; 

     Компонент Button1.

     Свойства:

     Caption - Показать итоги;

     События: Button1Click. 

     Компонент Button2.

     Свойства:

     Caption - Выполнить;

     Default – True;

     События: Button2Click. 

     Окно  Form4.

     Свойства:

     Caption - Итоги;

     Border Style – bsSingle;

     BiMaximize – False; 

     Компонент GroupBox1.

     Свойства:

     Caption - По сумме выручки; 

     Компонент GroupBox2.

     Свойства:

     Caption - По сумме комиссионного вознаграждения; 

     Компоненты ListBox1 и ListBox2.

     Свойства:

     BorderStyle – bsSingle;

     Items – “” 

     Компонент Button1.

     Свойства:

     Caption - Сохранить в файл;

     События: Button1Click. 

     Компонент Button2.

     Свойства:

     Caption - Вернуться к запросу;

     Default – True;

     Cancel – True;

     События: Button2Click.

     2.1 Написание программы

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

     Шаг 1 – Запуск программы.

     На  этом шаге в первую очередь проверяется  наличие всех необходимых файлов (procedure TForm1.FormCreate(Sender: TObject)) Если отсутствует хотя бы один файл – он создаётся и выполняется аварийный выход из программы. После этого, если все файлы на месте, управление передаётся процедуре TForm1.FormActivate(Sender: TObject). Эта процедура запускает Форму 2, которая в свою очередь подготавливает строки и столбцы таблицы и загружает данные с помощью процедуры load_db (см. листинг unit2.pas).

     Шаг 2 – работа с приложением.

     На  этом шаге оператор вводит информацию либо отдаёт команды программе. Программа  выполняет действия определенные алгоритмом для каждого конкретного случая. На шаге реализуются процедуры, связанные с обработкой данных (сохранение, расчёты и т.д.), открытия и закрытия различных окон и т.п.

     Шаг 3 – завершение работы программы.

     Выводится запрос на сохранение данных. Если получен положительный ответ, данные сохраняются (procedure save_db). После этого приложение завершает работу.

     Общий алгоритм работы приложения был приведён в разделе «описание алгоритма». Алгоритмы процедур имеют преимущественно  линейную структуру или же являются только реакциями на события.

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

 

     Исполняемый файл программы имеет название asdb.exe и находится в папке \db1.

     Состав  проекта:

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

 

     Ниже  приведён полный текст разработанной  программы:

     Листинг файла Unit1.pas

     unit Unit1; 

     interface 

     uses

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

       Menus, ToolWin, ComCtrls, StdCtrls, Buttons, jpeg, ExtCtrls; 

     type

       TForm1 = class(TForm)

         MainMenu1: TMainMenu;

         N1: TMenuItem;

         N2: TMenuItem;

         N4: TMenuItem;

         N5: TMenuItem;

         N6: TMenuItem;

         N7: TMenuItem;

         N8: TMenuItem;

         StatusBar1: TStatusBar;

         N10: TMenuItem;

         N11: TMenuItem;

         N12: TMenuItem;

         CheckBox1: TCheckBox;

         Memo2: TMemo;

         Memo1: TMemo;

         Button1: TButton;

         Bevel1: TBevel;

         procedure N6Click(Sender: TObject);

         procedure N5Click(Sender: TObject);

         procedure N4Click(Sender: TObject);

         procedure N7Click(Sender: TObject);

         procedure N8Click(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure FormClose(Sender: TObject; var Action: TCloseAction);

         procedure FormActivate(Sender: TObject);

         procedure N11Click(Sender: TObject);

         procedure N12Click(Sender: TObject);

         procedure CheckBox1Click(Sender: TObject);

         procedure Button1Click(Sender: TObject); 

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       Form1: TForm1; 

     implementation 

     uses Unit2, Unit3, Unit4; 

     {$R *.DFM} 

     procedure save_db;

     var

     stname:TextFile;

     stsurname:TextFile;

     stnumber:TextFile;

     stdate:TextFile;

     stsum:TextFile;

     stallsum:TextFile;

     s:Integer;

     st:Integer;

     sts:String;

     Begin

     {Сохранение  всех данных}

     AssignFile(stname,'name.tab');

     Rewrite(stname);

     s:=Form2.StringGrid1.RowCount;

      for st:=1 to s do

      begin

       if Form2.StringGrid1.Cells[0,st]<>'' then

        begin

         sts:=Form2.StringGrid1.Cells[0,st];

         WriteLn(stname,sts);

        end;

      end;

     CloseFile(stname); 

     AssignFile(stsurname,'surname.tab');

     Rewrite(stsurname);

     s:=Form2.StringGrid1.RowCount;

      for st:=1 to s do

      begin

       if Form2.StringGrid1.Cells[1,st]<>'' then

        begin

         sts:=Form2.StringGrid1.Cells[1,st];

         WriteLn(stsurname,sts);

        end;

      end;

     CloseFile(stsurname); 

     AssignFile(stnumber,'number.tab');

     Rewrite(stnumber);

     s:=Form2.StringGrid1.RowCount;

      for st:=1 to s do

      begin

       if Form2.StringGrid1.Cells[2,st]<>'' then

        begin

         sts:=Form2.StringGrid1.Cells[2,st];

         WriteLn(stnumber,sts);

        end;

      end;

     CloseFile(stnumber); 

     AssignFile(stdate,'date.tab');

     Rewrite(stdate);

     s:=Form2.StringGrid1.RowCount;

      for st:=1 to s do

      begin

       if Form2.StringGrid1.Cells[3,st]<>'' then

        begin

         sts:=Form2.StringGrid1.Cells[3,st];

         WriteLn(stdate,sts);

        end;

       end;

     CloseFile(stdate); 

     AssignFile(stsum,'sum.tab');

     Rewrite(stsum);

     s:=Form2.StringGrid1.RowCount;

      for st:=1 to s do

      begin

       if Form2.StringGrid1.Cells[4,st]<>'' then

        begin

         sts:=Form2.StringGrid1.Cells[4,st];

         WriteLn(stsum,sts);

        end;

      end;

     CloseFile(stsum); 

     AssignFile(stallsum,'allsum.tab');

     Rewrite(stallsum);

     s:=Form2.StringGrid1.RowCount;

      for st:=1 to s do

      begin

       if Form2.StringGrid1.Cells[6,st]<>'' then

        begin

         sts:=Form2.StringGrid1.Cells[6,st];

         WriteLn(stallsum,sts);

        end;

      end;

     CloseFile(stallsum); 

     End; 

     procedure TForm1.N6Click(Sender: TObject);

     begin

     {Показать  таблицу}

     Form2.ShowModal;

     end; 

     procedure TForm1.N5Click(Sender: TObject);

     var

     a:Integer;

     begin

     {Завершить  работу}

     a:=MessageDlg('Сохранить  данные в таблице?',mtConfirmation,[mbYes,mbNo],0);

     if a=6 then save_db;

     Application.Terminate;

     end; 

     procedure TForm1.N4Click(Sender: TObject);

     begin

     {Сохранить  данные}

     save_db;

     end; 

     procedure TForm1.N7Click(Sender: TObject);

     begin

     {Запрос  к таблице}

     Form3.ShowModal;

     end; 

     procedure TForm1.N8Click(Sender: TObject);

     begin

     {Вывести  итоги}

     Form4.ShowModal;

     end; 

     procedure TForm1.FormCreate(Sender: TObject);

     var

     qqq:Boolean;

     begin

     {start}