Реферат Розробка програмного модуля "Органайзер"

Тема: Курсовые обзорные

= class (TForm): TButton; _v: TCalendar;: TDBCheckBox;: TDBEdit;: TDBEdit;: TDBEdit; _data: TDBEdit;: TDBGrid;: TDBNavigator; _search: TEdit;: TLabel;: TLabel ;: TLabel;: TLabel;: TLabel;: TPageControl;: TDatasource;: TDbf;: TTabSheet;: TTabSheet; Button1Click (Sender: TObject); data_vChange (Sender: TObject); DBNavigator1Click (Sender: TObject; Button: TDBNavButtonType); FormClose (Sender: TObject; var CloseAction: TCloseAction); FormCreate (Sender: TObject); FormShow (Sender: TObject);

{private declarations}

{public declarations}; _phone: Tf_phone;

{$ R *. lfm}

{Tf_phone} Tf_phone.FormShow (Sender: TObject);. Open;; Tf_phone.FormClose (Sender: TObject; var CloseAction: TCloseAction);. Close;; Tf_phone.Button1Click (Sender: TObject);. First; not (d.EOF) do begin (fio_search.Text = d.FieldByName ('fio'). AsString) then;. Next;;; Tf_phone.data_vChange (Sender: TObject); _data.Text: = data_v.Date;; Tf_phone . DBNavigator1Click (Sender: TObject; Button: TDBNavButtonType); (t_data.Text <>'') then data_v.Date: = t_data.Text;; Tf_phone.FormCreate (Sender: TObject);. FieldDefs.Add ('fio ', ftString, 100);. FieldDefs.Add (' tel ', ftString, 50);. FieldDefs.Add (' adres ', ftString, 100);. FieldDefs.Add (' data_v ', ftString, 100);. FieldDefs.Add ('ur_l', ftBoolean);

d.CreateTable;;.

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

unit u_note;

{$ mode objfpc} {$ H +}, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

{Tf_note} _note = class (TForm): TButton;: TButton;: TMemo; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{private declarations}

{public declarations}; _note: Tf_note;

{$ R *. lfm}

{Tf_note} Tf_note.Button1Click (Sender: TObject);. Lines.SaveToFile ('note.txt');; Tf_note.Button2Click (Sender: TObject);. Lines.LoadFromFile ('note.txt');

end;.

Вихідний код модуля В«МенюВ»

unit u_menu;

{$ mode objfpc} {$ H +}, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

{Tf_menu} _menu = class (TForm): TButton;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{private declarations}

{public declarations}; _menu: Tf_menu;

{$ R *. lfm} u_note, u_phone;

{Tf_menu} Tf_menu.Button1Click (Sender: TObject); _note.ShowModal;; Tf_menu.Button2Click (Sender: TObject); _phone.ShowModal;;

end.

Додаток 2

Технічне завдання.