unit Unit2;

interface

uses
  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;

type
  TDM = class(TDataModule)
    Conn: TADOConnection;
    tUsers: TADOTable;
    tUsersid: TAutoIncField;
    tUserslogin: TWideStringField;
    tUsersname: TWideStringField;
    tUserspassword: TWideStringField;
    tUsersrights: TSmallintField;
    tFixPrice: TADOTable;
    tDevType: TADOTable;
    tDevTypeid: TAutoIncField;
    tDevTypename: TWideStringField;
    tBrand: TADOTable;
    tBrandid: TAutoIncField;
    tBrandname: TWideStringField;
    tClient: TADOTable;
    tClientid: TAutoIncField;
    tClientname: TWideStringField;
    tClientaddress: TWideStringField;
    tClientphone: TWideStringField;
    tClientphone2: TWideStringField;
    tClientcomment: TWideMemoField;
    tConfig: TADOTable;
    tConfigid: TAutoIncField;
    tConfigname: TWideStringField;
    tConfiginn: TWideStringField;
    tConfigogrn: TWideStringField;
    tConfigaddress: TWideStringField;
    tConfigphone: TWideStringField;
    tDevTypeparent_id: TIntegerField;
    tValue: TADOTable;
    qMain: TADOQuery;
    qMainid: TAutoIncField;
    qMaindate: TDateTimeField;
    qMainbrand_id: TIntegerField;
    qMaindevtype_id: TIntegerField;
    qMainstatus: TWideStringField;
    qMainclient_id: TIntegerField;
    qMainmodel: TWideStringField;
    qMainserial: TWideStringField;
    qMainuser_id: TIntegerField;
    qMaindate_end: TDateTimeField;
    qMaindefect: TWideMemoField;
    qMaincomment: TWideMemoField;
    qMainwarranty: TIntegerField;
    qMaindevtype: TWideStringField;
    qMainbrand: TWideStringField;
    qMainclient: TWideStringField;
    qMainaddress: TWideStringField;
    qMainphone: TWideStringField;
    qMainphone2: TWideStringField;
    qMainuser: TWideStringField;
    tFixPriceid: TAutoIncField;
    tFixPricedeviceType_id: TIntegerField;
    tFixPricename: TWideStringField;
    tFixPriceprice: TFloatField;
    tFixPricedescription: TWideMemoField;
    tValueid: TAutoIncField;
    tValuedeviceType_id: TIntegerField;
    tValuevendor: TWideStringField;
    tValuename: TWideStringField;
    tValueisFolder: TSmallintField;
    qStock: TADOQuery;
    qStockMove: TADOQuery;
    qStockid: TAutoIncField;
    qStockdate: TDateField;
    qStockmoveIn: TSmallintField;
    qStockmain_id: TIntegerField;
    qStockbase: TWideStringField;
    qStockcomment: TWideMemoField;
    qStockuser_id: TIntegerField;
    qStockmove_in: TWideStringField;
    qStockuser: TWideStringField;
    qRemove: TADOQuery;
    qRequest: TADOQuery;
    tFixPricedeviceType: TStringField;
    tConfigsmsApi: TWideStringField;
    qDevType: TADOQuery;
    qDevTypeid: TAutoIncField;
    qDevTypename: TWideStringField;
    qDevTypeparent_id: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.
