Реферат Розробка програми передачі повідомлень по локальній мережі

n="justify"> Про програму

Дивитись довідку

. Вихід. p align="justify"> Відправити дані

Прийняти дані

Видалити запис

Пошук

Пункт меню Довідники є довідкою про те чи іншому файлі.

Пункти меню Оформлення кредитів , Оформлення депозитів , Страхування фізичних осіб за своєю суттю є ідентичними у використанні. Якщо необхідно створити новий запис, то можна скористатися двома способами: вибором пункту меню або за допомогою кнопки на формі. При цьому з'являється вікно введення нового запису. Редагування та видалення наявної запису проводиться аналогічним чином.

У кожному пункті меню є списки міст, депозитів, видів страхування, які при необхідності можна також редагувати.

Вихід з програми здійснюється двома способами: вибором пункту меню і натисканням кнопки на головній формі.

ДОДАТОК В

Лістинг ПРОГРАМИ

// Головна форма

unit Glavnaya;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, ComCtrls, XPMan, StdCtrls, Buttons, DB, DBTables, Grids,, ExtCtrls, DBCtrls, OleServer, WordXP, ExtDlgs, jpeg, Mask; = class (TForm): TMainMenu;: TMenuItem;: TPageControl;: TTabSheet;: TTabSheet;: TBitBtn;: TEdit;: TLabel;: TGroupBox;: TGroupBox;: TXPManifest;: TDataSource;: TTable;: TMenuItem;: TEdit;: TLabel;: TLabel;: TDBGrid;: TTable;: TDataSource;: TImage;: TLabel;: TBitBtn;: TBitBtn;: TMenuItem;: TMenuItem;: TMenuItem;: TBitBtn;: TDBGrid; : TDBGrid;: TDBGrid;: TDataSource;: TDataSource;: TTable;: TTable;: TMemo; N2Click (Sender: TObject); N3Click (Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn2Click (Sender: TObject); N6Click (Sender: TObject); BitBtn4Click (Sender: TObject); DBGrid1KeyUp (Sender: TObject; var Key: Word;: TShiftState); DBGrid2KeyUp (Sender: TObject; var Key: Word;: TShiftState); DBGrid2MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); DBGrid1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); FormCreate (Sender: TObject); N7Click (Sender : TObject);

{Private declarations}

{Public declarations};: TForm1; Spravochniki, Zastavka, oproge, client, server;

{$ R *. dfm} TForm1.N2Click (Sender: TObject);

if MessageDlg ('Âû äåéñòâèòåëüíî õîòèòå âûéòè èç ïðîãðàììû?', mtConfirmation, [mbYes, mbNo], 0) = mrYes

...