Разработка базы данных с помощью Borland С Builder6, которая отражает в удобной форме учет автотранспортных средств. Проектирование инфологической, даталогической и физической моделей данных. Функции и процедуры (операции) системы, листинг программы.
Аннотация к работе
Литература Программа Введение Внедрение ЭВМ во все сферы человеческой и требует от специалистов разного профиля овладения навыками использования ВТ. Данные методические указания посвящены вопросам построению приложений для работы с базами данных, использующих компоненты визуальных библиотек, методы ввода, редактирования, поиска и фильтрации данных в интегрированной среде программирования C Builder. Указания являются полезными при выполнении лабораторных работ по курсам: - проектирование информационных систем; - прогнозирование социально-экономических процессов в Дагестане; - имитационное моделирование экономических процессов; - эконометрика; -статистика правонарушений и экономических преступлений в Дагестане; - информационная безопасность; - сетевая экономика. 1.ТЕОРЕТИЧЕСКАЯ ЧАСТЬ 1.1 АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ ИЛИ ОБЪЕКТА УПРАВЛЕНИЯ база данные учет инфологический процедура Исчисление и уплата транспортного налога именно налоговыми органами осуществляется с 2003 г., до этого времени контроль за уплатой налога с владельцев автотранспортных средств (старое название этого налога) осуществлялся органами ГАИ-ГИБДД при осуществлении регистрационных действий с автотранспортным средством или прохождении государственного технического осмотра. Настоящая Временная инструкция (далее инструкция) разработана на основании Постановления #pragma hdrstop #include UGL.h #include UR.h #include UF.h #include USPR.h #include Unit1.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource *.dfm TFGL *FGL; //--------------------------------------------------------------------------- __fastcall TFGL::TFGL(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TFGL::N9Click(TObject *Sender) { FGL->Close(); } //--------------------------------------------------------------------------- void __fastcall TFGL::N2Click(TObject *Sender) { FR->Show(); } //--------------------------------------------------------------------------- void __fastcall TFGL::N3Click(TObject *Sender) { FF->Show(); } //--------------------------------------------------------------------------- void __fastcall TFGL::N8Click(TObject *Sender) { FSPR->Show(); } Текст программы для формы FR #include #pragma hdrstop #include UGL.h #include UR.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource *.dfm TFR *FR; //--------------------------------------------------------------------------- __fastcall TFR::TFR(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TFR::FormCreate(TObject *Sender) { Egod_vip->Text = Table1 god_vip ->AsString; Egod_reg->Text = Table1god_reg->AsString; Etex_pasp->Text = Table1tex_pasp->AsString; Esvet->Text = Table1svet->AsString; Efam->Text = Table1fam->AsString; EIm->Text = Table1Im->AsString; Eotc->Text = Table1otc->AsString; Eadres->Text = Table1adres->AsString; Epol->Text = Table1pol->AsString; Ekod_avto->Text = Table1kod_avto->AsString; Emodel->Text = Table1model->AsString; Eser_nom->Text = Table1ser_nom->AsString; Enom_str->Text = Table1nom_str->AsString; Table2->Filter=N_st= Table1->FieldByName(N_st)->AsString ; Table2->Filtered=true; } //--------------------------------------------------------------------------- void __fastcall TFR::Table1AfterScroll(TDataSet *DataSet) { Egod_vip->Text = Table1 god_vip ->AsString; Egod_reg->Text = Table1god_reg->AsString; Etex_pasp->Text = Table1tex_pasp->AsString; Esvet->Text = Table1svet->AsString; Efam->Text = Table1fam->AsString; EIm->Text = Table1Im->AsString; Eotc->Text = Table1otc->AsString; Eadres->Text = Table1adres->AsString; Epol->Text = Table1pol->AsString; Ekod_avto->Text = Table1kod_avto->AsString; Emodel->Text = Table1model->AsString; Eser_nom->Text = Table1ser_nom->AsString; Enom_str->Text = Table1nom_str->AsString; Table2->Filter=N_st= Table1->FieldByName(N_st)->AsString ; Table2->Filtered=true; } //--------------------------------------------------------------------------- void __fastcall TFR::Button2Click(TObject *Sender) { AnsiString s; const AnsiString s1=, ; s=; if (Table1god_vip->AsString != Egod_vip_d->Text) s = год выпуска”; if (Table1god_reg->AsString !=Egod_reg->Text) { if (s !=) s =s1; s = год регистрации ; } if (Table1tex_pas->AsString !=Etex_pas->Text) { if (s !=) s =s1; s = Технический паспорт; } if (Table1svet->AsString !=Esvet->Text) { if (s !=) s =s1; s = цвет ; } if (Table1fam->AsString !=Efam->Text) { if (s !=) s =s1; s = фамилия; } if (Table1Im->AsString !=EIm->Text) { if (s !=) s =s1; s = имя ; } if (Table1otc->AsString !=Eotc->Text) { if (s !=)