«Жарнамалық агенство қызметін» Delphi ортасында автоматтандыру
Курсовая работа, 25 Мая 2013, автор: пользователь скрыл имя
Описание работы
Тауарды нарыққа шығару кезеңіндегі жылжытудың ең тиімді құралдары-жарнама мен 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 Программа сипаттамасы
Қорытынды
Қолданылған әдебиеттер
Қосымша
Файлы: 1 файл
REKLAMA.docx
— 3.31 Мб (Скачать файл)begin
close;
end;
procedure TPOKAZForm.CheckBox1Click(
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:
klientform.MainSource.DataSet:
end;
procedure TPOKAZForm.N7Click(Sender: TObject);
begin
bitbtn1.Visible:=true;
edit1.Visible:=true;
Label1.Caption:='Аты-жонiн
end;
procedure TPOKAZForm.BitBtn4Click(
var
f,d,b:string;
begin
if adoquery1.Filtered=true then adoquery1.Filtered:=false;
d:='''';
b:='%';
f:=edit1.Text;
KlientForm.MainSource.DataSet:
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.
begin
form13.Show;
end;
procedure TPOKAZForm.CheckBox2Click(
begin
if checkbox2.Checked then klientform.MainTable.Cancel;
klientform.MainTable.Delete;
end;
end.