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

rderStyle: = bsToolWindow;; TGlavn.FormPaint (Sender: TObject); (Glavn.Handle, 'help.hlp', HELP_CONTEXT, 1);; TGlavn.FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);; (WM_SYSCOMMAND, SC_MOVE +2, 0);; TGlavn.N8Click (Sender: TObject);. WindowState: = wsMinimized;; end.

Форма 2 - КліентиUnit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Menus, StdCtrls,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj; = class (TForm): TTable;: TDBGrid;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; : TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TRadioGroup;: TEdit;: TImage;: TDBEdit;: TImage;: TImage;: TLabel;: TMenuItem;: TMenuItem;: TXPManifest; N1Click (Sender: TObject); N2Click (Sender: TObject); RadioGroup1Click (Sender: TObject); Image1Click (Sender: TObject); Image4Click (Sender: TObject); Image5Click (Sender: TObject); DBGrid1CellClick (Column: TColumn); FormCreate (Sender: TObject); FormPaint ( Sender: TObject); N3Click (Sender: TObject); FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); N4Click (Sender: TObject);: short; t: integer; nz: short;

{Private declarations}

{Public declarations};: TKlient; Unit1;

{$ R *. dfm} TKlient.N1Click (Sender: TObject);. Show;; TKlient.N2Click (Sender: TObject);. Close;; TKlient.RadioGroup1Click (Sender: TObject); . Filtered: = true; RadioGroup1.ItemIndex

: Table1.Filtered: = false;

: Table1.Filter: = 'Fam =' + QuotedStr (Edit1.text);

: Table1.Filter: = 'Im =' + QuotedStr (Edit1.text);

: Table1.Filter: = 'Otch =' + QuotedStr (Edit1.text);

: Table1.Filter: = 'Adres_k =' + QuotedStr (Edit1.text);

: Table1.Filter: = 'Tel_k =' + QuotedStr (Edit1.text);; end; TKlient.Image1Click (Sender: TObject);. Last;: = Table1.Fields [0]. Value +1;. Insert;. Append;. Fields [0]. Value: = R;; TKlient.Image4Click (Sender: TObject);. FindKey ([nz]);. Delete;. Close;. Open;; TKlient . Image5Click (Sender: TObject);. Refresh;; TKlient.DBGrid1CellClick (Column: TColumn);: = Table1.fields [0]. value;; TKlient.FormCreate (Sender: TObject);. BorderStyle: = bsToolWindow;; TKlient . FormPaint (Sender: TObject);, Sheet, Colum: Variant;, i: integer;

// Uses модуль to table1.RecordCount-1 end; TKlient.FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);; (WM_SYSCOMMAND, SC_MOVE +2, 0);; TKlient.N4Click (Sender: TObject);. WindowState: = wsMinimized ;; end.

Форма 3 - МебельUnit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, D...