tcxz.dfm

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

      33999933999933999999999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999999999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099
      9933FFFF00999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999999999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099993300
      0000999933999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      99999999000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099993300000099
      9933000000999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      99000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0099993300000099993399
      9933999933000000000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999999000000FFFF00FFFF00FFFF00FFFF0099993300000099993399993399
      9933999933999933000000999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      33999933999999000000FFFF00FFFF0099993300000099993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399999900000099993300000099993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993300000099993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000999933
      9999339999339999339999339999339999339999339999339999339999339999
      3399993399993399993399993399993399993399993399993399993399993399
      9933999933999933999933999933999933999933999933FFFFFF000000FFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    OnFilterRecord = Query1FilterRecord
    SQL.Strings = (
      'select *'
      'from cdwj'
      'order by lbbm')
    Left = 192
    Top = 80
    object Query1bh: TStringField
      FieldName = 'bh'
      Origin = 'AA.cdwj.bh'
      Size = 10
    end
    object Query1lbbm: TStringField
      FieldName = 'lbbm'
      Origin = 'AA.cdwj.lbbm'
      Size = 10
    end
    object Query1mc: TStringField
      FieldName = 'mc'
      Origin = 'AA.cdwj.mc'
      Size = 50
    end
    object Query1ywmc: TStringField
      FieldName = 'ywmc'
      Origin = 'AA.cdwj.ywmc'
      Size = 50
    end
    object Query1gg: TStringField
      FieldName = 'gg'
      Origin = 'AA.cdwj.gg'
      Size = 50
    end
    object Query1dj: TFloatField
      FieldName = 'dj'
      Origin = 'AA.cdwj.dj'
    end
    object Query1tcbz: TBooleanField
      FieldName = 'tcbz'
      Origin = 'AA.cdwj.tcbz'
    end
    object Query1zt: TBooleanField
      FieldName = 'zt'
      Origin = 'AA.cdwj.zt'
    end
    object Query1sfkj: TBooleanField
      FieldName = 'sfkj'
      Origin = 'AA.cdwj.sfkj'
    end
    object Query1zkdl: TBooleanField
      FieldName = 'zkdl'
      Origin = 'AA.cdwj.zkdl'
    end
    object Query1zkl: TIntegerField
      FieldName = 'zkl'
      Origin = 'AA.cdwj.zkl'
    end
    object Query1fwfdl: TBooleanField
      FieldName = 'fwfdl'
      Origin = 'AA.cdwj.fwfdl'
    end
    object Query1fwfl: TIntegerField
      FieldName = 'fwfl'
      Origin = 'AA.cdwj.fwfl'
    end
    object Query1shuilu: TIntegerField
      FieldName = 'shuilu'
      Origin = 'AA.cdwj.shuilu'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 224
    Top = 80
  end
  object mxlsQ: TQuery
    CachedUpdates = True
    DatabaseName = 'aa'
    SQL.Strings = (
      'SELECT *'
      'FROM dcd Dcd'
      'where djh=-1')
    UpdateObject = UpdateSQL3
    Left = 609
    Top = 284
    object mxlsQID: TIntegerField
      FieldName = 'ID'
      Origin = 'AA.dcd.ID'
    end
    object mxlsQdjh: TIntegerField
      FieldName = 'djh'
      Origin = 'AA.dcd.djh'
    end
    object mxlsQth: TStringField
      FieldName = 'th'
      Origin = 'AA.dcd.th'
      Size = 10
    end
    object mxlsQyhh: TStringField
      FieldName = 'yhh'
      Origin = 'AA.dcd.yhh'
      Size = 10
    end
    object mxlsQbc: TStringField
      FieldName = 'bc'
      Origin = 'AA.dcd.bc'
      Size = 10
    end
    object mxlsQtwbh: TStringField
      FieldName = 'twbh'
      Origin = 'AA.dcd.twbh'
      Size = 10
    end
    object mxlsQrq: TDateTimeField
      FieldName = 'rq'
      Origin = 'AA.dcd.rq'
    end
    object mxlsQlb: TStringField
      FieldName = 'lb'
      Origin = 'AA.dcd.lb'
      Size = 10
    end
    object mxlsQbh: TStringField
      FieldName = 'bh'
      Origin = 'AA.dcd.bh'
      Size = 10
    end
    object mxlsQmc: TStringField
      FieldName = 'mc'
      Origin = 'AA.dcd.mc'
      Size = 50
    end
    object mxlsQgg: TStringField
      FieldName = 'gg'
      Origin = 'AA.dcd.gg'
      Size = 50
    end
    object mxlsQdj: TFloatField
      FieldName = 'dj'
      Origin = 'AA.dcd.dj'
    end
    object mxlsQsl: TFloatField
      FieldName = 'sl'
      Origin = 'AA.dcd.sl'
    end
    object mxlsQje: TFloatField
      FieldName = 'je'
      Origin = 'AA.dcd.je'
    end
    object mxlsQfkbz: TBooleanField
      FieldName = 'fkbz'
      Origin = 'AA.dcd.fkbz'
    end
    object mxlsQzfbz: TBooleanField
      FieldName = 'zfbz'
      Origin = 'AA.dcd.zfbz'
    end
    object mxlsQzcbz: TStringField
      FieldName = 'zcbz'
      Origin = 'AA.dcd.zcbz'
      Size = 10
    end
    object mxlsQzkl: TIntegerField
      FieldName = 'zkl'
      Origin = 'AA.dcd.zkl'
    end
    object mxlsQzke: TFloatField
      FieldName = 'zke'
      Origin = 'AA.dcd.zke'
    end
    object mxlsQfwfl: TIntegerField
      FieldName = 'fwfl'
      Origin = 'AA.dcd.fwfl'
    end
    object mxlsQfwfe: TFloatField
      FieldName = 'fwfe'
      Origin = 'AA.dcd.fwfe'
    end
    object mxlsQshuilv: TIntegerField
      FieldName = 'shuilv'
      Origin = 'AA.dcd.shuilv'
    end
    object mxlsQse: TFloatField
      FieldName = 'se'
      Origin = 'AA.dcd.se'
    end
    object mxlsQzsbz: TBooleanField
      FieldName = 'zsbz'
      Origin = 'AA.dcd.zsbz'
    end
    object mxlsQwmbz: TBooleanField
      FieldName = 'wmbz'
      Origin = 'AA.dcd.wmbz'
    end
    object mxlsQszdd: TStringField
      FieldName = 'szdd'
      Origin = 'AA.dcd.szdd'
      Size = 50
    end
    object mxlsQcfdy: TBooleanField
      FieldName = 'cfdy'
      Origin = 'AA.dcd.cfdy'
    end
    object mxlsQcfdyjhm: TStringField
      FieldName = 'cfdyjhm'
      Origin = 'AA.dcd.cfdyjhm'
      Size = 2
    end
    object mxlsQccjdyjhm: TStringField
      FieldName = 'ccjdyjhm'
      Origin = 'AA.dcd.ccjdyjhm'
      Size = 2
    end
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update dcd'
      'set'
      '  djh = :djh,'
      '  th = :th,'
      '  yhh = :yhh,'
      '  rq = :rq,'
      '  lb = :lb,'
      '  bh = :bh,'
      '  mc = :mc,'
      '  gg = :gg,'
      '  dj = :dj,'
      '  sl = :sl,'
      '  je = :je,'
      '  fkbz = :fkbz,'
      '  zfbz = :zfbz,'
      '  zcbz = :zcbz'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into dcd'
      
        '  (djh, th, yhh, rq, lb, bh, mc, gg, dj, sl, je, fkbz, zfbz, zcb' +
        'z)'
      'values'
      
        '  (:djh, :th, :yhh, :rq, :lb, :bh, :mc, :gg, :dj, :sl, :je, :fkb' +
        'z, :zfbz, '
      '   :zcbz)')
    DeleteSQL.Strings = (
      'delete from dcd'
      'where'
      '  ID = :OLD_ID')
    Left = 641
    Top = 284
  end
  object DataSource2: TDataSource
    DataSet = mxlsQ
    Left = 609
    Top = 316
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 200
    Top = 32
  end
end