Жылжымайтын мүліктер агентігі

1. Мәліметтер қоры 2
2. Delphi ортасындағы мәліметтер қорын басқару жүйелері 2
3. Мәліметтер қорымен байланысатын құрауыштар
және оқиғалар. Table, TDatasource және TField құрауыштары 5
4. Delphi ортасында «Жылжымайтын мүліктер агентігі» АБЖ.ін құру 8
5. Database Desktop көмегiмен кесте құру 9
Қорытынды 21
Әдебиеттер 22
Бағдарлама мәтіні 23
Ақпараттық жүйе және мәліметтер қоры дегеніміз – бұл пәндік саланың қандай да бір мақсатқа арналған модулі, яғни автоматтандырылған жүйені басқаруға қажетті пәндік сала жөніндегі фактілер мәліметтер қорынан көрініс табады. Жобалаушы мәліметтер қорын (МҚ) жобалауда осы күтілетін фактілерді сипаттап, ерекшелеп көрсету қажет, бұдан мәліметтер қорының пәндік саласының шекарасы айқындалады. Одан кейін осы фактілердің сипаттамадағы интерпретациясын орындау қажет.
МҚ-на қатысты объектілер, олардың қасиеттері мен қатынастары белгілі болса, онда МҚ-ың пәндік саласы болып есептеледі. МҚ-ын жобалау пәндік саланы алдын-ала құрылымдаудан басталады.
Пәндік сала - бұл нақты мәліметтер банкінің қолданылу аясы. Мәліметтер қоры қолданылу сферасына қарай: кәсіпорындар мен ұйымдарды басқару, көлік, басқару, медицина, ғылыми зерттеулер және т.б. болып бөлінеді.
Мәліметтер қоры - бұл өзінің құрамына пәндік саланың динамикалық, ақпараттық моделін сүйемелдейтін арнайы әдістері мен құралдарды қамтитын ақпараттық жүйе болып табылады. Оның мақсаты пайдаланушылардың ақпараттық сұраныстарын қамтасыз ету.
Мәліметтер қорындағы мәліметтер кестелерде сақталады. Кестелердің әрбір бағаны өріс – деп аталады. Әбір жолы жазулар – деп аталып, бір жазу белгілі бір объекті туралы мәліметтерді жинақтайды.
Delphi бағарламалау тілінің мүмкіндігі өте жоғары. Себебі ол әртүрлі мәліметтерді сақтауға және өңдеуге мүмкіндік береді. Delphi ортасында әртүрлі мәліметтер қорының түрлерімен жұмыс істеуге болады. Мысалы бір компьютерде мәліметтер қорын құрып және осы мәліметтер қорын желіге арнап баптау жасасақ желілік мәліметтер қорына өзгереді.
1. Конопка Р. Создание оригинальных компонентов в среде Delphi. . Пер.с англ. Рей.:НИПФ ‘Диа Софт ЛТД , 1996 –152с’’.
2. В Фаронов. Объектно – риентированная среда Delphi. Версия 6. Учебное пособие. '' Русская редакция '' , 2002.
3. Культин Н. Delphi 3. Программирование на Object Pascal. Санкт – Петербург, 1998 – 304 с.
4. Орлик С.В. Секреты Delphi на примерах. М.: Бином, 1996 – 136с.
5. Нурбекова Ж. Практикум решения задач на Delphi 5.0. Учебно – методическое пособие. Павлодар, 2001 – 106 с.
6. Халықова К.З. Паскаль тілінде программалау. Оқу құралы. Абай ат. АлМу. Алматы, 2002 – 210 б.
7. Давыдова Е.В., Скородумов И.А., Балаханов В.А. Создание базовых элементов интерфейса Windows программы в среде Delphi. Информатика и образование. №4,5,6. 2002.
        
        |               |                                                      |
| |Т. ... ... ... ... |
| ... |
| ... ... университет им Т. Рыскулова |
ТЕКСЕРГЕН:
«ҚИ» кафедрасының
оқытушысы
__________ф.-м.ғ.к., ... ... ... ... ...... ... техниасы және
программалық жабдықтау»
мамандығы бойынша оқитын
2 курс студенті
__________ ... ... ... ... У Р С Т Ы Қ Ж Ұ М Ы ... технологиясы» пәні бойынша)
АЛМАТЫ
2007
МАЗМҰНЫ
| | | |
| |1. ... қоры |2 |
| |2. Delphi ... ... қорын басқару жүйелері |2 |
| |3. ... ... ... құрауыштар |5 |
| ... ... Table, ... және TField құрауыштары | |
| |4. Delphi ... ... ... ... ... |8 |
| |құру | |
| |5. Database Desktop ... ... құру |9 |
| ... |21 |
| ... |22 |
| ... мәтіні |23 |
| | | ... ... жүйе және ... қоры ... – бұл ... саланың
қандай да бір мақсатқа арналған ... яғни ... ... ... ... сала жөніндегі фактілер мәліметтер қорынан көрініс
табады. Жобалаушы мәліметтер қорын (МҚ) жобалауда осы ... ... ... ... ... бұдан мәліметтер қорының ... ... ... Одан ... осы ... ... орындау қажет.
МҚ-на қатысты объектілер, олардың қасиеттері мен ... ... онда ... ... саласы болып есептеледі. МҚ-ын жобалау пәндік
саланы алдын-ала құрылымдаудан басталады.
Пәндік сала - бұл ... ... ... ... ... қоры ... ... қарай: кәсіпорындар мен ұйымдарды
басқару, көлік, басқару, ... ... ... және т.б. ... қоры - бұл ... ... пәндік саланың динамикалық,
ақпараттық моделін сүйемелдейтін арнайы әдістері мен ... ... жүйе ... ... Оның ... ... ... қамтасыз ету.
Мәліметтер қорындағы мәліметтер кестелерде сақталады. Кестелердің
әрбір бағаны өріс – деп ... Әбір жолы ... – деп ... бір ... бір ... ... ... жинақтайды.
Delphi бағарламалау тілінің мүмкіндігі өте жоғары. Себебі ол әртүрлі
мәліметтерді сақтауға және өңдеуге мүмкіндік ... Delphi ... ... ... түрлерімен жұмыс істеуге болады. Мысалы бір
компьютерде мәліметтер қорын құрып және осы ... ... ... ... ... ... ... қорына өзгереді.
Бұл мүмкіндіктер әртүрлі мәліметтер қорын Delphі бағдарламалау тілімен
байланыстыруға мүмкіндік берді. Delphi ортасын Paradox, dBase, ... FoxPro, Oracle, ... SyBase т.б. ... ... ... ... ... комегімен байланыстырып автоматтандыруға болады.
Delphi ... ... ... ... ... қорының орналасу орнына және мәліметтер қорын басқару
жүйесінің көмегімен өңдеу ... ... ... ... басқару
жүйесі екі типке бөлінеді: жергілікті ... және ... ... ... ... қоры және ... ... қосымша бір жерде орналасады. Бірақ мәліметтер қорына
қатынау, ... желі ... ... ... ... қосымшаларға
қажет болған жағдайда келесі әдіс қолданылады. Мәліметтер қорының файлдары
желідегі барлық компьютерлердің қатынау мүмкіндігі бар ... ... Желі ... ... ... компьютерлердегі қосымшалар бір
уақытта серверлік файлдарға жүгіне алады. Бұл ... ... ... ... ... ... көшіріліп, ары қарай өңдеуге
дайын тұрады.
МҚБЖ-нің тұтынушы-сервер (клиент-сервер) архитектурасында мәліметтерді
өңдеудің және МҚ-ның сәйкестігін сақтау ауыртпалықтары толығымен ... Ал ... МҚ тек қана ... ... көзі ... келеді.
Мұндай архитектураның бір қатар кемшіліктері бар: желілік трафиктің
үлкен көлемі желінің аса жүктелуіне әкеледі. МҚ-на ... ... МҚ ... ... ... ... бір ... жалғанған тек 5 немесе 8 қосымшаның қатынауына мүмкіндік бере
алады.
“Клиент-сервер” архитектурасы МҚ ... және ... ... ... ... тұтынушы-сервер (клиент-сервер)
архитектурасының кемшіліктерін дұрыстауға мүмкіндік береді.
Мәліметтердің бүтінділігін ... ... ... ... және ... ... өңделуіне серверлік МҚБЖ ... ... ... ... ... ... желі ... жүргізілетін іс-әрекеттердің орындалуын қалыптастыратын
бұйрықтар беріледі. Серверлік МҚБЖ бұл бұйрықты ... өз ... ... ... тек ... ... ... ғана
қайтып оралады.
Көп жіктік тұтынушы-сервер (клиент-сервер) архитектурасы. Тұтынушы-
сервер (клиент-сервер) архитектуралық идеясын ... көп ... ... ... алып ... ... ... екі жіктік болып келеді.
Келесі мысалды қарастырайық. Айталық серверлік МҚБЖ-мен бір уақытта, түрлі
континенттерде орналасқан және ... ... ... ... ... ... ... Мұндай жалпыланған ортаға қызмет көрсету
үшін, барлық компьютерлерге МҚ-мен жұмыс ... ... мен ... BDE қою үшін ... ... ... ... бәрін жасау,
территориялық таралуға байланысты, өте қиын.
Бұл проблеманы шешу үшін үш ... ... ... олап
табылды. Мұндай архитектурада клиент пен МБ ... ... ... ... Оның мақсаты МБ-мен жұмыс жасайтын қосымшаның барлық
бизнес – ... ... Тек осы ... ғана BDE ... ... ... ... қондырудың қажеті жоқ.
Клиент Интернет браузерді пайдалана отырып, сервер қосымшаға белгілі
бір бизнес-ережелерге ... ... ... ... ... ... бизнес-ережеге байланысты барлық ... ... ... МҚ ... ... нәтижесін клиентке қайтарады.
Нәтиже клиент браузерінен көрініс табады.
Автоматтандырылған басқару жүйелері
Мәліметтер қоры ... ... ... ... ... қамтамасыз ету ролін атқарады. Автоматтандырылған ... ... ішкі ... ... ... ... ... бөліп көрсетеді. Бұл шекара ақпараттық модельді ... ... ол ... ... ... ... ету
жағдайымен және онымен қамтамасыз етілуіне байланысты. Сондай-ақ, бұл
шекара шартты түрде ... және ... ... ... ... ... ... үшін әдістемелік мақсатта пайдалынады.
Енгізілетін ақпарат және шығарылатын ақпарат ... ... ... ... ... ақпарат дегеніміз ақпараттық модельге
енгізілуге дайындалған және ... ... ішкі ... ... мен ... ... ... болып табылады. Ал,
шығарылатын ақпарат автоматтандырылған жүйенің ішкі жүйесінің кірісіне
түсетін ... ... мен ... ... ... ... алынған ақпарат. Автоматтандырылған ... ... ... ... аса маңызды орын алады. Мектептегі
автоматтандырылған басқару ... ... беру ... есеп ... ... және оқу ... оқуға қатысуын жобалау болып
келеді.
Жүйе деп - ... бір ... ... және ... бір ... құрайтын элементтер.
«Пайдаланушы жүйе» - функционал жүйе, белгілі бір есепті ... ... ... ... ... Пайдаланушы ... ... ... қызметкерлердің автоматтандырылған жұмыс
орны, іс-қағаздар айналым жүйесі, ... ... және ... ... ... ... құрылған
автоматтандырылған басқару орындары (АБО) ... ... ... ... ... (АБЖ) ... дербес компьютер -
автоматтандырылған басқару орны деп аталады. Кез ... ... ... өз ... ... және тез арада есеп беру мүмкіндігіне
ие болады.
Автоматтандырылған басқару ... ... ... ... ... мен есебін анықтау;
– жүйенің жеке модульдерінің функциясын көрсетіп, ... ... ... ... ... алгоритмдерін
құру;
– алгоритмдер және жобаны құруға дайындалған тәсілді таңдау;
Мәліметтер қорымен байланысатын құрауыштар және оқиғалар
Table, TDatasource және TField ... қоры үшін ... ... екі ... ... ... ... құру яғни кестелердің бағаналарымен анықталуы.
Бұл мәліметтер қоры қабықшасының көмегімен немесе мәліметтер
қорындағы ... ... ... ... ISQL ... ... жүзеге асады.
• Delphi ортасының программалау ... мен ... ... кіру ... ретінде пайдаланады.
Бұндай мәліметер қорының қосымшалары үшін Delphi ... ... тобы ... ... басқару тобы деп аталатын диалогтық элементтері бар
топ. Бұл топқа бейнеленілетін ... ... ... ... ... ... бойынша интерактивтік навигация
мен олардың интерактивтік ... ... ... ... ... метка (DBText), кестелер(DBGrid) жатады.
▪ Мәліметтерге кіру үшін диалогтық элементтерді ... мен ... қоры ... байланыс құрайтын
визуалды емес құрауыштар қолданылатын құрауыштар тобы.
... ... ... ... ... ... ... группасында қарастырылады.
▪ Мәліметтер қорының үшдеңгейлі қосымшаларын өңдеуде ... ... TTable, ... және TFIeld ... және ... Next, Last ... ... Tcomponent-нің туындысы болып табылады. TBDEDataSet-
ң ұрпақтары TDBDataSet, TClientDataSet, TCustomADOdataSet, ... ... ... ... ... TStored Procedure
келіп шығады. TDataSet құраушы үшін ... ... ... беретін
абстрактілі қасиеттер мен әдістер келтіріледі.
Procedure First;
Procedure Prior;
Procedure Next ;
Procedure Last;
Осы әдістердің көмегімен көрсеткіш бірінші / First/ ... / Prior /
, ... / Next / және ... / Last / ... ... EOF /тек оқу үшін ... BOF,Boolean;
Property EOF,Boolean;
EOF қасиеті true мәндерді қабылдайды, егер:
– Бос DataSet ... ... Last ... шақырылса;
– Next әдісі шақырылады және шақырылу барысында соңғы жазуға
орнатылған болса;
– SetRange мәндерден тұрмайтын диапазонымен шақырылса.
BOF қасиеті true ... ... ... DataSet ... ... First әдісі шақырылса;
– Көрсеткіш бірінші жазуға орнатылмай тұрып, Prior әдісі
шақырылса;
– SetRange әдісі бос диапазонымен шақырылады.
Бұл екі ... ... ... қорынан алынған циклдерді
іріктеуде шарттарды қоюға қажет болады. Әдетте кең ... ... ... функциялар болады. Мысалға, егер 5432 / ... ... ... ... табу ... ... онда пайдаланушыдан
DBNavigator құраушында 5 мыңнан артық шерту қажет етілмейді.
Жобалау барысында бұл функцилар іске асырылмайды, бірақ бізге ... ... ... тұр. Олай ... ... жүзеге асыру» процессін келесі
программалық кодтың көмегімен орындалады.
Procedure Tform. ButtonClick( Sender:TObject);
begin
abbruch:=false;
with table do
while not EOF{BOF} do
begin
Next ... ... abbruch then ... Tform. ... ... : = true;
end
Button1 батырмасын шерткеннен кейін келесі ... ... ... ... жібереді. BitBtn батырмасын ... ... ... . true ... ... және ... циклі
мәліметтер жиыны бойынша үзіледі.
FindFirst, FindPrior, FindNext, FindLast әдістері
function FindFirst; Boolean;
function FindPrior ; ... ... ... ... ... ... көмегімен сұрыпталған жиынында ... ... Locate( const Key Fields: ... ... Options: TLocate Options);
Locate әдісі жазуларды мәндер бойынша іздеу үшін қолданылады. Келесі
мысалда көрсеткіш бірінші жазуға орналасады. ... Name ... ... First Name ... ... мәні ... параметрі үлкен немесе әріптермен жазылу ... ... Locate Name ... First ... array of ( [ ... ‘Хеллер’]); (])
Қабаттар бойынша навигацияны қамтамасыз ететін әдістер
TBookmark=Pointer;
function GetBookmark: TBookmark;
Procedure GotoBookmark(Bookmark: TBookmark);
Procedure ... ... ... ... ... ... ... көмегі арқылы мәліметтер жиынына қабаттарды
орналастыруға /ағымдағы ... ... ... Нәтижеде жоғарыда
айтылған әдістер бойынша GotoBookmark әдісінің қолданылуын ... емес ... ... ... ... босатылады, ал
СompareBookmarks әдісі екі закладка көрсеткіштерін бір-бірімен салыстыруға
мүмкіндік береді.
Private
{private-Declarationen}
BM1: TBookmark;
Қабаттарды ... ... ... ... ... болатын
санын анықтау керек.
Procedure Tform. Mark2Click( Sender:TObject);
begin
BM1:= Table.GetBookmark;
end;
Procedure Tform. Goto2Click( Sender:TObject);
begin
table1. GotoBookmark(BM1);
end;
TBDEDataSet ... ... ... ... ... Delphi-
ің қазіргі нұсқасында TBDEDataSet –ң қасиеттері, оқиғалары және әдістері
TdataSet құрауышында өңделген.
Delphi ортасында ... ... ... ... ... – ін ... ... қолданушыға осы АБЖ қандай мәліметтер алу
керегін және әрбір мәліметтің қандай ... ... ... ... Осы
мәліметтерді жинақтап болған кезде біз жобалау жұмыстарына кірісе аламыз.
«Жылжымайтын мүліктер» құру үшін біз ... ... ... ... ... және осы ... ... қандай қатынаста
болатындығын анықтаймыз. Алынған мәліметтерге қарап кестелер ... ... ... аты ... ... шамасы ... ... ... ... өріс) |AutoIncrement (сандық шама) |
|Bid ... |Alpha ... ... ... ... |Number ... шама) ... ... |Number ... ... ... ... ... |Number ... ... ... (тұрғын жер көлемі) |Number (нақты ... ... (ас ... ... |Number ... ... ... (жағдайы) |Alpha ... ... ... ... |Short ... ... |
|Ctoim ... |Money ... ... ... ... |Graphic ... ... Desktop ... кесте құру
Database Desktop-ты жүктейік. File / New командасын таңдау арқылы бiз
келесi қосымша менюдi көре ... Query ... ... құру және ... файлға жазу |
|SQL File ... ... ... және ... ... жазу ... ... кесте құру ... - ... ... алыңыз. Төмендегi суретте көрсетiлгендей
сұхбат терезесi ашылады. ... ... МББЖ ... ... ... ... Paradox 7 – нi таңдап алып ОК түймесін басыңыз.
Төменгi суретте көрсетiлгендей кестенiң құрлымын құрушы терезе ашылады.
Өрiстердi (поле) ... ... құру үшін ... ... ... қажет, нәтижеде алаң редакторы ашылады. Тышқанның оң жағын шерту
арқылы контекстік менюден Add Field ... ... ... Ашылған
терезеде барлық алаңдар белгіленген ... ... ... бейнеленеді.
Бейнеленген терезеде ОК батырмасына шерту арқылы TField ... ... ... ... ... ... болады.
Контексттік менюдегі New Field пуктына шерту арқылы TField ... ... ... ... терезе бейнелінеді.
TQuery компонентінің көмегімен оның SQL қасиетіне келесі мәндерді
енгізуге ... price, ... price* quantity ... TTable ... ... ... ... уақытымен бір
уақытта есептелінетін алаң құруға болады. Оны құру үшін ... ... Field ... ... ... ... баған атын енгізу керек.
Баған атыне ... ... ... ... ... Келесі
кезекте алаң өлшемін енгізу керек. Есептелінетін алаңның ... код TDataSet ... ... оқиғасына жазылады.
Әр өрiске ең алдымен ат (Field Name) берiледi. Ол өрiс ... ... және 25 ... ... ... Бос ... ... керек
(iшiнде бос орын бола бередi). Біздің ... ол ... ... екінші жолда көрсетілген. Содан кейiн өрiстiң типiн (Type) анықтау
керек. Өрiс типiн ... оң жақ ... ... бос орын түймешесін
басу арқылы контекстiк менюден таңдап ... ... Paradox 7 – ... ... ... бар:
|Белгiленуi |Размерi |Тiзiмдегi |Түсiнiктеме |
| | ... | ... |1-255 |Alpha ... өрiс. |
|N | |Number ... ... – 10307 ... |
|$ | |Money |Оң және ... ... Number - |
| | | |ден ... ... мен ақша |
| | | ... ... ... |
|S | |Short ... ... ... – 32 767 ден |
| | | |32 767 ... |
|I | |Long Integer ... ... сандар: -2 147 483 648|
| | | |ден 2 147 483 647 ... |
|# |0-32 |BCD |BCD ... ... ... |
| | | ... ... ... |
| | | ... үшiн ... |
|D | |Date ... ... мән. |
|T | |Time ... ... мән. |
|@ | ... ... және ... сақтайтын |
| | | |мән. |
|M |1-240 |Memo ... ... ... |
| | | ... өрiс. |
|F |0-240 ... ... ... ... |
| | | ... |
|G | |Graphic |.bmp ... ... |
| | | ... |
|O | |OLE |OLE ... ... – суреттер, |
| | | ... ... Database |
| | | |Desktop бұл ... |
| | | ... Бұл ... ... |
| | | |Paradox 7 мен Delphi ... |
| | | ... көруге болады. |
|L | |Logical ... ... ... |
| | | ... – true және false ... |
| | | ... қабылдайды. |
|+ | ... |1 ... өсiп ... ұзын |
| | | ... сан. Тек ... ... |
| | | ... ... ... ... | | |мәнi ... ... ... ... ... ID ... Alpha ... Dep, Fam,
Nam, Par, NamDis өрiстерiне Short типiн Year_b өрiсiне, Memo типiн Charact
өрiсiне, Sem ... Logical ... және Photo ... Graphic ... ... ... ... Alpha типiне қосымша өлшемін беру керек (Size).
Ол символдардың саны. Ал кiлттiк өрiс * символы ... ... ... ... ... суреттегi терезенiң оң жағына назар аударыңыздар. Ол ... ... ... (Table ... Жоғарғыдағы сырғымалы тiзiм.
Validity Checks – мәндердiң дұрыстығын тексеру
Оң жақтағы бөлiкте өрiстердiң мынандай характеристикаларын бере ... Field |Бұл ... ... әр ... ... ... болу |
| ... ... ... ... ... бұндай өрiстер|
| |FIO. ... |Ең кiшi мән. Бұл ... ... ... берген |
| ... ... Kre өрiсi үшiн. ... |Ең ... мән. Бұл ... сандық өрiстерге берген |
| ... ... Kre өрiсi үшiн. ... ... ... мән. Бұл ... сандық, логикалық |
| ... ... ... ... ... пайдалы. Мысалы |
| |Year_b және Sem ... үшiн. ... ... енгiзу шаблоны берiледi. Мысалы телефон |
| ... ... ... беруге болады. (# # # - # # - # |
| |#) ... |Picture ... беру үшiн ... ... ... |
Table Lookup – көру терезесi.
Келесi бөлiм кестедегi бiр өрiстi ... бiр ... ... өрiспен
байланыстырады. Table Lookup таңдап алғанда терезеде Define – анықтау
кнопкасы ғана ... ... Осы ... басып келесi терезенi ашамыз:
Drive or Alias сырғымалы тiзiмiне Browse кнопкасын басу арқылы қосымша
кесте орналасқан папканы iздеп табамыз. Fields бөлiмiнен ... ... ... ол Audit, ... алып стрелка орналасқан кнопканы басу
арқылы Field name өрiсiне енгiземiз. Lookup table бөлiгiнен ... Audit ... алып Lookup field ... енгiземiз. Осыдан кейiн ОК
кнопкасын басамыз.
Secondary Indexes – екiншi индекс
Сырғымалы тiзiмдегi кестенiң келесi қасиетi – екiншi индекс ... ... аты |Өрiс ... ... |Fam, Nam, Par ... ... ... алфавит|
| | ... ... ... |Dep, Fam, Nam, Par ... ... ... ... |
| | ... ... кейiн алфавит бойынша|
| | ... ... |Year_b, Fam, Nam, Par ... туған жылы бойынша реттейдi |
| | |де ... ... ... |
| | ... ... ... ... ... үшiн Define ... басыңдар. Төменгi
суреттегi терезе ашылады.
Сол жақ терезеде Fields мүмкiн өрiстер тiзiмi берiлген. Indexed fields
екiншi индекске керек деген өрiстер ... ... ... Сол жақ ... оң жақ ... өрiстi өткiзу үшiн оны белгiлеп
алып стрелкасы бар кнопканы басу керек. Change order ... ... ... ... ... ... өзгертуге болады. Index
options радиокнопкалар панелi келесi характеристикаларды ... ... ... fio ... үшiн ... бiрдей атпен, фамилиямен|
| ... ... ... ... ... |Кесте кему ретiмен реттеледi (қалыпты жағдайда өсу |
| ... ... ... ... ... ... ... есепке алынады. |
|Maintained |Бұл ... ... ... ... ... ... сайын |
| ... ... ... ... құрылып бiткен соң ОК кнопкасын басыңдар. Келесi суреттегi терезе
ашылады. Индекс атын ... ... ...... ... ... денгейiндегi бүтiндiлiк бөлек кестелердегi мәлiметтердiң өзара
тұрақты байланысын қамтамасыз етедi. Егер екi кесте арасында осындай
байланыс орнатылса, ... бiрi - ... ... ... - ... қосымша кестеде негiзгi кестедегi кiлттiк өрiстен ғана
мәндердi ала-алатын өрiс көрсетiледi. Осындай байланысты орнату үшiн ең
алдымен екi кесте де ... ... ... ... ... Ол ... Working ... командасы арқылы орындалады. Define кнопкасын басу
арқылы төменгi суреттегi терезе ашамыз.
Fields панелiнен ... ... ... ... ... Бiздiң мысалда ол Dep
өрiсi. Стрелкасы бар кнопка арқылы ол өрiстi Child fields қосымша
кестелер тiзiмiне енгiземiз. Оң ... Table ... ... ... ... тiзiмiне қосамыз. Осыдан кейiн ОК кнопкасын басамыз.
Нәтижесiнде төменгi суретте көрсетiлген терезе ашылады. Сiлтеме
денгейiндегi бүтiндiлiктi сақтаңдар.
Password Security – кiру ... ... ... ... ... ... және әр өрiске немес жалпы
кестеге белгiлi бiр операцияларды жүргiзуге болатынын анықтауға болады.
Define кнопкасын басу арқылы төмендегi суреттегi Password ... ... ... Ол жерде негiзгi парольдi - Master Passwords
беруге болады және оны ... Verify ... ... ... ... Passwords қосымша парольдар кнопкасын басу арқылы екiншi
терезенi ашу керек. Current Password терезесiнде парольдi беру ... ... ... ... бiрдей болуы мiндеттi емес). Table Rights
(кестеге кiру мүкiндiгi) кестеге кiру мүмкiндiгiнiң жалпы ... ... |Кез ... ... ... болады. Кесте |
| ... ... ... ... кестенi, парольдi жою. |
|Insert & Delete|Жазбалар үшiн кез ... ... ... ... |
| |(өзгерту, жою, ... ... ... ... өзгертуге |
| ... ... Entry ... ... ... ... болады, бiрақ |
| ... ... ... және ... ... ... ... ... ... ... ... және ... емес ... |
| ... болады. ... Only ... тек ... ... ... Rights ... әр ... ... мүмкiндiгiн анықтай
аласыздар.
|All ... ... ... ... ... Only ... мәлiметтердi тек оқуға рұхсат берiлген. ... ... ... ... болмайды. |
BDE Administrator – да ... қоры ... және ... құру және ... Administrator программасы түрлi типтегi BDE мәлiметтер қорының жаңа
драйверлерiн көруге, құруға, түзетуге мүмкiндiк бередi.
Программа терезесi екi беттен тұрады: Databases – ... ...... Сол жақ ... мәлiметтер қорының жалған
аттарының бұтақшасын көре аласыңдар. Кез ... бiр ... ... оң жақ ... ... оның ... көре
аласыңдар. Paradox мәлiметтер қоры үшiн STANDART драйверi қолданылады
және минималь ... Type – ... аты, PATH – ... жол. PATH ... ... коп ... кнопканы көремiз. Ол
кнопканы басқанда жаңа каталогты таңдауға мүмкiндiк беретiн қарапайым
Windows сұхбат терезесiн көремiз.
Бiздiң мысалдағы кестеге ... ат құру үшiн Object / New ... ... ... сұхбат терезе ашылады. Сырғымалы
тiзiмнен STANDART драйверiнтаңдап алу керек. Бұл драйвер Paradox, dBASE,
FoxPro кестелерiн қолдайды.
ОК кнопкасын басу ... сол ... ... ... бұтақшасына жаңа
жалған ат қосамыз. STANDART сөзiн өз ... ... ... ... ... ондағы көп нүктелi кнопканы басу ... ... ... таңдап аламыз. Содан кейiн ... Apply ... ... Ашылған сұхбат терезесiндегi ОК
кнопкасын басамыз.
«Жылжымайтын мүліктер ... ... ... ... нтерфейс
құрастыру
Paradox – мәліметтер қорын басқару жүйесінде кестелер құрылды, бірақ
бұл кестелерге мәліметтер енгізуге, өңдеуге ыңғайсыз және тиімді емес. ... өте ... және ... ... Delphi ... ... Бұл ... көмегімен біз кестелерге байланыс және интерфейс құра
аламыз. Өңдеу барысында керекті мәліметтерге сұраныс жасап, осы
мәліметтерді есеп беруді ұйымдастыратын құрауыштар көмегімен ... ... ... ... ... ... ... құрауыштар көмегімен байланыс жасап
және интерфейс құрайық.
Жаңа жоба ашып, модульге BDE ... Table ... ... ... Data Access ... мәлiметтер көзi болатын
Data Source құрауышын ... Бұл ... ... ... ... тұрады сондықтан оны модульдің кез ... ... ... ... ... көру үшiн DBGrid ... Control беттiнен алып ... қою ... Осы ... ... alClient ... беру ... ... жұмысын реттеушi тағы ... ... – Data Control ... ... құрауышы. Бұл
құрауышты да формаға орналастырайық. (Алдыменен DBGrid ... ... alClient ... беру керек.)
DBGrid құрауышының негiзгi қасиетi Data Source. DBGrid1 ... оның Data Source ... Data Source1 ... ... ... ... Data Set ... Table1 мәнiн беру ... ... үшiн де Data Source ... Data Source1 ... беру
керек.
Ендiгi кезекте Table1 құрауышын мәлiметтер қоры кестесiмен байланыстыру
керек. Бұл құрауышының негiзгi екi ... бар: ... ... ... ... ... баптау керек. Сырғымалы тiзiмнен
кестеге деген алғашқы мысалдарда жасаған жалған атты беру ... ... ... ... ... ... ... Мән ретiнде Pers кестесiн
таңдап алыңдар. Барлық қасиеттер бапталып болған соң Table1 компанентiнiң
Active ... true ... ... ... ... төмендегiдей түрге
енедi.
Алғашқы жобаны мәнерлi орындау үшiн бiрнеше қосымшалар енгiзейiк.
Объектiлер ... ... ... OnCreate ... ... өңдеушi
енгiзiңiз: (Алдымен Table1 кестесінің Active қасиетiне false деген мән ... ... ... сол ... ... OnDestroy оқиғасына мынандай өңдеушi енгiзiңiз:
procedure TDModul.DataModuleDestroy(Sender: TObject);
begin
Table1.Close;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Table1.Active:=false;
end;
Бұл өзгерiстер программаны ... ... ... ... ... ... ... тоқтаған кезде байланыс ажырап
отырады. Бұл ... сiз ... ... ... ... ... ... кезiнде бос болуын қамтамасыз етедi.
Осы тәсілдерді қолдана отырып біз ... ... ... ыңғайлы және ықшамды түрде форма және интерфейс құрамыз.
Қорытынды
Қорыта келгенде біз мәліметтер қоры курсында автоматтандырылған басқау
жүйелерін құруға және ... жүйе ... ... қоры курсының
теориялық және практикалық маңыздылығын ашып көрсете отырып, өз ... ... ... ... мәліметтер қорының жаңа заман талабында үлкен
маңызы орын ... көз ... ... ... құра ... ... ... қоры, түрлері, моделдері т.б.
негізгі ұғымдарды өз бойында жетілдіре берік ұстауға болатындығын көрдік.
Курстық ... екі ... ... ... ... ... ал ... тарауда АБЖ-ның практикалық ... ... біз ... қоры ... ... ... ... практикалық қолданылысын анықтадық. «Жылжыматын мүліктер ... ... ... ... Р. ... ... ... в среде Delphi.
. Пер.с англ. Рей.:НИПФ ... Софт ЛТД , 1996 ... В ... Объектно – риентированная среда Delphi. Версия 6.
Учебное пособие. '' Русская ... '' , ... ... Н. Delphi 3. ... на Object ... – Петербург, 1998 – 304 с.
4. Орлик С.В. Секреты Delphi на ... М.: ... 1996 – ... ... Ж. ... решения задач на Delphi ...... ... Павлодар, 2001 – 106 с.
6. Халықова К.З. Паскаль тілінде программалау. Оқу ... ... ... Алматы, 2002 – 210 б.
7. Давыдова Е.В., Скородумов И.А., Балаханов В.А. ... ... ... Windows ... в среде
Delphi. Информатика и образование. №4,5,6. ... ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ActnList, ImgList, ComCtrls, Menus, ToolWin;
type
TFrmMain = class(TForm)
StatusBar1: ... ... ... ... ... ... TToolButton;
ImageList1: TImageList;
ActionList1: TActionList;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
DateTimePicker1: TDateTimePicker;
procedure FormCreate(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: ... ... ... ... TObject; Shift: TShiftState; X,
Y: Integer);
procedure TBStartMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure TBNedbMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ... TObject; Shift: ... ... ... N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... UDModul, UChild, UPassword, UAbout, ULoad, UBlank;
{$R *.dfm}
procedure TFrmMain.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='Текущая дата:
'+DateToStr(DateTimePicker1.Date);
end;
procedure TFrmMain.N3Click(Sender: ... ... TObject; Shift: ... ... ... Главная форма';
end;
procedure TFrmMain.ToolBar1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
FrmMain.StatusBar1.Panels[1].Text:=' Панель кнопок';
end;
procedure TFrmMain.TBStartMouseMove(Sender: TObject; Shift: ... ... ... ... TFrmMain.TBNedbMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
FrmMain.StatusBar1.Panels[1].Text:=' Недвижимость';
end;
procedure TFrmMain.TBExitMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
FrmMain.StatusBar1.Panels[1].Text:=' Выход';
end;
procedure TFrmMain.N4Click(Sender: TObject);
begin
close;
end;
procedure TFrmMain.N2Click(Sender: TObject);
begin
PasswordDlg.ShowModal;
end;
procedure TFrmMain.N6Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure ... ... ... Classes, DB, ... = class(TDataModule)
Table1: TTable;
DataSource1: TDataSource;
Table1Key: TAutoIncField;
Table1Bid: TStringField;
Table1Uroben: TStringField;
Table1Ushastok: TStringField;
Table1ObshPl: TFloatField;
Table1JilPl: TFloatField;
Table1Kuhnia: TStringField;
Table1Coct: TStringField;
Table1GodPos: TIntegerField;
Table1Ctoim: TCurrencyField;
Table1Photo: TGraphicField;
procedure DataModuleCreate(Sender: TObject);
procedure ... ... Private ... ... Public ... ... TDModul;
implementation
uses UMain, UChild, UEditBase, USort, UBlank;
{$R *.dfm}
procedure TDModul.DataModuleCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TDModul.DataModuleDestroy(Sender: TObject);
begin
Table1.Close;
end;
end.
unit UChild;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Grids, DBGrids, ... Buttons, ... = ... ... TPanel;
Label1: TLabel;
cmbFilter: TComboBox;
lblFilter: TLabel;
cmdFilter: TBitBtn;
Panel2: TPanel;
cmdSort: TBitBtn;
cmdAdd: TBitBtn;
cmdDelete: TBitBtn;
cmdEdit: TBitBtn;
cmdBlank: TBitBtn;
CmbPar: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cmdAddClick(Sender: ... ... ... cmdSortClick(Sender: TObject);
procedure cmdDeleteClick(Sender: TObject);
procedure cmdSortMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: ... ... TObject; Shift: ... ... ... cmdDeleteMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure cmdEditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure cmdBlankMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DBGrid1MouseMove(Sender: TObject; Shift: ... ... ... Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure cmbFilterClick(Sender: TObject);
procedure cmdFilterClick(Sender: TObject);
procedure CmbParClick(Sender: ... ... ... ... TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmChild: TFrmChild;
implementation
uses UDModul, UMain, UFind, ... USort, ... ... ... TObject; var Action: ... ... ... TFrmChild.cmdEditClick(Sender: TObject);
begin
DModul.Table1.edit;
FrmEdit.ShowModal;
end;
procedure TFrmChild.cmdSortClick(Sender: TObject);
begin
FrmSort.ShowModal;
end;
procedure TFrmChild.cmdDeleteClick(Sender: TObject);
begin
DModul.Table1.Delete;
end;
procedure TFrmChild.cmdSortMouseMove(Sender: TObject; Shift: ... Y: ... ... ... TObject; Shift: ... X,
Y: Integer);
begin
FrmMain.StatusBar1.Panels[1].Text:=' Добавить';
end;
procedure TFrmChild.cmdDeleteMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: ... ... ... TObject; Shift: ... Y: ... ... ... TObject; Shift: TShiftState;
X, Y: Integer);
begin
FrmMain.StatusBar1.Panels[1].Text:=' Бланк';
end;
procedure TFrmChild.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
FrmMain.StatusBar1.Panels[1].Text:=' Поле просмотра ... ... TObject; Shift: ... ... ... Поле фильтраций';
end;
procedure TFrmChild.cmbFilterClick(Sender: TObject);
label 10;
begin
CmbPar.Enabled:=false;
CmbPar.Clear;
case cmbFilter.ItemIndex of
0: goto ... ... ... ... ... комнатны');
CmbPar.Items.Add('5 комнатны');
end;
2: begin
CmbPar.Items.Add('1,5 этажный');
CmbPar.Items.Add('2 этажный');
CmbPar.Items.Add('3 этажный');
CmbPar.Items.Add('4 этажный');
CmbPar.Items.Add('5 этажный');
end;
3: begin
CmbPar.Items.Add('6 сотых');
CmbPar.Items.Add('8 сотых');
CmbPar.Items.Add('10 сотых');
end;
end;
CmbPar.Enabled:=true;
10:
end;
procedure TFrmChild.cmdFilterClick(Sender: TObject);
label 10;
begin
DModul.Table1.Filtered:=false;
case cmbFilter.ItemIndex ... goto ... ... ... ... ... TObject);
begin
if CmbPar.Text'' then cmdFilter.Enabled:=true;
end;
procedure TFrmChild.CmbParChange(Sender: TObject);
begin
if CmbPar.Enabled=false then cmdFilter.Enabled:=false;
end;
procedure TFrmChild.cmdBlankClick(Sender: TObject);
begin
FrmBlank.QuickRep1.Preview;
end;
end.
program PrAsel;
uses
Forms,
UMain in ... ... in ... {DModul: ... in ... ... in 'UFind.pas' {FrmFind},
UEditBase in 'UEditBase.pas' {FrmEdit},
USort in 'USort.pas' {FrmSort},
UPassword in 'UPassword.pas' {PasswordDlg},
UAbout in 'UAbout.pas' {AboutBox},
ULoad in 'ULoad.pas' {FrmLoad},
UBlank in ... ... ... ... ... ... FrmEdit);
Application.CreateForm(TFrmSort, FrmSort);
Application.CreateForm(TPasswordDlg, PasswordDlg);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TFrmLoad, FrmLoad);
Application.CreateForm(TFrmBlank, FrmBlank);
Application.Run;
end.

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 20 бет
Бұл жұмыстың бағасы: 700 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Жылжымайтын мүліктерді бағалау5 бет
Жылжымайтын мүліктерді бағалау туралы10 бет
Қазақстан Республикасында тұрғын үй және коммерциялық жылжымайтын мүліктер рыногының қалыптасуы мен дамуы37 бет
Жеке тұлғалардың мүліктеріне салынатын салық төлемдерін есепке алудың ақпараттық жүйесі37 бет
Жылжымайтын мүлік17 бет
Жылжымайтын мүлік ипотекасы18 бет
Жылжымайтын мүлік ипотекасының ұғымы және заңдық базасы49 бет
Жылжымайтын мүлік нарығы21 бет
Жылжымайтын мүлік нарығының жалпы моделі20 бет
Жылжымайтын мүлік нарығының сипаттамасы мақсаттары, бағыттары және әдістері21 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь