t] then.dstJobs.Post;
: if DM.dstOrderParts.State in [dsEdit, dsInsert] then.dstOrderParts.Post;;;
/ / Залежно від номера Гріда, в якому знаходився курсор до натискання кнопки,
/ / виконується видалення запису до відповідного набір даних:
procedure TfmMain.bbtDelClick (Sender: TObject); GridID of
: DM.dstOrders.Delete;
: DM.dstJobs.Delete;
: DM.dstOrderParts.Delete;
end;;
/ / При клацанні по кнопці «...» в комірці «Запчастина» в DBGrid1 на екран виводиться
/ / завпчастей для вибору потрібного зі списку:
procedure TfmMain.DBGrid3EditButtonClick (Sender: TObject);. bbtGo.Visible:=True; fmParts.ShowModal=mrOK thennot (DM.dstOrderParts.State in [dsEdit, dsInsert]) then.dstOrderParts.Edit ;. dstOrderParts.FieldByName («МЦ_ID»). Value:=DM.tbParts.FieldByName(«Шифр»).Value;.dstOrderParts.FieldByName(«Цена»).Value :=DM.tbParts.FieldByName («Ціна»). Value;. BbtGo.Visible:=False;; TfmMain.DBGrid1Exit (Sender: TObject);:=1;; TfmMain.DBGrid2Exit (Sender: TObject);:= 2;; TfmMain.DBGrid3Exit (Sender: TObject);:=3;; TfmMain.bbtContractClick (Sender: TObject); _Contract;; TfmMain.bbtAppendixClick (Sender: TObject); _Appendix;; TfmMain.bbtActClick (Sender: TObject); _Act;; TfmMain.bbtBillClick (Sender: TObject); _Bill;; TfmMain.bbtFactClick (Sender: TObject); _Fact;; TfmMain.acRepMTRListExecute (Sender: TObject);, Date2: TDate;:=Date;:=Date; GetDiapason (Date1, Date2) then_MTR (Date1, Date2);; TfmMain.acRepJobsExecute (Sender: TObject);, Date2: TDate;:=Date;:=Date; GetDiapason (Date1, Date2) then_JobList (Date1, Date2);; TfmMain . acRepDefectExecute (Sender: TObject); _Defect;;. uOrgs;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask;=class (TForm): TPanel;: TBitBtn;: TPanel;: TDBGrid;: TBitBtn;: TGroupBox;: TDBEdit;: TLabel;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TDBEdit;: TLabel;: TDBMemo;: TLabel;: TLabel; : TDBEdit;: TLabel;: TDBEdit;: TBitBtn;: TBitBtn;: TBitBtn; FormShow (Sender: TObject); bbtPrintClick (Sender: TObject); DBGrid1TitleClick (Column: TColumn); bbtInsClick (Sender: TObject); bbtDelClick (Sender: TObject); bbtSaveClick (Sender: TObject); bbtExitClick (Sender: TObject);
{Private declarations}
{Public declarations};: TfmOrgs; uDM, uRep, ADODB, DB;
{$ R *. dfm} TfmOrgs.FormShow (Sender: TObject);. tbOrgs.Open;; TfmOrgs.bbtPrintClick (Sender: TObject); _Universal (DBGrid1, 7, «Організації-замовники» ;);
end;
/ / Сортування даних у таблиці за обраним колонки:
procedure TfmOrgs.DBGrid1TitleClick (Column: TColumn);
(DBGrid1.DataSource.DataSet as TADOTable). Sort:=Column.FieldName;. MessageBox («Сортування по даному полю неможлива», «Інформація», MB_OK + MB_ICONINFORMATION);; TfmOrgs. bbtInsClick (Sender: TObject);. tbOrgs.Insert;; TfmOrgs.bbtDelClick (Sender: TObject);. tbOrgs.Delete;; TfmOrgs.bbtSaveClick (Sender: TObject); DM.tbOrgs.State in [dsEdit, dsInsert] then. tbOrgs.Post;; TfmOrgs.bbtExitClick (Sender: TObject);;;. uParts;, Messages, SysUtils, Varia...
