child_lab.dfm

试验室设备管理系统

          object Edit_date: TEdit
            Left = 53
            Top = 32
            Width = 60
            Height = 20
            TabOrder = 2
          end
          object Edit_address: TEdit
            Left = 152
            Top = 32
            Width = 81
            Height = 20
            TabOrder = 3
          end
          object RadioGroup1: TRadioGroup
            Left = 16
            Top = 56
            Width = 177
            Height = 33
            Columns = 2
            ItemIndex = 0
            Items.Strings = (
              '逻辑与'
              '逻辑或')
            TabOrder = 4
          end
          object ComboBox1: TComboBox
            Left = 272
            Top = 8
            Width = 57
            Height = 20
            ItemHeight = 12
            TabOrder = 5
            Items.Strings = (
              ''
              '好'
              '良好'
              '勘用'
              '报废'
              '待修')
          end
          object Edit_experi: TEdit
            Left = 296
            Top = 32
            Width = 33
            Height = 20
            TabOrder = 6
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = '打印'
        ImageIndex = 14
        object SpeedButton3: TSpeedButton
          Left = 16
          Top = 80
          Width = 305
          Height = 22
          Caption = '预览打印'
          Flat = True
          Glyph.Data = {
            26050000424D26050000000000003604000028000000100000000F0000000100
            080000000000F0000000C30E0000C30E00000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
            A400000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00060000000000
            0000000000000606000000FFFFFFFFFFFFFFFFFFFF000600000000FFFFFFFFFF
            FFFF000000001000000600FFFFFFFFFFFF00100707100010060600FFFFFFFFFF
            00100707FF101000060600FFFFFFFFFF0007070707100600060600FFFFFFFFFF
            0007FF0707100600060600FFFFFFFFFF0010FFFF07101000060600FFFFFFFFFF
            FF00100707100006060600FFFFFFFFFFFFFF000000000606060600FFFFFFFFFF
            FFFFFFFFFF000606060600FFFFFFFFFFFFFF000000000606060600FFFFFFFFFF
            FFFF000600060606060600FFFFFFFFFFFFFF0000060606060606060000000000
            00000006060606060606}
          OnClick = SpeedButton3Click
        end
        object RadioGroup2: TRadioGroup
          Left = 16
          Top = 8
          Width = 129
          Height = 57
          ItemIndex = 0
          Items.Strings = (
            '全部记录'
            '查询记录')
          TabOrder = 0
        end
        object RadioGroup3: TRadioGroup
          Left = 192
          Top = 8
          Width = 129
          Height = 57
          ItemIndex = 0
          Items.Strings = (
            '格式一'
            '格式二')
          TabOrder = 1
        end
      end
    end
  end
  object Table1: TTable
    OnCalcFields = Table1CalcFields
    AutoRefresh = True
    FieldDefs = <
      item
        Name = '仪器编号'
        DataType = ftString
        Size = 20
      end
      item
        Name = '仪器名称'
        DataType = ftString
        Size = 20
      end
      item
        Name = '型号'
        DataType = ftString
        Size = 10
      end
      item
        Name = '启用日期'
        DataType = ftDate
      end
      item
        Name = '价格'
        DataType = ftCurrency
      end
      item
        Name = '状况'
        DataType = ftString
        Size = 10
      end
      item
        Name = '放置位置'
        DataType = ftString
        Size = 10
      end
      item
        Name = '分类'
        DataType = ftSmallint
      end
      item
        Name = '所属实验'
        DataType = ftSmallint
      end
      item
        Name = '备注'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <
      item
        Name = 'Table1Index1'
        Fields = '仪器编号'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'Ind_experi'
        Fields = '所属实验'
        Options = [ixCaseInsensitive]
      end
      item
        Name = 'Ind_type'
        Fields = '分类'
        Options = [ixCaseInsensitive]
      end>
    StoreDefs = True
    TableName = '仪器库.DB'
    Left = 224
    object Table1_YQBH: TStringField
      FieldName = '仪器编号'
    end
    object Table1StringField2: TStringField
      FieldName = '仪器名称'
    end
    object Table1StringField3: TStringField
      FieldName = '型号'
      Size = 10
    end
    object Table1DateField: TDateField
      FieldName = '启用日期'
    end
    object Table1CurrencyField: TCurrencyField
      FieldName = '价格'
    end
    object Table1StringField4: TStringField
      FieldName = '状况'
      Size = 10
    end
    object Table1StringField5: TStringField
      FieldName = '放置位置'
      Size = 10
    end
    object Table1SmallintField: TSmallintField
      FieldName = '分类'
    end
    object Table1SmallintField2: TSmallintField
      FieldName = '所属实验'
    end
    object Table1StringField6: TStringField
      FieldName = '备注'
      Size = 50
    end
    object Table1Field_BeOut: TBooleanField
      FieldKind = fkCalculated
      FieldName = '已借出'
      Calculated = True
    end
    object Table1Field_OutUserName: TStringField
      FieldKind = fkCalculated
      FieldName = '借用人'
      Size = 10
      Calculated = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 240
  end
  object Table2: TTable
    AutoRefresh = True
    IndexFieldNames = '分类'
    MasterFields = '分类'
    MasterSource = DataSource1
    TableName = '仪器类型代码库.db'
    Left = 296
    object Table2BDEDesigner: TSmallintField
      FieldName = '分类'
    end
    object Table2BDEDesigner2: TStringField
      FieldName = '名称'
    end
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    AutoRefresh = True
    SQL.Strings = (
      'SELECT * FROM "仪器库.db"')
    Left = 256
    object Query1_YQBH: TStringField
      FieldName = '仪器编号'
      Origin = 'MYLAB."仪器库.DB".仪器编号'
    end
    object Query1BDEDesigner2: TStringField
      FieldName = '仪器名称'
      Origin = 'MYLAB."仪器库.DB".仪器名称'
    end
    object Query1BDEDesigner3: TStringField
      FieldName = '型号'
      Origin = 'MYLAB."仪器库.DB".型号'
      Size = 10
    end
    object Query1BDEDesigner4: TDateField
      FieldName = '启用日期'
      Origin = 'MYLAB."仪器库.DB".启用日期'
    end
    object Query1BDEDesigner5: TCurrencyField
      FieldName = '价格'
      Origin = 'MYLAB."仪器库.DB".价格'
    end
    object Query1BDEDesigner6: TStringField
      FieldName = '状况'
      Origin = 'MYLAB."仪器库.DB".状况'
      Size = 10
    end
    object Query1BDEDesigner7: TStringField
      FieldName = '放置位置'
      Origin = 'MYLAB."仪器库.DB".放置位置'
      Size = 10
    end
    object Query1BDEDesigner8: TSmallintField
      FieldName = '分类'
      Origin = 'MYLAB."仪器库.DB".分类'
    end
    object Query1BDEDesigner9: TSmallintField
      FieldName = '所属实验'
      Origin = 'MYLAB."仪器库.DB".所属实验'
    end
    object Query1BDEDesigner10: TStringField
      FieldName = '备注'
      Origin = 'MYLAB."仪器库.DB".备注'
      Size = 50
    end
    object Query1Field_BeOut: TStringField
      FieldKind = fkCalculated
      FieldName = '已借出'
      Size = 5
      Calculated = True
    end
    object Query1Field_OutUserName: TStringField
      FieldKind = fkCalculated
      FieldName = '借用人'
      Calculated = True
    end
  end
  object Table3: TTable
    AutoRefresh = True
    IndexFieldNames = '所属实验'
    MasterFields = '所属实验'
    MasterSource = DataSource1
    TableName = '所属试验代码库.db'
    Left = 344
    object Table3BDEDesigner: TSmallintField
      FieldName = '所属实验'
    end
    object Table3BDEDesigner2: TStringField
      FieldName = '名称'
    end
  end
  object Table4: TTable
    FieldDefs = <
      item
        Name = '登记序号'
        DataType = ftFloat
      end
      item
        Name = '借用人'
        DataType = ftString
        Size = 10
      end
      item
        Name = '仪器编号'
        DataType = ftString
        Size = 20
      end
      item
        Name = '用途'
        DataType = ftString
        Size = 20
      end
      item
        Name = '借用日期'
        DataType = ftString
        Size = 11
      end
      item
        Name = '归还日期'
        DataType = ftString
        Size = 11
      end
      item
        Name = '经手人'
        DataType = ftString
        Size = 10
      end
      item
        Name = '备注'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <
      item
        Name = 'Table4Index1'
        Fields = '登记序号'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = '仪器借出信息库.DB'
    Left = 392
    object Table4BDEDesigner: TFloatField
      FieldName = '登记序号'
    end
    object Table4_UserName: TStringField
      FieldName = '借用人'
      Size = 10
    end
    object Table4_YQBH: TStringField
      FieldName = '仪器编号'
    end
    object Table4BDEDesigner4: TStringField
      FieldName = '用途'
    end
    object Table4BDEDesigner5: TStringField
      FieldName = '借用日期'
      Size = 11
    end
    object Table4_GHRQ: TStringField
      FieldName = '归还日期'
      Size = 11
    end
    object Table4BDEDesigner7: TStringField
      FieldName = '经手人'
      Size = 10
    end
    object Table4BDEDesigner8: TStringField
      FieldName = '备注'
      Size = 50
    end
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 408
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 304
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 360
  end
end