cgth.dfm

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

object f_cgth: Tf_cgth
  Left = 108
  Top = 111
  BorderStyle = bsDialog
  Caption = #37319#36141#36864#36135#31649#29702
  ClientHeight = 439
  ClientWidth = 709
  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 = 266
    Top = 8
    Width = 180
    Height = 30
    Caption = #37319#36141#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 = 271
    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 = #21378#21830
    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 = 519
    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 = 533
    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 cgph: TEdit
    Left = 93
    Top = 70
    Width = 110
    Height = 21
    Color = clBtnFace
    Enabled = False
    TabOrder = 1
  end
  object cs: TEdit
    Left = 92
    Top = 98
    Width = 110
    Height = 21
    Color = clBtnFace
    TabOrder = 2
    OnExit = csExit
    OnKeyDown = csKeyDown
  end
  object cgy: TEdit
    Left = 566
    Top = 70
    Width = 110
    Height = 21
    Color = clBtnFace
    TabOrder = 3
    OnExit = cgyExit
    OnKeyDown = csKeyDown
  end
  object sj: TDateTimePicker
    Left = 566
    Top = 98
    Width = 110
    Height = 21
    BiDiMode = bdLeftToRight
    Date = 38173.562195439820000000
    Format = 'yyyy-MM-dd'
    Time = 38173.562195439820000000
    Color = clBtnFace
    ParentBiDiMode = False
    TabOrder = 5
    OnKeyDown = csKeyDown
  end
  object bg: TStringGrid
    Left = 0
    Top = 135
    Width = 709
    Height = 243
    Align = alBottom
    Color = clBtnFace
    ColCount = 10
    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
    OnKeyDown = bgKeyDown
    OnKeyPress = bgKeyPress
    OnSelectCell = bgSelectCell
    OnSetEditText = bgSetEditText
  end
  object Grid1: TDBGrid
    Left = 34
    Top = 172
    Width = 305
    Height = 142
    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 = 6
    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 = 352
    Top = 172
    Width = 113
    Height = 128
    Color = clBtnFace
    ItemHeight = 13
    TabOrder = 7
    Visible = False
    OnDblClick = lbDblClick
    OnExit = lbExit
    OnKeyDown = lbKeyDown
  end
  object Panel2: TPanel
    Left = 0
    Top = 378
    Width = 709
    Height = 61
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    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 thxj: TEdit
      Left = 101
      Top = 30
      Width = 110
      Height = 21
      Color = clBtnFace
      Enabled = False
      TabOrder = 0
      Text = '0.0'
    end
    object thzr: TEdit
      Left = 101
      Top = 5
      Width = 110
      Height = 21
      Color = clBtnFace
      TabOrder = 1
      Text = '0.0'
      OnChange = thzrChange
      OnEnter = thzrEnter
      OnKeyPress = thzrKeyPress
    end
    object tj: TBitBtn
      Left = 405
      Top = 5
      Width = 75
      Height = 24
      Caption = #28155#21152
      TabOrder = 2
      OnClick = tjClick
      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