Тақырыбы: ДҚ-ғы мәліметтерді енгізу үшін экрандық форма құру

ДҚ-ғы мәліметтерді енгізу үшін экрандық форма құру

№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. Жазбаны өшіруді растау терезесі

жүктеу/скачать 1.59 Mb.

Достарыңызбен бөлісу: