Автор работы: Пользователь скрыл имя, 27 Июля 2013 в 09:59, реферат
Ақпараттық жүйелер(АЖ) – экономикалық объектіні басқаруға қажетті ақпаратты жинау, сақтау, жаңарту, өндеу және шығарып беру жүйесі. Экономиканы басқарудың әр түрлі деңгейлері мен салаларына қызмет көрсететін АЖ – ның айырмашылығына қарамай, олар келесі ерекшеліктермен сипатталады:
- экономикалық ақпараттың негізгі құрамдық өлшем бірлігін экономикалық корсеткіштер мен құжаттарды өндеуге бағытталуымен;
- мәліметтерді үлгілік (модельдік) өңдеу мен есеп айырысу–есептеу кезеңінің байланыстылығымен;
Кіріспе…………………………5
1.Есептің қойылымы (мақсаты, шарты, программаның қандай болу керектігі)…………..7
1.1.Кіру құжатты (формасы, атауы)………………….7
1.2.Шығу құжаты (кесте формасы)…………12
2.Программалық жабдықтау (фильтрация,т.б)………..14
3.Терминологиялық сөздер……………18
4.Листинг…………..19
Қорытынды………21
Қолданылған әдебиеттер тізімі…………………22
Қосымша…………………..23
Қосымша
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Active:=true;
height:=590;
width:=790;
Table1.Filtered:=true;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Table1.Active:=false;
Table1.Filtered:=false;
Form1:=nil;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Table1.IndexName:=’Famname’;
1:Table1.IndexName:=’Imia’;
2:Table1.IndexName:=’Mesto’;
3:Table1.IndexName:=»;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0: Table1.Filter:=’(Fam=»’+Edit1.
1:Table1.Filter:=’(Name=»’+
2:Table1.Filter:=’(Tel=»’+
3:Table1.Filter:=»;
end;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
case RadioGroup3.itemIndex of
0:Table1.IndexFieldNames:=’
1:Table1.IndexFieldNames:=’
2:Table1.IndexFieldNames:=’
end;
Table1.FindNearest([Edit2.
end;
procedure TForm1.RadioGroup2Click(
begin
case RadioGroup2.ItemIndex of
0,1,2:begin
GroupBox1.Visible:=true;
Edit1.Visible:=true;
end;
3:begin
GroupBox1.Visible:=false;
Edit1.Visible:=false;
end;
end;
if RadioGroup2.ItemIndex=0 then Edit1.SetFocus;
if RadioGroup2.ItemIndex=1 then Edit1.SetFocus;
if RadioGroup2.ItemIndex=2 then Edit1.SetFocus;
end;
procedure TForm1.RadioGroup3Click(
begin
if RadioGroup3.ItemIndex=0 then Edit2.SetFocus;
if RadioGroup3.ItemIndex=1 then Edit2.SetFocus;
if RadioGroup3.ItemIndex=2 then Edit2.SetFocus;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
RvProject1.Execute;
end;
end.
Информация о работе Есептің қойылымы (мақсаты, шарты, программаның қандай болу керектігі)