u_teams.dfm

小型劳资管理系统,用visual basic+access编写

object F_teams: TF_teams
  Left = 183
  Top = 208
  Width = 535
  Height = 333
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29677#27425#25490#23450
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 256
    Width = 41
    Height = 1
  end
  object Bevel2: TBevel
    Left = 0
    Top = 256
    Width = 521
    Height = 49
  end
  object bitbtn1: TSpeedButton
    Left = 256
    Top = 272
    Width = 81
    Height = 25
    Caption = #29677#27425#30830#23450
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -15
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777770777707777777777007700777777777700770077777777770077007
      7777777770000007777777777000000777777777700000077777777070000007
      0777777070000007077777707000000707777777000000007777777777700777
      7777777777000077777777777700007777777777770000777777}
    ParentFont = False
    OnClick = BitBtn1Click
  end
  object SpeedButton1: TSpeedButton
    Left = 344
    Top = 272
    Width = 73
    Height = 25
    Caption = #25171#21360
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777700000000000777707777777770707700000000000007070777777BBB77
      0007077777788877070700000000000007700777777777707070700000000007
      0700770FFFFFFFF070707770F00000F000077770FFFFFFFF077777770F00000F
      077777770FFFFFFFF07777777000000000777777777777777777}
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 270
    Width = 240
    Height = 27
    DataSource = ActiveDS
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbCancel, nbRefresh]
    Flat = True
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 521
    Height = 120
    DataSource = DM.DT_teams
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid1Enter
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        Title.Caption = #29677#27425#21517#31216
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -16
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZBtime'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        Title.Caption = #27491#29677#26102#25968
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -16
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JBtime'
        Title.Caption = #21152#29677#26102#25968
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -16
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'memo'
        Title.Caption = #31616#21333#25551#36848
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 239
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 120
    Width = 521
    Height = 129
    DataSource = DM.DT_teamstime
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid2Enter
    OnKeyPress = DBGrid2KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #26102#27573#21517#31216
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'begin_time'
        Title.Caption = #36215#22987#26102#38388
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'begin_check'
        Title.Caption = #26631#35782
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'end_time'
        Title.Caption = #25130#27490#26102#38388
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'end_check'
        Title.Caption = #32456#27490#26631#35782
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'memo'
        Title.Caption = #31616#21333#25551#36848
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clPurple
        Title.Font.Height = -15
        Title.Font.Name = #26999#20307'_GB2312'
        Title.Font.Style = []
        Width = 214
        Visible = True
      end>
  end
  object DBCheckBox1: TDBCheckBox
    Left = 424
    Top = 280
    Width = 81
    Height = 15
    Caption = #26159#21542#36328#22825
    DataField = 'overday'
    DataSource = DM.DT_teams
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -15
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object ActiveDS: TDataSource
    Left = 40
    Top = 80
  end
end