child_borrow.dfm

试验室设备管理系统

object frm_Borrow: Tfrm_Borrow
  Left = 320
  Top = 244
  AutoScroll = False
  Caption = '仪器借用库维护'
  ClientHeight = 407
  ClientWidth = 559
  Color = clBtnFace
  Constraints.MinHeight = 250
  Constraints.MinWidth = 433
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000CCCCCCCCC0000000CCCCCCCCCC0C00000
    0000000CCCC0000000000000CCC000000000000CCCC00000000000000000FFFF
    0000FFFF0000FFFF0000C3C30000C0030000FE7F0000FE7F0000F18F0000C183
    0000FFFF0000E00F0000E0050000FFE10000FFF10000FFE10000FFFF0000}
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 220
    Height = 33
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 8
      Top = 4
      Width = 200
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
      Flat = True
      Ctl3D = False
      Hints.Strings = (
        '第一笔记录'
        '前一笔记录'
        '下一笔记录'
        '末一笔记录'
        '插入记录'
        '删除记录'
        '编辑记录'
        '保存记录'
        '取消编辑')
      ParentCtl3D = False
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 46
    Width = 449
    Height = 347
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 8
      Top = 11
      Width = 425
      Height = 312
      ActivePage = TabSheet1
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = '单条记录'
        ImageIndex = 10
        object Label8: TLabel
          Left = 8
          Top = 104
          Width = 24
          Height = 12
          Caption = '备注'
          FocusControl = EditDBEdit8
        end
        object Label7: TLabel
          Left = 200
          Top = 56
          Width = 36
          Height = 12
          Caption = '经手人'
          FocusControl = EditDBEdit7
        end
        object Label6: TLabel
          Left = 104
          Top = 56
          Width = 48
          Height = 12
          Caption = '归还日期'
          FocusControl = EditDBEdit6
        end
        object Label5: TLabel
          Left = 8
          Top = 56
          Width = 48
          Height = 12
          Caption = '借用日期'
          FocusControl = EditDBEdit5
        end
        object Label2: TLabel
          Left = 104
          Top = 8
          Width = 36
          Height = 12
          Caption = '借用人'
          FocusControl = EditDBEdit2
        end
        object Label1: TLabel
          Left = 8
          Top = 8
          Width = 48
          Height = 12
          Caption = '登记序号'
          FocusControl = EditDBEdit
        end
        object Label3: TLabel
          Left = 200
          Top = 8
          Width = 48
          Height = 12
          Caption = '仪器编号'
          FocusControl = EditDBEdit3
        end
        object Label4: TLabel
          Left = 280
          Top = 56
          Width = 24
          Height = 12
          Caption = '用途'
          FocusControl = EditDBEdit4
        end
        object Label9: TLabel
          Left = 312
          Top = 8
          Width = 36
          Height = 12
          Caption = '仪器名'
          FocusControl = EditDBEdit3
        end
        object EditDBEdit8: TDBEdit
          Left = 8
          Top = 120
          Width = 401
          Height = 20
          DataField = '备注'
          DataSource = DataSource1
          TabOrder = 0
        end
        object EditDBEdit5: TDBEdit
          Left = 8
          Top = 72
          Width = 81
          Height = 20
          DataField = '借用日期'
          DataSource = DataSource1
          TabOrder = 1
        end
        object EditDBEdit6: TDBEdit
          Left = 104
          Top = 72
          Width = 81
          Height = 20
          DataField = '归还日期'
          DataSource = DataSource1
          TabOrder = 2
        end
        object EditDBEdit7: TDBEdit
          Left = 200
          Top = 72
          Width = 65
          Height = 20
          DataField = '经手人'
          DataSource = DataSource1
          TabOrder = 3
        end
        object EditDBEdit: TDBEdit
          Left = 8
          Top = 24
          Width = 81
          Height = 20
          DataField = '登记序号'
          DataSource = DataSource1
          TabOrder = 4
        end
        object EditDBEdit2: TDBEdit
          Left = 104
          Top = 24
          Width = 81
          Height = 20
          DataField = '借用人'
          DataSource = DataSource1
          TabOrder = 5
        end
        object EditDBEdit3: TDBEdit
          Left = 200
          Top = 24
          Width = 97
          Height = 20
          DataField = '仪器编号'
          DataSource = DataSource1
          TabOrder = 6
        end
        object EditDBEdit4: TDBEdit
          Left = 280
          Top = 72
          Width = 129
          Height = 20
          DataField = '用途'
          DataSource = DataSource1
          TabOrder = 7
        end
        object DBEdit1: TDBEdit
          Left = 312
          Top = 24
          Width = 97
          Height = 20
          Color = clBtnFace
          DataField = '仪器名称'
          DataSource = DataSource2
          TabOrder = 8
        end
      end
      object TabSheet2: TTabSheet
        Caption = '查询记录'
        ImageIndex = 24
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 417
          Height = 73
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 0
          object Label22: TLabel
            Left = 8
            Top = 16
            Width = 36
            Height = 12
            Caption = '借用人'
          end
          object Label21: TLabel
            Left = 120
            Top = 16
            Width = 48
            Height = 12
            Caption = '仪器编号'
            WordWrap = True
          end
          object Label20: TLabel
            Left = 8
            Top = 48
            Width = 48
            Height = 12
            Caption = '借用日期'
          end
          object Label23: TLabel
            Left = 144
            Top = 48
            Width = 48
            Height = 12
            Caption = '归还日期'
          end
          object SpeedButton1: TSpeedButton
            Left = 280
            Top = 40
            Width = 55
            Height = 21
            Caption = '查询'
            Flat = True
            OnClick = SpeedButton1Click
          end
          object SpeedButton2: TSpeedButton
            Left = 352
            Top = 40
            Width = 55
            Height = 21
            Caption = '所有'
            Flat = True
          end
          object Edit_No: TEdit
            Left = 176
            Top = 8
            Width = 97
            Height = 20
            TabOrder = 0
          end
          object Edit_name: TEdit
            Left = 48
            Top = 8
            Width = 65
            Height = 20
            TabOrder = 1
          end
          object Edit_DateIn: TEdit
            Left = 200
            Top = 40
            Width = 73
            Height = 20
            TabOrder = 2
          end
          object RadioGroup1: TRadioGroup
            Left = 280
            Top = 3
            Width = 129
            Height = 30
            Columns = 2
            ItemIndex = 0
            Items.Strings = (
              '逻辑与'
              '逻辑或')
            TabOrder = 3
          end
          object Edit_DateOut: TEdit
            Left = 64
            Top = 40
            Width = 73
            Height = 20
            TabOrder = 4
          end
        end
        object DBGrid1: TDBGrid
          Left = 16
          Top = 111
          Width = 305
          Height = 151
          DataSource = DataSource1
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 264
    Top = 8
  end
  object Query1: TQuery
    AutoRefresh = True
    Left = 296
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 360
    Top = 8
  end
  object Table2: TTable
    IndexFieldNames = '仪器编号'
    MasterFields = '仪器编号'
    MasterSource = DataSource1
    Left = 328
    Top = 8
  end
  object Table1: TTable
    DatabaseName = 'mylab'
    TableName = '仪器借出信息库.DB'
    Left = 232
    Top = 8
  end
end