| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
создание файла [D7, XP]
Mashenka_84 © (2007-03-01 13:54:00)Здравствуйте. Я программист начинающий, поэтому извините если вдруг совсем простое что то спрашиваю. Вопрос в Следующем:
У меня есть база данных, в которой я могу удалять добавлять и изменять данные. Мне нужно чтобы создался текстовый файл, в котором бы записывалось время, дата и то что произошло с моей базой.
Ну например чтобы в текстовом файле была таккая строка:
02.03.2005 13:44 добавлена запись в таблицу "test"
и чтобы автоматически все сохранялось и при этом чтобы можно было посмотреть данный файл без открытия всей программы.
Всем откликнувшимся, заранее большое спасибо.
mashenka_84 (2007-03-04 13:16:00) [1]Народ всем помогавшим спасибо. На следующий день посмотрела на здоровую голову и все нормально. Все получилось.
Ega23 (2007-03-01 18:41:00) [2]Удалено модератором
MikePetrichenko (2007-03-01 18:39:00) [3]LOL
Вместо
Unit5 in 'Unit5.pas' {Form5},
должно быть
Unit5 in 'Unit5.pas' {Form5};
mashenka_84 (2007-03-01 18:30:00) [4]Всем спасибо, пока ничего не получилось, но может просто уже голова не варит. Завтра все прочитаю еще раз и надеюсь, что получится. :)
Плохиш (2007-03-01 18:01:00) [5]
> Германн © (01.03.07 18:00) [27]
Фи...
Германн (2007-03-01 18:00:00) [6]
> Unit5 in 'Unit5.pas' {Form5},
> Unit5 in 'Unit5.pas' {Form5} ,
Плохиш (2007-03-01 17:55:00) [7]
> такое ощущение что просто где то не стоит знака препинания
Стоит, но не у того...
Игорь Шевченко (2007-03-01 17:48:00) [8]
> program Gotovoe;
еще не готовое
mashenka_84 (2007-03-01 17:43:00) [9]>
[Error] Gotovoe.dpr(13): Identifier expected but 'BEGIN' found
[Error] Gotovoe.dpr(14): Undeclared identifier: 'Application'
и так далее
такое ощущение что просто где то не стоит знака препинания
текст Gotovoe
program Gotovoe;
uses
Forms,
Proba in 'Proba.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.
Плохиш (2007-03-01 17:40:00) [10]Пальцы так и тянуться написать про три "К"
Elen (2007-03-01 17:25:00) [11]
> при компиляции программы возникает ошибка
А довести эту ошибку до нас ты не хочеш? или предлагаеш включить телепатор, которого после праздника бодун бодает?
Vlad Oshin (2007-03-01 17:19:00) [12]гдето сверху, перед всеми процедурами, пишется такая:
procedure Log(s:string);
begin
assignfile(f,'c:\myIlog.txt'); filemode:=2;
if fileexists('c:\myIlog.txt') then reset(f) else rewrite(f); append(f);
writeln(f, s);
closefile(f);
end;
далее во всех местах, где надо протоколировать пишется
Log('бла-бла-бла');
Johnmen (2007-03-01 17:09:00) [13]Так вот ты какой, батонокидатель...
mashenka_84 (2007-03-01 17:06:00) [14]Народ я все конечно понимаю, что смешно...но туплю да, но не понимаю оюъясните
вот тескт проги
текст других юнитов не буду приводить
unit Proba;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ComCtrls,
StdCtrls, CheckLst, Buttons, Unit2, Unit3, Unit4, Unit5;
type
TForm1 = class(TForm)
TableTovar: TTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
TableModeli: TTable;
Panel1: TPanel;
Panel2: TPanel;
Splitter1: TSplitter;
ButtonCLOSE: TButton;
DBGrid3: TDBGrid;
Panel3: TPanel;
DBGrid1: TDBGrid;
Panel4: TPanel;
Button_Edit_Tovar: TButton;
Button_Add_Tovar: TButton;
Button_Delete_Tovar: TButton;
ButtonUP_Tovar: TButton;
ButtonDOWN_Tovar: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ButtonUP_Modeli: TButton;
ButtonDOWN_Modeli: TButton;
Button_Edit_Modeli: TButton;
Button_Add_Modeli: TButton;
Button_Delete_Modeli: TButton;
procedure Button_Edit_TovarClick(Sender: TObject);
procedure ButtonCLOSEClick(Sender: TObject);
procedure Button_Add_TovarClick(Sender: TObject);
procedure Button_Delete_TovarClick(Sender: TObject);
procedure ButtonUP_TovarClick(Sender: TObject);
procedure ButtonDOWN_TovarClick(Sender: TObject);
procedure ButtonUP_ModeliClick(Sender: TObject);
procedure ButtonDOWN_ModeliClick(Sender: TObject);
procedure Button_Edit_ModeliClick(Sender: TObject);
procedure Button_Add_ModeliClick(Sender: TObject);
procedure Button_Delete_ModeliClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Log:TextFile;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile (f,'otchet.txt');append(f);
end;
procedure TForm1.Button_Edit_TovarClick(Sender: TObject);
var k:String;
begin
k:= TableTovar.FieldByName('Tovar').AsString;
Form2.Caption:= 'Èçìåíåíèå òîâàðà';
Form2.Edit1.Text:= k;
Form2.ShowModal;
end;
procedure TForm1.ButtonCLOSEClick(Sender: TObject);
begin
CloseFile(Log);
Form1.Close;
end;
procedure TForm1.Button_Add_TovarClick(Sender: TObject);
begin
Form3.Caption:= 'Äîáàâëåíèå òîâàðà';
Form3.ShowModal;
Form3.Edit1.Clear;
end;
procedure TForm1.Button_Delete_TovarClick(Sender: TObject);
var n:longint;
begin
if TableTovar.RecordCount = 0 then exit;
if MessageDlg('Óäàëèòü çàïèñü?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then begin
TableModeli.Last;
for n :=1 to Tablemodeli.RecordCount do TableModeli.Delete;
TableTovar.Delete;
writeln(Log,'Çàïèñü óäàëåíà èç òàáëèôû "Tovar"');
end;
end;
procedure TForm1.ButtonUP_TovarClick(Sender: TObject);
begin
TableTovar.Prior;
end;
procedure TForm1.ButtonDOWN_TovarClick(Sender: TObject);
begin
TableTovar.Next;
end;
procedure TForm1.ButtonUP_ModeliClick(Sender: TObject);
begin
TableModeli.Prior;
end;
procedure TForm1.ButtonDOWN_ModeliClick(Sender: TObject);
begin
TableModeli.Next;
end;
procedure TForm1.Button_Edit_ModeliClick(Sender: TObject);
var d, e: String;
f: Integer;
begin
try
d:= Form1.TableTovar.FieldByName('Tovar').AsString;
e:= Form1.TableModeli.FieldByName('S_name').AsString;
f:= Form1.TableModeli.FieldByName('Cena').AsInteger;
Form4.Caption:= 'Èçìåíåíèå íàçâàíèÿ';
Form4.Edit1.Text:=d;
Form4.Edit2.Text:=e;
Form4.Edit3.Text:=IntToStr(f);
Form4.ShowModal;
except
on Exception do
ShowMessage('Error');
end;
end;
procedure TForm1.Button_Add_ModeliClick(Sender: TObject);
var m: String;
begin
Form5.Caption:= 'Äîáàâëåíèå òîâàðà';
m:= TableTovar.FieldByName('Tovar').AsString;
Form5.Edit1.Text:=m;
Form5.ShowModal;
Form5.EditS_name.Clear;
Form5.EditCena.Clear;
end;
procedure TForm1.Button_Delete_ModeliClick(Sender: TObject);
begin
if MessageDlg('Óäàëèòü çàïèñü?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then TableModeli.Delete;
writeln(Log,'Çàïèñü óäàëåíà èç òàáëèôû "Modeli"');
end;
end.
S@shka (2007-03-01 17:01:00) [15]Удалено модератором
mashenka_84 (2007-03-01 16:57:00) [16]нет ты не поняла вставила я в свои процедуры, различные сообщения типа удалено, добавлено изменено, при компиляции программы возникает ошибка
Elen (2007-03-01 16:19:00) [17]
> вставила вроде но не запускается почему то. Выводит ошибки
> в файле dpr
Да ты что, это ж пример только !!!??? Тебе надо всего то создать в инспекторе нужные события для формы и ее компонента Ttable (см. [10]) и прописать в них, а не вставлять все в dpr.
mashenka_84 (2007-03-01 16:12:00) [18]>Elen
вставила вроде но не запускается почему то. Выводит ошибки в файле dpr начиная со слов begin и до end ругается.
Elen (2007-03-01 15:40:00) [19]
> mashenka_84 (01.03.07 15:34) [13]
Ну в принципе подучи матчасть по обычному паскалю (по теме файлы) + [12]
mashenka_84 (2007-03-01 15:34:00) [20]Щас попробую
| |
Страницы: 