uoinfo.dfm

Delphi7+ado+Access2000模式开发的单机版档案管理系统

object frmOInfo: TfrmOInfo
  Left = 194
  Top = 157
  ActiveControl = dgInfo
  AlphaBlend = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20854#23427#20449#24687#35774#32622
  ClientHeight = 277
  ClientWidth = 492
  Color = 16759701
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 184
    Top = 8
    Width = 120
    Height = 20
    Caption = #20854#23427#20449#24687#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -20
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 16
    Top = 206
    Width = 36
    Height = 13
    Caption = #24037#31181#65306
    Transparent = True
  end
  object Label3: TLabel
    Left = 176
    Top = 206
    Width = 36
    Height = 13
    Caption = #25551#36848#65306
    Transparent = True
  end
  object deSName: TDBEdit
    Left = 56
    Top = 200
    Width = 100
    Height = 21
    DataField = 'sname'
    DataSource = dsInfo
    TabOrder = 6
  end
  object deDes: TDBEdit
    Left = 216
    Top = 200
    Width = 257
    Height = 21
    DataField = 'des'
    DataSource = dsInfo
    TabOrder = 7
  end
  object btnAdd: TButton
    Left = 16
    Top = 240
    Width = 62
    Height = 22
    Caption = #28155'  '#21152
    TabOrder = 8
    OnClick = btnAddClick
  end
  object btnEdit: TButton
    Left = 84
    Top = 240
    Width = 62
    Height = 22
    Caption = #26356'  '#26032
    TabOrder = 9
    OnClick = btnEditClick
  end
  object btnDel: TButton
    Left = 152
    Top = 240
    Width = 62
    Height = 22
    Caption = #21024'  '#38500
    TabOrder = 10
    OnClick = btnDelClick
  end
  object btnTrs: TButton
    Left = 348
    Top = 240
    Width = 62
    Height = 22
    Caption = #21322#36879#26126
    TabOrder = 11
    OnClick = btnTrsClick
  end
  object btnClose: TButton
    Left = 416
    Top = 240
    Width = 62
    Height = 22
    Caption = #20851'  '#38381
    TabOrder = 12
    OnClick = btnCloseClick
  end
  object dgInfo: TDBGridEh
    Left = 16
    Top = 64
    Width = 457
    Height = 121
    Color = 16759701
    DataSource = dsInfo
    FixedColor = clBackground
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sname'
        Footers = <>
        Title.Caption = #24037' '#31181
        Width = 95
      end
      item
        EditButtons = <>
        FieldName = 'des'
        Footers = <>
        Title.Caption = #25551'  '#36848
        Width = 325
      end>
  end
  object rbSort: TRadioButton
    Left = 24
    Top = 40
    Width = 65
    Height = 17
    Caption = #24037'  '#31181
    Checked = True
    TabOrder = 0
    TabStop = True
    OnClick = rbSortClick
  end
  object rbCap: TRadioButton
    Left = 96
    Top = 40
    Width = 65
    Height = 17
    Caption = #32844'  '#31216
    TabOrder = 1
    OnClick = rbCapClick
  end
  object rbFolk: TRadioButton
    Left = 168
    Top = 40
    Width = 65
    Height = 17
    Caption = #27665'  '#26063
    TabOrder = 2
    OnClick = rbFolkClick
  end
  object rbLevel: TRadioButton
    Left = 240
    Top = 40
    Width = 65
    Height = 17
    Caption = #23398'  '#21382
    TabOrder = 3
    OnClick = rbLevelClick
  end
  object rbSpe: TRadioButton
    Left = 312
    Top = 40
    Width = 65
    Height = 17
    Caption = #19987'  '#19994
    TabOrder = 4
    OnClick = rbSpeClick
  end
  object dsInfo: TDataSource
    DataSet = aqOInfo
    OnDataChange = dsInfoDataChange
    Left = 424
    Top = 8
  end
  object aqOInfo: TADOQuery
    Parameters = <>
    Left = 456
    Top = 8
  end
end