Разработка программного обеспечения "Телефонный справочник"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Active:=false;_dob_organiz.ADOQuery2.Active:=true;_dob_chastnie.ADOQuery2.Active:=false;_dob_chastnie.ADOQuery2.Active:=true;;ShowMessage(Введите наименование тарифа!);;.
U_svedenia;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;_svedenia = class(TForm): TButton;: TButton;: TButton;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_svedenia: TF_svedenia;U_Tarif, U_Gurnal;
{$R *.dfm}TF_svedenia.Button1Click(Sender: TObject);_Tarif.Show;TF_svedenia.Button2Click(Sender: TObject);_gurnal.show;TF_svedenia.Button3Click(Sender: TObject);;.
U_Tarif;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj,;_Tarif = class(TForm): TADOQuery;: TDataSource;: TDBGrid;: TDBNavigator;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TButton;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);FormCreate(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Tarif: TF_Tarif;:variant;:string;U_Glavn, U_dob_tarif, U_red_chastnie, U_del_chastnie, U_red_tarif,_del_tarif;
{$R *.dfm}TF_Tarif.Button1Click(Sender: TObject);_dob_tarif.Show;TF_Tarif.Button2Click(Sender: TObject);_red_tarif.Show;TF_Tarif.Button3Click(Sender: TObject);_del_tarif.Show;TF_Tarif.FormCreate(Sender: TObject);(0,MyDir);;TF_Tarif.Button4Click(Sender: TObject);i:integer;:=CreateOleObject(Excel.Application);.DisplayAlerts:=false;.WorkBooks.Open(MyDir + \Тарифы.xls);.WorkBooks[1].WorkSheets[1].Cells[2,5]:=datetostr(date);.First;:=4;not ADOQuery1.Eof do.WorkBooks[1].WorkSheets[1].Cells[i,1]:=ADOQuery1.FieldByName(naimen).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName(ab_f).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName(min_f).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName(ab_u).AsString;.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName(min_u).AsString;:=i+1;.Next;;.Visible:=true;;TF_Tarif.Button5Click(Sender: TObject);;.U_Razrab;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, jpeg, ExtCtrls;_Razrab = class(TForm): TBitBtn;: TLabel;: TLabel;: TLabel;: TLabel;BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Razrab: TF_Razrab;
{$R *.dfm}TF_Razrab.BitBtn1Click(Sender: TObject);
close
end;
end.
Приложение В (связь программных модулей)
Рисунок В-1
Приложение Г (сводные документы)
Рисунок Г-1
Рисунок Г-2
Рисунок Г-3
Рисунок Г-4
Рисунок Г-5
Рисунок Г-6
Рисунок Г-7