usergl.dfm

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

object frmUserGL: TfrmUserGL
  Left = 259
  Top = 109
  Width = 648
  Height = 408
  Anchors = [akLeft, akTop, akRight, akBottom]
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 352
    Top = 42
    Width = 288
    Height = 339
    Align = alRight
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Alignment = taCenter
        Title.Caption = #20195#30721
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 94
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UserName'
        Title.Alignment = taCenter
        Title.Caption = #29992#25143#22995#21517
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 150
        Visible = True
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 640
    Height = 42
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 636
      end>
    Images = frmMain.ImageList1
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 623
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 67
      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 = 67
        Top = 0
        Cursor = crHandPoint
        Caption = '&P.'#19978#19968#20010
        ImageIndex = 17
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 134
        Top = 0
        Cursor = crHandPoint
        Caption = '&N.'#19979#19968#20010
        ImageIndex = 16
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 201
        Top = 0
        Cursor = crHandPoint
        Caption = '&L.'#23614#35760#24405
        ImageIndex = 14
        OnClick = ToolButton5Click
      end
      object ToolButton7: TToolButton
        Left = 268
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 276
        Top = 0
        Cursor = crHandPoint
        Caption = '&A.'#22686#21152
        ImageIndex = 54
        OnClick = ToolButton8Click
      end
      object ToolButton9: TToolButton
        Left = 343
        Top = 0
        Cursor = crHandPoint
        Caption = '&S.'#20445#23384
        ImageIndex = 191
        OnClick = ToolButton9Click
      end
      object ToolButton1: TToolButton
        Left = 410
        Top = 0
        Caption = '&C.'#21462#28040
        ImageIndex = 69
        OnClick = ToolButton1Click
      end
      object ToolButton10: TToolButton
        Left = 477
        Top = 0
        Cursor = crHandPoint
        Caption = '&E.'#21024#38500
        ImageIndex = 0
        OnClick = ToolButton10Click
      end
      object ToolButton13: TToolButton
        Left = 544
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton11: TToolButton
        Left = 552
        Top = 0
        Cursor = crHandPoint
        Caption = '&R.'#36820#22238
        ImageIndex = 24
        OnClick = ToolButton11Click
      end
    end
  end
  object Panel1: TPanel
    Left = 6
    Top = 203
    Width = 339
    Height = 163
    BevelOuter = bvLowered
    TabOrder = 2
    Visible = False
    object Label4: TLabel
      Left = 19
      Top = 79
      Width = 70
      Height = 14
      Caption = #35797#29992#21040#26085#26399
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object dtDate: TDateTimePicker
      Left = 92
      Top = 73
      Width = 109
      Height = 22
      CalAlignment = dtaLeft
      Date = 37488
      Time = 37488
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 0
    end