object DataModule3: TDataModule3
  OldCreateOrder = False
  Left = 641
  Top = 106
  Height = 878
  Width = 389
  object DataSource2: TDataSource
    DataSet = ADOTable5
    Left = 88
    Top = 96
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select idcust as '#39#1053#1086#1084#1077#1088#39',  Name as '#39#1048#1084#1103#39', lmane as '#39#1060#1072#1084#1080#1083#1080#1103#39', ph' +
        'one as '#39#1090#1077#1083#1077#1092#1086#1085#39', phone2 as '#39#1044#1086#1087'.'#1090#1077#1083#1077#1092#1086#1085#39
      'from customer'
      ' ')
    Left = 160
    Top = 24
    object ADOQuery1DSDesigner: TAutoIncField
      DisplayWidth = 9
      FieldName = #1053#1086#1084#1077#1088
      ReadOnly = True
    end
    object ADOQuery1DSDesigner2: TWideStringField
      DisplayWidth = 18
      FieldName = #1048#1084#1103
      FixedChar = True
      Size = 15
    end
    object ADOQuery1DSDesigner3: TWideStringField
      DisplayWidth = 18
      FieldName = #1060#1072#1084#1080#1083#1080#1103
      FixedChar = True
      Size = 15
    end
    object ADOQuery1DSDesigner4: TWideStringField
      DisplayWidth = 13
      FieldName = #1090#1077#1083#1077#1092#1086#1085
      FixedChar = True
      Size = 11
    end
    object ADOQuery1DSDesigner5: TWideStringField
      DisplayWidth = 14
      FieldName = #1044#1086#1087'.'#1090#1077#1083#1077#1092#1086#1085
      FixedChar = True
      Size = 11
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 96
    Top = 24
  end
  object DataSource3: TDataSource
    DataSet = ADOTable1
    Left = 88
    Top = 168
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery2
    Left = 80
    Top = 248
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      
        'select idcust,Firm as '#1092#1080#1088#1084#1072',number as '#1040#1088#1090#1080#1082#1091#1083', description as '#1053#1072 +
        #1080#1084#1077#1085#1086#1074#1072#1085#1080#1077', kol as '#1050#1086#1083#1080#1095#1077#1089#1090#1074#1086',cena as ['#1062#1077#1085#1072'('#1096#1090')] , Convert(char(' +
        '11),date,104) as ['#1044#1072#1090#1072']'
      'from [orderAll]'
      ''
      ''
      '')
    Left = 160
    Top = 248
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'insert into customer(Name, lmane, phone, phone2)'
      ''
      ''
      '')
    Left = 160
    Top = 312
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=C:\INTERCARDB\INTERCAR.MDF;Data Source=' +
      'HOHOTYN4IK\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate' +
      '=True;Packet Size=4096;Workstation ID=HOHOTYN4IK;Use Encryption ' +
      'for Data=False;Tag with column collation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 24
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      
        'insert into [orderAll] (idcust, firm,number,description,kol,cena' +
        ',Date)'
      ''
      '')
    Left = 160
    Top = 432
  end
  object DataSource5: TDataSource
    DataSet = ADOTable2
    Left = 96
    Top = 488
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'idcust'
    MasterFields = 'Idcust'
    MasterSource = DataSource10
    TableName = 'orderNow'
    Left = 24
    Top = 488
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    Left = 152
    Top = 544
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'idcust'
    MasterFields = #1053#1086#1084#1077#1088
    MasterSource = DataSource1
    TableName = 'orderAll'
    Left = 16
    Top = 168
  end
  object ADOQuery6: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(cena*Kol) as ['#1057#1091#1084#1084#1072' '#1079#1072' '#1087#1088#1086#1084#1077#1078#1091#1090#1086#1082']'
      'from orderAll'
      ' ')
    Left = 152
    Top = 608
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery6
    Left = 80
    Top = 608
  end
  object DataSource7: TDataSource
    DataSet = ADOQuery7
    Left = 80
    Top = 664
  end
  object ADOQuery7: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(Kol*Cena) as ['#1057#1091#1084#1084#1072' '#1079#1072#1082#1072#1079#1072']'
      'from orderNow')
    Left = 152
    Top = 664
  end
  object ADOTable4: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'IP'
    Left = 16
    Top = 800
  end
  object ADOQuery8: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select c.name, c.lmane, n.firm, n.number, n.description, n.Kol, ' +
        'n.cena'
      'from customer c join ordernow n '
      'on n.idcust=c.idcust')
    Left = 296
    Top = 488
  end
  object DataSource9: TDataSource
    DataSet = ADOQuery8
    Left = 224
    Top = 488
  end
  object ADOQuery9: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'delete from ordernow')
    Left = 304
    Top = 800
  end
  object ADOTable5: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'idCust'
    MasterFields = #1053#1086#1084#1077#1088
    MasterSource = DataSource1
    TableName = 'Auto'
    Left = 16
    Top = 96
  end
  object ADOQuery10: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource2
    Parameters = <>
    SQL.Strings = (
      'delete from auto'
      ' '
      ' ')
    Left = 160
    Top = 96
  end
  object ADOQuery11: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource2
    Parameters = <>
    SQL.Strings = (
      'insert into auto(model,vin,dvs,kpp,idcust)'
      ''
      ''
      '')
    Left = 160
    Top = 376
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'customer'
    Left = 16
    Top = 736
  end
  object DataSource8: TDataSource
    DataSet = ADOTable3
    Left = 88
    Top = 736
  end
  object ADOTable6: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'idCust'
    MasterFields = 'Idcust'
    MasterSource = DataSource8
    TableName = 'Auto'
    Left = 240
    Top = 176
  end
  object DataSource10: TDataSource
    DataSet = ADOTable6
    Left = 312
    Top = 176
  end
end
