nts, Classes, Graphics, Controls, Forms,, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;=class ( TForm): TDBGrid;: TPanel;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TPanel;: TDBLookupComboBox;: TCheckBox;: TGroupBox;: TEdit; bbtPrintClick (Sender: TObject); bbtExitClick ( Sender: TObject); bbtInsClick (Sender: TObject); bbtDelClick (Sender: TObject); bbtSaveClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); CheckBox1Click (Sender: TObject); FormCreate (Sender: TObject ); FormShow (Sender: TObject); edNameChange (Sender: TObject);
{Private declarations}
{Public declarations};: TfmParts; uDM, uRep, ADODB, DB, uCateg;
{$ R *. dfm} TfmParts.bbtPrintClick (Sender: TObject); CheckBox1.Checked then_Universal (DBGrid1, 7, dblcbGroup.Text + «на складі») _Universal (DBGrid1, 7, « ; МТР на складі »);; TfmParts.bbtExitClick (Sender: TObject);;; TfmParts.bbtInsClick (Sender: TObject);. tbParts.Insert;; TfmParts.bbtDelClick (Sender: TObject);. tbParts.Delete;; TfmParts . bbtSaveClick (Sender: TObject); DM.tbParts.State in [dsEdit, dsInsert] then.tbParts.Post;; TfmParts.FormClose (Sender: TObject; var Action: TCloseAction);
begin
/ / Набір даних закривається, якщо він не використовується в інших формах:
if not fmCateg.Showing then.tbCateg.Close;
end;
/ / Залежно від стану прапорця виконується відбір запчастин за обраним видом МТР:
procedure TfmParts.CheckBox1Click (Sender: TObject); CheckBox1.Checked then.tbCateg.Open;. Columns [6]. Visible:=False;// Ховається поле виду МТР.tbCateg.Close;. Columns [6]. Visible:=True;// Відображається поле виду МТР;. TbParts.Requery ([]);; TfmParts.FormCreate (Sender: TObject);. TbCateg.Open;. TbCateg.Sort:=«Група»;. TbCateg.First;. TbParts. Open;. tbParts.Sort:=«ГруппаID, Найменування»;. KeyValue:=DM.tbCateg.FieldByName («ID»). Value;; TfmParts.FormShow (Sender: TObject); Click (Self);;
/ / Пошук МТР по найменуванню: TfmParts.edNameChange (Sender: TObject);. tbParts.Locate («Найменування», edName.Text, [loPartialKey, loCaseInsensitive]);;. uPersonal;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;=class (TForm): TDBGrid;: TPanel;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn; : TBitBtn; FormShow (Sender: TObject); DBGrid1TitleClick (Column: TColumn); bbtPrintClick (Sender: TObject); bbtExitClick (Sender: TObject); bbtInsClick (Sender: TObject); bbtDelClick (Sender: TObject); bbtSaveClick (Sender: TObject );
{Private declarations}
{Public declarations};: TfmPersonal; uDM, uRep, ADODB, DB;
{$ R *. dfm} TfmPersonal.FormShow (Sender: TObject);. tbPersonal.Open;;
/ / Сортування даних у таблиці за обраним колонки:
procedure TfmPersonal.DBGrid1TitleClick (Column: TColumn);
(DBGrid1.DataSource.DataSet as TADOTable). Sort:=Column.FieldName;. MessageBox («Сортування по даному полю неможлива», «Інформація», MB_OK + MB_ICONINFORMATION); ; TfmPersonal.bbtPrintClick (Sender: TObject); _Universal (DBGrid1, 3, «Відповідальні особи»);; TfmPersonal.bbtExitClick (Sender: TObject);;; TfmPersonal.bbtI...