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

Автор работы: Пользователь скрыл имя, 25 Мая 2013 в 13:43, курсовая работа

Описание работы

Тауарды нарыққа шығару кезеңіндегі жылжытудың ең тиімді құралдары-жарнама мен PR, осы екеуі ТӨЦ-нің өсу кезеңінде маңыздылығы жоғалтпайды ТӨЦ-тің кемелденеген кезеңінде өткізуді ынталандыруға көп мән беріліп ,ал жарнама тауар туралы ойды еске салатындай болуы керек. ТӨЦ-нің құлдырау кезеңінде жарнамаға кететін шығындар төмендеп, фирма өнімді өткізу иүшін тұтынушыларды ынталандыру шараларына жүгінеді. Жарнама қаржыландыру көзі анық көрсетілген, БАҚ арқылы жүзеге асатын тауармен қызметті жылжыту нұсаны.

Содержание работы

Кіріспе
1 Жарнамалық агенттіктің қызметі
1.1 Жалпы жарнама түсінігі және оның мақсаты
1.2 Жарнаманы тарату тәсілдері
1.3 Қазіргі заманғы жарнама қызметінің негізгі сипаттамасы
1.4 Кәсіпорындардағы жарнамалық қызметтің рөлі.
2 ЭЕМ-ң програмалық қамтамасыз ету деңгейінің дамуы
2.1 Деректер базасы - программалаудың негізгі тамыры
2.2 Деректер базасын құру және басқару жүйесі.
2.3 Delphі тіліндегі қолданбалы программалар
3 «Жарнамалық агенство қызметін» Delphi ортасында автоматтандыру
3.1 Есептің қойылымы
3.2 Есепті қалыптастыру
3.3 Программа сипаттамасы
Қорытынды
Қолданылған әдебиеттер
Қосымша

Скачать архив (3.22 Мб) Сколько стоит заказать работу?
Файлы: 1 файл

REKLAMA.docx

— 3.31 Мб (Скачать файл)

begin

close;

end;

 

procedure TPOKAZForm.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=true then

bitbtn1.Visible:=false;

bitbtn2.Visible:=false;

bitbtn3.Visible:=false;

bitbtn4.Visible:=false;

edit1.Visible:=false;

label1.Visible:=false;

klientform.MainTable.Filtered:=false;

klientform.MainSource.DataSet:=klientform.MainTable;

end;

 

procedure TPOKAZForm.N7Click(Sender: TObject);

begin

bitbtn1.Visible:=true;

edit1.Visible:=true;

Label1.Caption:='Аты-жонiн енгiз!!!!!!!';

 

end;

 

procedure TPOKAZForm.BitBtn4Click(Sender: TObject);

var

f,d,b:string;

begin

if adoquery1.Filtered=true then adoquery1.Filtered:=false;

d:='''';

b:='%';

f:=edit1.Text;

KlientForm.MainSource.DataSet:=adoquery1;

adoquery1.Active:=false;

Adoquery1.SQL.Clear;

adoquery1.SQL.Add('select* from Klient where Кызмет_акысы  like'+d+b+f+b+d);

adoquery1.Active:=true;

end;

 

procedure TPOKAZForm.Lfnf1Click(Sender: TObject);

begin

bitbtn2.Visible:=true;

edit1.Visible:=true;

Label1.Caption:='Датаны енгiз!!!!!!!!!!';

end;

procedure TPOKAZForm.N9Click(Sender: TObject);

begin

bitbtn4.Visible:=true;

edit1.Visible:=true;

Label1.Caption:='Кызмет акыны  енгiз!!!!!!!!!!';

end;

procedure TPOKAZForm.i4Click(Sender: TObject);

begin

form12.Show;

end;

procedure TPOKAZForm.FormClick(Sender: TObject);

begin

form12.Close;

form13.Close;

end;

procedure TPOKAZForm.Ghjuhfvvffdnjhs1Click(Sender: TObject);

begin

form13.Show;

end;

procedure TPOKAZForm.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked then  klientform.MainTable.Cancel;

klientform.MainTable.Delete;

end;

 

end.


Информация о работе «Жарнамалық агенство қызметін» Delphi ортасында автоматтандыру