Жарнама менеджері қосымшасының функционалдық құрылымы

Қосымшаға кірген кезде менеджер өзінің логині мен құпия сөзін енгізу қажет.

1-сурет.

Қосымша мәліметтер қорын өзгертуге, жаңа жазбаларды қосуға, жаңа жазбаларды өшіруге мүмкіндік береді. Ол ыңғайлы интерфейсті құрайды және қолданушыға мәліметтер қорымен тез әрі тиімді жұмыс істеуге мүмкіндік береді.

Қызметкерлер қосымша парағы

Қосу/өзгерту

Программаның жұмысы

unit Unit1;

Interface

Uses

SysUtils, Windows, Classes, Graphics, Controls,

Forms, Dialogs, DB, DBTables;

Type

TDataModule1 = class(TDataModule)

Table1Pasrort: TStringField;

Table1Tab_N: TStringField;

Table1Mesyac: TIntegerField;

Table1Kol_rab_dney: TStringField;

Table1Nalogi: TIntegerField;

Table1Oklad: TIntegerField;

Table1Stavka: TFloatField;

Table1Lgoty: TIntegerField;

Table1Na_ruki: TCurrencyField;

DataSource1: TDataSource;

Table1: TTable;

procedure DataModuleCreate(Sender: TObject);

Private

{ private declarations }

Public

{ public declarations }

end;

Var

DataModule1: TDataModule1;

Implementation

{$R *.DFM}

procedure TDataModule1.DataModuleCreate(Sender: TObject);

Begin

Table1.Open;

end;

End.

unit Unit2;

Interface

Uses

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

Dialogs, DBCtrls, DB, DBGrids, Grids, ExtCtrls;

Type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator: TDBNavigator;

Panel1: TPanel;

Panel2: TPanel;

Private

{ private declarations }

Public

{ public declarations }

end;

Var

Form2: TForm2;

Implementation

{$R *.DFM}

uses Unit1;

End.

unit Unit3;

Interface

Uses

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

Dialogs, DBCtrls, DB, DBGrids, Grids, ExtCtrls;

Type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator: TDBNavigator;

Panel1: TPanel;

Panel2: TPanel;

Private

{ private declarations }

Public

{ public declarations }

end;

Var

Form3: TForm3;

Батырмалардың коды

unit appll;

Interface

Uses

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

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, Mask;

Type

TForm1 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Table2: TTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Table2Pasrort: TStringField;

Table2Mesyac: TIntegerField;

Table2Oklad: TIntegerField;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBComboBox1: TDBComboBox;

InsertButton: TButton;

EditButton: TButton;

DeleteButton: TButton;

PostButton: TButton;

CancelButton: TButton;

procedure InsertButtonClick(Sender: TObject);

procedure DeleteButtonClick(Sender: TObject);

procedure EditButtonClick(Sender: TObject);

procedure CancelButtonClick(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

Дата добавления: 2015-11-14