udm.~dfm

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

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 315
  Top = 78
  Height = 509
  Width = 543
  object ADOConn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=QCZL.' +
      'mdb;Mode=Share Deny None;Extended Properties="";Persist Security' +
      ' Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path' +
      '="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet O' +
      'LEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2' +
      ';Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pas' +
      'sword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encryp' +
      't Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Je' +
      't OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 424
    Top = 10
  end
  object Quser: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Userlogin')
    Left = 19
    Top = 10
  end
  object DSuser: TDataSource
    DataSet = Quser
    Left = 77
    Top = 10
  end
  object DSoper: TDataSource
    DataSet = Qoper
    Left = 193
    Top = 10
  end
  object Qoper: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from userpower')
    Left = 135
    Top = 10
  end
  object QCLXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 19
    Top = 61
  end
  object DSCLXX: TDataSource
    DataSet = QCLXX
    Left = 19
    Top = 113
  end
  object DSJYZXX: TDataSource
    DataSet = QJYZXX
    Left = 249
    Top = 216
  end
  object QJYZXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 249
    Top = 164
  end
  object DSXPCXX: TDataSource
    DataSet = QXPCXX
    Left = 135
    Top = 216
  end
  object QXPCXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 135
    Top = 164
  end
  object QJSYXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 19
    Top = 164
  end
  object DSJSYXX: TDataSource
    DataSet = QJSYXX
    Left = 19
    Top = 216
  end
  object DSBXXX: TDataSource
    DataSet = QBXXX
    Left = 249
    Top = 113
  end
  object QBXXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 249
    Top = 61
  end
  object QKHXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 135
    Top = 61
  end
  object DSKHXX: TDataSource
    DataSet = QKHXX
    Left = 135
    Top = 113
  end
  object DSZLDJ: TDataSource
    DataSet = QZLDJ
    Left = 360
    Top = 113
  end
  object QZLDJ: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 61
  end
  object QZLJS: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 164
  end
  object QGKCLDJ: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    Left = 19
    Top = 268
  end
  object QGKCLJS: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    Left = 135
    Top = 268
  end
  object QJYXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 249
    Top = 268
  end
  object QWZDJ: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 360
    Top = 267
  end
  object QWXXX: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 19
    Top = 371
  end
  object DSZLJS: TDataSource
    DataSet = QZLJS
    Left = 360
    Top = 216
  end
  object DSGKCLDJ: TDataSource
    Left = 19
    Top = 319
  end
  object DSGKCLJS: TDataSource
    Left = 135
    Top = 319
  end
  object DSJYXX: TDataSource
    DataSet = QJYXX
    Left = 252
    Top = 319
  end
  object DSWZDJ: TDataSource
    DataSet = QWZDJ
    Left = 360
    Top = 319
  end
  object DSWXXX: TDataSource
    DataSet = QWXXX
    Left = 19
    Top = 423
  end
  object QQTFY: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 249
    Top = 371
  end
  object DSQTFY: TDataSource
    DataSet = QQTFY
    Left = 249
    Top = 423
  end
  object ADODSJYZXX: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from JYZXX'
    FieldDefs = <
      item
        Name = 'yzmc'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'bh'
        DataType = ftWideString
        Size = 16
      end
      item
        Name = 'lxr'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'lxdh'
        DataType = ftWideString
        Size = 25
      end
      item
        Name = 'cz'
        DataType = ftWideString
        Size = 15
      end
      item
        Name = 'yb'
        DataType = ftWideString
        Size = 6
      end
      item
        Name = 'dzyj'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'yzdz'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'bz'
        DataType = ftMemo
      end>
    Parameters = <>
    StoreDefs = True
    Left = 307
    Top = 164
    object ADODSJYZXXyzmc: TWideStringField
      FieldName = 'yzmc'
      Size = 30
    end
    object ADODSJYZXXbh: TWideStringField
      FieldName = 'bh'
      Size = 5
    end
    object ADODSJYZXXlxr: TWideStringField
      FieldName = 'lxr'
      Size = 12
    end
    object ADODSJYZXXlxdh: TWideStringField
      FieldName = 'lxdh'
      Size = 25
    end
    object ADODSJYZXXcz: TWideStringField
      FieldName = 'cz'
      Size = 15
    end
    object ADODSJYZXXyb: TWideStringField
      FieldName = 'yb'
      Size = 6
    end
    object ADODSJYZXXdzyj: TWideStringField
      FieldName = 'dzyj'
    end
    object ADODSJYZXXyzdz: TWideStringField
      FieldName = 'yzdz'
      Size = 50
    end
    object ADODSJYZXXbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
  end
  object DSoJYZXX: TDataSource
    DataSet = ADODSJYZXX
    Left = 307
    Top = 216
  end
  object ADODSCLXX: TADODataSet
    Connection = ADOConn
    CursorType = ctStatic
    CommandText = 'select * from CLXX'
    FieldDefs = <
      item
        Name = 'clbh'
        DataType = ftWideString
        Size = 5
      end
      item
        Name = 'clmc'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'cllx'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'cph'
        DataType = ftWideString
        Size = 8
      end
      item
        Name = 'clys'
        DataType = ftWideString
        Size = 8
      end
      item
        Name = 'fdjh'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'dpbh'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'bxdh'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'bxlx'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'bxgmrq'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'bxjzrq'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'bxgs'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'yyzh'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'rylx'
        DataType = ftWideString
        Size = 6
      end
      item
        Name = 'qccj'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'gmrq'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'bfrq'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'whsj'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'ecwhsj'
        DataType = ftWideString
        Size = 12
      end
      item
        Name = 'fjfh'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'pfl'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'clzt'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'bz'
        DataType = ftMemo
      end
      item
        Name = 'clzp'
        DataType = ftBlob
      end>
    Parameters = <>
    StoreDefs = True
    Left = 77
    Top = 61
    object ADODSCLXXclbh: TWideStringField
      FieldName = 'clbh'
      Size = 5
    end
    object ADODSCLXXclmc: TWideStringField
      FieldName = 'clmc'
      Size = 12
    end
    object ADODSCLXXcllx: TWideStringField
      FieldName = 'cllx'
      Size = 10
    end
    object ADODSCLXXcph: TWideStringField
      FieldName = 'cph'
      Size = 8
    end
    object ADODSCLXXclys: TWideStringField
      FieldName = 'clys'
      Size = 8
    end
    object ADODSCLXXfdjh: TWideStringField
      FieldName = 'fdjh'
      Size = 30
    end
    object ADODSCLXXdpbh: TWideStringField
      FieldName = 'dpbh'
      Size = 30
    end
    object ADODSCLXXbxdh: TWideStringField
      FieldName = 'bxdh'
      Size = 30
    end
    object ADODSCLXXbxlx: TWideStringField
      FieldName = 'bxlx'
      Size = 30
    end
    object ADODSCLXXbxgmrq: TWideStringField
      FieldName = 'bxgmrq'
      Size = 12
    end
    object ADODSCLXXbxjzrq: TWideStringField
      FieldName = 'bxjzrq'
      Size = 12
    end
    object ADODSCLXXbxgs: TWideStringField
      FieldName = 'bxgs'
      Size = 30
    end
    object ADODSCLXXyyzh: TWideStringField
      FieldName = 'yyzh'
      Size = 30
    end
    object ADODSCLXXrylx: TWideStringField
      FieldName = 'rylx'
      Size = 6
    end
    object ADODSCLXXqccj: TWideStringField
      FieldName = 'qccj'
      Size = 50
    end
    object ADODSCLXXgmrq: TWideStringField
      FieldName = 'gmrq'
      Size = 12
    end
    object ADODSCLXXbfrq: TWideStringField
      FieldName = 'bfrq'
      Size = 12
    end
    object ADODSCLXXwhsj: TWideStringField
      FieldName = 'whsj'
      Size = 12
    end
    object ADODSCLXXecwhsj: TWideStringField
      FieldName = 'ecwhsj'
      Size = 12
    end
    object ADODSCLXXfjfh: TWideStringField
      FieldName = 'fjfh'
      Size = 30
    end
    object ADODSCLXXpfl: TWideStringField
      FieldName = 'pfl'
      Size = 10
    end
    object ADODSCLXXclzt: TWideStringField
      FieldName = 'clzt'
      Size = 10