Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] - База данных.

Автор: SlevinVik 15.5.2009, 23:57

Здравствуйте. Пожалуйста, помогите решить задачу с поиском в базе данных. Дана задача: "На дискете храниться информация о животных в зоопарке со следующими данными: название животного, тип животного, возраст, условия жизни. Написать программу, позволяющую проводить поиск данных о животных по типу. Задача почти решена, но с поиском у меня ничего не получается...Пожалуйста напишите процедуру для поиска в этой базе данных.

Автор: Данкинг 16.5.2009, 00:03

Цитата(SlevinVik @ 16.5.2009, 00:57

)

Задача почти решена, но с поиском у меня ничего не получается...Пожалуйста напишите процедуру для поиска в этой базе данных.

Если задача почти решена, то показывай код программы для этой базы данных. smile

Автор: SlevinVik 16.5.2009, 15:16

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit5: TEdit;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
TYPE
Animals=record
Name:string[30];
Tip: string[30];
Age:string[30];
Life:string[30];

  end;
var
Fz: file of Animals;
Ft: TextFile;
anim: array [1..100]of Animals;
nzap:integer;
FileNameZ,FileNameT: string;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Memo1.Clear;
Button1.Hide;
nzap:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
nzap:=nzap+1;
with anim [nzap] do begin

Name:=Edit1.Text;
Tip:=Edit2.Text;
Age:=Edit3.Text;
Life:=Edit4.Text;

Memo1.Lines.Add('Вид животного-'+ Name+'');
Memo1.Lines.Add('Пол животного-'+ Tip+'');
Memo1.Lines.Add('Возраст животного-'+ Age+'');
Memo1.Lines.Add('Условия жизни-'+Life+'');
end;
write (Fz,anim[nzap]);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Title:='New File';
if OpenDialog1.Execute then
begin
FilenameZ:= opendialog1.FileName;
assignFile(Fz,FilenameZ);
Rewrite(Fz);
end;
Button1.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if openDialog1.Execute then
begin
FilenameZ:=OpenDialog1.FileName;
assignFile(Fz,FilenameZ);
Reset (Fz);
While not eof (fz) do begin
nzap:=nzap+1;
Read (Fz,anim[nzap]);
end;
with anim [nzap] do begin
Memo1.Lines.Add('Вид животного-'+ Name+'');
Memo1.Lines.Add('Пол животного-'+ Tip+'');
Memo1.Lines.Add('Возраст животного-'+ Age+'');
Memo1.Lines.Add('Условия жизни-'+Life+'');
end;
Button1.Show;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var i:word;
begin
if saveDialog1.Execute then
begin
FilenameT:=SaveDialog1.Filename;
assignFile( Ft,FilenameT);
Rewrite(Ft);

for i:=1 to nzap do
with anim[i] do  writeln(Ft,Name);
closeFile(Ft);
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
CloseFile(Fz);
Memo1.Clear;
end;

%Процедура для поиска.
procedure TForm1.Button6Click(Sender: TObject);
begin

end;
end;

end.

Автор: BraMix 17.5.2009, 18:36

товарищи помогите на завтра нужно здать,всё почти готово,помогите с поиском...... smile