Курсовая работа: Разработка интерактивной системы обработки базы данных ведомости работы расчетно-кассового узла универсама

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TIntro, Intro);

Application.CreateForm(TAboutBox, AboutBox);

Application.Run;

end.

Файл unit1.pas

unit Unit1;

interface

uses

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

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

dbcgrids, ComCtrls;

type

TForm1 = class(TForm)

Database1: TDatabase;

tTable1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

tTable2: TTable;

tTable1KodZapisi: TAutoIncField;

tTable1Nazvanie: TStringField;

tTable1Kod: TIntegerField;

tTable1Prihod: TFloatField;

tTable1Rashod: TFloatField;

tTable1Zena: TFloatField;