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 end