unit5.dfm

完整的一个用于考勤排班功能的程序

object fbanci: Tfbanci
  Left = 244
  Top = 201
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 452
  ClientWidth = 713
  Color = 14211288
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 193
    Height = 433
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'Panel1'
    Color = 14211288
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 312
      Width = 48
      Height = 12
      Caption = #29677#27425#21517#31216
    end
    object Label2: TLabel
      Left = 16
      Top = 344
      Width = 24
      Height = 12
      Caption = #21608#26399
    end
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 2
      Width = 189
      Height = 295
      TabStop = False
      Align = alTop
      DataSource = DataSource1
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGridEh1CellClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'banci_name'
          Footers = <>
          Title.Caption = #29677#27425#21517#31216
          Width = 81
        end
        item
          EditButtons = <>
          FieldName = 'banci_cycle'
          Footers = <>
          Title.Caption = #21608#26399
          Width = 34
        end
        item
          EditButtons = <>
          FieldName = 'banci_unit'
          Footers = <>
          KeyList.Strings = (
            '1'
            '7')
          PickList.Strings = (
            #22825
            #21608)
          Title.Caption = #21333#20301
          Width = 36
        end>
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 366
      Width = 189
      Height = 65
      Align = alBottom
      Color = clBtnFace
      ParentColor = False
      TabOrder = 3
      object BitBtn1: TBitBtn
        Left = 8
        Top = 10
        Width = 75
        Height = 25
        Caption = #22686#21152
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777777777777777777777777777777777777777777777777700077
          7777777777706077777777777770607777777777000060000777777706666666
          0777777700006000077777777770607777777777777060777777777777700077
          7777777777777777777777777777777777777777777777777777}
      end
      object BitBtn2: TBitBtn
        Left = 96
        Top = 10
        Width = 75
        Height = 25
        Caption = #20445#23384
        TabOrder = 1
        OnClick = BitBtn2Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777770000000000000770330000007703077033000000770307703300000077
          0307703300000000030770333333333333077033000000003307703077777777
          0307703077777777030770307777777703077030777777770307703077777777
          0007703077777777070770000000000000077777777777777777}
      end
      object BitBtn3: TBitBtn
        Left = 8
        Top = 38
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 2
        OnClick = BitBtn3Click
        Glyph.Data = {
          E6000000424DE60000000000000076000000280000000E0000000E0000000100
          0400000000007000000000000000000000001000000000000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3300333333333333330033333333333333003333333333333300333333333333
          330033333333333333003300000000003300330FFFFFFFF03300330000000000
          3300333333333333330033333333333333003333333333333300333333333333
          33003333333333333300}
      end
      object BitBtn4: TBitBtn
        Left = 96
        Top = 38
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 3
        OnClick = BitBtn4Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777700000000000007770333333333330777033333333333077703333333333
          3077703333333333307770333333333330777033333333333077703333333333
          30777800000000000877770FFF07777777747770007777777774777777777777
          4747777777777777447777777777777744477777777777777777}
      end
    end
    object DBEdit1: TDBEdit
      Left = 64
      Top = 312
      Width = 113
      Height = 20
      DataField = 'banci_name'
      DataSource = DataSource1
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 48
      Top = 344
      Width = 41
      Height = 20
      DataField = 'banci_cycle'
      DataSource = DataSource1
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 1
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 96
      Top = 336
      Width = 81
      Height = 33