object db: Tdb
  OldCreateOrder = False
  Height = 654
  Width = 1042
  object sdsMlekara: TSQLDataSet
    CommandText = 
      'select id,temperatura,(temperatura / 20) as temper,'#13#10'DATE_FORMAT' +
      '(vreme,'#39'%H:%i:%s'#39') as vreme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraad' +
      'min.mlekara ORDER BY vreme1 DESC LIMIT 20'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 40
    Top = 16
    object sdsMlekaraid: TIntegerField
      FieldName = 'id'
    end
    object sdsMlekaratemperatura: TIntegerField
      FieldName = 'temperatura'
    end
    object sdsMlekaravreme: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object sdsMlekaratemper: TFMTBCDField
      FieldName = 'temper'
      Precision = 16
      Size = 4
    end
  end
  object dspMlekara: TDataSetProvider
    DataSet = sdsMlekara
    Left = 128
    Top = 16
  end
  object cdsMlekara: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMlekara'
    Left = 216
    Top = 16
    object cdsMlekaraid: TIntegerField
      FieldName = 'id'
    end
    object cdsMlekaratemperatura: TIntegerField
      FieldName = 'temperatura'
    end
    object cdsMlekaravreme: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object cdsMlekaratemper: TFMTBCDField
      FieldName = 'temper'
      Precision = 16
      Size = 4
    end
  end
  object dsMlekara: TDataSource
    DataSet = cdsMlekara
    Left = 304
    Top = 16
  end
  object Timer1: TTimer
    Interval = 5000
    OnTimer = Timer1Timer
    Left = 392
    Top = 16
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 
      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
      ' 1'#13#10'ORDER BY vreme1 DESC LIMIT 7'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 24
    Top = 112
    object IntegerField1: TIntegerField
      FieldName = 'id'
    end
    object StringField1: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object SQLDataSet1C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Left = 112
    Top = 112
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 200
    Top = 112
    object IntegerField3: TIntegerField
      FieldName = 'id'
    end
    object StringField2: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object ClientDataSet1C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 288
    Top = 112
  end
  object SQLDataSet2: TSQLDataSet
    CommandText = 
      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
      ' 2'#13#10'ORDER BY vreme1 DESC LIMIT 7'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 32
    Top = 192
    object IntegerField5: TIntegerField
      FieldName = 'id'
    end
    object StringField3: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object SQLDataSet2C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = SQLDataSet2
    Left = 120
    Top = 192
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    Left = 208
    Top = 192
    object IntegerField7: TIntegerField
      FieldName = 'id'
    end
    object StringField4: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object ClientDataSet2C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 296
    Top = 192
  end
  object SQLDataSet3: TSQLDataSet
    CommandText = 
      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
      ' 3'#13#10'ORDER BY vreme1 DESC LIMIT 7'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 24
    Top = 280
    object IntegerField9: TIntegerField
      FieldName = 'id'
    end
    object StringField5: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object SQLDataSet3C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSetProvider3: TDataSetProvider
    DataSet = SQLDataSet3
    Left = 112
    Top = 280
  end
  object ClientDataSet3: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider3'
    Left = 200
    Top = 280
    object IntegerField11: TIntegerField
      FieldName = 'id'
    end
    object StringField6: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object ClientDataSet3C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSource3: TDataSource
    DataSet = ClientDataSet3
    Left = 288
    Top = 280
  end
  object SQLDataSet4: TSQLDataSet
    CommandText = 
      'select id,temperatura as C,'#13#10'DATE_FORMAT(vreme,'#39'%H:%i:%s'#39') as vr' +
      'eme,'#13#10'vreme as vreme1 '#13#10'from c0mlekaraadmin.mlekara '#13#10'where id =' +
      ' 4'#13#10'ORDER BY vreme1 DESC LIMIT 7'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 24
    Top = 368
    object IntegerField13: TIntegerField
      FieldName = 'id'
    end
    object StringField7: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object SQLDataSet4C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSetProvider4: TDataSetProvider
    DataSet = SQLDataSet4
    Left = 112
    Top = 368
  end
  object ClientDataSet4: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider4'
    Left = 200
    Top = 368
    object IntegerField15: TIntegerField
      FieldName = 'id'
    end
    object StringField8: TStringField
      FieldName = 'vreme'
      Size = 13
    end
    object ClientDataSet4C: TIntegerField
      FieldName = 'C'
    end
  end
  object DataSource4: TDataSource
    DataSet = ClientDataSet4
    Left = 288
    Top = 368
  end
  object Timer2: TTimer
    Interval = 3000
    OnTimer = Timer2Timer
    Left = 384
    Top = 240
  end
  object sdsArtikli: TSQLDataSet
    CommandText = 'select *'#13#10'from Artikli'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 520
    Top = 32
    object sdsArtikliidArtikli: TIntegerField
      FieldName = 'idArtikli'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sdsArtikliArtikal: TStringField
      FieldName = 'Artikal'
      Size = 100
    end
    object sdsArtikliKolicina: TSingleField
      FieldName = 'Kolicina'
    end
    object sdsArtikliod: TSQLTimeStampField
      FieldName = 'od'
    end
    object sdsArtiklido: TSQLTimeStampField
      FieldName = 'do'
    end
    object sdsArtikliid_uredjaja: TIntegerField
      FieldName = 'id_uredjaja'
    end
  end
  object dspArtikli: TDataSetProvider
    DataSet = sdsArtikli
    OnGetTableName = dspArtikliGetTableName
    Left = 608
    Top = 32
  end
  object cdsArtikli: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspArtikli'
    AfterPost = cdsArtikliAfterPost
    Left = 696
    Top = 32
    object cdsArtikliidArtikli: TIntegerField
      FieldName = 'idArtikli'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsArtikliArtikal: TStringField
      FieldName = 'Artikal'
      Size = 100
    end
    object cdsArtikliKolicina: TSingleField
      FieldName = 'Kolicina'
    end
    object cdsArtikliod: TSQLTimeStampField
      FieldName = 'od'
    end
    object cdsArtiklido: TSQLTimeStampField
      FieldName = 'do'
    end
    object cdsArtikliid_uredjaja: TIntegerField
      FieldName = 'id_uredjaja'
    end
  end
  object dsArtikli: TDataSource
    DataSet = cdsArtikli
    Left = 784
    Top = 32
  end
  object sdsUredjaj: TSQLDataSet
    CommandText = 'SELECT id FROM c0mlekaraadmin.mlekara group by 1'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DataModule1.mysql
    Left = 520
    Top = 152
    object sdsUredjajid: TIntegerField
      FieldName = 'id'
    end
  end
  object dspUredjaj: TDataSetProvider
    DataSet = sdsUredjaj
    OnGetTableName = dspArtikliGetTableName
    Left = 608
    Top = 152
  end
  object cdsUredjaj: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUredjaj'
    AfterPost = cdsArtikliAfterPost
    Left = 696
    Top = 152
    object cdsUredjajid: TIntegerField
      FieldName = 'id'
    end
  end
  object dsUredjaj: TDataSource
    DataSet = cdsUredjaj
    Left = 784
    Top = 152
  end
end
