- МебельUnit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus,, Mask, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj; = class (TForm): TDBGrid;: TTable;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit; : TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TRadioGroup;: TEdit;: TImage;: 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; nz: short; t: integer;
{Private declarations}
{Public declarations};: TMebel; Unit1;
{$ R *. dfm} TMebel.N1Click (Sender: TObject);. Show;; TMebel.N2Click (Sender: TObject);. Close;; TMebel.RadioGroup1Click (Sender: TObject); . Filtered: = true; RadioGroup1.ItemIndex
: Table1.Filtered: = false;
: Table1.Filter: = 'Name_m =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Srok =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Cvet =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Ves =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Material =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Cena =' + QuotedStr (Edit1.text);; end; TMebel.Image1Click (Sender: TObject);. FindKey ([nz]);. Delete;. Close;. Open;; TMebel.Image5Click (Sender: TObject);. Refresh;; TMebel.DBGrid1CellClick (Column: TColumn);: = Table1.fields [0 ]. value;; TMebel.FormCreate (Sender: TObject);. BorderStyle: = bsToolWindow;; TMebel.FormPaint (Sender: TObject);, Sheet, Colum: Variant;, i: integer;
// Uses модуль to table1.RecordCount-1 end; TMebel.FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);; (WM_SYSCOMMAND, SC_MOVE +2, 0);; TMebel.N4Click (Sender: TObject);. WindowState: = wsMinimized ;; end.
Форма 4 - Тип оплати
unit Unit5;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj; = class (TForm): TTable;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TImage;: TImage;: TImage;: TRadioGroup;: TEdit;: TLabel;: TMenuItem;: TMenuItem;:...
