mainfrm.dfm

程序用Delphi6编写

            Font.Color = clMaroon
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentColor = False
            ParentFont = False
            Transparent = True
          end
        end
      end
      object pnlNote: TPanel
        Left = 1
        Top = 176
        Width = 167
        Height = 107
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 1
        object Panel6: TPanel
          Left = 1
          Top = 1
          Width = 165
          Height = 20
          Align = alTop
          Alignment = taLeftJustify
          Caption = ' '#20415#31546
          TabOrder = 0
        end
        object Memo1: TMemo
          Left = 1
          Top = 21
          Width = 165
          Height = 85
          Align = alClient
          BevelInner = bvNone
          BevelOuter = bvNone
          BorderStyle = bsNone
          ScrollBars = ssVertical
          TabOrder = 1
        end
      end
    end
    object Panel7: TPanel
      Left = 174
      Top = 0
      Width = 384
      Height = 284
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel7'
      TabOrder = 1
      object DBGridEhMain: TDBGridEh
        Left = 0
        Top = 20
        Width = 384
        Height = 264
        Align = alClient
        AutoFitColWidths = True
        DataSource = dmMain.dsMain
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 384
        Height = 20
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Panel4'
        TabOrder = 1
        object Panel8: TPanel
          Left = 0
          Top = 2
          Width = 382
          Height = 16
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Caption = ' '#28789#29312#32593#31649
          Color = clAppWorkSpace
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
        end
      end
    end
  end
  object mmMain: TMainMenu
    Left = 72
    Top = 256
    object N2: TMenuItem
      Caption = #25805#20316
      object N5: TMenuItem
        Action = actBeginComputer
      end
      object N9: TMenuItem
        Action = actEndComputer
      end
      object N6: TMenuItem
        Action = actEditMoney
      end
      object N23: TMenuItem
        Action = actFuJia
      end
      object N27: TMenuItem
        Action = actSwapComputer
      end
      object N42: TMenuItem
        Action = actClear
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N37: TMenuItem
        Caption = #22791#20221#25968#25454
      end
      object N41: TMenuItem
        Caption = #23548#20837#22791#20221#25968#25454
      end
      object N38: TMenuItem
        Caption = '-'
      end
      object N39: TMenuItem
        Caption = #36864#20986
      end
    end
    object N1: TMenuItem
      Caption = #36828#31243#25511#21046
      object N15: TMenuItem
        Caption = #25235#23631
      end
      object N16: TMenuItem
        Caption = #32456#31471
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N18: TMenuItem
        Caption = #20851#26426
      end
      object N19: TMenuItem
        Caption = #37325#21551
      end
      object N20: TMenuItem
        Caption = #38145#23450
      end
      object N43: TMenuItem
        Caption = '-'
      end
      object N44: TMenuItem
        Caption = #26174#31034#22120
        object N45: TMenuItem
          Caption = #20241#30496
        end
        object N46: TMenuItem
          Caption = #28608#27963
        end
      end
      object N47: TMenuItem
        Caption = #38190#30424
        object N48: TMenuItem
          Caption = #38145#23450
        end
        object N49: TMenuItem
          Caption = #37322#25918
        end
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Caption = #21457#36865#28040#24687
      end
      object N26: TMenuItem
        Caption = #32842#22825#27169#24335
      end
    end
    object N35: TMenuItem
      Caption = #31649#29702
      object N36: TMenuItem
        Caption = #20250#21592
        OnClick = ShowHyForm
      end
      object N40: TMenuItem
        Caption = #21830#21697
        OnClick = ShowSpForm
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object N21: TMenuItem
        Caption = #27599#26085#32467#31639
        OnClick = N21Click
      end
    end
    object N7: TMenuItem
      Caption = #35774#32622
      object N31: TMenuItem
        Caption = #36873#39033
        OnClick = ShowConfigForm
      end
      object N8: TMenuItem
        Action = actConfigID
        Caption = #30005#33041#21488#25968
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161
      object N3: TMenuItem
        Caption = #24110#21161#20027#39064
      end
      object N11: TMenuItem
        Caption = #28789#29312#32593#31649#20027#39029
      end
      object N12: TMenuItem
        Caption = #32473#25105#20889#20449
      end
      object N28: TMenuItem
        Caption = '-'
      end
      object N29: TMenuItem
        Caption = #27880#20876
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N13: TMenuItem
        Caption = #20851#20110
        OnClick = N13Click
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 8
    Top = 288
    object actBeginComputer: TAction