frmmain.dfm

一个别人开发的地税发票系统

          FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
          000000000000000000000000000000000000FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
          000000000000000000000000000000000000FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
          000000000000000000000000000000000000000000000000000000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
        Layout = blGlyphTop
        Spacing = 0
        OnClick = SpeedButton11Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 479
    Width = 784
    Height = 19
    Panels = <
      item
        Text = #27426#36814#20351#29992#36125#22771#36719#20214
        Width = 110
      end
      item
        Text = #36125#22771#24037#20316#23460#20027#39029':http://www.bkwork.com  QQ:280534828,36999808'
        Width = 400
      end
      item
        Text = #25805#20316#21592':'
        Width = 50
      end
      item
        Text = #26472#20891
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #26102#38388
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object MainBrower: TWebBrowser
    Left = 0
    Top = 49
    Width = 200
    Height = 430
    Align = alLeft
    TabOrder = 1
    OnBeforeNavigate2 = MainBrowerBeforeNavigate2
    ControlData = {
      4C000000AC140000712C00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object InVoiceTable: TAdvStringGrid
    Left = 200
    Top = 168
    Width = 585
    Height = 313
    Cursor = crDefault
    ColCount = 13
    DefaultColWidth = 44
    DefaultRowHeight = 21
    FixedCols = 0
    RowCount = 11
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goTabs]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 3
    OnClick = InVoiceTableClick
    OnDrawCell = InVoiceTableDrawCell
    OnGetEditMask = InVoiceTableGetEditMask
    OnKeyPress = InVoiceTableKeyPress
    OnSelectCell = InVoiceTableSelectCell
    OnClickCell = InVoiceTableClickCell
    OnCanEditCell = InVoiceTableCanEditCell
    OnGetEditorType = InVoiceTableGetEditorType
    OnEditingDone = InVoiceTableEditingDone
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    Filter = <>
    FixedColWidth = 44
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    HideFocusRect = True
    Multilinecells = True
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'MS Sans Serif'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'MS Sans Serif'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'MS Sans Serif'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'MS Sans Serif'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    ScrollWidth = 16
    SearchFooter.FindNextCaption = 'Find next'
    SearchFooter.FindPrevCaption = 'Find previous'
    SearchFooter.Font.Charset = DEFAULT_CHARSET
    SearchFooter.Font.Color = clWindowText
    SearchFooter.Font.Height = -11
    SearchFooter.Font.Name = 'MS Sans Serif'
    SearchFooter.Font.Style = []
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurence'
    SearchFooter.HintFindPrev = 'Find previous occurence'
    SearchFooter.HintHighlight = 'Highlight occurences'
    SearchFooter.MatchCaseCaption = 'Match case'
    SelectionTextColor = clHighlightText
    Version = '3.4.8.9'
    object Label10: TLabel
      Left = 40
      Top = 252
      Width = 504
      Height = 65
      Caption = 
        '    '#25353#29031#12298#20013#21326#20154#27665#20849#21644#22269#20225#19994#25152#24471#31246#26242#34892#26465#20363#12299#30340#35268#23450#65292#36825#31181#36710#36148#23646#20110#24037#36164#30340#32452#25104#37096#20998#65292#21482#33021#13#10#22312#20225#19994#25152#24471#31246#21069#38480#39069#25187#38500#65292#36229#36807#37096#20998#35201#20570 +
        #32435#31246#35843#25972#12290#32780#19988#25353#29031#12298#20013#21326#20154#27665#20849#21644#22269#20010#20154#25152#24471#31246#27861#12299#13#10#30340#35268#23450#65292#36825#31181#36710#36148#20063#26159#35201#24449#25910#20010#20154#25152#24471#31246#30340#12290#22914#26524#20801#35768#32534#36896#36825#26679#19968#20010#34394#20551#30340#21512#21516#21040#31246#21153 +
        #26426#20851#20195#24320#13#10#21457#31080#65292#20225#19994#19981#20165#21487#20197#22312#32564#32435#25152#24471#31246#21069#20840#39069#25187#38500#65292#20316#20026#21592#24037#20010#20154#36824#21487#20197#23569#32564#25110#19981#32564#20010#20154#25152#24471#31246#12290#13#10
      Transparent = True
      Visible = False
      WordWrap = True
    end
    object BKTitle: TRichEdit
      Left = 48
      Top = 232
      Width = 505
      Height = 17
      Alignment = taCenter
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Lines.Strings = (
        #26412#31243#24207#30001#36125#22771#36719#20214#24037#20316#23460#21046#20316'  '#20027#39029':http://www.bkwork.com')
      ParentFont = False
      TabOrder = 1
      Visible = False
    end
  end
  object EditPan: TPanel
    Left = 200
    Top = 49
    Width = 584
    Height = 120
    BevelOuter = bvNone
    Color = 15794160
    TabOrder = 2
    object Bevel4: TBevel
      Left = 0
      Top = 2
      Width = 2
      Height = 116
      Align = alLeft
    end
    object Bevel5: TBevel
      Left = 0
      Top = 0
      Width = 584
      Height = 2
      Align = alTop
    end
    object Bevel7: TBevel
      Left = 0
      Top = 118
      Width = 584
      Height = 2
      Align = alBottom
    end
    object Label9: TLabel
      Left = 18
      Top = 49
      Width = 57
      Height = 13
      Caption = #25215'  '#31199' '#26041#65306
    end
    object Label8: TLabel
      Left = 10
      Top = 81
      Width = 60
      Height = 13
      Caption = #23458#25143#32534#30721#65306
    end
    object Label6: TLabel
      Left = 316
      Top = 53
      Width = 60
      Height = 13
      Caption = #23458#25143#21517#31216#65306
    end
    object Label4: TLabel
      Left = 316
      Top = 77
      Width = 60
      Height = 13
      Caption = #23458#25143#32534#30721#65306
    end
    object Label3: TLabel
      Left = 392
      Top = 20
      Width = 60
      Height = 13
      Caption = #21457#31080#21495#30721#65306
    end
    object Label2: TLabel
      Left = 256
      Top = 20
      Width = 60
      Height = 13
      Caption = #24320#31080#26085#26399#65306
    end
    object Label1: TLabel
      Left = 10
      Top = 20
      Width = 60
      Height = 13
      Caption = #21457#31080#21495#30721#65306
    end
    object AdvEdit7: TAdvEdit
      Left = 384
      Top = 77
      Width = 185
      Height = 21
      FocusColor = 10541820
      LabelFont.Charset = DEFAULT_CHARSET
      LabelFont.Color = clWindowText
      LabelFont.Height = -11
      LabelFont.Name = 'MS Sans Serif'
      LabelFont.Style = []
      Lookup.Separator = ';'