Программа негізінен екі бөлімен түрады
жүктеу/скачать 469,5 Kb.
|
Дип.-Delphi-программалау-тілін-пайдалану
- Бұл бет үшін навигация:
- TabIel, DataSOurcel, Queryl, DBGridl
- Tstring типі SQL
- SELECT* FROM WHERE Sigargan jiIy>=01.01.01 (erep Sigargan jily String
- Forml
- DBGrid1
- SQL Builder
- Query 1
- Database
- Criteria
- 6 Query-Run
- My Databases
- Tablel
- Қасиет Мән
- QRSubDetaiIl
- QuickRep
- Procudure Tforml.ButtonlClick(Sender: TObject);
| Database Desktop-та құрылған Rousl.db кестесінен + + + және онан кейінгі жылдары туылған адамдардың тізімінен тұратын сұраныс құру керек.
1. Жаңа проект ашып, формасына TabIel, DataSOurcel, Queryl, DBGridl компоненттерін орнату. 2. Ретімен компоненттер қасиеттеріне мәндер меншіктеу:
3. Tstring типі SQL қасиеті Tquery компонентінің ең қажетті бөлімі. Жоғарыда кестеде көрінген көп нүкте енгізілген Tstring қатары шертілген кезде String List editor (редактордың жолдық парағы) терезесі көрінеді. Терезеге SQL тілінде орындалатын сұрыныстың командалық мәтіні (оператор) енгізілуі тиіс. Берілген мысалдың орындалуын қанағаттандыру үшін енгізілетін сұраныс: SELECT* FROM jiIy>=01.01.01 (erep Sigargan jily String типімен сипатталған болса, 01.01.01 санын тырнақшаларға не дәйекшелерге алып жазу керек). 4. Терезеге операторды енгізген соң, оның OK түймесін шерту. Forml терезесі қайта көрінеді. 5. Query1 компонентін қайта таңдап, оның Active қасиетіне True мәнін меншіктеу. Сұраныс DBGrid1 компоненті терезесіне енгізліп қойылады Сұраныс енгізілген DBGrid1 терезесін тазалау үшін Query1 компонентінің Active қасиетіне False мәнін меншіктесе болғаны. Сұранысты сақтау тәсілі DBGrid компонентінің терезесіне енгізілген кестені сақтау тәсілі сияқты. Сұраныс құру үшін SQL Builder (Сұраныс құрастырушы) программасын пайдалану ыңғайлы және оны мына амалдар арқылы орындауға болады: 1. Жаңа проект ашып, Forml терезесіне DataSource1, Query1 компоненттерін орнату. 2. Компоненттер қасиеттеріне мәндер меншіктеу:
3. Query 1 компонентін оң түймемен шертіп, көрінген контексті мәзірден SQL Buelder қатарын таңдау. Сұраныс құрастырушы программасы іске қосылып, терезесі экранға шығады. Алғашқы терезе бос болып, оның жоғарғы қатарындағы Database өрісіне алиас атауы жазылғаны көрінеді. Table өрісінен қажетті кесте атауын таңдау. Төртбұрыш ішіне алынған кесте (кесте жөнінде мәлімет) терезенің жоғарғы қабатына енгізіліп қойылады. 4. Кесте өрістерін таңдау. Ол үшін көрінген белгілегіштердің жоғарғысын таңдау жеткілікті. 5. Criteria (Іріктеу шарттары) қосымша бетін ашып, төменгі панельдің сол жақ өрісіне керекті кесте және өріс атауын, орта (Compare) өрісіне >= операторын, сол жақ өрісіне керекті мәліметті енгізуіміз. Егер кесте құруда сәйкес өріс символдық типі етіп (A) белгіленген болса, санды тырнақшаларға алып енгізу керек. 6 Query-Run командасын беру. Қажетті сұраныс Query ResuIts терезесінде көрінеді. Ол DBGrid компоненті терезесіне енгізілген сұраныспен бірдей. Есепті формаға түсіру. Мысалы, My Databases бумасында (алиасында) сақтаулы қарапайым Rousl.db кестесін форматты түрде басып шығу керек. Жаңа проект ашып, форманың жоғарғы қатарына Tablel, Buttonl компоненттерін орнату. Tablel компонентінің қасиетерін беру: DataBaseName — My Databases; TableName — Rousl.db; Active — true. QuickReport бетінің Tablel компонентінің астына QuickRepl компонентін орнатып, оны барынша созу. Оның 1-жолына QRSubDetaill компонентін орнатып, қасиеттеріне мәндерін меншіктеу:
QRSubDetaiIl компоненті терезесінің бірінші, екінші қатарлары ерекшеленіп, GroupHeader, SubDetaile сөздері жазылып қойылады. Бірінші жолға QRLabell, компонентін орнатып, оның Font қасиетіне Times Kaz, 12 мәндерін меншіктеу, Caption қасиетіне B u p a ж сөзін енгізу. Екінші жолға QRDBText1, QRDBText2, QRDBText3 компоненттерін орнатып, олардың DataSet қасиетіне ретімен Tablel атауын, DataField қасиетіне сәйкес өріс атауларын ++ меншіктеу. QuickRep терезесінің оң түймесін шертіп, ашылған мәзірдің Preview (Көріп шығу) қатары арқылы дайындалған есепті арнайы терезеде көріп шығуға болады. 5. Buttonl түймесін екі рет шертіп, код терезесінде процедура құру: Procudure Tforml.ButtonlClick(Sender: TObject); жүктеу/скачать 469,5 Kb. Достарыңызбен бөлісу:
|