u_dm.~dfm

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 389
  Top = 147
  Height = 408
  Width = 479
  object img_btn: TImageList
    Left = 24
    Bitmap = {
      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000004B48490070C1C600F0C1C70067C0
      C600EEBBC40067B9C000EDB3BB0064ADA600EAA5B00062A0AA00E696A3006790
      8C00E4859300647F8C00E2778600434848000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F0C5CC0071C6CC00F1C7CD0072C6
      CA00EFC0C80067BDC400EFB8BF0065B2AA00ECABB40062A3AC00E89BA6006793
      8E00E589960064818E00E2798800617180000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F1CCD10074CFC200F2CED40072CC
      C000F3C9CE0070C4CA00EFBFC60067B8C00099004C0064A9A200E89FAB006097
      A200E68D9A0063848200E27C8B00617382000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F4D2D70074D4C800F4D4D90073D2
      C600F2CDD20011004C0099004C0067BCC400EFB5BC0064ADA600EAA4AE00619B
      A600E6909D0064868400E37E8D00627686000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F4D8DC0075DACE00F5D9DD0074D7
      CA00F3D3D70011004C00F2C8CE0070C1C800EFB9C10065B0A80099004C00619F
      A80099004C00678A8600E3808F00617786000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F6DDE00076DEE000F6DFE20075DC
      E000F4D8DC0011004C00F1CBD20011004C0099004C0011004C00ECAAB30062A1
      AA00E895A10011004C0099004C00627A8A000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F6E3E50076E4E600A5ADAD00738C
      AC00A5ADAD0056D6C600F2D0D50073C9CE00F0C0C70066B6AE00ECADB60062A4
      AE00E999A400608F8A00E4849200627B8A000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F8E8EA0046C6C6004AADFF0042AD
      EE004AA5FF0035B5A400F3D3D70072CBC000F1C3CA0066B9C000EDAFB80062A5
      A000E899A50067908C00E5879400627C8A000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F8EBED0073BDEE0052B5FF0042CE
      EE004AADFF00738CAC00F3D6DB0072CDC200F0C4CA0065BBC200EDB1B90063A8
      A200E99BA60067918E00E5889500657F8C000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F9EEEF0042A5EE0052B5FF0042CE
      EE005ACEFF0042ADEE00CECECE0074D1C600F1C6CD0070BDC400EDB2BC0064A9
      A200E99CA70060938E00E5889600637F8C000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FAF2F3001094E600FFFFFF0014CE
      EE004ACEFF0025D6EE00BDBDBD0073D1C600F1C8CE0070BEC400EDB4BC0063AA
      A400E99DA80067938E00E489970064808E000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F9F3F4001094E600FFFFFF0077FF
      EE0039B5FF0077FFEE00BDC6C60073D2C800F1C9CE0067BFC600EDB4BD0065AB
      A400E99DA8006693A000E489970064808E000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F9F4F50042ADEE0073C6FF0063BD
      EE0073C6FF0056EFEE00F4DBDF0073D2C600F1C8CF0070BFC600EDB4BD0063AA
      A400E99DA80067938E00E68A970064808E000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FAF3F40067EFEE007BBDFF0073C6
      EE0063BDFF0014CEEE00F6DBDF0073D2C800F3C9CF0067BEC400EDB4BD0063AA
      A400E99DA80067938E00E68A960064808E000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F9F0F10071F3E200EFF7FF0073BD
      EE004AADFF0046E7EE00F5D9DD0074D1C600F2C8CE0067BDC400EDB3BB0063A9
      A200E99CA70066928E00E589970063808E000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000004B48490071EEEE00F8EFF00071EC
      EC00E7EFFF0074DDE000F4D7DB0072CEC400F0C5CC0066BBC400EDB2BB0063A8
      A000EA9CA70066918E00E5889600434848000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000}
  end
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=YHQGL;Data Source=jgn'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 64
  end
  object m_clADOQry_Temp: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 128
    Top = 64
  end
  object ADOPro: TADOStoredProc
    Connection = ADOConn
    Parameters = <>
    Left = 104
    Top = 8
  end
  object ADOQ_MD: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from JG'#38376#24215)
    Left = 16
    Top = 112
  end
  object ADOQ_SQY: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from JG'#36865#27668#21592)
    Left = 80
    Top = 112
  end
  object ADOQ_SP: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 152
    Top = 112
  end
  object ADOQ_GYS: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 224
    Top = 112
  end
  object ADOQ_GP: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *,(case '#21024#38500#26631#24535' when 1 then '#39#27491#24120#39' when 0 then '#39#21024#38500#39' end) '#26159#21542#21024#38500
      ' from JG'#38050#29942#20449#24687)
    Left = 288
    Top = 112
  end
  object ADOQ_KHFL: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from JG'#23458#25143#20998#31867)
    Left = 24
    Top = 176
  end
  object ADOQ_SPYH: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 104
    Top = 176
  end
  object ADOConnBD: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\'#28082#21270#27668#31649#29702#31995#32479'\YHQGL.md' +
      'b;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 240
  end
  object ADOQ_KHXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.'#20998#31867#21517#31216',(case a.'#21024#38500#26631#24535' when 1 then '#39#27491#24120#39' when 0 then '#39#21024#38500#39 +
        ' end) '#26159#21542#21024#38500
      ' from JG'#23458#25143#20449#24687' a,JG'#23458#25143#20998#31867' b where'
      ' (a.'#38376#24215#32534#21495'=b.'#38376#24215#32534#21495')and(a.'#20998#31867#32534#21495'=b.'#20998#31867#32534#21495')')
    Left = 176
    Top = 176
  end
  object ADOQ_KHXSYQ: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from JG'#23458#25143#32570#30465#29992#27668' ')
    Left = 264
    Top = 176
  end
  object ADOQ_JGDHCB: TADOQuery
    Active = True
    Connection = ADOConnBD
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM JG'#20986#24211#21333)
    Left = 24
    Top = 296
  end
  object m_clADOQryDB_Temp: TADOQuery
    Connection = ADOConnBD
    Parameters = <>
    Left = 120
    Top = 296
  end
  object ADOQ_CZXSD: TADOQuery
    Active = True
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select b.'#38376#24215#21517#31216',a.*,(case a.'#21024#38500#26631#24535' when 1 then '#39#27491#24120#39' when 0 then '#39#21024#38500#39 +
        ' end) '#26159#21542#21024#38500'  FROM JG'#35746#36135#21333#20027#34920' a,JG'#38376#24215' b where (a.'#38376#24215#32534#21495'=b.'#38376#24215#32534#21495')')
    Left = 352
    Top = 184
  end
end