Краткая тактовка. Очень маленькая база данных про змеи.

@so1o · Регистрация: 16.11.2009

Author24 — интернет-сервис помощи студентам

Вот простенькая дефолтная программа. В ней очень маленькая база данных про змеи. В ней есть поиск по названию и две фильтрации.
http://ifolder.ru/29691774
я бы хотел, чтоб вы ассы, поменяли просто базу данных на что нибудь другое, на птицы или хищники, будьте любезны очень прошу!

вот и сам "проект"

@vxg · 03.04.2012, 09:56

а в чем проблема? там база access - открывайте и заполняйте то что вам нравится

@so1o · 08.04.2012, 22:36 **[ТС]**

у меня программа не запускается

т.е. если я просто отредактирую файл Acess'a
то все будет работать? верно я понял?

@vxg · 09.04.2012, 08:47

по идее - да. что бы запустить нужно что бы база лежала в F:\Ем Ким

Добавлено через 47 секунд
что бы сменить заголовок файла с "база о змеях" на "база о чем то другом" естественно нужно или собрать заново или в бинарнике рыть

@so1o · 09.04.2012, 16:46 **[ТС]**

а нельзя сделать так, чтоб он запускался везде?

@vxg · 09.04.2012, 16:48

можно. поместите файл базы в папку с программой и исправьте код таким образом что бы путь к базе указывал на папку из которой она запущена

@so1o · 09.04.2012, 18:18 **[ТС]**

unit1.cpp

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOTable1->Filtered=false;
TLocateOptions Options;
Options << loPartialKey,loCaseInsensitive;
ADOTable1->Locate( "Title" ,Edit1->Text ,Options);
Form1->DBGrid1->SetFocus();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if (Form1->Edit2->Text=="")
  {
  MessageBox(NULL,"Необходимо заполнить поле поле фильтра", "Ошибка", MB_ICONERROR);
  return;
  }
ADOTable1->Filtered=false;
ADOTable1->Filter="Long" + Edit2->Text;
ADOTable1->Filtered=true;
RadioButton1->Checked = false;
RadioButton2->Checked = false;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ADOTable1->Filtered=false;
RadioButton1->Checked = false;
RadioButton2->Checked = false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
if (RadioButton1->Checked == true)
{ADOTable1->Filtered=false;
ADOTable1->Filter = "ID_Poison = 1";
ADOTable1->Filtered=true;
Edit2->Text = "";
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
if (RadioButton2->Checked == true)
{ADOTable1->Filtered=false;
ADOTable1->Filter = "ID_Poison = 2";
ADOTable1->Filtered=true;
Edit2->Text = "";
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
DBGrid1->Visible = true;
DBNavigator1->Visible = true;
Edit1->Visible = true;
Edit2->Visible = true;
RadioGroup1->Visible = true;
RadioButton1->Visible = true;
RadioButton2->Visible = true;
Label1->Visible = true;
Label5->Visible = true;
Button1->Visible = true;
Button2->Visible = true;
Button5->Visible = true;
N5->Enabled = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N6Click(TObject *Sender)
{
DBGrid2->Visible = false;
DBGrid3->Visible = false;
DBGrid4->Visible = false;
DBNavigator2->Visible = false;
DBNavigator3->Visible = false;
DBNavigator4->Visible = false;
N7->Checked = false;
N6->Checked = true;
ADOTable1->Active = false;
ADOTable2->Active = false;
ADOTable3->Active = false;
ADOTable4->Active = false;
ADOTable1->ReadOnly = true;
ADOTable2->ReadOnly = true;
ADOTable3->ReadOnly = true;
ADOTable4->ReadOnly = true;
ADOTable1->Active = true;
ADOTable2->Active = true;
ADOTable3->Active = true;
ADOTable4->Active = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N7Click(TObject *Sender)
{
DBGrid2->Visible = true;
DBGrid3->Visible = true;
DBGrid4->Visible = true;
DBNavigator2->Visible = true;
DBNavigator3->Visible = true;
DBNavigator4->Visible = true;
N7->Checked = true;
N6->Checked = false;
ADOTable1->Active = false;
ADOTable2->Active = false;
ADOTable3->Active = false;
ADOTable4->Active = false;
ADOTable1->ReadOnly = false;
ADOTable2->ReadOnly = false;
ADOTable3->ReadOnly = false;
ADOTable4->ReadOnly = false;
ADOTable1->Active = true;
ADOTable2->Active = true;
ADOTable3->Active = true;
ADOTable4->Active = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
DBNavigator1->Refresh();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N9Click(TObject *Sender)
{
MessageBox(NULL,"Программу разработал Ен Ким", "О программе", MB_ICONINFORMATION);  
}
//---------------------------------------------------------------------------

project1.cpp

C++

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

вот коды, не подскажите где исправить? или я не то отправил?

@Sasha · 09.04.2012, 19:50

Перенос программы с БД на другой компьютер

@vxg · 09.04.2012, 21:15

гдето должно быть что то вроде F:\Ен Ким\database.mdb. или в коде или в одном из полей визуальных компонентов размещенных на форме

@so1o · 10.04.2012, 20:17 **[ТС]**

Сообщение от Sasha

Перенос программы с БД на другой компьютер

не подскажите куда его?

@Sasha · 10.04.2012, 21:10

Кого его?

@Sasha · 10.04.2012, 21:26

Вот держи

@so1o · 15.04.2012, 16:32 **[ТС]**

спасибо большое!
а можно вопрос, каким образом разработчик поменял назвние таблиц в Acces на те, которые отображаются в программе?
т.е. у него Long это длина
Obit - среда обитания, и т.д.
я хочу поменять например слово "среда обитания" на что нибудь другое, не подскажите где это редактируется?

Добавлено через 17 минут
все разобрался) спс всем

@so1o 33 / 33 / 5 Регистрация: 16.11.2009 Сообщений: 207
	15.04.2012, 16:32 [ТС]	13
	спасибо большое! а можно вопрос, каким образом разработчик поменял назвние таблиц в Acces на те, которые отображаются в программе? т.е. у него Long это длина Obit - среда обитания, и т.д. я хочу поменять например слово "среда обитания" на что нибудь другое, не подскажите где это редактируется? Добавлено через 17 минут все разобрался) спс всем 0

@vxg Модератор 3386 / 2158 / 352 Регистрация: 13.01.2012 Сообщений: 8,375
	03.04.2012, 09:56	2
	а в чем проблема? там база access - открывайте и заполняйте то что вам нравится 0

@so1o 33 / 33 / 5 Регистрация: 16.11.2009 Сообщений: 207
	08.04.2012, 22:36 [ТС]	3
	у меня программа не запускается т.е. если я просто отредактирую файл Acess'a то все будет работать? верно я понял? 0

@vxg Модератор 3386 / 2158 / 352 Регистрация: 13.01.2012 Сообщений: 8,375
	09.04.2012, 08:47	4
	по идее - да. что бы запустить нужно что бы база лежала в F:\Ем Ким Добавлено через 47 секунд что бы сменить заголовок файла с "база о змеях" на "база о чем то другом" естественно нужно или собрать заново или в бинарнике рыть 1

@so1o 33 / 33 / 5 Регистрация: 16.11.2009 Сообщений: 207
	09.04.2012, 16:46 [ТС]	5
	а нельзя сделать так, чтоб он запускался везде? 0

@vxg Модератор 3386 / 2158 / 352 Регистрация: 13.01.2012 Сообщений: 8,375
	09.04.2012, 16:48	6
	можно. поместите файл базы в папку с программой и исправьте код таким образом что бы путь к базе указывал на папку из которой она запущена 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	09.04.2012, 19:50	8
	Перенос программы с БД на другой компьютер 1

@vxg Модератор 3386 / 2158 / 352 Регистрация: 13.01.2012 Сообщений: 8,375
	09.04.2012, 21:15	9
	гдето должно быть что то вроде F:\Ен Ким\database.mdb. или в коде или в одном из полей визуальных компонентов размещенных на форме 0

@so1o 33 / 33 / 5 Регистрация: 16.11.2009 Сообщений: 207
	10.04.2012, 20:17 [ТС]	10
	Сообщение от Sasha Перенос программы с БД на другой компьютер не подскажите куда его? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	10.04.2012, 21:10	11
	Кого его? 1