personel.dfm

这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限

object frmPersonel: TfrmPersonel
  Left = 290
  Top = 136
  Width = 670
  Height = 413
  BorderIcons = [biSystemMenu]
  Caption = #20154#20107#36164#26009
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 662
    Height = 41
    AutoSize = True
    BandBorderStyle = bsNone
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 37
        ParentBitmap = False
        Width = 658
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 645
      Height = 37
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 61
      Caption = 'ToolBar1'
      Flat = True
      HotImages = frmMain.ImageList1
      Images = frmMain.ImageList1
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object ToolButton2: TToolButton
        Left = 0
        Top = 0
        Cursor = crHandPoint
        Caption = '&F.'#39318#35760#24405
        ImageIndex = 15
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 61
        Top = 0
        Cursor = crHandPoint
        Caption = '&P.'#19978#19968#20010
        ImageIndex = 17
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 122
        Top = 0
        Cursor = crHandPoint
        Caption = '&N.'#19979#19968#20010
        ImageIndex = 16
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 183
        Top = 0
        Cursor = crHandPoint
        Caption = '&L.'#23614#35760#24405
        ImageIndex = 14
        OnClick = ToolButton5Click
      end
      object ToolButton7: TToolButton
        Left = 244
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 252
        Top = 0
        Cursor = crHandPoint
        Caption = '&A.'#22686#21152
        ImageIndex = 54
        OnClick = ToolButton8Click
      end
      object ToolButton9: TToolButton
        Left = 313
        Top = 0
        Cursor = crHandPoint
        Caption = '&S.'#20445#23384
        ImageIndex = 191
        OnClick = ToolButton9Click
      end
      object ToolButton1: TToolButton
        Left = 374
        Top = 0
        Caption = '&C.'#21462#28040
        ImageIndex = 69
        OnClick = ToolButton1Click
      end
      object ToolButton12: TToolButton
        Left = 435
        Top = 0
        Caption = '&D.'#26597#35810
        ImageIndex = 182
        OnClick = ToolButton12Click
      end
      object ToolButton10: TToolButton
        Left = 496
        Top = 0
        Cursor = crHandPoint
        Caption = '&E.'#21024#38500
        ImageIndex = 0
        OnClick = ToolButton10Click
      end
      object ToolButton13: TToolButton
        Left = 557
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton11: TToolButton
        Left = 565
        Top = 0
        Cursor = crHandPoint
        Caption = '&R.'#36820#22238
        ImageIndex = 24
        OnClick = ToolButton11Click
      end
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 41
    Width = 662
    Height = 345
    ActivePage = TabSheet1
    Align = alClient
    Images = frmMain.ImageList1
    MultiLine = True
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #20154#20107#36164#26009
      ImageIndex = 72
      object Panel1: TPanel
        Left = 7
        Top = 8
        Width = 638
        Height = 296
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 24
          Top = 21
          Width = 24
          Height = 12
          Caption = #24037#21495
        end
        object Label2: TLabel
          Left = 163
          Top = 21
          Width = 24
          Height = 12
          Caption = #22995#21517
        end
        object Label3: TLabel
          Left = 341
          Top = 21
          Width = 24
          Height = 12
          Caption = #24615#21035
        end
        object Label4: TLabel
          Left = 486
          Top = 23
          Width = 24
          Height = 12
          Caption = #36710#38388
        end
        object Label5: TLabel
          Left = 25
          Top = 61
          Width = 24
          Height = 12
          Caption = #24037#31181
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 160
          Top = 62
          Width = 48
          Height = 12
          Caption = #36827#21378#26085#26399
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 320
          Top = 62
          Width = 48
          Height = 12
          Caption = #22522#26412#24037#36164
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 475
          Top = 61
          Width = 36
          Height = 12
          Caption = #24037#40836#22870
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 25
          Top = 100
          Width = 24
          Height = 12
          Caption = #34917#36148
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 26
          Top = 135
          Width = 24
          Height = 12
          Caption = #22791#27880
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object edtPersonId: TdxEdit
          Left = 53
          Top = 14
          Width = 74
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 0
        end
        object edtName: TdxEdit
          Left = 192
          Top = 14
          Width = 105
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 1
        end
        object icbSex: TdxImageEdit
          Left = 371
          Top = 16
          Width = 76
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 2
          Text = #30007
          Descriptions.Strings = (
            #30007
            #22899)
          ImageIndexes.Strings = (
            '0'
            '1')
          Images = ImageList1
          LargeImages = ImageList1
          Values.Strings = (
            #30007