carkind.dfm

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

object fCarkind: TfCarkind
  Left = 275
  Top = 141
  Width = 659
  Height = 434
  Caption = #26723#26696#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 2
    Width = 651
    Height = 2
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 14
    Width = 253
    Height = 362
    Caption = #26723#26696#21015#34920
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 13
      Height = 13
      Caption = #25353
    end
    object Label2: TLabel
      Left = 86
      Top = 24
      Width = 26
      Height = 13
      Caption = #36755#20837
    end
    object QueryType: TComboBox
      Left = 26
      Top = 20
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = #32534#21495
      Items.Strings = (
        #32534#21495
        #21517#31216
        #29366#24577)
    end
    object QueyText: TEdit
      Left = 112
      Top = 21
      Width = 56
      Height = 21
      TabOrder = 1
    end
    object ExcQuery: TButton
      Left = 171
      Top = 18
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = ExcQueryClick
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 48
      Width = 247
      Height = 311
      DataSource = DsFileContent
      TabOrder = 3
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object GroupBox2: TGroupBox
    Left = 249
    Top = 14
    Width = 402
    Height = 362
    Caption = #20511#20986#26723#26696#24773#20917
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 1
      Top = 16
      Width = 399
      Height = 182
      DataSource = DsFileBorrow
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBGrid3: TDBGrid
      Left = 1
      Top = 200
      Width = 399
      Height = 159
      DataSource = DsFileReturn
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object QueryAll: TButton
    Left = 69
    Top = 377
    Width = 75
    Height = 25
    Caption = #20840#37096#26174#31034
    TabOrder = 2
    OnClick = QueryAllClick
  end
  object Cexit: TButton
    Left = 557
    Top = 378
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 3
    OnClick = CexitClick
  end
  object DsFileContent: TDataSource
    DataSet = fdm.FileContent
    Left = 104
    Top = 152
  end
  object DsFileBorrow: TDataSource
    DataSet = fdm.FilesB
    Left = 336
    Top = 96
  end
  object DsFileReturn: TDataSource
    DataSet = fdm.FilesR
    Left = 344
    Top = 264
  end
end