userut.~dfm

用delphi+access给单位做的实用,简单的.

object userfm: Tuserfm
  Left = 371
  Top = 214
  BorderStyle = bsSingle
  Caption = #29992#25143#31649#29702
  ClientHeight = 213
  ClientWidth = 314
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 164
    Width = 314
    Height = 49
    Align = alBottom
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 8
      Top = 8
      Width = 49
      Height = 33
      Caption = #28155#21152
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 56
      Top = 8
      Width = 49
      Height = 33
      Caption = #20462#25913
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 104
      Top = 8
      Width = 49
      Height = 33
      Caption = #21024#38500
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 152
      Top = 8
      Width = 49
      Height = 33
      Caption = #20445#23384
      Enabled = False
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 200
      Top = 8
      Width = 49
      Height = 33
      Caption = #25764#28040
      Enabled = False
      TabOrder = 4
      OnClick = BitBtn5Click
    end
    object BitBtn6: TBitBtn
      Left = 248
      Top = 8
      Width = 49
      Height = 33
      Caption = #20851#38381
      TabOrder = 5
      OnClick = BitBtn6Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 314
    Height = 164
    Align = alClient
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 312
      Height = 162
      Align = alClient
      DataSource = DataSource1
      Flat = False
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = #32534#21495
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = #22995#21517
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = #23494#30721
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = #26435#38480
          Footers = <>
          PickList.Strings = (
            #31649#29702#21592
            #25805#20316#21592)
          Title.TitleButton = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 240
    Top = 97
  end
  object ADOQuery1: TADOQuery
    Connection = datamodal.adocon
    Parameters = <>
    Left = 104
    Top = 113
  end
end