mainut.dfm

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

object mainfm: Tmainfm
  Left = 245
  Top = 187
  Width = 696
  Height = 526
  Caption = #32844#24037#20449#24687#31649#29702#31995#32479' '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 453
    Width = 688
    Height = 19
    Panels = <
      item
        Text = #24403#21069#29992#25143#65306
        Width = 100
      end
      item
        Text = #24403#21069#25805#20316#65306
        Width = 200
      end
      item
        Text = #32844#24037#20449#24687#31649#29702#31995#32479
        Width = 50
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 49
    BandBorderStyle = bsNone
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 41
        Width = 684
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 671
      Height = 41
      ButtonHeight = 36
      ButtonWidth = 37
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object add: TToolButton
        Left = 0
        Top = 0
        Caption = #28155#21152
        ImageIndex = 1
        OnClick = addClick
      end
      object edit: TToolButton
        Left = 37
        Top = 0
        Caption = ' '#20462#25913' '
        ImageIndex = 2
        OnClick = editClick
      end
      object del: TToolButton
        Left = 74
        Top = 0
        Caption = #21024#38500
        ImageIndex = 11
        OnClick = delClick
      end
      object save: TToolButton
        Left = 111
        Top = 0
        Caption = #20445#23384
        Enabled = False
        ImageIndex = 0
        OnClick = saveClick
      end
      object cancel: TToolButton
        Left = 148
        Top = 0
        Caption = #25764#28040
        Enabled = False
        ImageIndex = 10
        OnClick = cancelClick
      end
      object index: TToolButton
        Left = 185
        Top = 0
        Caption = #26597#35810
        ImageIndex = 6
        OnClick = indexClick
      end
      object out: TToolButton
        Left = 222
        Top = 0
        Caption = #23548#20986
        ImageIndex = 9
        OnClick = outClick
      end
      object fresh: TToolButton
        Left = 259
        Top = 0
        Caption = #21047#26032
        ImageIndex = 12
        OnClick = FormCreate
      end
      object print: TToolButton
        Left = 296
        Top = 0
        Caption = #25171#21360' '
        ImageIndex = 7
        OnClick = ToolButton1Click
      end
      object ToolButton4: TToolButton
        Left = 333
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object chang: TToolButton
        Left = 341
        Top = 0
        Caption = #27880#38144
        ImageIndex = 5
        OnClick = changClick
      end
      object pass: TToolButton
        Left = 378
        Top = 0
        Caption = #23494#30721
        ImageIndex = 4
        OnClick = passClick
      end
      object exit: TToolButton
        Left = 415
        Top = 0
        Caption = #36864#20986
        ImageIndex = 13
        OnClick = exitclick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 49
    Width = 688
    Height = 404
    Align = alClient
    BevelOuter = bvNone
    Ctl3D = True
    Locked = True
    ParentCtl3D = False
    TabOrder = 2
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 688
      Height = 404
      Align = alClient
      DataSource = DataSource1
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      OptionsEh = [dghFixed3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghEnterAsTab, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghRecordMoving]
      RowHeight = 2
      RowLines = 1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      OnTitleBtnClick = DBGridEh1TitleBtnClick
      Columns = <
        item
          EditButtons = <>
          FieldName = #24207#21495
          Footers = <>
          Title.TitleButton = True
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = #20195#21495
          Footers = <>
          Title.TitleButton = True
          Title.ToolTips = True
          ToolTips = True
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = #22995#21517
          Footers = <>
          Title.Caption = #22522#26412#20449#24687'|'#22995#21517
          Title.TitleButton = True
          Width = 50
        end
        item
          AlwaysShowEditButton = True
          EditButtons = <>
          FieldName = #24615#21035
          Footers = <>
          PickList.Strings = (
            #30007
            #22899)
          Title.Caption = #22522#26412#20449#24687'|'#24615#21035
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = #20986#36523#26085#26399
          Footers = <>
          Title.Caption = #22522#26412#20449#24687'|'#20986#36523#26085#26399
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = #24180#40836
          Footers = <>
          Title.Caption = #22522#26412#20449#24687'|'#24180#40836
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = #31821#36143
          Footers = <>