Тақырыбы: ДҚ-ғы мәліметтерді енгізу үшін экрандық форма құру
Экрандық формаға ДҚ мәліметтерін басқару батырмасын қосу.
Экрандық формадағы TDBGrid модификация варианттары
Сабақтың мақсаты: ДҚ басқаруға арналған компаненттерді үйрену
Деректер жиыны келесі негізгі жағдайлардың біреуінде болуы мүмкін:
dsEdit – ағымдағы жазбана түзетуге болады;
dsInsert – жаңа жазба қойылады.
Тағы басқа жағдйлар болуы мүмкін. Жоғарыда көрсетілген жағдайлар қосымшаның орындалу барысында болады, бірақ тікелей емес, ал келесі әдістердің қолдану арқылы:
Edit әдісі деректер жиыны dsEdit жағдайына аударады;
Insert әдісі деректер жиынына жаңа жазба қояды.
Ағымдағы жазбаларды түзетук жүріп жатқан кезде өзгеріс деректер қорының өзінде емес, ал буферде жүзеге асады. Жазбаны деректер қорына жіберу тек Post әдісі орындалған кезде жүргізіледі. Әдіс деректер жиыны dsEdit және dsInsert жағдайында тұрған кезде ғана шақырылуы мүмкін.
ДҚ-ғы мәліметтерді енгізу үшін экрандық форма құру
Әрі қарай жұмыс үшін DataModule5 контейнерін дайындаймыз. Data Access парағының Delphi компоненттер палитрасынан TTаblе визуальдық емес компонентін қосып, қасиеттерінің мәніне DatabaseName-ді орнатамыз, Tаblе3 қасиетінің мәнін TableName (ДҚ кесте аты) орнатамыз PRIHOD.DB-да. Осыдан кейін Active қасиетіне True мағынасын орнатамыз . TDataSource компонентін орналастырып DataSet (мәліметтер жиынының аты) қасиетін орнатамыз, ал DataSource компанентіне Table3 мәнін береміз. PRIHOD.DB кестесімен байланыстыру үшін визуальдық компанентті контейнерге қосу міндетті түрде контейнердегі DataModule ұқсас компоненттер және ол циклдік айналып жүруі мүмкін.
№2 формасына Data Controls компоненттер палитрасынан TDBGrid компонентін қосамыз. TDBGrid компонентіне қасиет орнатамыз, ал DataSource3 мәнін жорамалдап №2 формасындағы unit текст модульдеріне Unit5 модулі атын қосамыз.
Енді Table3 мәліметтер жиынының жазба алаңына тек қана DBGrid компоненті торымен емес, мәліметтер жиынының жеке жазба алаңына қатынауға мүмкіндік беретін, жеке визуальдық компанентермен қатынауға болады.
№2 формаға TDBEdit (Data Controls компоненттерінің палитрасы) екі компонентін қосамыз. DBEdit компоненті арқылы қатынауға болатын алаңды анықтаймыз. Ол үшін DataSource 3-ке, DatPrih және DataField-тердің қасиетіне DataSource мәнін орнатамыз. DBEdit2 компоненті арқылы қатынауға болатын алаңды анықтаймыз. Ол үшін DataSource 3 және Kolvo DataField қасиетінің мәніне DataSource орнатамыз.
Material алаңына қатынау үшін бізге бұдан да күрделі компоненттер керек, ол Prihod.DB кестесіндегі Material алаңының мәндерін енгізуге мүмкіндік берер еді. Осы мақсатта DBLookupComboBox компонентін үнсіздікпен TDBLookupComboBox атымен орналастырамыз. Мына компоненттерге келесі қасиеттерді орналастырамыз:
DataSource - DataModule мәніне 5. DataSource 3;
DataFiled - Material;
List Source - DataModule мәніне 5. DataSource 1
ListField - Material мәніне ;
KeyField - Material мәніне.
Экрандық формаға ДҚ мәліметтерін басқару батырмасын қосу.
Әрі қарай экрандық формаға ДҚ кестелерімен навигацияны жүргізуге және оны жағдайымен және жазбаларымен басқаруға мүмкіндік беретін батырмалар жиының құруға болады.
Ол үшін қосымшаға TButton батырмасының бес компонентін қосамыз. (компоненттердің палитрасынан Standard парағы) Осы компоненттердің бұл атын (қасиет Namе ), инспектор объектілерін қолдана отырып сәйкес InsertButton , EditButton , DeleteButton , PostButton , CancelButton өзгертеміз.
Осы компонентер тақырыбын инспектор объектілерін қолдана отырып сәйкесіне " Добавить ", " Изменить ", " Удалить ", " Запомнить ", " Закрыть"
( сурет -12.1) өзгертеміз.
Сурет -12.1. Мәліметтер жиынының ағымды жазба алаңымен жұмыс істеуге арналған
Тышқан көмегімен InsertButton батырмасын таңдаймыз және оған екі рет шертеміз. Осыдан кейін редактор кодына өтеміз және ІnsertButton батырмасына арналған OnClick InsertButton батырмасын басып оқиға өңдеушісін анықтаймыз:
Procedure TForm 2. InsertButtonClick ( Sender : TObject );
Begin
DataModule 5. Table 3. Insert ;
End ;
Insert-әдісі DsInsert жазбаны қосу жағдайға Table мәліметтер жиынын көшіреді. Алаң мәнін енгізу DBEdit 1, DBLookupComboBox енгізуі компонентерімен жүзеге асырылады.
Ол үшін мәліметтер жиыны dsBrowse қарап шығу режимінде болуы қажет.
EditButton батырмасын басқандағы өңдеушіні анықтаймыз:
Procedure TForm 2. EditButtonClick ( Sender : TObject );
Begin
DataModule 5. Table 3. Edit ;
End ;
Edit әдісі Table1-дегі мәліметтер жиынын dsEdit жазба қосу жағдайына көшіреді. Алаңдар мәнін редакторлау DBEdit-1 DBLookupComboBox 1, DBEdit 2 компаненттермен жүзеге асырылады. Ол үшін мәліметтер жиыны dsBrowse жазбаларды қарау режимінде тұру керек.
DeleteButton :батырмасын басқандағы өңдеушіні анықтаймыз:
Procedure TForm 2. DeleteButtonClick ( Sender : TObject );
Begin
IF MessageDlg (' растаудың жазу қашықтауы ', mtConfirmation ,[ mbYes , mbNo ],0)= mrYes THEN DataModule 5. Table 3. Delete ;
End ;
Table мәліметтер жиыны dsBrowse жазбаларды қарау режимінде болса, диалогты терезе шақырылады (Message Dlg функция орындалуда) егер қолданушы Yes батырмасын басса, Table1 мәліметтер жиынындағы жазбаларды өшіруге болады.
PostButton батырмасын басқандағы өңдеушіні анықтаймыз:
Procedure TForm 2. PostButtonClick ( Sender : TObject );
Begin
DataModule 5. Table 3. Post ;
End ;
Егер мәліметтер жиыны жаңа жазба қосу немесе редакторлау режимінде орналасса, ДҚ кестесіндегі ағымды жазба жағдайын еске сақтайтын Post мәліметтер жиыны әдісі орындалады. Мәліметтер жиынын есте сақтағаннан кейін dsBrowse қарау режимі жүргізіледі.
CancelButton батырмасын басқандағы өңдеушіні анықтаймыз:
Procedure TForm 2. CancelButtonClick ( Sender : TObject );
Begin
Close ;
Form 1. Visible := true ;
End ;
Егер мәліметтер жиыны жаңа жазба қосу немесе редакторлау режимінде орналасса, Cancel мәліметтер жиыны әдісі ДҚ кестесіндегі жазбаларды есте сақтауды алып тастайды және мәліметтер жиынын қарау режиміне ауыстырады және меню формасына өтеді.
Мәліметтер жиынына мәліметтер қосу және өзгерту сонымен қатар DBGrid қасиетіне True мәнін орнатамыз. Жаңа жазба қосқан немесе бар алаңды түзету кезінде, DBEdit 1, DBEdit 2 компонентеріне DBLookupComboBox компонентіндегі мәндер тізімінен таңдау жолымен енгізуді қолданып мәндерді енгізуге болады. Жазбаларды өзгерту кезінде диалог терезесі беріледі.(12.2- сурет)
Сурет-12.2. Жаңа жазба қосу
Жазбаны өшірген кезде келесі диалогты терезе шығады (сурет- 12.3).
Сурет -12.3. Жазбаны өшіруді растау терезесі
Достарыңызбен бөлісу: | 
