baseedit.dfm

用delphi编写的数据库管理软件

inherited frmBaseEdit: TfrmBaseEdit
  Left = 106
  Top = 124
  Caption = #32534#32521#34920#22522#31867
  ClientHeight = 413
  ClientWidth = 667
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 667
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object FormTitle: TLabel
      Left = 24
      Top = 10
      Width = 6
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -21
      Font.Name = #21326#25991#34892#26999
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 558
      Top = 2
      Width = 107
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object btnExit: TButton
        Left = 18
        Top = 8
        Width = 75
        Height = 25
        Action = acExit
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object PnEdit: TPanel
    Left = 0
    Top = 41
    Width = 667
    Height = 137
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object plStandard: TPanel
      Left = 2
      Top = 2
      Width = 663
      Height = 45
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label5: TLabel
        Left = 16
        Top = 13
        Width = 52
        Height = 13
        Caption = #21333#25454#32534#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object plcalendar: TPanel
        Left = 419
        Top = 0
        Width = 244
        Height = 45
        Align = alRight
        BevelOuter = bvNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 13
          Top = 3
          Width = 80
          Height = 20
          Alignment = taCenter
          AutoSize = False
          Caption = #26032#24314#20154
          Color = clTeal
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label2: TLabel
          Left = 93
          Top = 3
          Width = 140
          Height = 20
          Alignment = taCenter
          AutoSize = False
          Caption = #26032#24314#26178#38291
          Color = clTeal
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object edtCreauser: TwwDBEdit
          Left = 13
          Top = 23
          Width = 80
          Height = 19
          Hint = 'fcreauser'
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Enabled = True
          Frame.FocusBorders = [efLeftBorder, efRightBorder, efBottomBorder]
          Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
          Frame.FocusStyle = efsFrameSingle
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object edtcreadate: TwwDBEdit
          Left = 92
          Top = 23
          Width = 140
          Height = 19
          Hint = 'fcreadate'
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Enabled = True
          Frame.FocusBorders = [efLeftBorder, efRightBorder, efBottomBorder]
          Frame.NonFocusBorders = [efLeftBorder, efRightBorder, efBottomBorder]
          Frame.FocusStyle = efsFrameSingle
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
      end
      object editno: TwwDBEdit
        Left = 77
        Top = 11
        Width = 140
        Height = 21
        Hint = 'fcreadate'
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Frame.Enabled = True
        Frame.FocusBorders = [efBottomBorder]
        Frame.FocusStyle = efsFrameSingle
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
  end
  object pBtn: TPanel
    Left = 0
    Top = 178
    Width = 667
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Panel4: TPanel
      Left = 431
      Top = 2
      Width = 234
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object btnrefresh: TButton
        Left = 2
        Top = 8
        Width = 75
        Height = 25
        Action = acRefresh
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object btnsearch: TButton
        Left = 79
        Top = 8
        Width = 75
        Height = 25
        Action = acSearch
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object btnprint: TButton
        Left = 156
        Top = 8
        Width = 75
        Height = 25
        Caption = #25171#21360
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = btnprintClick
      end
    end
    object btndelete: TButton
      Left = 234
      Top = 8
      Width = 75
      Height = 25
      Action = acSave
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object btnedit: TButton
      Left = 158
      Top = 8
      Width = 75
      Height = 25
      Action = acDelete
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object btncopy: TButton
      Left = 81
      Top = 8
      Width = 75
      Height = 25
      Action = acEdit
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object btnadd: TButton
      Left = 5
      Top = 8
      Width = 75
      Height = 25
      Action = acNew
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Button1: TButton
      Left = 311
      Top = 8
      Width = 75
      Height = 25
      Action = acCancel
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
  end
  object grid: TDBGridEh
    Left = 0
    Top = 219
    Width = 667
    Height = 194
    Align = alClient
    ColumnDefValues.Title.TitleButton = True
    DataSource = DSBaseinfo
    FixedColor = 12835543
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = 12835543
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDialogFind]
    ParentFont = False
    PopupMenu = popupgrid
    ReadOnly = True
    SortLocal = True
    SumList.Active = True
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnDrawColumnCell = gridDrawColumnCell
    OnTitleBtnClick = gridTitleBtnClick
  end
  object ActionList1: TActionList
    Left = 128
    Top = 273
    object acNew: TAction
      Caption = #26032#22686
      OnExecute = acNewExecute
    end
    object acEdit: TAction
      Caption = #20462#25913
      OnExecute = acEditExecute
    end
    object acDelete: TAction
      Caption = #21024#38500
      OnExecute = acDeleteExecute
    end
    object acSave: TAction
      Caption = #20445#23384
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      OnExecute = acCancelExecute
    end
    object acRefresh: TAction
      Caption = #21047#26032
      OnExecute = acRefreshExecute
    end
    object acSearch: TAction
      Caption = #26597#25214
      OnExecute = acSearchExecute
    end
    object acExit: TAction
      Caption = #36864#20986
      OnExecute = acExitExecute
    end
    object acFieldProperty: TAction
      Caption = #30028#38754#35774#32622
      OnExecute = acFieldPropertyExecute
    end
  end
  object CDSBaseinfo: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = CDSBaseinfoAfterInsert
    BeforePost = CDSBaseinfoBeforePost
    AfterPost = CDSBaseinfoAfterPost
    Left = 168
    Top = 273
  end
  object DSBaseinfo: TDataSource
    AutoEdit = False
    DataSet = CDSBaseinfo
    OnStateChange = DSBaseinfoStateChange
    OnDataChange = DSBaseinfoDataChange
    Left = 184
    Top = 288
  end
  object ActionList2: TActionList
    Left = 432
    Top = 264
    object acPrev: TAction
      Caption = #25171#21360#39044#35272
      OnExecute = acPrevExecute
    end
    object acPrint: TAction
      Caption = #30452#25509#25171#21360
      OnExecute = acPrintExecute
    end
    object acPSet: TAction
      Caption = #25171#21360#35774#32622
      OnExecute = acPSetExecute
    end
    object acRSet: TAction
      Caption = #25253#34920#35774#32622
      OnExecute = acRSetExecute
    end
    object acExcel: TAction
      Caption = #30005#23376#34920#26684
    end
  end
  object ppmreport: TPopupMenu
    Left = 472
    Top = 264
    object N1: TMenuItem
      Action = acPrev
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = acPrint
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = acPSet
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = acRSet
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = acExcel
    end
  end
  object frBaseinfo: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    MDIPreview = True
    ModalPreview = False
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit, pbPageSetup]
    RebuildPrinter = False
    Left = 352
    Top = 264
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DSBaseinfo
    Left = 400
    Top = 264
  end
  object MSNSaveinfo: TMSNPopUp
    Text = 'text'
    TimeOut = 1
    Width = 200
    Height = 100
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 28
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    HoverFont.Charset = ANSI_CHARSET
    HoverFont.Color = clMaroon
    HoverFont.Height = -13
    HoverFont.Name = #23435#20307
    HoverFont.Style = []
    Title = 'title'
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Options = [msnCascadePopups, msnAllowScroll]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 304
    Top = 272
  end
  object popupgrid: TPopupMenu
    Left = 144
    Top = 288
    object N10: TMenuItem
      Action = acNew
    end
    object N11: TMenuItem
      Action = acEdit
    end
    object N13: TMenuItem
      Action = acDelete
    end
    object N12: TMenuItem
      Action = acSave
    end
    object N19: TMenuItem
      Action = acCancel
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object N15: TMenuItem
      Action = acRefresh
    end
    object N16: TMenuItem
      Action = acSearch
    end
    object N17: TMenuItem
      Caption = '-'
    end
    object N18: TMenuItem
      Action = acFieldProperty
    end
    object N20: TMenuItem
      Caption = '-'
    end
    object N21: TMenuItem
      Action = acExit
    end
  end
end