bycl.~dfm

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

object f_spbycl: Tf_spbycl
  Left = 79
  Top = 95
  BorderStyle = bsDialog
  Caption = #21830#21697#25253#28322#22788#29702
  ClientHeight = 389
  ClientWidth = 654
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    654
    389)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 249
    Top = 15
    Width = 138
    Height = 21
    Caption = #21830#21697#25253#28322#22788#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 482
    Top = 68
    Width = 48
    Height = 13
    Caption = #24211#31649#21592#65306
  end
  object Label3: TLabel
    Left = 256
    Top = 63
    Width = 36
    Height = 13
    Caption = #26102#38388#65306
  end
  object Label4: TLabel
    Left = 24
    Top = 63
    Width = 60
    Height = 13
    Caption = #25253#28322#31080#21495#65306
  end
  object Shape1: TShape
    Left = 87
    Top = 78
    Width = 83
    Height = 1
  end
  object Shape2: TShape
    Left = 293
    Top = 77
    Width = 81
    Height = 1
  end
  object sj: TLabel
    Left = 294
    Top = 64
    Width = 3
    Height = 13
  end
  object byph: TLabel
    Left = 89
    Top = 65
    Width = 3
    Height = 13
  end
  object kgy: TEdit
    Left = 532
    Top = 64
    Width = 80
    Height = 21
    Color = clBtnFace
    TabOrder = 0
    OnEnter = kgyEnter
    OnKeyDown = kgyKeyDown
  end
  object Panel1: TPanel
    Left = 0
    Top = 307
    Width = 654
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label5: TLabel
      Left = 37
      Top = 16
      Width = 60
      Height = 13
      Caption = #21830#21697#31181#31867#65306
    end
    object Label6: TLabel
      Left = 221
      Top = 16
      Width = 60
      Height = 13
      Caption = #21830#21697#25968#37327#65306
    end
    object Label7: TLabel
      Left = 445
      Top = 16
      Width = 60
      Height = 13
      Caption = #21830#21697#37329#39069#65306
    end
    object spzl: TLabel
      Left = 99
      Top = 15
      Width = 6
      Height = 13
      Caption = '0'
    end
    object spsl: TLabel
      Left = 282
      Top = 16
      Width = 6
      Height = 13
      Caption = '0'
    end
    object spje: TLabel
      Left = 508
      Top = 16
      Width = 33
      Height = 13
      Caption = '0.0000'
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 348
    Width = 654
    Height = 41
    Align = alBottom
    TabOrder = 2
    object tj: TBitBtn
      Left = 291
      Top = 8
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 0
      OnClick = tjClick
      Glyph.Data = {
        F2010000424DF201000000000000760000002800000024000000130000000100
        0400000000007C01000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
        3333333333388F3333333333000033334224333333333333338338F333333333
        0000333422224333333333333833338F33333333000033422222243333333333
        83333338F3333333000034222A22224333333338F33F33338F33333300003222
        A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
        38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
        2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
        0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
        333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
        33333A2224A2233333333338F338F83300003333333333A2224A333333333333
        8F338F33000033333333333A222433333333333338F338F30000333333333333
        A224333333333333338F38F300003333333333333A223333333333333338F8F3
        000033333333333333A3333333333333333383330000}
      NumGlyphs = 2
    end
    object bc: TBitBtn
      Left = 379
      Top = 8
      Width = 75
      Height = 25
      Caption = #20445#23384
      TabOrder = 1
      OnClick = bcClick
      Glyph.Data = {
        36050000424D3605000000000000360400002800000010000000100000000100
        0800000000000001000000000000000000000001000000010000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A600FFFFFF00E6FFFF00F3FFF700FFF7F000DCF7FB00F2FFE000E7EFFF00E7EF
        F700DEEFF700EFEFEF00DEF6E700E7EFEF00D0EFF700DEEFEF00E7F1E700F1EF
        E700EFE7F700E7E7F700D0EFEF00DEE7F700D2F1E700E7E7EF00D0E7F700DEE7
        EF00D3E7EF00E7E7E700DEE7E700D6E7E700DEE9DE00CEE7E700E9E5DE00DFDE
        EF00C6E4EC00D6E7DE00D4DEF000E7DEE700BAE3EC00DEDEE700D6DEE700CEDE
        E700C6E7D600DEDEDE00D6DEDE00CEDEDE00DBE2CF00CED6E700D7D6E200D3CE
        F300C6D5E700E8D6D600B8D6E700CED6DE00ABD8E600C6D6DE00D6D6D600BCD6
        DE00CED6D600C6D6D600BCCEE700BAD7D600CECEDF00C6CEDE00D8CED500D2D6
        C700BDCEDE00CECED600B5CEDE00C6CED400ABD2D500BDCED600CECECE00B5CE
        D60094D0DE00BDCECE00BAC5DF009CCDDA00B5CECE00BDC6D600C6C6D200B5C6
        D600D3C0CF00B5C6CE00BDC6CB00AAC6D100C6C6C600C4C9BD00B5C6C600B7BC
        D600A8BBD800ADBDCE00C6BCC600B8BDC800A5BDCE0063D6B500ADBDC600A5BD
        C600ADBDBD00BDBEB500A9B5CE009CB4D4008CB9CD0094B5CF00A6B5C6009CB5
        C6007AB7CD0094B5C600BEB5B500ABB4BD00B5B5B5009CB5BD00BFB6AD0094B5
        BD00A5ADC600A5B5B5009CACC60094AACA009CADBD0094ADBD007DB0BD00A0AC
        B50094ADB500ABACAD0063B5B5008CADB50072B1B50094A5BD008FADAD0063B5
        AD0094A5B5006394E70021B9B5008CA5B50094A5AD0063AAB500A5A5A50063AD
        AD00869CC1008CA5AD0074A9AD0084A5AD0059ADAD00DAA19500B4AC870063A5
        AD008D9CAD007A9CB300849CAD006B97BD00979C9F00849CA5007794B9007B9C
        A5006B8CC600849C9C0063AC88002C98C1008494A5006B8CBD00638DBD006B93
        AC007894A50086949C007B949C00929394006B84BD006384BD007B9494007C8A
        A0006387AB00AC9473007B8C9400738C9400898C89004C8AA200738494009C84
        84007F848D0073848C00848484005B7BA40075848300527B9C006363C400737B
        8C003B7BA000807B8500527B940086846D00737B84006B8473006363B5007C7B
        7B006B7A8300556F9E006363AD006B7F61006B7373005E707C007F6F6B00674B
        B8006B6B710032717800958F0E0083851A007F920000616365004145A8004D57
        60004E4E4E00334B5800815D0A00483D53003142490042424200503F3D004242
        390042393A0036393900393A280028313900141A650024292D0022212000171E
        240013181800001D0D00840010009800000010101200080D1000770000005D00
        010008100000080808000808000000000B00F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
        0707070707070707070707070000000000000000000000000007070003030000
        0000000007070003000707000303000000000000070700030007070003030000
        0000000007070003000707000303000000000000000000030007070003030303
        0303030303030303000707000303000000000000000003030007070003000707
        0707070707070003000707000300070707070707070700030007070003000707
        0707070707070003000707000300070707070707070700030007070003000707
        0707070707070000000707000300070707070707070700070007070000000000
        0000000000000000000707070707070707070707070707070707}
    end
    object qx: TBitBtn
      Left = 467
      Top = 8
      Width = 75
      Height = 25
      Cancel = True
      Caption = #21462#28040
      TabOrder = 2
      OnClick = qxClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object tc: TBitBtn
      Left = 555
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
      Kind = bkClose
    end
  end
  object bg: TStringGrid
    Left = 0
    Top = 113
    Width = 654
    Height = 194
    Align = alBottom
    Anchors = []
    Color = clBtnFace
    ColCount = 8
    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 = 3
    OnClick = bgClick
    OnDrawCell = bgDrawCell
    OnKeyDown = bgKeyDown
    OnKeyPress = bgKeyPress
    OnSelectCell = bgSelectCell
    OnSetEditText = bgSetEditText
    ColWidths = (
      100
      100
      100
      80
      84
      85
      100
      100)
  end
  object lb: TListBox
    Left = 214
    Top = 189
    Width = 78
    Height = 86
    Anchors = []
    Color = clBtnFace
    ItemHeight = 13
    TabOrder = 4
    Visible = False
    OnDblClick = lbDblClick
    OnEnter = lbEnter
    OnExit = lbExit
    OnKeyDown = lbKeyDown
  end
  object Grid1: TDBGrid
    Left = 108
    Top = 154
    Width = 287
    Height = 110
    Anchors = []
    Color = clBtnFace
    DataSource = DataSource2
    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 bzqlb: TListBox
    Left = 466
    Top = 165
    Width = 97
    Height = 109
    Anchors = []
    Color = clBtnFace
    ItemHeight = 13
    TabOrder = 6
    Visible = False
    OnDblClick = bzqlbDblClick
    OnExit = bzqlbExit
    OnKeyDown = bzqlbKeyDown
  end
  object DataSource2: TDataSource
    Left = 62
    Top = 198
  end
end