DataUnit.dfm

object DM1: TDM1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 446
  Width = 704
  object FDConnection1: TFDConnection
    Params.Strings = (
      'Database=E:\WZGL\WZGLK.db'
      'DriverID=SQLite')
    Connected = True
    Left = 40
    Top = 24
  end
  object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
    Left = 160
    Top = 24
  end
  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
    Provider = 'Forms'
    Left = 280
    Top = 24
  end
  object FDQuery1: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT * FROM '#20837#24211#34920)
    Left = 40
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = FDQuery1
    Left = 40
    Top = 216
  end
  object FDQuery2: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT * FROM '#21697#21517#34920)
    Left = 160
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = FDQuery2
    Left = 160
    Top = 216
  end
  object FDQuery3: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT * FROM '#20986#24211#34920)
    Left = 280
    Top = 120
  end
  object DataSource3: TDataSource
    DataSet = FDQuery3
    Left = 280
    Top = 216
  end
  object FDQuery5: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT * FROM '#20154#21592#34920)
    Left = 512
    Top = 120
  end
  object DataSource5: TDataSource
    DataSet = FDQuery5
    Left = 512
    Top = 216
  end
  object FDQuery6: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT * FROM '#20154#21592#34920' GROUP BY '#25152#22312#37096#38376#65288#29677#32452#65289' ORDER BY '#24207#21495)
    Left = 624
    Top = 120
  end
  object DataSource6: TDataSource
    DataSet = FDQuery6
    Left = 624
    Top = 216
  end
  object FDQuery4: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT * FROM '#24211#23384#34920)
    Left = 400
    Top = 120
  end
  object DataSource4: TDataSource
    DataSet = FDQuery4
    Left = 400
    Top = 216
  end
  object FDQuery7: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      
        'SELECT '#24207#21495','#21697#21517','#25968#37327','#20837#24211#26085#26399',(case when julianday('#20837#24211#26085#26399') + '#20445#36136#26399#65288#22825#65289' <= juli' +
        'anday('#39'now'#39') then '#39#24050#36807#26399#39' else '#39#26410#36807#26399#39' end ) as '#36807#26399#25552#31034' FROM '#24211#23384#34920)
    Left = 40
    Top = 296
  end
  object DataSource7: TDataSource
    DataSet = FDQuery7
    Left = 40
    Top = 392
  end
  object FDQuery8: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'SELECT '#24207#21495','
      '       '#21697#21517','
      '       '#25968#37327','
      '       Max('#20986#24211#26085#26399') AS '#26368#36817#21457#25918','
      
        '       (CASE WHEN julianday('#20986#24211#26085#26399') + '#25968#37327' / CASE WHEN '#21697#21517' = '#39#19968#27425#24615#21475#32617#39' ' +
        'THEN ('
      
        '                                                 SELECT count( *' +
        ' ) '
      '                                                   FROM '#20154#21592#34920
      
        '                                                  WHERE '#25152#22312#37096#38376#65288#29677#32452#65289 +
        ' = '#20986#24211#34920'.'#25152#22312#37096#38376#65288#29677#32452#65289
      '                                             )'
      
        '                                         ELSE 1 END * '#20351#29992#21608#26399#65288#22825#65289' <=' +
        ' julianday('#39'now'#39') THEN '#39#24050#21040#26399#39' ELSE '#39#26410#21040#26399#39' END) AS '#21040#26399#25552#31034','
      '       '#39046#21462#20154','
      '       '#25152#22312#37096#38376#65288#29677#32452#65289','
      '       ('
      '           SELECT count( * ) '
      '             FROM '#20154#21592#34920
      '            WHERE '#25152#22312#37096#38376#65288#29677#32452#65289' = '#20986#24211#34920'.'#25152#22312#37096#38376#65288#29677#32452#65289
      '       )'
      '       AS '#20154#25968','
      '       '#20351#29992#21608#26399#65288#22825#65289
      '  FROM '#20986#24211#34920
      ' WHERE ifnull('#21457#25918#29702#30001','#39#39') = '#39#39
      ' GROUP BY '#25152#22312#37096#38376#65288#29677#32452#65289','
      '          '#21697#21517
      ' ORDER BY '#25152#22312#37096#38376#65288#29677#32452#65289','
      '          '#21697#21517)
    Left = 152
    Top = 296
  end
  object DataSource8: TDataSource
    DataSet = FDQuery8
    Left = 152
    Top = 392
  end
  object SaveDialog1: TSaveDialog
    Left = 504
    Top = 344
  end
end