«Жарнамалық агенство қызметін» Delphi ортасында автоматтандыру

 
3.4-сурет. Қабылдау терезесі

Бұл терезе клиент туралы ақпаратты  енгізуге арналған.Сәйкес

сұраныстарға(жолдарға) байланысты мәліметтерді енгіземіз басып мәліметтерді деректер базасына сақтаймыз және келесі мәзірге өтеміз         (егер операциядан бас тартсақ басамыз(алдыңғы терезеге қайта қайтады)).

3.5-сурет. Қызмет көрсету  терезесі

 

Бұл терезе «Негізгі терезе»  мұнда тапсырыс қабылданады. Сәйкес функцияларға байланысты керек жолдар ашылады. Суретте «Дыбысталған мәтінге» және «Роликке» керек жолдар ашылған. Ал «Сырткы жарнамага» келесідей  жолдар:

3.6-сурет. Тапсырыс қабылдау  терезесі

 

Сырткы жарнамага ашылған  жолдардан клиент калауына сәйкес жолдарды тандаймыз, ол деректер базасына сақталады. таңдап клиентке чек береміз. таңдап тапсырысқа сәйкес қызметкер туралы ақпарат аламыз(егер операциядан бас тартсақ басамыз(алдыңғы терезеге қайта қайтады)).

 

Екінші- ішкі атқаратын қызметі (тек қана басшыларға арналған) программа бөлімін қарастырсақ

3.7- сурет Кіру терезесі

 

Директорга сәйкес логин, паролді енгізіп  басып «Директор» формасына өтеміз

3.8-сурет Алғашқы терезе

Бұл терезе тарифтерді өзгертуге, және деректре базасымен жұмыс істеуге  арналған. кнопкасын басқанда Panel ашылады ондағы Dbedit-тарға тарифтреді жазады.Ал бұл кесте алдынғы тарифтерді көруге мүмкіндік береді.Басқанда «Деректермен жмыс терезесі ашылады»

 

3.9 -сурет Деректермен жұмыс терезесі

 

- бұл кнопка басылса таңдалған  жол ДБ-нан жойылады

-бұл кнопка басылса ашылған  қосымша компонентер жабылып  кесте алғашқы қалпына келед

 

Бұл терезе ДБ жұмыс жасайды:

 ДБ-на сұраныс жасауға арналған 

3.10-қосымша терезе

   Кез-келген жолын  бассақ бізге:

   

қатарлар бойынша жүргізіледі, сұрыптайды

 

 «Программа жайында», «Программа  авторы туралы» 

3.11-Программа жөнінде акпарат алу терезесі

3.12-Авторы жөнінде акпарат алу терезесі

 

 

 

 

 

 

• басқанда «Отчет алу» терезесі ашылады

 

3.13-Отчет терезесі

Бұл терезе агенствоның ДБ-дағы мәлімметтер туралы ақпарат алуға  арналған.

Оларды мына контейнер  көмегімен:

  сақтау;   ашу;   баспаға шығару және т.б. операцияларды жасауға болады.

  Терезеден шығады

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қорытынды

 

Осы курстық жұмыста теориялық  көздер негізінде сыртқы жарнамамен жалпы жұмыс процесін талдауға қадам  жасадым. Жалпы жарнама түсінігін  талдадым. Жарнаманың негізгі мақсатымен қазіргі замандағы жарнаманың рөлі оның тауар өткізудегі тиімділігін  жетіп қарастырдым.Жарнама тасымалдаушылар  үшін жарнама дизайнын (үлгісін) құрудың  көптеген тәсілдері мен әдістері туралы айтылды.   Сонымен қатар, жарнама түрлері мен көп сұранысқа ие жарнама тасымалдаушылар түрлеріне де тоқталып өттім.  Осы курстық жұмыста компанияның жарнама бюджетінің құрамдас бөлігі ретінде жарнама құрудың жоспары да қарастырылған. Сонымен қатар жұмыста сыртқы жарнама қызметінің қалада орналастырылу ерекшеліктеріне орай артықшылықтары мен кемшіліктеріне де тоқталып өттім.  Бұл курстық жұмыста жарнама агенттіктерінің жұмыс істеу жүйесі талданды. Сонымен қоса жарнама жұмыстарын жоспарлау мен ұйымдастыру кезінде жарнамалық хабарлама құру кезінде кездесетін қателіктер жайлы, олардың өнімді өткізудегі кедергілері жайлы және олардың алдын-алу жолдары қарастырылды және жарнама агентіктердін қызметін реттейтін заң актілерінің мәселелері де қарастырылды.

Сонымен, жарнама – бұл  ой, және де оны пайдаланушыға жеткізе  білу шарт.

 

 

   

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қолданылғын әдебиеттер:

 

1. Есімжанова Сайра «Маркетинг» / Алматы ”Эко” Баспа үйі, 2009 ж.
2. Мамырова Кенже «Маркетинг» / Алматы “ Экономика” 1999 ж.
3. Хожаназаров Қойлыбай «Маркетинг негіздері»/ Алматы “Экономика”1998ж
4. Уэллс У, Мориарти С «Реклама: принципы и практика» / “Питер” 1999 ж
5. «Жарнама туралы» Қазақсатан Республикасының заңы/ “Егемен Қазақстан”    №264-III. 2007 ж.-19 маусым

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қосымша

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

 

type

  TMainForm = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    BitBtn3: TBitBtn;

    Image1: TImage;

    Image2: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  MainForm: TMainForm;

 

implementation

 

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11, Unit8,

  Unit9;

 

 

 

{$R *.dfm}

 

procedure TMainForm.BitBtn1Click(Sender: TObject);

begin

if (Edit1.Text<>'7777') or (Edit2.Text<>'7777') then

ShowMessage('Login nemece parol kate!!!!')

else  AkparatForm.ShowModal;

KlientForm.MainTable.Insert;

Edit1.Clear;

Edit2.Clear;

end;

 

procedure TMainForm.Button3Click(Sender: TObject);

begin

if (Edit1.Text<>'8888') or (Edit2.Text<>'8888') then

ShowMessage('Login nemece parol kate!!!!')

else  DirectorForm.ShowModal;

directorform.DBEdit1.Text:='';

directorform.DBEdit2.Text:='';

directorform.DBEdit3.Text:='';

directorform.DBEdit4.Text:='';

directorform.DBEdit5.Text:='';

directorform.DBEdit6.Text:='';

Edit1.Clear;

Edit2.Clear;

end;

 

procedure TMainForm.BitBtn2Click(Sender: TObject);

begin

mainform.Close;

end;

 

procedure TMainForm.BitBtn3Click(Sender: TObject);

begin

if (Edit1.Text<>'8888') or (Edit2.Text<>'8888') then

ShowMessage('Login nemece parol kate!!!!')

else  DirectorForm.ShowModal;

directorform.DBEdit1.Text:='';

directorform.DBEdit2.Text:='';

directorform.DBEdit3.Text:='';

directorform.DBEdit4.Text:='';

directorform.DBEdit5.Text:='';

directorform.DBEdit6.Text:='';

Edit1.Clear;

Edit2.Clear;

end;

end.

unit Unit2;

 

interface

 

uses

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

  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Buttons, Mask, jpeg, ComCtrls,

  Grids, DBGrids;

 

type

  TTapsirForm = class(TForm)

    Label1: TLabel;

    Label5: TLabel;

    Label10: TLabel;

    Label8: TLabel;

    Label11: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    DBRadioGroup1: TDBRadioGroup;

    DBComboBox1: TDBComboBox;

    DBComboBox2: TDBComboBox;

    DBComboBox3: TDBComboBox;

    DBEdit5: TDBEdit;

    GroupBox1: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    RadioButton4: TRadioButton;

    Image1: TImage;

    BitBtn2: TBitBtn;

    BitBtn1: TBitBtn;

    DBText1: TDBText;

    DBText3: TDBText;

    DBText4: TDBText;

    DBText5: TDBText;

    DBText6: TDBText;

    DBText7: TDBText;

    DBEdit1: TDBEdit;

    StatusBar1: TStatusBar;

    Timer1: TTimer;

    Label2: TLabel;

    procedure DBRadioGroup1Click(Sender: TObject);

    procedure DBComboBox2Click(Sender: TObject);

    procedure DBComboBox3Click(Sender: TObject);

    procedure DBComboBox1Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure RadioButton4Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  TapsirForm: TTapsirForm;

 

implementation

 

uses Unit3, Unit1, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,

  Unit11, Unit12, Unit13;

 

{$R *.dfm}

 

procedure TTapsirForm.DBRadioGroup1Click(Sender: TObject);

begin

KLIENTFORM.MainTable.Edit;

DBCombobox1.Text:='';

DBCombobox2.Text:='';

DBCombobox3.Text:='';

DBEdit5.Clear;

 

begin

DBComboBox2.Visible:=false;

if (DBRadioGroup1.ItemIndex=0) or (DBRadioGroup1.ItemIndex=1)  then

DBComboBox1.Visible:=true

else DBComboBox1.Visible:=false;

image1.Picture.LoadFromFile('');

if DBComboBox3.Visible=true then

DBComboBox3.Visible:=false;

if GroupBox1.Visible=true then

GroupBox1.Visible:=false;

end;

 

 

begin

if DBRadioGroup1.ItemIndex=2 then

GroupBox1.Visible:=true

else image1.Picture.LoadFromFile('');

end;

 

end;

procedure TTapsirForm.DBComboBox2Click(Sender: TObject);

begin

DBComboBox3.Visible:=true;

DBEdit5.Text:='';

DBComboBox3.Text:='';

end;

 

procedure TTapsirForm.DBComboBox3Click(Sender: TObject);

var

        c1,c2,c3,c4:integer;

begin

c1:=StrToInt(DBtext4.Caption);

 

begin

if (DBComboBox2.ItemIndex=0) and (DBComboBox3.ItemIndex=0) then

DBEdit5.Text:=IntToStr(c1*1);

end;

 

begin

if (DBComboBox2.ItemIndex=0) and (DBComboBox3.ItemIndex=1)  then

DBEdit5.Text:=IntToStr(c1*2);

end;

 

begin

if (DBComboBox2.ItemIndex=0) and (DBComboBox3.ItemIndex=2)  then

DBEdit5.Text:=IntToStr(c1*3);

end;                                 //  Цемпоселок ушин

 

c2:=StrToInt(DBText5.Caption);

 

begin

if (DBComboBox2.ItemIndex=1) and (DBComboBox3.ItemIndex=0) then

DBEdit5.Text:=IntToStr(c2*1);

end;

 

begin

if (DBComboBox2.ItemIndex=1) and (DBComboBox3.ItemIndex=1)  then

DBEdit5.Text:=IntToStr(c2*2);

end;

 

begin

if (DBComboBox2.ItemIndex=1) and (DBComboBox3.ItemIndex=2)  then

DBEdit5.Text:=IntToStr(c2*3);

end;                                 //  Центр ушин

c3:=StrToInt(DBtext6.Caption);

 

begin

if (DBComboBox2.ItemIndex=2) and (DBComboBox3.ItemIndex=0) then

DBEdit5.Text:=IntToStr(c3*1);

end;

 

begin

if (DBComboBox2.ItemIndex=2) and (DBComboBox3.ItemIndex=1)  then

DBEdit5.Text:=IntToStr(c3*2);

end;

 

begin

if (DBComboBox2.ItemIndex=2) and (DBComboBox3.ItemIndex=2)  then

DBEdit5.Text:=IntToStr(c3*3);

end;                                 //  Новостройка ушин

 

 

c4:=StrToInt(DBText7.Caption);

 

begin

if (DBComboBox2.ItemIndex=3) and (DBComboBox3.ItemIndex=0) then

DBEdit5.Text:=IntToStr(c4*1);

end;

 

begin

if (DBComboBox2.ItemIndex=3) and (DBComboBox3.ItemIndex=1)  then

DBEdit5.Text:=IntToStr(c4*2);

end;

 

begin

if (DBComboBox2.ItemIndex=3) and (DBComboBox3.ItemIndex=2)  then

DBEdit5.Text:=IntToStr(c4*3);

end;                                 //  72 квартал ушин

 

 

end;

 

procedure TTapsirForm.DBComboBox1Click(Sender: TObject);

var