Разработка программного обеспечения "Телефонный справочник"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?тала намного проще. При написании данной программы были достигнуты поставленные цели.
Список литературы
.Delphi 7. Учебный курс Бобровский С. И издательство Питер г. Санкт-Петербург 2004 год. Иллюстрированный самоучитель по Delphi для профессионалов
.Программирование баз данных в Delphi 7 Фаронов В.В. издательство Питер г. Санкт-Петербург 2005 год.
.Справочное руководство по Delphi.
.Электронный учебник Delphi 7 для начинающих.
.Автоматизированные информационные технологии в экономике: Учебник/ Под ред. проф Г.А. Титоренко. - М.: Компьютер, ЮНИТИ, 1999 г.
.Ананьев П.И. Технология разработки программного обеспечения: Учебное пособие/ Алт. ГТУ им. Ползунова. - Барнаул: 2000 г.
.Бондарев В.М., Рублинецкий В.И., Качко Е.Г. Основы программирования. - Харьков: Фолио; Ростов н/Д: Феникс, 1997г.
.Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. - М.:Гелиос АРВ, 2002 г.
.Информатика. Учеб.пособие для студентов пед.вузов/ Могилев А.В., Н.И. Пак, Е.К. Хённер; Под рд. Е.К. Хённера. - М., 1999 г.
.Фаронов В. Программирование баз данных в Delphi7. Учебный курс. - Питер, 2003 г.
.Лекции по диiиплине РиЭАИС
Приложение
Приложение А (документы)
Рисунок А-1
Рисунок А-2
Рисунок А-3
Рисунок А-4
Приложение Б (текст программы)
program Tel_Spravochnik;,_Glavn in U_Glavn.pas {F_Glavn},_Chastnie in U_Chastnie.pas {F_Chastnie},_dob_chastnie in U_dob_Chastnie.pas {F_dob_chastnie},_red_chastnie in U_red_chastnie.pas {F_red_chastnie},_del_Chastnie in U_del_Chastnie.pas {F_del_Chastnie},_Gurnal in U_Gurnal.pas {F_Gurnal},_Ochist_Gurn in U_Ochist_Gurn.pas {F_Ochist_Gurn},_Organiz in U_Organiz.pas {F_Organiz},_dob_organiz in U_dob_organiz.pas {F_dob_organiz},_red_organiz in U_red_organiz.pas {F_red_organiz},_del_organiz in U_del_organiz.pas {F_del_organiz},_Tarif in U_Tarif.pas {F_Tarif},_dob_tarif in U_dob_tarif.pas {F_dob_tarif},_red_tarif in U_red_tarif.pas {F_red_tarif},_del_tarif in U_del_tarif.pas {F_del_tarif},_Razrab in U_Razrab.pas {F_Razrab},_baza in U_baza.pas {F_baza},_svedenia in U_svedenia.pas {F_svedenia};
{$R *.res}.Initialize;.CreateForm(TF_Glavn, F_Glavn);.CreateForm(TF_Chastnie, F_Chastnie);.CreateForm(TF_dob_chastnie, F_dob_chastnie);.CreateForm(TF_red_chastnie, F_red_chastnie);.CreateForm(TF_del_Chastnie, F_del_Chastnie);.CreateForm(TF_Gurnal, F_Gurnal);.CreateForm(TF_Ochist_Gurn, F_Ochist_Gurn);.CreateForm(TF_Organiz, F_Organiz);.CreateForm(TF_dob_organiz, F_dob_organiz);.CreateForm(TF_red_organiz, F_red_organiz);.CreateForm(TF_del_organiz, F_del_organiz);.CreateForm(TF_Tarif, F_Tarif);.CreateForm(TF_dob_tarif, F_dob_tarif);.CreateForm(TF_red_tarif, F_red_tarif);.CreateForm(TF_del_tarif, F_del_tarif);.CreateForm(TF_Razrab, F_Razrab);.CreateForm(TF_baza, F_baza);.CreateForm(TF_svedenia, F_svedenia);.Run;.U_Glavn;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, Buttons, StdCtrls, jpeg, ExtCtrls, DB, ADODB, ComObj;_Glavn = class(TForm): TADOConnection;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TButton;: TImage;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TButton;BitBtn1Click(Sender: TObject);Button1Click(Sender: TObject);Button3Click(Sender: TObject);Button2Click(Sender: TObject);Button4Click(Sender: TObject);FormCreate(Sender: TObject);N3Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N2Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Glavn: TF_Glavn;:string;: variant;U_Chastnie, U_Gurnal, U_Organiz, U_Tarif, U_Razrab, U_baza, U_svedenia;
{$R *.dfm}TF_Glavn.BitBtn1Click(Sender: TObject);;TF_Glavn.Button1Click(Sender: TObject);_baza.Show;TF_Glavn.Button3Click(Sender: TObject);:=CreateOleObject(Word.Application);.DisplayAlerts:=false;.WordBasic.FileOpen(MyDir + \Справка.doc);.Visible:=true;;TF_Glavn.Button2Click(Sender: TObject);_svedenia.Show;TF_Glavn.Button4Click(Sender: TObject);_Razrab.Show;TF_Glavn.FormCreate(Sender: TObject);(0,MyDir);;TF_Glavn.N3Click(Sender: TObject);_organiz.Show;TF_Glavn.N8Click(Sender: TObject);:=CreateOleObject(Word.Application);.DisplayAlerts:=false;.WordBasic.FileOpen(MyDir + \Справка.doc);.Visible:=true;;TF_Glavn.N9Click(Sender: TObject);_Razrab.Show;TF_Glavn.N2Click(Sender: TObject);_chastnie.Show;TF_Glavn.N5Click(Sender: TObject);_tarif.Show;TF_Glavn.N6Click(Sender: TObject);_gurnal.Show;.
U_baza;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;_baza = class(TForm): TButton;: TButton;: TButton;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_baza: TF_baza;U_Chastnie, U_Organiz;
{$R *.dfm}TF_baza.Button1Click(Sender: TObject);_Chastnie.Show;TF_baza.Button2Click(Sender: TObject);_Organiz.Show;TF_baza.Button3Click(Sender: TObject);;.U_Chastnie;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, ComObj,;_Chastnie = class(TForm): TADOQuery;: TDataSource;: TDBGrid;: TDBNavigator;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TEdit;: TLabel;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TButton;: TButton;: TButton;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormShow(Sender: TObject);Edit1Change(Sender: TObject);Edit2Change(Sender: TObject);Edit3Change(Sender: TObject);Edit4Change(Sender: TObject);Button6Click(Sender: TObject);FormCreate(Sender: TObject);Button5Click(Sender: TObject);Button7Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Chastnie: TF_Chastnie;:variant;:string;U_Glavn, U_dob_Chastnie, U_red_Chastnie, U_del_Chastnie;
{$R *.dfm}filtr;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.SQL.Clear;_Chastnie.ADOQuery1.SQL.Add(select * from sprav_f where (fio like +#39+F_Chastnie.Edit1.Text+%+#39+)and(
+nom like +#39+F_Chastnie.Edit2.Text+%+#39+)and(nas_punkt like +#39+_Chastnie.Edit3.Text+%+#39+)and(adres like +#39+F_Chastnie.Edit4.Text+%+#39+) order by fio);_Chastnie.ADOQuery1.Active:=true;;
TF_Chastnie.Button1Click(Sender: TObject);_dob_chastnie.Show;TF_Chastnie.Button2Click(Sender: TObject);_red_chastnie.Show;TF_Chastnie.Button3Click(Sender: TObject);_del_Chastnie.Show;TF_Chastnie.Button4Click(Sender: TObject);.Active:=false;.SQL.Clear;.SQL.Add(select * from [sprav_f] where [sal_nach] like +#39+-%+#39);.Active:=true;.Text:=;.Text:=;.Text:=;.Text:=;;TF_Chastnie.FormShow(Sender: TObject);.Text:=;.Text:=;.Text:=;.Text:=;;TF_Chastnie.Edit1Change(Sender: TObject);;;TF_Chastnie.Edit2Change(Sender: TObject);;;TF_Chastnie.Edit3Change(Sender: TObject);;;TF_Chastnie.Edit4Change(Sender: TObject);;;TF_Chastnie.Button6Click(Sender: TObject);.Active:=false;.SQL.Clear;.SQL.Add(select * from sprav_f);.Active:=true;.Text:=;.Text:=;.Text:=;.Text:=;;TF_Chastnie.FormCreate(Sender: TObject);(0,MyDir);;TF_Chastnie.Button5Click(Sender: TObject);i:integer;:=CreateOleObject(Excel.Application);.DisplayAlerts:=false;.WorkBooks.Open(MyDir + \частные лица лица.xls);.First;:=4;not ADOQuery1.Eof do.WorkBooks[1].WorkSheets[1].Cells[i,1]:=i-3;.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName(fio).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName(nom).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName(nas_punkt).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName(adres).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,6]:=ADOQuery1.FieldByName(tarif).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,7]:=ADOQuery1.FieldByName(bonus).AsString;:=i+1;.Next;;.Visible:=true;;TF_Chastnie.Button7Click(Sender: TObject);;.U_del_chastnie;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls