frmmain.dfm

地税局发票程序源代码,自己开发的一个程序,最近整理资料的时候看到,放在那也是放着,拿出来供大家

      end
      object ToolButton7: TToolButton
        Left = 264
        Top = 2
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 5
        Style = tbsDivider
      end
      object SpeedButton11: TSpeedButton
        Left = 272
        Top = 2
        Width = 41
        Height = 39
        Caption = #36864#20986
        Flat = True
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0080800000FFFF
          FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008080000080800000FFFF
          FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00808000008080000080800000FFFF
          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 Edit1: TEdit
    Left = 72
    Top = 64
    Width = 105
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
  end
  object Edit2: TEdit
    Left = 256
    Top = 64
    Width = 153
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
  end
  object DateTimePicker1: TDateTimePicker
    Left = 480
    Top = 64
    Width = 113
    Height = 21
    Date = 38837.807813055560000000
    Time = 38837.807813055560000000
    Color = clMenuBar
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object InVoiceTable: TAdvStringGrid
    Left = 6
    Top = 88
    Width = 585
    Height = 281
    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 = 5
    OnDrawCell = InVoiceTableDrawCell
    OnKeyPress = InVoiceTableKeyPress
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    Multilinecells = True
    OnClickCell = InVoiceTableClickCell
    OnCanEditCell = InVoiceTableCanEditCell
    OnGetEditorType = InVoiceTableGetEditorType
    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
    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.FitToPage = fpShrink
    PrintSettings.PageNumSep = '/'
    ScrollWidth = 16
    FixedColWidth = 44
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    HideFocusRect = True
    Filter = <>
    Version = '3.3.2.9'
  end
  object GroupBox1: TGroupBox
    Left = 104
    Top = 48
    Width = 313
    Height = 153
    Caption = #26597#35810
    TabOrder = 1
    Visible = False
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 60
      Height = 13
      Caption = #21457#31080#21495#30721#65306
    end
    object DBGridEh1: TDBGridEh
      Left = 8
      Top = 40
      Width = 297
      Height = 105
      DataSource = DataSource1
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = #21457#31080#21495#30721
          Footers = <>
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = #21333#20301#21517#31216
          Footers = <>
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = #24320#31080#26085#26399
          Footers = <>
          Width = 100
        end>
    end
    object Edit3: TEdit
      Left = 72
      Top = 16
      Width = 121
      Height = 19
      Color = cl3DLight
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
    end
    object BitBtn1: TBitBtn
      Left = 200
      Top = 12
      Width = 49
      Height = 25
      Caption = #26597'  '#35810
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object Button1: TButton
      Left = 256
      Top = 12
      Width = 49
      Height = 25
      Caption = #36820'  '#22238
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 64
    Top = 120
    object F1: TMenuItem
      Caption = #12304#25991#20214#12305'&F'
      object N1: TMenuItem
        Caption = #29992#25143#31649#29702
        ShortCut = 16462
        OnClick = N1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Caption = #26032#24314#21457#31080
        Enabled = False
        ShortCut = 16462
      end
      object N5: TMenuItem
        Caption = #20445#23384#21457#31080
        Enabled = False
        ShortCut = 16467
      end
      object N6: TMenuItem
        Caption = #20462#25913#21457#31080
        Enabled = False
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #25171#21360#21457#31080
        Enabled = False
        ShortCut = 16464
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Caption = #36864#20986#36719#20214'(&X)'
        OnClick = N10Click
      end
    end
    object T1: TMenuItem
      Caption = #12304#21457#31080#12305'&T'
      object N11: TMenuItem
        Caption = #31199#36161#21457#31080
        OnClick = N11Click
      end
    end
    object H1: TMenuItem
      Caption = #12304#24110#21161#12305'&H'
      object N30: TMenuItem
        Caption = #24110#21161#25991#20214'(&H)'
      end
      object N31: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        Caption = #36719#20214#20449#24687'(&P)'
      end
      object N32: TMenuItem
        Caption = #20851#20110#36719#20214'(&A)'
        OnClick = N32Click
      end
    end
  end
  object Timer1: TTimer
    Left = 32
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = MyData.TaxGl
    Left = 240
    Top = 104
  end
  object AdvPreviewDialog1: TAdvPreviewDialog
    CloseAfterPrint = False
    DialogCaption = 'Preview'
    DialogPrevBtn = 'Previous'
    DialogNextBtn = 'Next'
    DialogPrintBtn = 'Print'
    DialogCloseBtn = 'Close'
    Grid = InVoiceTable
    PreviewFast = False
    PreviewWidth = 350
    PreviewHeight = 300
    PreviewLeft = 100
    PreviewTop = 100
    PreviewCenter = False
    PrinterSetupDialog = False
    PrintSelectedRows = False
    PrintSelectedCols = False
    PrintSelection = False
    Left = 216
    Top = 96
  end
end