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

then close;; TForm1.N3Click (Sender: TObject);. show;; TForm1.BitBtn1Click (Sender: TObject); not Table1.Locate ('Tema', Edit1.Text, []) then sage ('Çàïèñü íå íàéäåíà');

end; TForm1.BitBtn3Click (Sender: TObject);. ShowModal;; TForm1.BitBtn2Click (Sender: TObject);

if MessageDlg ('Óäàëèòü òåêóùóþ çàïèñü?', , [mbYes, mbNo], 0) = mrYes then.Delete;;

if MessageDlg ('Óäàëèòü òåêóùóþ çàïèñü?', , [mbYes, mbNo], 0) = mrYes then.Delete;;; TForm1.N6Click (Sender: TObject );. show;; TForm1.BitBtn4Click (Sender: TObject);. ShowModal;; TForm1.DBGrid1KeyUp (Sender: TObject; var Key: Word;: TShiftState);. Edit2.Text: = DBGrid1.Fields [3]. AsString ;; TForm1.DBGrid2KeyUp (Sender: TObject; var Key: Word;: TShiftState);. Edit2.Text: = DBGrid2.Fields [3]. AsString;; TForm1.DBGrid2MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Edit2.Text: = DBGrid2.Fields [3]. AsString;; TForm1.DBGrid1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Edit2.Text: = DBGrid1.Fields [3]. AsString;; TForm1.FormCreate (Sender: TObject);

// var R: TRect;

{R.Left: = 0;. Top: = 0;. Right: = Screen.Width-150;. Bottom: = Screen.Height; (SPI_SETWORKAREA, 1, @ R, SPIF_SENDCHANGE) ;. Left: = Screen.Width-150;}; TForm1.N7Click (Sender: TObject); (Form1.Handle, 'C: Users Hip Hop Desktop Electronic document circulation HELP.HLP', HELP_CONTEXT, 1 ); end;.

// СправочнікіSpravochniki;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Buttons,, DB, DBTables; = class ( TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TImage;: TBitBtn;: TDataSource;: TDataSource;: TDataSource; : TDataSource;: TDataSource;: TTable;: TTable;: TTable;: TTable;: TTable; BitBtn1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;

{$ R *. dfm} TForm2.BitBtn1Click (Sender: TObject);

if MessageDlg ('Âûéòè íà ãëàâíóþ ñòðàíèöó?', mtConfirmation, [mbYes, mbNo], 0) = mrYes

then close;;.

// Про программеoproge; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,, ExtCtrls, jpeg; = class (TForm): TPanel;: TLabel;: TLabel;: TLabel;: TButton;: TBevel;: TLabel;: TLabel;: TLabel;: TImage; OKButtonClick (Sender: TObject);

{Private declarations}

{Public declarations};: TAboutBox;

Назад | сторінка 11 з 15 | Наступна сторінка