data.dfm

进行图纸的资料归档及管理

object mainData: TmainData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 307
  Top = 357
  Height = 375
  Width = 544
  object tzdata: TADOQuery
    Connection = maindataset
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from 图纸')
    Left = 88
    Top = 152
    object tzdataDSDesigner: TWideStringField
      FieldName = '序号'
      Size = 6
    end
    object tzdataDSDesigner2: TWideStringField
      FieldName = '袋号'
      Size = 6
    end
    object tzdataDSDesigner3: TWideStringField
      FieldName = '图纸名称'
    end
    object tzdataDSDesigner4: TWideStringField
      FieldName = '图号'
      Size = 40
    end
    object tzdataDSDesigner5: TWideStringField
      FieldName = '图纸类型'
    end
    object tzdataDSDesigner6: TIntegerField
      FieldName = '页数'
    end
    object tzdataDSDesigner7: TWideStringField
      FieldName = '所属单位'
      Size = 30
    end
    object tzdataDSDesigner8: TDateField
      FieldName = '领用时间'
    end
    object tzdataDSDesigner9: TWideStringField
      FieldName = '整机代号'
      Size = 40
    end
    object tzdataDSDesigner10: TDateField
      FieldName = '有效期'
    end
    object tzdataDSDesigner11: TMemoField
      FieldName = '备注'
      BlobType = ftMemo
    end
  end
  object outdata: TADOQuery
    Connection = maindataset
    CursorType = ctStatic
    DataSource = tzDataSource
    Parameters = <
      item
        Name = '图号'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 40
        Value = 'JUC8.807.003'
      end>
    SQL.Strings = (
      'select * from 借阅 where 图号=:图号')
    Left = 120
    Top = 152
    object outdataDSDesigner: TWideStringField
      FieldName = '图号'
      Size = 40
    end
    object outdataDSDesigner2: TWideStringField
      FieldName = '借阅类型'
      Size = 10
    end
    object outdataDSDesigner10: TWideStringField
      FieldName = '图纸类型'
      Size = 10
    end
    object outdataDSDesigner3: TWideStringField
      FieldName = '借阅人'
    end
    object outdataDSDesigner4: TWideStringField
      FieldName = '借阅人单位'
      Size = 50
    end
    object outdataDSDesigner5: TIntegerField
      FieldName = '数量'
    end
    object outdataDSDesigner6: TIntegerField
      FieldName = '份数'
    end
    object outdataDSDesigner7: TDateField
      FieldName = '借阅时间'
    end
    object outdataDSDesigner8: TMemoField
      FieldName = '备注'
      BlobType = ftMemo
    end
    object outdataDSDesigner9: TMemoField
      FieldName = '更改记录'
      BlobType = ftMemo
    end
  end
  object maindataset: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=图纸管理.mdb;Mode=Share Deny None;Extended Properties="";' +
      'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLED' +
      'B:Database Password="";Jet OLEDB:Engine Type=4;Jet OLEDB:Databas' +
      'e Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:G' +
      'lobal Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet' +
      ' OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=F' +
      'alse;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Comp' +
      'act Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 240
    Top = 184
  end
  object tzDataSource: TDataSource
    DataSet = tzdata
    Left = 184
  end
  object outDataSource: TDataSource
    DataSet = outdata
    Left = 256
    Top = 16
  end
  object tzQuery: TADOQuery
    Connection = maindataset
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 32
    Top = 144
  end
end