archives_tank.dfm

delphi7.0+ACCESS,是以前做过的一个档案资料管理信息系统

inherited TankFrm: TTankFrm
  Tag = 2
  Left = 20
  Top = 51
  Width = 764
  Height = 476
  ActiveControl = DBEdit1
  Caption = #26723#26696#26588#36164#26009#31649#29702
  OldCreateOrder = True
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 756
    inherited ToolButton1: TToolButton
      OnClick = ToolButton1Click
    end
    inherited ToolButton2: TToolButton
      OnClick = ToolButton2Click
    end
    inherited ToolButton3: TToolButton
      OnClick = ToolButton3Click
    end
    inherited ToolButton4: TToolButton
      OnClick = ToolButton4Click
    end
    inherited ToolButton5: TToolButton
      OnClick = ToolButton5Click
    end
    inherited ToolButton6: TToolButton
      Visible = False
    end
    inherited ToolButton7: TToolButton
      Visible = False
    end
    inherited ToolButton8: TToolButton
      Visible = False
    end
    inherited ToolButton9: TToolButton
      Visible = False
    end
    inherited ToolButton10: TToolButton
      Visible = False
    end
    inherited ToolButton11: TToolButton
      Visible = False
    end
    inherited ToolButton12: TToolButton
      OnClick = ToolButton12Click
    end
  end
  object Panel1: TPanel [1]
    Left = 328
    Top = 48
    Width = 417
    Height = 393
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    object Label1: TLabel
      Left = 32
      Top = 40
      Width = 60
      Height = 13
      Caption = #26723#26696#26588#21495#65306
    end
    object Label2: TLabel
      Left = 32
      Top = 96
      Width = 72
      Height = 13
      Caption = #26723#26696#26588#21517#31216#65306
    end
    object Label3: TLabel
      Left = 32
      Top = 152
      Width = 36
      Height = 13
      Caption = #22791#27880#65306
    end
    object DBEdit1: TDBEdit
      Left = 32
      Top = 64
      Width = 121
      Height = 21
      DataField = 'Tank_ID'
      DataSource = DM.DS_Tank
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 32
      Top = 120
      Width = 121
      Height = 21
      DataField = 'Tank_Name'
      DataSource = DM.DS_Tank
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 32
      Top = 176
      Width = 305
      Height = 21
      DataField = 'Tank_Memo'
      DataSource = DM.DS_Tank
      TabOrder = 2
    end
  end
  object DBGrid1: TDBGrid [2]
    Left = 0
    Top = 48
    Width = 297
    Height = 393
    DataSource = DM.DS_Tank
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Tank_ID'
        Title.Caption = #26588#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Tank_Name'
        Title.Caption = #21517#31216
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Tank_Memo'
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
end