Многопользовательская программа реализации ПК техники

ibquery1.Open;

IBQuery1.FieldByName('FIO').DisplayLabel:='ФИО продавца ';

IBQuery1.FieldByName('DATA').DisplayLabel:='Дата';

IBQuery1.FieldByName('NAIMENOVANIE').DisplayLabel:='Наименование';

IBQuery1.FieldByName('STOIM').DisplayLabel:='Стоимость';

end;

end.

 

 

 

 

 

 

 

 

 

 

 

3.Форма “Заказы”

 

unit Unit7;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons, StdCtrls;

type

  TFormZakaz = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    SpeedButton1: TSpeedButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormZakaz: TFormZakaz;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit8;

{$R *.dfm}

procedure TFormZakaz.SpeedButton1Click(Sender: TObject);

begin

FormViewZakaz.Show;

FormViewZakaz.frxReport1.ShowReport();

end;

procedure TFormZakaz.SpeedButton2Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxTXTExport1) ;

end;

procedure TFormZakaz.SpeedButton3Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxPDFExport1);

end;

procedure TFormZakaz.SpeedButton4Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxRTFExport1);

end;

procedure TFormZakaz.SpeedButton5Click(Sender: TObject);

begin

FormViewZakaz.frxReport1.Export(FormViewZakaz.frxJPEGExport1);

end;

end.

 

Пример Формирования отчета

 

¹ Сущность – любой различимый объект (объект, который мы можем отличить от другого), информацию о котором необходимо хранить в базе данных. Сущностями могут быть люди, места, самолеты, рейсы, вкус, цвет и т.д. Необходимо различать такие понятия, как тип сущности и экземпляр сущности. Понятие тип сущности относится к набору однородных личностей, предметов, событий или идей, выступающих как целое. Экземпляр сущности относится к конкретной вещи в наборе.

² Атрибут – поименованная характеристика сущности. Его наименование должно быть уникальным для конкретного типа сущности, но может быть одинаковым для различного типа сущностей.