Приложения Приложение 1. Исходный код программных компонентов.

Исходный код модуля «Расписание встреч»:

unit u_otch;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,

StdCtrls;

type

{ Tf_otch }

Tf_otch = class(TForm)

d: TDbf;

code: TMemo;

s: TDatasource;

procedure FormShow(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

f_otch: Tf_otch;

implementation

{$R *.lfm}

{ Tf_otch }

procedure Tf_otch.FormShow(Sender: TObject);

begin

code.Lines.Clear;

d.Open;

while not(d.EOF) do begin

code.Lines.Add('ФИО: '+d.FieldByName('fio').AsString+'');

code.Lines.Add('Адрес: '+d.FieldByName('adres').AsString+'');

code.Lines.Add('Дата встречи: '+d.FieldByName('data_v').AsString+'');

code.Lines.Add('-------------');

d.Next;

end;

d.Close;

end;

end.

Исходный код модуля «Телефонная книга»

unit u_phone;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,

DbCtrls, ComCtrls, DBGrids, StdCtrls, Calendar;

type

{ Tf_phone }

Tf_phone = class(TForm)

Button1: TButton;

data_v: TCalendar;

DBCheckBox1: TDBCheckBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

t_data: TDBEdit;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

fio_search: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

PageControl1: TPageControl;

s: TDatasource;

d: TDbf;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

procedure Button1Click(Sender: TObject);

procedure data_vChange(Sender: TObject);

procedure DBNavigator1Click(Sender: TObject; Button: TDBNavButtonType);

procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

f_phone: Tf_phone;

implementation

{$R *.lfm}

{ Tf_phone }

procedure Tf_phone.FormShow(Sender: TObject);

begin

d.Open;

end;

procedure Tf_phone.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

d.Close;

end;

procedure Tf_phone.Button1Click(Sender: TObject);

begin

d.First;

while not(d.EOF) do begin

if (fio_search.Text = d.FieldByName('fio').AsString) then

Break;

d.Next;

end;

end;

procedure Tf_phone.data_vChange(Sender: TObject);

begin

t_data.Text:=data_v.Date;

end;

procedure Tf_phone.DBNavigator1Click(Sender: TObject; Button: TDBNavButtonType);

begin

if (t_data.Text <> '') then data_v.Date:=t_data.Text;

end;

procedure Tf_phone.FormCreate(Sender: TObject);

begin

d.FieldDefs.Add('fio', ftString, 100);

d.FieldDefs.Add('tel', ftString, 50);

d.FieldDefs.Add('adres', ftString, 100);

d.FieldDefs.Add('data_v', ftString, 100);

d.FieldDefs.Add('ur_l', ftBoolean);

d.CreateTable;

end;

end.

Исходный код модуля «Записная книга»

unit u_note;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ Tf_note }

Tf_note = class(TForm)

Button1: TButton;

Button2: TButton;

note: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

f_note: Tf_note;

implementation

{$R *.lfm}

{ Tf_note }

procedure Tf_note.Button1Click(Sender: TObject);

begin

note.Lines.SaveToFile('note.txt');

end;

procedure Tf_note.Button2Click(Sender: TObject);

begin

note.Lines.LoadFromFile('note.txt');

end;

end.

Исходный код модуля «Меню»

unit u_menu;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ Tf_menu }

Tf_menu = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

f_menu: Tf_menu;

implementation

{$R *.lfm}

uses u_note, u_phone;

{ Tf_menu }

procedure Tf_menu.Button1Click(Sender: TObject);

begin

f_note.ShowModal;

end;

procedure Tf_menu.Button2Click(Sender: TObject);

begin

f_phone.ShowModal;

end;

end.