xsth.~dfm

这是用Delphi编写的中小企业管理系统

object f_xsth: Tf_xsth
  Left = 33
  Top = 147
  BorderStyle = bsDialog
  Caption = #38144#21806#36864#36135#31649#29702
  ClientHeight = 447
  ClientWidth = 693
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label11: TLabel
    Left = 250
    Top = 8
    Width = 190
    Height = 30
    AutoSize = False
    Caption = #38144#21806#36864#36135#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = 10592673
    Font.Height = -29
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Shape1: TShape
    Left = 254
    Top = 35
    Width = 174
    Height = 1
  end
  object Label2: TLabel
    Left = 34
    Top = 74
    Width = 57
    Height = 13
    AutoSize = False
    BiDiMode = bdRightToLeft
    Caption = #36864#36135#31080#21495
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 60
    Top = 102
    Width = 33
    Height = 13
    AutoSize = False
    BiDiMode = bdRightToLeft
    Caption = #23458#25143
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 474
    Top = 74
    Width = 43
    Height = 13
    AutoSize = False
    BiDiMode = bdRightToLeft
    Caption = #36864#36135#20154
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 488
    Top = 103
    Width = 31
    Height = 13
    AutoSize = False
    BiDiMode = bdRightToLeft
    Caption = #26102#38388
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Transparent = True
  end
  object thph: TEdit
    Left = 93
    Top = 70
    Width = 110
    Height = 21
    Color = clBtnFace
    Enabled = False
    TabOrder = 0
  end
  object kh: TEdit
    Left = 92
    Top = 98
    Width = 110
    Height = 21
    Color = clBtnFace
    TabOrder = 1
    OnExit = khExit
    OnKeyDown = khKeyDown
  end
  object thr: TEdit
    Left = 525
    Top = 70
    Width = 110
    Height = 21
    Color = clBtnFace
    TabOrder = 2
    OnExit = thrExit
    OnKeyDown = khKeyDown
  end
  object sj: TDateTimePicker
    Left = 525
    Top = 98
    Width = 110
    Height = 21
    BiDiMode = bdLeftToRight
    Date = 38173.562195439820000000
    Format = 'yyyy-MM-dd'
    Time = 38173.562195439820000000
    Color = clBtnFace
    ParentBiDiMode = False
    TabOrder = 3
    OnKeyDown = khKeyDown
  end
  object bg: TStringGrid
    Left = 0
    Top = 132
    Width = 693
    Height = 254
    Align = alBottom
    Color = clBtnFace
    ColCount = 11
    Ctl3D = False
    DefaultColWidth = 100
    DefaultRowHeight = 20
    FixedColor = 13750737
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing]
    ParentCtl3D = False
    TabOrder = 4
    OnClick = bgClick
    OnDrawCell = bgDrawCell
    OnExit = bgExit
    OnKeyDown = bgKeyDown
    OnKeyPress = bgKeyPress
    OnSelectCell = bgSelectCell
    OnSetEditText = bgSetEditText
    ColWidths = (
      100
      100
      100
      100
      100
      100
      121
      100
      100
      100
      100)
  end
  object Grid1: TDBGrid
    Left = 26
    Top = 196
    Width = 305
    Height = 128
    Color = clBtnFace
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnDblClick = Grid1DblClick
    OnExit = Grid1Exit
    OnKeyDown = Grid1KeyDown
  end
  object lb: TListBox
    Left = 336
    Top = 196
    Width = 113
    Height = 128
    Color = clBtnFace
    ItemHeight = 13
    TabOrder = 6
    Visible = False
    OnDblClick = lbDblClick
    OnExit = lbExit
    OnKeyDown = lbKeyDown
  end
  object Panel2: TPanel
    Left = 0
    Top = 386
    Width = 693
    Height = 61
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 7
    object Label7: TLabel
      Left = 38
      Top = 33
      Width = 60
      Height = 13
      AutoSize = False
      BiDiMode = bdRightToLeft
      Caption = #36864#36135#23567#35745
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
      Transparent = True
    end
    object Label9: TLabel
      Left = 38
      Top = 9
      Width = 60
      Height = 13
      AutoSize = False
      BiDiMode = bdRightToLeft
      Caption = #36864#36135#25240#35753
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 222
      Top = 9
      Width = 60
      Height = 13
      AutoSize = False
      BiDiMode = bdRightToLeft
      Caption = #20914#36134#37329#39069
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
      Transparent = True
    end
    object tj: TSpeedButton
      Left = 422
      Top = 6
      Width = 73
      Height = 22
      Caption = #28155#21152
      Glyph.Data = {
        C6050000424DC605000000000000360400002800000014000000140000000100
        0800000000009001000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FFFFFF00FFFF0000FFFFFF00000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000000000000D0D0D0D0D0D
        0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D070000070D0D0D0D0D0D
        0D0D0D0D0D0D0D070604040404000008070D0D0D0D0D0D0D0D0D070404040404
        04040404000D0D0D0D0D0D0D0D070404040404040404040404000D0D0D0D0D0D
        0D040404040D0D0D0D0D0D040404000D0D0D0D0D08040404040D0D0D0D0D0D04
        040404080D0D0D0D080404040404040D0D040404040404080D0D0D0704040404
        0404040D0D040404040404000D0D0D07040404040404040D0D04040404040400
        0D0D0D07040404040404040D0D040404040404000D0D0D07040404040404040D
        0D040404040404000D0D0D0D08040404040D0D0D0D040404040404070D0D0D0D
        08040404040D0D0D0D040404040404080D0D0D0D0D0404040404040D0D040404
        0404000D0D0D0D0D0D070404040404040404040404000D0D0D0D0D0D0D0D0704
        0404040404040404080D0D0D0D0D0D0D0D0D0D0D08050404040408080D0D0D0D
        0D0D0D0D0D0D0D0D0D0D0707070D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
        0D0D0D0D0D0D0D0D0D0D}
      OnClick = tjClick
    end
    object bc: TSpeedButton
      Left = 502
      Top = 6