baseinfo.dfm

三层ERP系统 (SQL)

inherited frmBaseinfo: TfrmBaseinfo
  Left = 699
  Top = 424
  Caption = #21934#34920#22522#39006
  ClientHeight = 412
  ClientWidth = 661
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 661
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object FormTitle: TLabel
      Left = 24
      Top = 10
      Width = 12
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -21
      Font.Name = #27161#26999#39636
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 552
      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
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 371
    Width = 661
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object btnadd: TButton
      Left = 5
      Top = 8
      Width = 75
      Height = 25
      Action = acinsert
      TabOrder = 0
    end
    object btncopy: TButton
      Left = 81
      Top = 8
      Width = 75
      Height = 25
      Action = accopy
      TabOrder = 1
    end
    object btnedit: TButton
      Left = 158
      Top = 8
      Width = 75
      Height = 25
      Action = acmodify
      TabOrder = 2
    end
    object btndelete: TButton
      Left = 235
      Top = 8
      Width = 75
      Height = 25
      Action = acdelete
      TabOrder = 3
    end
    object Panel4: TPanel
      Left = 425
      Top = 2
      Width = 234
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 4
      object btnrefresh: TButton
        Left = 2
        Top = 8
        Width = 75
        Height = 25
        Action = acrefresh
        TabOrder = 0
      end
      object btnsearch: TButton
        Left = 79
        Top = 8
        Width = 75
        Height = 25
        Action = acsearch
        TabOrder = 1
      end
      object btnprint: TButton
        Left = 156
        Top = 8
        Width = 75
        Height = 25
        Caption = #25171#21360
        TabOrder = 2
        OnClick = btnprintClick
      end
    end
  end
  object grid: TDBGridEh
    Left = 0
    Top = 41
    Width = 661
    Height = 330
    Align = alClient
    ColumnDefValues.Title.TitleButton = True
    DataSource = DSbaseinfo
    FixedColor = 12835543
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDialogFind]
    PopupMenu = popupgrid
    ReadOnly = True
    SortLocal = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = gridGetCellParams
    OnTitleBtnClick = gridTitleBtnClick
  end
  object CDSBaseinfo: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 72
  end
  object DSbaseinfo: TDataSource
    DataSet = CDSBaseinfo
    OnStateChange = DSbaseinfoStateChange
    OnDataChange = DSbaseinfoDataChange
    Left = 144
    Top = 88
  end
  object ActionList1: TActionList
    Left = 448
    Top = 256
    object Action1: TAction
      Caption = #25171#21360#38928#35261
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #30452#25509#25171#21360
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Caption = #25171#21360#35373#32622
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Caption = #22577#34920#35373#32622
      OnExecute = Action4Execute
    end
    object Action5: TAction
      Caption = #38651#23376#34920#26684
    end
  end
  object ppmreport: TPopupMenu
    Left = 496
    Top = 256
    object N1: TMenuItem
      Action = Action1
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = Action2
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = Action3
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = Action4
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = Action5
    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
    OnUserFunction = frBaseinfoUserFunction
    Left = 256
    Top = 136
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DSbaseinfo
    Left = 328
    Top = 136
  end
  object ActionList2: TActionList
    Left = 40
    Top = 168
    object acinsert: TAction
      Caption = #26032#22686
      OnExecute = acinsertExecute
    end
    object accopy: TAction
      Caption = #24489#21046
      OnExecute = accopyExecute
    end
    object acmodify: TAction
      Caption = #20462#25913
      OnExecute = acmodifyExecute
    end
    object acdelete: TAction
      Caption = #21034#38500
      OnExecute = acdeleteExecute
    end
    object acrefresh: TAction
      Caption = #21047#26032
      OnExecute = acrefreshExecute
    end
    object acsearch: TAction
      Caption = #26597#25214
      OnExecute = acsearchExecute
    end
    object acfieldproperty: TAction
      Caption = #30028#38754#35373#32622
      OnExecute = acfieldpropertyExecute
    end
    object acexit: TAction
      Caption = #36864#20986
      OnExecute = acexitExecute
    end
  end
  object popupgrid: TPopupMenu
    Left = 112
    Top = 168
    object N10: TMenuItem
      Action = acinsert
    end
    object N11: TMenuItem
      Action = accopy
    end
    object N12: TMenuItem
      Action = acmodify
    end
    object N13: TMenuItem
      Action = acdelete
    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
  object MSNSaveinfo: TMSNPopUp
    Text = 'text'
    TimeOut = 1
    Width = 200
    Height = 100
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HoverFont.Charset = DEFAULT_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -11
    HoverFont.Name = 'MS Sans Serif'
    HoverFont.Style = [fsUnderline]
    Title = 'title'
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Options = [msnCascadePopups, msnAllowScroll]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 200
    Top = 232
  end
end