ick (Sender: TObject);. Show;; TPostav.N2Click (Sender: TObject);. Close ;; TPostav.RadioGroup1Click (Sender: TObject);. Filtered: = true; RadioGroup1.ItemIndex
: Table1.Filtered: = false;
: Table1.Filter: = 'Name_p =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Inn =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Adres_p =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Tel_p =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Ruck =' + QuotedStr (Edit1.text);; end; TPostav.Image1Click (Sender: TObject);. FindKey ([nz]);. Delete,. Close;. Open;; TPostav.Image5Click (Sender: TObject),. Refresh;; TPostav.DBGrid1CellClick (Column: TColumn);: = Table1.fields [0 ]. value;; TPostav.FormCreate (Sender: TObject);. BorderStyle: = bsToolWindow;; TPostav.FormPaint (Sender: TObject);: TBitMap;: = TBitMap.Create;. Loadfromfile ('6. bmp ');. Canvas.Dr aw (0,0, bm);; TPostav.N3Click (Sender: TObject);, Sheet, Colum: Variant;, i: integer;
// Uses модуль to table1.RecordCount-1 end; TPostav.FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);; (WM_SYSCOMMAND, SC_MOVE +2, 0);; TPostav.N4Click (Sender: TObject);. WindowState: = wsMinimized ; end; end.
Форма 6 - ЗаказUnit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,, ComCtrls, jpeg, RpCon, RpConDS, RpDefine, RpRave, XPMan, ComObj; = class (TForm): TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TQuery;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; : TLabel;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TDataSource;: TDBGrid; _postav: TTable; _zakaz: TTable; _klient: TTable;: TDataSource;: TDBGrid; _mebel: TTable;: TDataSource;: TDBGrid; _oplata: TTable;: TDataSource;: TDBGrid;: TButton;: TButton;: TButton;: TButton;: TDateTimePicker;: TDateTimePicker;: TMenuItem ;: TMenuItem;: TXPManifest; _id: TSmallintField; _zakaza: TDateField; _ispol: TDateField; _id: TSmallintField; _id: TSmallintField; _id: TSmallintField; _id: TSmallintField; _p: TStringField;: TStringField; _m: TStringField; _b: TStringField; _s: TStringField;: TStringField; _zakazZakaz_id: TSmallintField; _zakazData_zakaza: TDateField; _zakazData_ispol: TDateField; _zakazPostav_id: TSmallintField; _zakazKlient_id: TSmallintField; _zakazMeb_id: TSmallintField; _zakazOplata_id: TSmallintField; N1Click (Sender: TObject); N2Click (Sender: TObject); FormCreate (Sender: TObject); DBGrid1CellClick (Column: TColumn); DBGpostavCellClick (Column: TColumn); Edit2MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); FormMouseDown (Sender: TObject; Button: TMouseButton; : TShiftState; X, Y: Integer); DBGklientCel...
