Курсовая Телефонный справочник

Автор работы: Пользователь скрыл имя, 11 Декабря 2013 в 20:43, курсовая работа

Описание работы

Базы данных считаются основным достоинством Delphi. Это действительно так. Хотя язык и не создавался специально под эту предметную область программирования, но реализация работы с данными здесь просто поражает. Даже специализированные языки, которые предназначены для работы с базами данных (такие, как MS Visual FoxPro), явно уступают Delphi по простоте и мощи программирования. Delphi скрывает все сложности и в то же время предоставляет широчайшие возможности при создании баз данных. Практически любую задачу в этой предметной области можно реализовать средствами этого языка, причем задовольно короткий промежуток времени. Главное здесь то, что реализация приложения очень удобна и проста в понимании.

Содержание работы

1. Введение
2. Цели и задачи курсовой работы
3. Руководство программиста
4. Руководство пользователя
5. Тестирование программы
6. Результаты работы программы и их анализ
7. Блок – схема
8. Выводы
9. Используемая литература
10. Листинг программы

Скачать архив (17.48 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Документ Microsoft Word (3).doc

— 114.50 Кб (Скачать файл)

{$R *.dfm}

procedure TMainForm.BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=false;

if CheckBox1.Checked then

case ComboBox1.ItemIndex of

0:if copy((AnsiUpperCase(BookTableФамилия.AsString)),1,Length(MainForm.MaskEdit1.Text))= AnsiUpperCase(MainForm.MaskEdit1.Text) then

Accept:=true;

1:if copy((AnsiUpperCase(BookTableИмя.AsString)),1,Length(MainForm.MaskEdit1.Text))= AnsiUpperCase(MainForm.MaskEdit1.Text) then

Accept:=true;

2:if copy((AnsiUpperCase(BookTableОтчество.AsString)),1,Length(MainForm.MaskEdit1.Text))= AnsiUpperCase(MainForm.MaskEdit1.Text) then

Accept:=true;

3:if copy((AnsiUpperCase(BookTableТелефон.AsString)),1,Length(MainForm.MaskEdit1.Text))= AnsiUpperCase(MainForm.MaskEdit1.Text) then

Accept:=true;

4:if copy((AnsiUpperCase(BookTableДата.AsString)),1,Length(MainForm.MaskEdit1.Text))= AnsiUpperCase(MainForm.MaskEdit1.Text) then

Accept:=true;

5:if copy((AnsiUpperCase(BookTableTown.AsString)),1,Length(MainForm.MaskEdit1.Text))= AnsiUpperCase(MainForm.MaskEdit1.Text) then

Accept:=true;

end

else

case ComboBox1.ItemIndex of

0:if copy(BookTableФамилия.AsString,1,Length(MainForm.MaskEdit1.Text))= MainForm.MaskEdit1.Text then

Accept:=true;

1:if copy(BookTableИмя.AsString,1,Length(MainForm.MaskEdit1.Text))= MainForm.MaskEdit1.Text then

Accept:=true;

2:if copy(BookTableОтчество.AsString,1,Length(MainForm.MaskEdit1.Text))= MainForm.MaskEdit1.Text then

Accept:=true;

3:if copy(BookTableТелефон.AsString,1,Length(MainForm.MaskEdit1.Text))= MainForm.MaskEdit1.Text then

Accept:=true;

4:if Copy(BookTableДата.AsString,1,length(MainForm.MaskEdit1.Text))= MainForm.MaskEdit1.Text then

Accept:=true;

5:if copy(BookTableTown.AsString,1,Length(MainForm.MaskEdit1.Text))= MainForm.MaskEdit1.Text then

Accept:=true;

end

end;

procedure TMainForm.ComboBox1Select(Sender: TObject);

begin

case ComboBox1.ItemIndex of

0:MaskEdit1.Text:='введите фамилию';

1:Maskedit1.Text:='введите имя';

2:Maskedit1.Text:='введите отчество';

3:Maskedit1.Text:='введите телефон';

4:Maskedit1.Text:='введите дату рождения';

5:Maskedit1.Text:='введите название города';

end;

procedure TMainForm.MaskEdit1Change(Sender: TObject);

begin

if (MaskEdit1.Focused) and (length(MaskEdit1.Text)>0) then

BookTable.Filtered:=true

else

BookTable.Filtered:=false;

case ComboBox1.ItemIndex of

0:BookTable.Filter:='Фамилия>='+QuotedStr(MaskEdit1.Text);

1:BookTable.Filter:='Имя>='+QuotedStr(MaskEdit1.Text);

2:BookTable.Filter:='Отчество>='+QuotedStr(MaskEdit1.Text);

3:BookTable.Filter:='Телефон>='+QuotedStr(MaskEdit1.Text);

4:BookTable.Filter:='Дата>='+QuotedStr(MaskEdit1.Text);

5:BookTable.Filter:='town>='+QuotedStr(MaskEdit1.Text);

end;

procedure TMainForm.MaskEdit1Enter(Sender: TObject);

begin

MaskEdit1.Text:='';

MaskEdit1.Font.Color:=clBlack;

end;

procedure TMainForm.MaskEdit1Exit(Sender: TObject);

begin

MaskEdit1.Font.Color:=clGray;

case ComboBox1.ItemIndex of

0:MaskEdit1.Text:='введите фамилию';

1:Maskedit1.Text:='введите имя';

2:Maskedit1.Text:='введите отчество';

3:Maskedit1.Text:='введите телефон';

4:Maskedit1.Text:='введите дату рождения';

5:Maskedit1.Text:='введите название города';

end;

procedure TMainForm.N15Click(Sender: TObject);

begin

BookTable.Sort:='Фамилия ASC';

end;

procedure TMainForm.N16Click(Sender: TObject);

begin

BookTable.Sort:='Фамилия DESC';

end;

procedure TMainForm.N17Click(Sender: TObject);

begin

BookTable.Sort:='Имя ASC';

end;

procedure TMainForm.N18Click(Sender: TObject);

begin

BookTable.Sort:='Отчество ASC';

end;

procedure TMainForm.N19Click(Sender: TObject);

begin

BookTable.Sort:='Телефон ASC';

end;

procedure TMainForm.N20Click(Sender: TObject);

begin

BookTable.sort:='Город ASC';

end;

procedure TMainForm.N21Click(Sender: TObject);

begin

BookTable.Sort:='Имя DESC';

end;

procedure TMainForm.N22Click(Sender: TObject);

begin

BookTable.Sort:='Отчество DESC';

end;

procedure TMainForm.N23Click(Sender: TObject);

begin

BookTable.Sort:='Телефон DESC';

end;

procedure TMainForm.N24Click(Sender: TObject);

begin

BookTable.sort:='Город DESC';

end;

procedure TMainForm.N26Click(Sender: TObject);

begin

BookTable.Sort:='Дата ASC';

end;

procedure TMainForm.N27Click(Sender: TObject);

begin

BookTable.Sort:='Дата DESC';

end;

procedure TMainForm.N2Click(Sender: TObject);

begin

Close;

end;

procedure TMainForm.N52Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

TownBookForm.ShowModal;

end;

procedure TMainForm.N6Click(Sender: TObject);

begin

BookTable.Insert;

EditForm.ShowModal;

end;

procedure TMainForm.N7Click(Sender: TObject);

begin

EditForm.ShowModal;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

if Application.MessageBox(pchar('Вы действительно хотите удалить запись "'+BookTableФамилия.AsString+' '+BookTableИмя.AsString+' '+BookTableОтчество.AsString+'"'),'Внимание!!!',MB_OKCANCEL)=ID_OK then

BookTable.Delete;

end;

end.

unit EditFormUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Mask;

type

TEditForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEditFirstName: TDBEdit;

DBEdit2LastName: TDBEdit;

DBEditThirdName: TDBEdit;

DBEditTelephon: TDBEdit;

DBEditBirthday: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

EditForm: TEditForm;

implementation

uses Unit1, TownUnit;

{$R *.dfm}

procedure TEditForm.Button1Click(Sender: TObject);

begin

if MainForm.BookTable.Modified then

MainForm.BookTable.Post;

EditForm.Close;

end;

procedure TEditForm.Button2Click(Sender: TObject);

begin

MainForm.BookTable.Delete;

EditForm.Close;

end;

procedure TEditForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

MainForm.BookTable.Delete;

end;

end.

unit TownUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls;

type

TTownBookForm = class(TForm)

DBGrid1: TDBGrid;

AddButton: TButton;

DeleteButton: TButton;

SaveButton: TButton;

procedure AddButtonClick(Sender: TObject);

procedure SaveButtonClick(Sender: TObject);

procedure DeleteButtonClick(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

TownBookForm: TTownBookForm;

implementation

uses Unit1;

{$R *.dfm}

procedure TTownBookForm.AddButtonClick(Sender: TObject);

begin

MainForm.TownTable.Insert;

DBGrid1.SetFocus;

end;

procedure TTownBookForm.DeleteButtonClick(Sender: TObject);

begin

if Application.MessageBox(pchar('Вы действительно хотите удалить запись "'+MainForm.TownTableГорода.AsString+'"'),'Внимание!!!',MB_OKCANCEL)=ID_OK then

MainForm.TownTable.Delete;

end;

procedure TTownBookForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if MainForm.TownTable.Modified then

if Application.MessageBox(pchar('Были внесены изменения. Сохранить данные?'),'Внимание!!!',MB_OKCANCEL)=ID_OK then

MainForm.TownTable.Post;

end;

procedure TTownBookForm.SaveButtonClick(Sender: TObject);

begin

if MainForm.TownTable.Modified then

MainForm.TownTable.Post;

TownBookForm.Close;

end;

end.

Информация о работе Курсовая Телефонный справочник