Программистам

Тут я пару гулек и прог сделал.
ссылка
Качайте на здоровье!

Слушай, а ты Delphi БД знаешь? Ато решил научиться БД по хорошей книге, а там написано то, чего у меня нет (кнопка очень для меня важная). Версии одинаковые - 7ая.
Помоги,а?

Помогите хоть кто-нить!!!!!!!!!!!!!!!!!!!!!!!!!!

Если бы Вы написали, что именно Вам нужно...

Насчет кнопки - я разобрался буквально 1 мин назад - просто перечитал.
А вопрос другой:

написано в книге:

"Отметим, что совместно с Дельфи поставляется большое кол-во примеров приложений, в том числе и БД. Файлы таблиц этих БД находятся

c:\program files\common files\borland shared\data"

Все это у меня есть, нет только папки data...

Где мне взять примеры-то?

Переустанови Делфи, примеры есть в папке с самом Делфи, а не в borland shared

Хорошая вещь - это компоненты. Я много их нарыл. Есть даже "Универсальный проигрыватель"!!!

Кстати, кому понравилась 8-я версия? Жаль Borland развалилась. Так бы могли сделать круче чё-нбдь

Вопрос №2.

Как в таблице изменить значение ячейки? Компоненты - dbgrid, table, и т.д.

Пытался изменить table1.state на dsedit
Пишет ошибку "You can't change read-only что-там"

Это потому, что нужно для компонента table поменять свойство "readonly" в Object Inspector'e c true на false.

ЗЫ. Для таких задач лучше использовать DBNavigator компонент.

Менял все-равно он меня посылает...

Вот текст:


unit t1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
Table1: TTable;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
table1.Active:=false;
table1.TableName:=opendialog1.FileName;
table1.Active:=true;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ReadOnly:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.State:=dsEdit;
table1.RecNo:=2;
table1.FieldByName('Name'.AsString:='AAAAAAAAAA';
end;

end.

Менял все-равно он меня посылает...

Вот текст:


unit t1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
Table1: TTable;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
table1.Active:=false;
table1.TableName:=opendialog1.FileName;
table1.Active:=true;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ReadOnly:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.State:=dsEdit;


Вот здеcь ошибка и надпись "Cannot assign to a read-only property"


table1.RecNo:=2;
table1.FieldByName('Name'.AsString:='AAAAAAAAAA';
end;

end.

Менял все-равно он меня посылает...

Вот текст:


unit t1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
Table1: TTable;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
table1.Active:=false;
table1.TableName:=opendialog1.FileName;
table1.Active:=true;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ReadOnly:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.State:=dsEdit;
table1.RecNo:=2;
table1.FieldByName('Name'.AsString:='AAAAAAAAAA';
end;

end.

Менял все-равно он меня посылает...

Вот текст:


unit t1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
Table1: TTable;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
table1.Active:=false;
table1.TableName:=opendialog1.FileName;
table1.Active:=true;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ReadOnly:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.State:=dsEdit;
table1.RecNo:=2;
table1.FieldByName('Name'.AsString:='AAAAAAAAAA';
end;

end.

Хм

Хм.

Ну ты же сам видишь..

Цитата:

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ReadOnly:=false;
end;

.

State - это свойство всего-лишь. И совсем не то, что Вам нужно..

Ладно, спасибо я с этим все-таки разобрался..
Вопрос №3:

Хочу сохранить таблицу после модификации...
Если я изменял таблицу вручную, то все ОК, а если программно, то вылазиет ошибка

"Table1: DataSet not in edit or insert mode"....

А сохранение у меня делается так:

table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;



Help me, please...

Program ragap;
begin
If error then "shut down your computer";
if your computer shut down do
Format: c:\
else
kill (windows) or (linux) or (BeOS) or (MC)
end;
end.

Цитата:

Program ragap;
begin
If error then "shut down your computer";
if your computer shut down do
Format: c:\
else
kill (windows) or (linux) or (BeOS) or (MC)
end;
end.

А ты забавный,у самого уровень на шаг выше.

ragap а вам молодой человек.
ссылка
Желаю удачи.

Цитата ("romanos"):

Program ragap;
begin
If error then "shut down your computer";
if your computer shut down do
Format: c:
else
kill (windows) or (linux) or (BeOS) or (MC)
end;
end.

Это на каком языке программирования?