unit6.dfm

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

object Form6: TForm6
  Left = 181
  Top = 131
  BorderStyle = bsNone
  ClientHeight = 380
  ClientWidth = 585
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  PixelsPerInch = 120
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 585
    Height = 380
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 575
      Height = 370
      ActivePage = TabSheet1
      Align = alClient
      Style = tsButtons
      TabHeight = 30
      TabOrder = 0
      TabWidth = 120
      OnChange = PageControl1Change
      OnChanging = PageControl1Changing
      object TabSheet1: TTabSheet
        Caption = '图纸资料数据'
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 567
          Height = 292
          Align = alClient
          Color = clMenu
          TabOrder = 0
          object RzDBStateStatus1: TRzDBStateStatus
            Left = 22
            Top = 12
            Width = 155
            Height = 28
            DataSource = mainData.tzDataSource
            StateCaptions.Inactive = '未激活'
            StateCaptions.Browse = '浏览'
            StateCaptions.Edit = '修改'
            StateCaptions.Insert = '插入'
            StateCaptions.Search = '查找'
            StateCaptions.Calculate = 'Calculate'
            StateCaptions.Filter = '过滤'
          end
          object Label1: TLabel
            Left = 22
            Top = 57
            Width = 45
            Height = 15
            Caption = '序号：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 22
            Top = 89
            Width = 45
            Height = 15
            Caption = '袋号：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 22
            Top = 121
            Width = 75
            Height = 15
            Caption = '图纸图号：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 22
            Top = 153
            Width = 75
            Height = 15
            Caption = '图纸名称：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 22
            Top = 185
            Width = 75
            Height = 15
            Caption = '图纸类型：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label6: TLabel
            Left = 22
            Top = 217
            Width = 45
            Height = 15
            Caption = '页数：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label7: TLabel
            Left = 336
            Top = 88
            Width = 75
            Height = 15
            Caption = '领用日期：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label8: TLabel
            Left = 336
            Top = 55
            Width = 90
            Height = 15
            Caption = '图纸有效期：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label9: TLabel
            Left = 22
            Top = 249
            Width = 75
            Height = 15
            Caption = '整机代号：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label14: TLabel
            Left = 290
            Top = 22
            Width = 75
            Height = 15
            Caption = '所属单位：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object RzDBEdit1: TRzDBEdit
            Left = 100
            Top = 52
            Width = 73
            Height = 23
            DataField = '序号'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 0
          end
          object RzDBEdit2: TRzDBEdit
            Left = 100
            Top = 84
            Width = 73
            Height = 23
            DataField = '袋号'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 1
          end
          object RzDBEdit3: TRzDBEdit
            Left = 100
            Top = 116
            Width = 221
            Height = 23
            DataField = '图号'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 2
          end
          object RzDBEdit6: TRzDBEdit
            Left = 100
            Top = 215
            Width = 37
            Height = 23
            DataField = '页数'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 5
            Alignment = taRightJustify
          end
          object RzDBDateTimePicker1: TRzDBDateTimePicker
            Left = 418
            Top = 84
            Width = 123
            Height = 23
            CalAlignment = dtaLeft
            CalColors.TitleBackColor = clGray
            CalColors.TitleTextColor = clSilver
            Date = 37077
            Time = 37077
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 9
            ShowToday = True
            ShowTodayCircle = True
            ShowWeekNumbers = True
            DataField = '领用时间'
            DataSource = mainData.tzDataSource
          end
          object RzDBEdit7: TRzDBEdit
            Left = 418
            Top = 51
            Width = 122
            Height = 23
            DataField = '有效期'
            DataSource = mainData.tzDataSource
            TabOrder = 8
          end
          object RzDBEdit8: TRzDBEdit
            Left = 100
            Top = 247
            Width = 221
            Height = 23
            DataField = '整机代号'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 6
          end
          object RzDBMemo1: TRzDBMemo
            Left = 330
            Top = 116
            Width = 213
            Height = 153
            DataField = '备注'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 10
          end
          object RzDBComboBox2: TRzDBComboBox
            Left = 378
            Top = 19
            Width = 164
            Height = 23
            DataField = '所属单位'
            DataSource = mainData.tzDataSource
            ItemHeight = 15
            TabOrder = 7
            ImeName = '智能ABC输入法'
            Items.Strings = (
              '电视公司'
              '空调公司'
              '网络公司'
              '电池公司'
              '器件公司'
              '视听公司'
              '雷达公司'
              '投影公司'
              '包装公司')
          end
          object RzDBComboBox3: TRzDBComboBox
            Left = 100
            Top = 182
            Width = 105
            Height = 23
            DataField = '图纸类型'
            DataSource = mainData.tzDataSource
            ItemHeight = 15
            TabOrder = 4
            Items.Strings = (
              '草图'
              '蓝图')
          end
          object RzDBButtonEdit3: TRzDBButtonEdit
            Left = 100
            Top = 152
            Width = 221
            Height = 23
            DataField = '图纸名称'
            DataSource = mainData.tzDataSource
            ImeName = '智能ABC输入法'
            TabOrder = 3
            OnButtonClick = RzDBButtonEdit3ButtonClick
          end
        end
        object DBNavPlus1: TDBNavPlus
          Left = 0
          Top = 292
          Width = 567
          Height = 38
          DataSource = mainData.tzDataSource
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh]
          Align = alBottom
          Hints.Strings = (
            '移动到第一条记录'
            '移动前一条记录'
            '移动到下一条记录'
            '移动到最后一条记录'
            '插入记录'
            '删除当前记录'
            '修改当前记录'
            '确定插入记录（修改）记录操作'
            '取消操作'
            '刷新数据')
          TabOrder = 1
          Captions.Strings = (
            '顶'
            '前'
            '后'
            '底'
            '插入'
            '删除'
            '修改'
            '保存'
            '取消'
            '刷新')
          Spacing = -1
          Margin = -1
        end
      end
      object TabSheet2: TTabSheet
        Caption = '借出图纸数据'
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 567
          Height = 292
          Align = alClient
          TabOrder = 0
          object Label10: TLabel
            Left = 26
            Top = 28
            Width = 45
            Height = 15
            Caption = '图号：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label11: TLabel
            Left = 26
            Top = 162
            Width = 60
            Height = 15
            Caption = '借阅人：'