Click (Column: TColumn); Image1Click ( Sender: TObject); Image2Click (Sender: TObject); Image3Click (Sender: TObject); RadioGroup1Click (Sender: TObject); FormPaint (Sender: TObject); N3Click (Sender: TObject); FormMouseDown (Sender: TObject; Button: TMouseButton; : TShiftState; X, Y: Integer); N4Click (Sender: TObject); O: short; K: short; KK: short; t: integer;
{Private declarations}
{Public declarations};: TOplata; Unit1;
{$ R *. dfm} TOplata.N1Click (Sender: TObject);. Show;; TOplata.N2Click (Sender: TObject);. Close;; TOplata.FormCreate (Sender: TObject); . BorderStyle: = bsToolWindow;; TOplata.DBGrid1CellClick (Column: TColumn);: = Table1.fields [0]. value;; TOplata.Image1Click (Sender: TObject);. FindKey ([K]);. Delete;. Close ;. Open;; TOplata.Image2Click (Sender: TObject);. Refresh;; TOplata.RadioGroup1Click (Sender: TObject);. Filtered: = true; RadioGroup1.ItemIndex
: Table1.Filtered: = false;
: Table1.Filter: = 'Name_b =' + QuotedStr (Edit1.text);
: Table1.Filter: = 'Nomer_s =' + QuotedStr (Edit1.text);; end; TOplata.FormPaint (Sender: TObject);, Sheet, Colum: Variant;, i: integer;
// Uses модуль to table1.RecordCount-1 end; TOplata.FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);; (WM_SYSCOMMAND, SC_MOVE +2, 0);; TOplata.N4Click (Sender: TObject);. WindowState: = wsMinimized ;; end.
Форма 5 - ПоставщікіUnit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, Mask,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj; = class (TForm): TDBGrid;: TTable;: TDataSource;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit; : TDBEdit;: TDBEdit;: TMainMenu;: TMenuItem;: TMenuItem;: TEdit;: TRadioGroup;: TImage;: TImage;: TImage;: TLabel;: TMenuItem;: TMenuItem;: TXPManifest; Button2Click (Sender: TObject); Button3Click (Sender: TObject); 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};: TPostav; Unit1;
{$ R *. dfm} TPostav.Button2Click (Sender: TObject); not Table1.Locate ('Name_p', Edit1.text, [LoCaseInsensitive, LoPartialKey]) begin ('Не знайдено') ;. SetFocus;. AutoSelect: = true;; end; TPostav.Button3Click (Sender: TObject);. Cancel;; TPostav.N1Cl...
