Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Разработка прикладной программы на основе архитектуры "клиент – сервер"

Разработка прикладной программы на основе архитектуры "клиент – сервер"

Описание предметной области и разработка электронного учебника на основе архитектуры "клиент – сервер". Тестирование программы менеджера и создание интерфейса главного меню. Вход в программу в качестве пользователя и обеспечение перехода к данным лекций.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 26.02.2015
Размер файла 1,5 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

form9.show;

end;

procedure TForm11.BitBtn2Click(Sender: TObject);

begin

form11.MaskEdit1.Text:='';

form11.MaskEdit2.Text:='';

form11.Edit1.Text:='';

form11.Edit2.Text:='';

form11.Edit3.Text:='';

form11.Close;

form4.Show;

end;

procedure TForm11.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if not(key in['а'..'я','А'..'Я',#8]) then key:=#0;

end;

procedure Tform11.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not(key in['а'..'я','А'..'Я',#8]) then key:=#0;

end; end.

unit Unit12;

interface

uses

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

Dialogs, StdCtrls;

type

TForm12 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Label1: TLabel;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

public

end;

var

Form12: TForm12;

implementation

uses Unit9, DM;

procedure TForm12.Button1Click(Sender: TObject);

begin

if form12.Memo1.Text='' then

begin

MessageBox(Handle,PChar('Ваше не содержит текста!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);

exit; end;

DataModule2.ADOTable4.Insert;

DataModule2.ADOTable4.FieldValues['ot_kogo']:=form9.Label2.Caption+' '+form9.Label3.Caption;

DataModule2.ADOTable4.FieldValues['soderganie']:=form12.Memo1.Text;

DataModule2.ADOTable4.FieldValues['komy']:=form12.Edit1.Text;

DataModule2.ADOTable4.FieldValues['data']:=datetostr(date);

datamodule2.ADOTable4.Post;

{form9.Label2.Caption:=form11.Edit3.Text;

form9.Label3.Caption:=form11.Edit1.Text;

form9.Label4.Caption:=form11.Edit2.Text;

form11.MaskEdit1.Text:='';

form11.MaskEdit2.Text:='';

form11.Edit1.Text:='';

form11.Edit2.Text:='';

form11.Edit3.Text:=''; }

form12.Edit1.Text:='';

form12.Memo1.Text:='';

form12.Close;

Application.MessageBox('Сообщение доставлено!','Готово',MB_OK or MB_ICONINFORMATION);

form9.show;

end;

procedure TForm12.Button3Click(Sender: TObject);

begin

form12.Edit1.Text:='';

form12.Memo1.Text:='';

form12.Close;

form9.Show; end;

procedure TForm12.Button2Click(Sender: TObject);

begin

form12.Memo1.Text:='';

end; end.

unit Unit13;

interface

uses

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

Dialogs, StdCtrls;

type

TForm13 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Memo1: TMemo;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

public

end;

var

Form13: TForm13;

implementation

uses Unit14, DM, Unit6;

procedure TForm13.Button1Click(Sender: TObject);

begin

form14.show;

end;

procedure TForm13.Button2Click(Sender: TObject);

begin

if form13.Memo1.Text='' then

begin

MessageBox(Handle,PChar('Ваше не содержит текста!'),PChar('Ошибка'), MB_ICONWARNING+MB_DEFBUTTON2);

exit; end;

DataModule2.ADOTable4.Insert;

DataModule2.ADOTable4.FieldValues['ot_kogo']:='Преподаватель';

DataModule2.ADOTable4.FieldValues['soderganie']:=form13.Memo1.Text;

DataModule2.ADOTable4.FieldValues['komy']:=form13.Edit1.Text;

DataModule2.ADOTable4.FieldValues['data']:=datetostr(date);

datamodule2.ADOTable4.Post;

form13.Edit1.Text:='';

form13.Memo1.Text:='';

form13.Close;

Application.MessageBox('Сообщение доставлено!','Готово',MB_OK or MB_ICONINFORMATION);

form6.show;

end;

procedure TForm13.Button4Click(Sender: TObject);

begin

form13.Edit1.Text:='';

form13.Memo1.Text:='';

form13.Close;

form6.Show;

end;

procedure TForm13.Button3Click(Sender: TObject);

begin

form13.Edit1.Text:='';

form13.Memo1.Text:='';

end; end.

unit Unit14;

interface

uses

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

Dialogs, Grids, DBGrids;

type

TForm14 = class(TForm)

DBGrid1: TDBGrid;

procedure DBGrid1DblClick(Sender: TObject);

private

public

end;

var

Form14: TForm14;

implementation

uses DM, Unit13;

procedure TForm14.DBGrid1DblClick(Sender: TObject);

begin

form13.Show;

form13.Edit1.Text:=form14.DBGrid1.SelectedField.DataSet.FieldValues['fam']+' '+form14.DBGrid1.SelectedField.DataSet.FieldValues['name'];

form14.Close;

end;

end.

unit Unit15;

interface

uses

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

Dialogs, StdCtrls;

type

TForm15 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Edit1: TEdit;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

public

end;

var

Form15: TForm15;

implementation

uses Unit13, Unit12;

procedure TForm15.Button1Click(Sender: TObject);

begin

form15.Edit1.Text:='';

form15.Memo1.Text:='';

form15.Close;

end;

procedure TForm15.Button2Click(Sender: TObject);

begin

if form15.Edit1.Text='Преподаватель'then begin form12.show;

form12.Edit1.Text:=form15.Edit1.Text;

form15.Edit1.Text:='';

form15.Memo1.Text:='';

form15.Close;

end else

form13.show;

form13.Edit1.Text:=form15.Edit1.Text;

form15.Close;

end; end.

unit Unit16;

interfacе

uses

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

Dialogs, Grids, DBGrids, Menus;

type

TForm16 = class(TForm)

DBGrid1: TDBGrid;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

procedure DBGrid1DblClick(Sender: TObject);

procedure N1Click(Sender: TObject);

private

public

end;

var

Form16: TForm16;

implementation

uses DM, testirovanie, Unit15, Unit6;

procedure TForm16.DBGrid1DblClick(Sender: TObject);

begin

form15.show;

form15.Edit1.Text:=form16.DBGrid1.SelectedField.DataSet.FieldValues['ot_kogo'];

form15.Memo1.Text:= form16.DBGrid1.SelectedField.DataSet.FieldValues['soderganie'];

form16.Close;

end;

procedure TForm16.N1Click(Sender: TObject);

begin

if application.MessageBox('Удалить это сообщение? ',

'Удаление',mb_iconQuestion+mb_yesno)=idyes then

datamodule2.ADOTable4.Delete;

end; end.

unit Unit17;

interface

uses

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

Dialogs, Grids, DBGrids, Menus;

type

TForm17 = class(TForm)

DBGrid1: TDBGrid;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

procedure DBGrid1DblClick(Sender: TObject);

procedure N1Click(Sender: TObject);

private

public

end;

var

Form17: TForm17;

implementation

uses DM, Unit15, Unit9;

procedure TForm17.DBGrid1DblClick(Sender: TObject);

begin

form15.show;

form15.Edit1.Text:=form17.DBGrid1.SelectedField.DataSet.FieldValues['ot_kogo'];

form15.Memo1.Text:= form17.DBGrid1.SelectedField.DataSet.FieldValues['soderganie'];

form17.Close;

end;

procedure TForm17.N1Click(Sender: TObject);

begin

if application.MessageBox('Удалить это сообщение? ',

'Удаление',mb_iconQuestion+mb_yesno)=idyes then

datamodule2.ADOTable4.Delete;

end; end.

unit Unit18;

interface

uses

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

Dialogs, StdCtrls, Menus;

type

TForm18 = class(TForm)

OpenDialog1: TOpenDialog;

Memo1: TMemo;

SaveDialog1: TSaveDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

public

end;

var

Form18: TForm18;

Var f: TextFile; // текстовый файл теста

implementation

{$R *.dfm}

procedure TForm18.FormShow(Sender: TObject);

begin

// снимаем признак открытого файла (мы его еще не открывали)

end;

procedure TForm18.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm18.Button2Click(Sender: TObject);

begin

with SaveDialog1, Memo1 do

if Execute then

begin

Lines.SaveToFile(FileName);

OpenDialog1.FileName:=FileName;

end; end;

procedure TForm18.Button3Click(Sender: TObject);

begin

if application.MessageBox('Сохранить изменения в файле? ',

'Сохранение',mb_iconQuestion+mb_yesno)=idyes then

Memo1.Lines.SaveToFile(OpenDialog1.FileName);

form18.Memo1.Text:=''; end;

procedure TForm18.N7Click(Sender: TObject);

begin

form18.Memo1.Clear;

end;

procedure TForm18.N3Click(Sender: TObject);

begin

form18.Memo1.Clear;

if OpenDialog1.Execute then

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm18.N4Click(Sender: TObject);

begin

if application.MessageBox('Сохранить изменения в файле? ',

'Сохранение',mb_iconQuestion+mb_yesno)=idyes then begin;

Memo1.Lines.SaveToFile(OpenDialog1.FileName);

end; end;

procedure TForm18.N5Click(Sender: TObject);

begin

with SaveDialog1, Memo1 do

if Execute then

begin

Lines.SaveToFile(FileName);

OpenDialog1.FileName:=FileName; // Чтобы исправленный текст не затёр источник

end;

if pos('.', SaveDialog1.FileName)=0 then

SaveDialog1.FileName := SaveDialog1.FileName + '.txt';

end;

procedure TForm18.N2Click(Sender: TObject);

begin form18.Memo1.Text:='';

form18.Close;

end; end.

Размещено на Allbest.ru

Страница:


Подобные документы

  • Разработка приложений архитектуры клиент-сервер при помощи SQL

    Анализ архитектуры информационной системы, в структуру которой входят системы файл-сервер и клиент-сервер. Сравнение языков запросов SQL и QBE. Принципы разработки приложений архитектуры клиент-сервер при помощи структурированного языка запросов SQL.

    курсовая работа [88,9 K], добавлен 11.04.2010

  • Разработка клиент-серверного приложения в трехуровневой архитектуре для предметной области "ДТП"

    Многоуровневые архитектуры клиент–сервер. Диаграммы классов, реализующих уровни презентации, бизнес–логики и базы данных приложения. Словесное описание процесса выполнения транзакций. Создание, изменение и удаление хранимых процедур, их выполнение.

    курсовая работа [3,4 M], добавлен 23.03.2013

  • FTP-клиент

    Разработка программы FTP-клиент, которая может подключаться к серверу в активном и пассивном режимах, используя имя пользователя и пароль; скачивать, загружать и удалять файлы с сервера. Протоколы прикладного и транспортного уровней. Описание интерфейса.

    курсовая работа [149,2 K], добавлен 07.07.2013

  • Автоматизированное рабочее место инженера по гарантии СТО "Континент"

    Модель удаленного управления и доступа к данным. Преимущества архитектуры клиент-сервер. Выбор языка программирования. Разработка программы и создание базы данных. Нормирование условий труда программистов, операторов электронно-вычислительных машин.

    дипломная работа [2,3 M], добавлен 27.04.2014

  • Почтовая программа с архитектурой клиент-сервер

    Постановка задачи, описание предметной области, входная и выходная информация. Выбор и основание инструментов разработки. Программно-аппаратные ресурсы. Описание логической структуры, проектирование системы меню. Тестирование, способ установки программы.

    курсовая работа [107,5 K], добавлен 07.09.2015

  • Использование архитектуры клиент-сервер в системе 1С: Предприятие

    Описания программного продукта компании 1С, предназначенного для быстрой разработки прикладных решений. Исследование типов архитектур построения баз данных. Технология с сетью и файловым сервером. Анализ особенностей трехзвенной архитектуры клиент-сервер.

    курсовая работа [401,4 K], добавлен 12.01.2015

  • Разработка программных дополнений по технологии "клиент - сервер". Метод коммуникации - отображение файла в память

    Разработка приложений на платформе Win32 для исследования взаимодействия между процессами через отображение файла в память. Модель приложений "клиент - сервер". Описание алгоритма работы программы-клиента и программы-сервера. Результаты работы приложений.

    курсовая работа [869,3 K], добавлен 18.05.2014

  • Архитектура информационных систем

    Проектирование информационной системы на основе архитектуры "файл-сервер", "клиент-сервер", многоуровневой архитектуры, Intranet-системы. Преимущества и недостатки файл-серверного подхода при обеспечении многопользовательского доступа к базе данных.

    лабораторная работа [220,5 K], добавлен 02.02.2015

  • Разработка сетевого приложения с графическим интерфейсом

    Разработка клиент-серверного приложения, позволяющего взаимодействовать друг с другом с использованием доступа к базам данных. Проектирование связи сервера с базой данных с помощью технологии ODBC. Разработка интерфейса программы, ее тестирование.

    курсовая работа [352,0 K], добавлен 24.08.2016

  • Разработка программного комплекса для автоматизации деятельности работников завода

    Исследование технологии проектирования базы данных. Локальные и удаленные базы данных. Архитектуры и типы сетей. Программная разработка информационной структуры предметной области. Обоснование выбора архитектуры "клиент-сервер" и операционной системы.

    дипломная работа [1,1 M], добавлен 15.02.2017

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены