main.dfm

三層源碼,DELPHI寫的三層源碼,三層源碼,

object mainform: Tmainform
  Left = 190
  Top = 105
  Width = 596
  Height = 376
  Caption = '工资系统'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCanResize = FormCanResize
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 311
    Width = 588
    Height = 19
    Panels = <
      item
        Text = '公司名称:'
        Width = 60
      end
      item
        Text = '时光'
        Width = 200
      end
      item
        Text = '操作员:'
        Width = 50
      end
      item
        Width = 80
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 588
    Height = 60
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 1
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 588
      Height = 60
      Align = alClient
      Transparent = True
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 60
    Width = 129
    Height = 251
    Align = alLeft
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 2
    object Image2: TImage
      Left = 0
      Top = 0
      Width = 129
      Height = 251
      Align = alClient
      AutoSize = True
      Stretch = True
      OnDblClick = Image2DblClick
    end
    object SpeedButton1: TSpeedButton
      Left = 16
      Top = 48
      Width = 97
      Height = 22
      Caption = '基本信息'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton4: TSpeedButton
      Left = 16
      Top = 72
      Width = 97
      Height = 22
      Caption = '个人所得税'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton4Click
    end
    object SpeedButton7: TSpeedButton
      Left = 16
      Top = 96
      Width = 97
      Height = 22
      Caption = '系统设置'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton7Click
    end
  end
  object Panel3: TPanel
    Left = 129
    Top = 60
    Width = 459
    Height = 251
    Align = alClient
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 3
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 64
      Height = 13
      Caption = '操作对像:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 459
      Height = 50
      Align = alTop
      Shape = bsBottomLine
    end
    object Label2: TLabel
      Left = 312
      Top = 16
      Width = 64
      Height = 15
      Cursor = crHandPoint
      Caption = '事件提醒'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = Label2Click
    end
    object Panel4: TPanel
      Left = 0
      Top = 50
      Width = 459
      Height = 201
      Align = alClient
      BevelOuter = bvNone
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 144
    Top = 120
    object N1: TMenuItem
      Caption = '系统(&S)'
      object useradmin_click: TMenuItem
        Caption = '帐号管理'
        OnClick = useradmin_clickClick
      end
      object company_click: TMenuItem
        Caption = '公司信息'
        OnClick = company_clickClick
      end
      object timehintclick: TMenuItem
        Caption = '事件提醒'
        OnClick = timehintclickClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = '退出'
        OnClick = N3Click
      end
    end
    object N6: TMenuItem
      Caption = '基本资料(&B)'
      object dept_click: TMenuItem