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

); (p);;;;. Connection.Disconnect;. Lines.Add (TimeToStr (now) + '-' + DateToSt r (now) + '| |' + 'ôàéë ïîñëàí êëèåíòó');

// ShowMessage ('Ïîñëàíî');

end; TForm5.Memo1Enter (Sender: TObject);. SetFocus; end; TForm5.Button1Click (Sender: TObject);. DefaultPort: = StrToInt (LabeledEdit2.Text);. active: = true; idTCPServer1.active = true | | Application.MessageBox, MB_OK + MB_ICONEXCLAMATION); elseidTCPServer1.active = false then

Application.MessageBox ('Îøèáêà', 'Ñåðâåð íå çàïóùåí', MB_OK + MB_ICONERROR); . Lines.Add (TimeToStr (now) + '-' + DateToStr (now) + ';; TForm5.Button3Click (Sender: TObject); opendialog1.Execute then put: = opendialog1.Files.Strings [0];: = put;

// memo2.Lines.add (put);; TForm5.FormCreate (Sender: TObject; var Key: Char); Key of

'0 '.. '9':;: = chr (0);;; TForm5.LabeledEdit1KeyPress (Sender: TObject; var Key: Char); Key of

'0 '.. '9':;

# 46:;

# 8:;: = chr (0);;; TForm5.BitBtn1Click (Sender: TObject);. DefaultPort: = StrToInt (LabeledEdit2.Text);

Memo2.Lines.Add (TimeToStr (now) + '-' + DateToStr (now) + '| |' + 'âûáðàí ïîðò:' + LabeledEdit2.Text);

end; TForm5.BitBtn3Click (Sender: TObject);;; TForm5.FormCloseQuery (Sender: TObject; var CanClose: Boolean); MessageDlgmtConfirmation, [mbYes, mbNo], 0) = mrYes then: = true; else: = false;

end; end.

ДОДАТОК Г

КОНТРОЛЬНИЙ ПРИКЛАД

Проект електронний документообіг створений і налагоджений, тепер можна перейти безпосередньо до демонстрації роботи програми.

При запуску програми з'являється заставка:

В 

Рисунок В.1 - Заставка

Після натискання клавіші з'являється головне вікно:

В 

Рисунок В.2 - Головне вікно програми

Програма складається з трьох пунктів меню:

. Довідники

. Довідка

Про програму

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

. Вихід

І чотирьох пунктів головного вікна програми:

Відправити дані

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

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

Пошук

Розберемо запропоновані пункти меню більш докладно. Зайдемо в пункт меню Довідники (відбувається ...