В основе приложения «Учёт полуприцепной техники» лежат наборы данных, которые представляют собой группы записей, переданных из базы данных в приложение для просмотра и редактирования. В VCL Delphi реализован набор базовых классов, поддерживающих функциональность наборов данных, и практически идентичные по составу наборы дочерних компонентов для технологий доступа к данным.

Программным модулем можно считать самостоятельный раздел программы. Модуль создается каждый раз, при создании новой формы. При компиляции программы Delphi создает файлы с расширениями PAS, DFM, и DCU для каждого модуля. Основная программа весьма специфична: она содержит перечень всех используемых в программе модулей и несколько исполняемых операторов, обеспечивающих создание нужных окон и связь программы с Windows. Вся основная работа программы управляется кодом, содержащимся в модулях.

Программа «Учет полуприцепной техники» состоит из 6 модуля.

В данном приложении использовались следующие компоненты:

DBGrid - компонент используется для просмотра и редактирования базы данных в режиме таблицы.

Table - компонент представляет всю таблицу базы данных.

DataSource - компонент обеспечивает связь между данными, представленными компонентом Table и компонентом отображения данных DBGrid.

Label - метка для отображения текста. Компоненты класса TLabel (метка) предназначены для размещения на форме различного рода текстовых надписей. Для этого служит центральное свойство компонента - Caption. С помощью свойства Font можно разнообразить вид надписи. Edit - изменяемое поле. Служит для поиска по наименованию и коду детали.

Image - отображение картинок. Этот компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растровой картинки, пиктограммы или метафайла. Любой из этих типов изображения содержится в центральном свойстве компонента - Picture.

QuickRep - компонент является ядром отчета. Все остальные элементы, которые, собственно, и позволяют построить отчет, находятся на его поверхности.

программа продукция полуприцепный интерфейс

6. Интерфейс программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, XPMan, Menus, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

XPManifest1: TXPManifest;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit8;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

FCursor: TPoint;

begin

if Button = mbRight then

begin

GetCursorPos(FCursor);

PopupMenu1.Popup(FCursor.X, FCursor.Y);

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form8.Show

end;

end.

unit Unit2;

interface

uses

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

Dialogs, DB, Grids, DBGrids, ADODB, ImgList, ActnList, ActnCtrls,

ToolWin, ActnMan, ActnMenus, XPStyleActnCtrls, StdCtrls, Menus, jpeg,

ExtCtrls;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1_: TDateTimeField;

ADOTable1_2: TWideStringField;

ADOTable1_1: TIntegerField;

ADOTable1_22: TIntegerField;

ADOTable1_3: TIntegerField;

ADOTable1SUM: TIntegerField;

ActionManager1: TActionManager;

ActionMainMenuBar1: TActionMainMenuBar;

ActionToolBar1: TActionToolBar;

Action1: TAction;

Action2: TAction;

Action3: TAction;

Action4: TAction;

Action5: TAction;

ImageList1: TImageList;

Action6: TAction;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

GroupBox2: TGroupBox;

Label1: TLabel;

Button1: TButton;

Edit1: TEdit;

PopupMenu1: TPopupMenu;

N21: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

Image1: TImage;

procedure ADOTable1CalcFields(DataSet: TDataSet);

procedure Action2Execute(Sender: TObject);

procedure Action3Execute(Sender: TObject);

procedure Action4Execute(Sender: TObject);

procedure Action5Execute(Sender: TObject);

procedure Action6Execute(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Action1Execute(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit4, Unit3, Unit6;

{$R *.dfm}

procedure TForm2.ADOTable1CalcFields(DataSet: TDataSet);

begin

ADOTable1Sum.Value:=ADOTable1_1.AsInteger+

ADOTable1_22.AsInteger+

ADOTable1_3.AsInteger;

end;

procedure TForm2.Action2Execute(Sender: TObject);

begin

close

end;

procedure TForm2.Action3Execute(Sender: TObject);

begin

Form2.ADOTable1.Insert;

Form4.Show;

end;

procedure TForm2.Action4Execute(Sender: TObject);

begin

Form2.ADOTable1.Edit;

Form4.Show;

end;

procedure TForm2.Action5Execute(Sender: TObject);

begin

if ADOTable1.State=dsBrowse then

begin

if MessageDlg('Удалить?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

ADOTable1.Delete;

end;

end;

rocedure TForm2.Action6Execute(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if not ADOTable1.Locate('Наименование_детали',Edit1.Text,[loCaseInsensitive, loPartialKey])

then

ShowMessage('Такой записи нет');

end;

procedure TForm2.RadioButton1Click(Sender: TObject);

begin

ADOTable1.Sort:='Смена_№1';

end;

procedure TForm2.RadioButton2Click(Sender: TObject);

begin

ADOTable1.Sort:='Смена_№2';

end;

procedure TForm2.RadioButton3Click(Sender: TObject);

begin

ADOTable1.Sort:='Смена_№3';

end;

procedure TForm2.Action1Execute(Sender: TObject);

begin

Form6.QuickRep1.Preview;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

close

end;

procedure TForm2.N21Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

Form2.ADOTable1.Insert;

Form4.Show;

end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

FCursor: TPoint;

begin

if Button = mbRight then

begin

GetCursorPos(FCursor);

PopupMenu1.Popup(FCursor.X, FCursor.Y);

end;

end;

ed.

unit Unit3;

interface

uses

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

Dialogs, DB, Grids, DBGrids, ADODB, ActnList, ImgList, ActnCtrls,

ToolWin, ActnMan, ActnMenus, XPStyleActnCtrls, StdCtrls, Menus, jpeg,

ExtCtrls;

type

TForm3 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1_: TWideStringField;

ADOTable1_2: TDateTimeField;

ADOTable1_3: TIntegerField;

ADOTable1_1: TIntegerField;

ADOTable1_22: TIntegerField;

ADOTable1_32: TIntegerField;

ADOTable1DSDesigner: TWideStringField;

ADOTable1Sum: TIntegerField;

ActionManager1: TActionManager;

ActionMainMenuBar1: TActionMainMenuBar;

ActionToolBar1: TActionToolBar;

ImageList1: TImageList;

Action1: TAction;

Action2: TAction;

Action3: TAction;

Action4: TAction;

Action5: TAction;

Action6: TAction;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

GroupBox2: TGroupBox;

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

PopupMenu1: TPopupMenu;

N11: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

Image1: TImage;

procedure ADOTable1CalcFields(DataSet: TDataSet);

procedure Action3Execute(Sender: TObject);

procedure Action4Execute(Sender: TObject);

procedure Action5Execute(Sender: TObject);

procedure Action2Execute(Sender: TObject);

procedure Action6Execute(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Action1Execute(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit5, Unit2, Unit7;

{$R *.dfm}

procedure TForm3.ADOTable1CalcFields(DataSet: TDataSet);

begin

ADOTable1Sum.Value:=ADOTable1_1.AsInteger+

ADOTable1_22.AsInteger+

ADOTable1_32.AsInteger;

end;

procedure TForm3.Action3Execute(Sender: TObject);

begin

Form3.ADOTable1.Insert;

Form5.Show

end;

procedure TForm3.Action4Execute(Sender: TObject);

begin

Form3.ADOTable1.Edit;

Form5.Show;

end;

procedure TForm3.Action5Execute(Sender: TObject);

begin

if ADOTable1.State=dsBrowse then

begin

if MessageDlg('Удалить?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

ADOTable1.Delete;

end;

end;

procedure TForm3.Action2Execute(Sender: TObject);

begin

close

end;

procedure TForm3.Action6Execute(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm3.RadioButton1Click(Sender: TObject);

begin

ADOTable1.Sort:='Смена_№1';

end;

procedure TForm3.RadioButton2Click(Sender: TObject);

begin

ADOTable1.Sort:='Смена_№2';

end;

procedure TForm3.RadioButton3Click(Sender: TObject);

begin

ADOTable1.Sort:='Смена_№3';

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if not ADOTable1.Locate('Наименование_продукций',Edit1.Text,[loCaseInsensitive, loPartialKey])

then

ShowMessage('Такой записи нет');

end;

procedure TForm3.Action1Execute(Sender: TObject);

begin

Form7.QuickRep1.Preview;

end;

procedure TForm3.N11Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm3.N1Click(Sender: TObject);

begin

Form3.ADOTable1.Insert;

Form5.Show

end;

procedure TForm3.N2Click(Sender: TObject);

begin

close

end;

procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

FCursor: TPoint;

begin

if Button = mbRight then

begin

GetCursorPos(FCursor);

PopupMenu1.Popup(FCursor.X, FCursor.Y);

end;

end;

end.

unit Unit4;

intface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls;

type

TForm4 = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form2.ADOTable1.Post;

Close;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form2.ADOTable1.Cancel;

Close;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form3.ADOTable1.Post;

Close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Form3.ADOTable1.Cancel;

Close;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm6 = class(TForm)

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

end.

Размещено на Allbest.ru