TColumn); Edit3MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); DBGmebelCellClick (Column: TColumn); Edit4MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); DBGoplataCellClick (Column: TColumn); Edit5MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); RadioGroup1Click (Sender: TObject); Button1Click ( Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); FormPaint (Sender: TObject); DateTimePicker1Click (Sender: TObject); DateTimePicker2Click (Sender: TObject); N3Click (Sender : TObject); N4Click (Sender: TObject);, n, postav, oplata, meb, klient: short; a: integer; t: integer;
{Private declarations}
{Public declarations};: TZakaz; Unit1, Unit3, Unit5;
{$ R *. dfm} TZakaz.N1Click (Sender: TObject);. Show;; TZakaz.N2Click (Sender: TObject);. Close;; TZakaz.FormCreate (Sender: TObject); . BorderStyle: = bsToolWindow;
// edit0.Text: = datetostr (date);
: Qzakaz.Filtered: = false;
: Qzakaz.Filter: = 'name_p =' + QuotedStr (Edit22.text);
: Qzakaz.Filter: = 'fam =' + QuotedStr (Edit22.text);
: Qzakaz.Filter: = 'name_m =' + QuotedStr (Edit22.text);
: Qzakaz.Filter: = 'name_b =' + QuotedStr (Edit22.text);
: Qzakaz.Filter: = 'nomer_s =' + QuotedStr (Edit22.text);
: Qzakaz.Filter: = 'cena =' + QuotedStr (Edit22.text);; end; TZakaz.Button1Click (Sender: TObject);: = 2;
// edit0.Text: = qzakaz.Fields [1]. Value;
...