data.dfm

一个基于MFC的编程的图书管理系统

object dm_data: Tdm_data
  OldCreateOrder = False
  Left = 247
  Top = 247
  Height = 331
  Width = 542
  object ado_conn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDataShape.1;Persist Security Info=False;Data Source=c' +
      'sgl.mdb;Data Provider=microsoft.jet.oledb.4.0'
    LoginPrompt = False
    Provider = 'MSDataShape.1'
    Left = 24
    Top = 16
  end
  object ds_name_gl: TADODataSet
    Active = True
    Connection = ado_conn
    CursorType = ctStatic
    CommandText = 'select * from name order by code'
    Parameters = <>
    Left = 24
    Top = 64
  end
  object dc_name_gl: TDataSource
    DataSet = ds_name_gl
    Left = 24
    Top = 112
  end
  object ds_jinhuo_gl: TADODataSet
    Active = True
    Connection = ado_conn
    CursorType = ctStatic
    CommandText = 
      'select jinhuo.*,name.name from jinhuo,name where jinhuo.code=nam' +
      'e.code order by jinhuo.code '
    Parameters = <>
    Left = 104
    Top = 64
  end
  object dc_jinhuo_gl: TDataSource
    DataSet = ds_jinhuo_gl
    Left = 104
    Top = 112
  end
  object ds_guest: TADODataSet
    Connection = ado_conn
    Parameters = <>
    Left = 104
    Top = 16
  end
  object cm_guest: TADOCommand
    CommandText = 'select * from code'
    Connection = ado_conn
    Parameters = <>
    Left = 192
    Top = 16
  end
  object ds_xiaoshou_lb: TADODataSet
    Active = True
    Connection = ado_conn
    CursorType = ctStatic
    CommandText = 
      'select xiaoshou.*,name.name from xiaoshou,name where dt>=:dt and' +
      ' dt<=:dt0 and xiaoshou.code like :code and xiaoshou.code=name.co' +
      'de order by danjuhao,dt'
    Parameters = <
      item
        Name = 'dt'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2000-01-01 0:0:0'
      end
      item
        Name = 'dt0'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2008-01-01 0:0:0'
      end
      item
        Name = 'code'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '%'
      end>
    Left = 192
    Top = 64
    object ds_xiaoshou_lbid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ds_xiaoshou_lbdanjuhao: TIntegerField
      FieldName = 'danjuhao'
    end
    object ds_xiaoshou_lbcode: TWideStringField
      FieldName = 'code'
      Size = 15
    end
    object ds_xiaoshou_lbshuliang: TIntegerField
      FieldName = 'shuliang'
    end
    object ds_xiaoshou_lbshoujia: TBCDField
      FieldName = 'shoujia'
      Precision = 19
    end
    object ds_xiaoshou_lbjine: TBCDField
      FieldName = 'jine'
      Precision = 19
    end
    object ds_xiaoshou_lbdt: TDateTimeField
      FieldName = 'dt'
    end
    object ds_xiaoshou_lbname: TWideStringField
      FieldName = 'name'
      Size = 30
    end
  end
  object dc_xiaoshou_lb: TDataSource
    DataSet = ds_xiaoshou_lb
    Left = 192
    Top = 112
  end
  object ds_xiaoshou_hj: TADODataSet
    Connection = ado_conn
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandText = 
      'select xiaoshou.code,max(name) as name0,sum(shuliang) as shulian' +
      'g0,sum(jine) as jine0 from xiaoshou,name where xiaoshou.dt>=:dt0' +
      ' and xiaoshou.dt<=:dt1 and xiaoshou.code=name.code group by xiao' +
      'shou.code order by xiaoshou.code'
    IndexFieldNames = 'code'
    Parameters = <
      item
        Name = 'dt0'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 2d
      end
      item
        Name = 'dt1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 401769d
      end>
    Left = 280
    Top = 64
    object ds_xiaoshou_hjcode: TWideStringField
      FieldName = 'code'
      Size = 15
    end
    object ds_xiaoshou_hjname0: TWideStringField
      FieldName = 'name0'
      Size = 255
    end
    object ds_xiaoshou_hjshuliang0: TFloatField
      FieldName = 'shuliang0'
    end
    object ds_xiaoshou_hjjine0: TBCDField
      FieldName = 'jine0'
      DisplayFormat = '0.00'
      Precision = 19
    end
  end
  object dc_xiaoshou_hj: TDataSource
    DataSet = ds_xiaoshou_hj
    Left = 280
    Top = 112
  end
  object ds_jinhuo_hj: TADODataSet
    Connection = ado_conn
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandText = 
      'select jinhuo.code,max(name) as name0,sum(shuliang) as shuliang0' +
      ',min(jinjia) as jinjia0 from jinhuo,name where jinhuo.code=name.' +
      'code  group by jinhuo.code order by jinhuo.code'
    IndexFieldNames = 'code'
    MasterFields = 'code'
    Parameters = <>
    Left = 432
    Top = 64
  end
  object dc_jinhuo_hj: TDataSource
    DataSet = ds_jinhuo_hj
    Left = 432
    Top = 112
  end
  object ds_jinhuo_jia: TADODataSet
    Connection = ado_conn
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandText = 
      'select code,max(jinjia) as jinjia0 from jinhuo group by code ord' +
      'er by code'
    DataSource = dc_xiaoshou_hj
    IndexFieldNames = 'code'
    MasterFields = 'code'
    Parameters = <>
    Left = 360
    Top = 64
  end
  object ds_passwd: TADODataSet
    Active = True
    Connection = ado_conn
    CursorType = ctStatic
    CommandText = 'select * from code where id=10000'
    Parameters = <>
    Left = 24
    Top = 168
  end
  object dc_passwd: TDataSource
    DataSet = ds_passwd
    Left = 24
    Top = 224
  end
  object ds_xiaopiao: TADODataSet
    Active = True
    Connection = ado_conn
    CursorType = ctStatic
    CommandText = 'select * from code where id>20000 and id<=20009 order by id'
    Parameters = <>
    Left = 104
    Top = 168
    object ds_xiaopiaoid: TIntegerField
      FieldName = 'id'
    end
    object ds_xiaopiaocode: TWideStringField
      FieldName = 'code'
    end
    object ds_xiaopiaocontent: TWideStringField
      FieldName = 'content'
      Size = 32
    end
  end
  object dc_xiaopiao: TDataSource
    DataSet = ds_xiaopiao
    Left = 104
    Top = 224
  end
end