udm.~dfm

快餐店管理系统 很好的参考材料 谢谢您的合作

    object ADODSZLDJyingszj: TWideStringField
      FieldName = 'yingszj'
      Size = 8
    end
    object ADODSZLDJssje: TWideStringField
      FieldName = 'ssje'
      Size = 8
    end
    object ADODSZLDJjbr: TWideStringField
      FieldName = 'jbr'
      Size = 12
    end
    object ADODSZLDJbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
    object ADODSZLDJsfxz: TBooleanField
      FieldName = 'sfxz'
    end
  end
  object ADODSZLJS: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from ZLJS'
    Parameters = <>
    Left = 419
    Top = 164
    object ADODSZLJShth: TWideStringField
      FieldName = 'hth'
      Size = 15
    end
    object ADODSZLJScph: TWideStringField
      FieldName = 'cph'
      Size = 8
    end
    object ADODSZLJSkhxm: TWideStringField
      FieldName = 'khxm'
      Size = 12
    end
    object ADODSZLJSzldjj: TWideStringField
      FieldName = 'zldjj'
      Size = 5
    end
    object ADODSZLJSzlqx: TWideStringField
      FieldName = 'zlqx'
      Size = 5
    end
    object ADODSZLJSxslc: TWideStringField
      FieldName = 'xslc'
      Size = 5
    end
    object ADODSZLJScsdj: TWideStringField
      FieldName = 'csdj'
      Size = 5
    end
    object ADODSZLJScssdj: TWideStringField
      FieldName = 'cssdj'
      Size = 5
    end
    object ADODSZLJSfclc: TWideStringField
      FieldName = 'fclc'
      Size = 8
    end
    object ADODSZLJSfcrq: TWideStringField
      FieldName = 'fcrq'
      Size = 12
    end
    object ADODSZLJSfcsj: TWideStringField
      FieldName = 'fcsj'
    end
    object ADODSZLJSyuszj: TWideStringField
      FieldName = 'yuszj'
      Size = 8
    end
    object ADODSZLJSxzts: TWideStringField
      FieldName = 'xzts'
      Size = 5
    end
    object ADODSZLJSxzzj: TWideStringField
      FieldName = 'xzzj'
      Size = 8
    end
    object ADODSZLJSyj: TWideStringField
      FieldName = 'yj'
      Size = 8
    end
    object ADODSZLJSyingszj: TWideStringField
      FieldName = 'yingszj'
      Size = 8
    end
    object ADODSZLJSjbr: TWideStringField
      FieldName = 'jbr'
      Size = 12
    end
    object ADODSZLJSscrq: TWideStringField
      FieldName = 'scrq'
      Size = 12
    end
    object ADODSZLJSscsj: TWideStringField
      FieldName = 'scsj'
    end
    object ADODSZLJSsclc: TWideStringField
      FieldName = 'sclc'
      Size = 8
    end
    object ADODSZLJScsxs: TWideStringField
      FieldName = 'csxs'
      Size = 5
    end
    object ADODSZLJScssf: TWideStringField
      FieldName = 'cssf'
      Size = 8
    end
    object ADODSZLJScsslc: TWideStringField
      FieldName = 'csslc'
      Size = 8
    end
    object ADODSZLJScsssf: TWideStringField
      FieldName = 'csssf'
      Size = 8
    end
    object ADODSZLJSqjy: TWideStringField
      FieldName = 'qjy'
      Size = 8
    end
    object ADODSZLJSqyf: TWideStringField
      FieldName = 'qyf'
      Size = 8
    end
    object ADODSZLJScsf: TWideStringField
      FieldName = 'csf'
      Size = 8
    end
    object ADODSZLJSdjf: TWideStringField
      FieldName = 'djf'
      Size = 8
    end
    object ADODSZLJSwyj: TWideStringField
      FieldName = 'wyj'
      Size = 8
    end
    object ADODSZLJSwzyj: TWideStringField
      FieldName = 'wzyj'
      Size = 8
    end
    object ADODSZLJSqtfy: TWideStringField
      FieldName = 'qtfy'
      Size = 8
    end
    object ADODSZLJSyingsje: TWideStringField
      FieldName = 'yingsje'
      Size = 8
    end
    object ADODSZLJSytje: TWideStringField
      FieldName = 'ytje'
      Size = 8
    end
    object ADODSZLJSsssje: TWideStringField
      FieldName = 'sssje'
      Size = 8
    end
    object ADODSZLJSjkr: TWideStringField
      FieldName = 'jkr'
      Size = 12
    end
    object ADODSZLJSskrq: TWideStringField
      FieldName = 'skrq'
      Size = 12
    end
    object ADODSZLJSjsr: TWideStringField
      FieldName = 'jsr'
      Size = 12
    end
    object ADODSZLJSbbz: TMemoField
      FieldName = 'bbz'
      BlobType = ftMemo
    end
    object ADODSZLJSzkjq: TBooleanField
      FieldName = 'zkjq'
    end
    object ADODSZLJSsfxz: TBooleanField
      FieldName = 'sfxz'
    end
  end
  object ADODSGKCLDJ: TADODataSet
    CursorType = ctStatic
    Parameters = <>
    Left = 77
    Top = 268
  end
  object ADODSGKCLJS: TADODataSet
    CursorType = ctStatic
    Parameters = <>
    Left = 193
    Top = 268
  end
  object ADODSWZDJ: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from WZDJ'
    Parameters = <>
    Left = 419
    Top = 267
    object ADODSWZDJbh: TWideStringField
      FieldName = 'bh'
      Size = 5
    end
    object ADODSWZDJcph: TWideStringField
      FieldName = 'cph'
      Size = 8
    end
    object ADODSWZDJzrr: TWideStringField
      FieldName = 'zrr'
      Size = 12
    end
    object ADODSWZDJtbgs: TWideStringField
      FieldName = 'tbgs'
      Size = 50
    end
    object ADODSWZDJwzsj: TWideStringField
      FieldName = 'wzsj'
      Size = 12
    end
    object ADODSWZDJryqk: TWideStringField
      FieldName = 'ryqk'
      Size = 50
    end
    object ADODSWZDJylfy: TBCDField
      FieldName = 'ylfy'
      Precision = 19
    end
    object ADODSWZDJcsqk: TWideStringField
      FieldName = 'csqk'
      Size = 50
    end
    object ADODSWZDJcsje: TBCDField
      FieldName = 'csje'
      Precision = 19
    end
    object ADODSWZDJfsdd: TWideStringField
      FieldName = 'fsdd'
      Size = 50
    end
    object ADODSWZDJwzyy: TWideStringField
      FieldName = 'wzyy'
      Size = 50
    end
    object ADODSWZDJjjyj: TWideStringField
      FieldName = 'jjyj'
      Size = 50
    end
    object ADODSWZDJfyyj: TWideStringField
      FieldName = 'fyyj'
      Size = 50
    end
    object ADODSWZDJcljg: TWideStringField
      FieldName = 'cljg'
      Size = 50
    end
    object ADODSWZDJfk: TBCDField
      FieldName = 'fk'
      Precision = 19
    end
    object ADODSWZDJzrf: TWideStringField
      FieldName = 'zrf'
      Size = 12
    end
    object ADODSWZDJqtfy: TBCDField
      FieldName = 'qtfy'
      Precision = 19
    end
    object ADODSWZDJbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
    object ADODSWZDJsgrq: TWideStringField
      FieldName = 'sgrq'
      Size = 12
    end
  end
  object ADODSWXXX: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from WXXX'
    Parameters = <>
    Left = 77
    Top = 371
    object ADODSWXXXbh: TWideStringField
      FieldName = 'bh'
      Size = 5
    end
    object ADODSWXXXcph: TWideStringField
      FieldName = 'cph'
      Size = 8
    end
    object ADODSWXXXclmc: TWideStringField
      FieldName = 'clmc'
      Size = 12
    end
    object ADODSWXXXclf: TBCDField
      FieldName = 'clf'
      Precision = 19
    end
    object ADODSWXXXrgf: TBCDField
      FieldName = 'rgf'
      Precision = 19
    end
    object ADODSWXXXqtfy: TBCDField
      FieldName = 'qtfy'
      Precision = 19
    end
    object ADODSWXXXzfy: TBCDField
      FieldName = 'zfy'
      Precision = 19
    end
    object ADODSWXXXwxrq: TWideStringField
      FieldName = 'wxrq'
      Size = 12
    end
    object ADODSWXXXdjsj: TWideStringField
      FieldName = 'djsj'
      Size = 12
    end
    object ADODSWXXXjsr: TWideStringField
      FieldName = 'jsr'
      Size = 12
    end
    object ADODSWXXXwxnr: TWideStringField
      FieldName = 'wxnr'
      Size = 30
    end
    object ADODSWXXXxpc: TWideStringField
      FieldName = 'xpc'
      Size = 30
    end
    object ADODSWXXXdz: TWideStringField
      FieldName = 'dz'
      Size = 50
    end
    object ADODSWXXXbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
  end
  object ADODSQTFY: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from QTFY'
    Parameters = <>
    Left = 307
    Top = 371
    object ADODSQTFYbh: TWideStringField
      FieldName = 'bh'
      Size = 5
    end
    object ADODSQTFYdjrq: TWideStringField
      FieldName = 'djrq'
      Size = 12
    end
    object ADODSQTFYfymc: TWideStringField
      FieldName = 'fymc'
      Size = 30
    end
    object ADODSQTFYfymr: TWideStringField
      FieldName = 'fymr'
      Size = 50
    end
    object ADODSQTFYfyje: TWideStringField
      FieldName = 'fyje'
      Size = 6
    end
    object ADODSQTFYjbr: TWideStringField
      FieldName = 'jbr'
      Size = 12
    end
    object ADODSQTFYbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
  end
  object QHYXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 135
    Top = 371
  end
  object ADODSHYXX: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from HYXX'
    Parameters = <>
    Left = 193
    Top = 371
    object ADODSHYXXbh: TWideStringField
      FieldName = 'bh'
      Size = 5
    end
    object ADODSHYXXcph: TWideStringField
      FieldName = 'cph'
      Size = 8
    end
    object ADODSHYXXgls: TWideStringField
      FieldName = 'gls'
      Size = 10
    end
    object ADODSHYXXdj: TWideStringField
      FieldName = 'dj'
      Size = 5
    end
    object ADODSHYXXsl: TWideStringField
      FieldName = 'sl'
      Size = 5
    end
    object ADODSHYXXje: TWideStringField
      FieldName = 'je'
      Size = 6
    end
    object ADODSHYXXhyrq: TWideStringField
      FieldName = 'hyrq'
      Size = 12
    end
    object ADODSHYXXjbr: TWideStringField
      FieldName = 'jbr'
      Size = 12
    end
    object ADODSHYXXhydd: TWideStringField
      FieldName = 'hydd'
      Size = 50
    end
    object ADODSHYXXbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
  end
  object DSHYXX: TDataSource
    DataSet = QHYXX
    Left = 135
    Top = 423
  end
  object DSoHYXX: TDataSource
    DataSet = ADODSHYXX
    Left = 193
    Top = 423
  end
  object csh: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 10
  end
  object ADODSOPER: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from userpower'
    Parameters = <>
    Left = 249
    Top = 10
    object ADODSOPERuserno: TWideStringField
      FieldName = 'userno'
      Size = 6
    end
    object ADODSOPERusername: TWideStringField
      FieldName = 'username'
      Size = 12
    end
    object ADODSOPERpas: TWideStringField
      FieldName = 'pas'
      Size = 15
    end
    object ADODSOPERn1: TBooleanField
      FieldName = 'n1'
    end
    object ADODSOPERn2: TBooleanField
      FieldName = 'n2'
    end
    object ADODSOPERn11: TBooleanField
      FieldName = 'n11'
    end
    object ADODSOPERn5: TBooleanField
      FieldName = 'n5'
    end
  end
  object DSoOPER: TDataSource
    DataSet = ADODSOPER
    Left = 307
    Top = 10
  end
  object DSBXLXSZ: TDataSource
    DataSet = QBXLXSZ
    Left = 368
    Top = 424
  end
  object DSoBXLXSZ: TDataSource
    DataSet = ADODSBXLXSZ
    Left = 424
    Top = 424
  end
  object QBXLXSZ: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 368
    Top = 376
  end
  object ADODSBXLXSZ: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from BXLXSZ'
    Parameters = <>
    Left = 424
    Top = 376
    object ADODSBXLXSZbh: TWideStringField
      FieldName = 'bh'
      Size = 5
    end
    object ADODSBXLXSZbxlx: TWideStringField
      FieldName = 'bxlx'
      Size = 30
    end
  end
end