Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. B) жарнама хабарламасының аты
  2. Www.31.kz cайтының құрылымы
  3. Азақстан» телеарнасының сайтының дизайны, құрылымы.
  4. Ай шойынның құрылымында графит кiрмелерi болмайды?
  5. Ауыл шаруашылық кәсіпорын басқарудың үлгі құрылымы
  6. Дәріс 3. Металдар мен қорытпалардың атомдық – кристалдық құрылымы. Металдар мен қорытпалардың кристалдануы.

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

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; просмотров: 102 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Жарнама менеджері» мәліметтер қорының құрылымы| Implementation

mybiblioteka.su - 2015-2024 год. (0.009 сек.)