frmpkgl.dfm

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

object FpGl: TFpGl
  Left = 199
  Top = 143
  Width = 606
  Height = 373
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #21457#31080#24211#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 312
    Top = 312
    Width = 60
    Height = 13
    Caption = #21457#31080#21495#30721#65306
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 598
    Height = 177
    Align = alTop
    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 = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
        Width = 30
      end
      item
        EditButtons = <>
        FieldName = #21457#31080#21495#30721
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #21333#20301#21517#31216
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #24320#31080#26085#26399
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #37329#39069#22823#20889
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #37329#39069#21512#35745
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #24320#31080#20154
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #25910#27454#20154
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Width = 100
      end>
  end
  object ToolBar1: TToolBar
    Left = 8
    Top = 297
    Width = 297
    Height = 46
    Align = alNone
    ButtonHeight = 40
    Caption = 'ToolBar1'
    TabOrder = 2
    object ToolButton2: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsDivider
    end
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 2
      Width = 41
      Height = 40
      Caption = #21047#26032
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        20000000000000040000000000000000000000000000000000005F5F5F003F40
        3F003F403F0080808000909090003F403F006060600090909000DFDFDF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFF
        FF00FFFFFF007F7F7F00BFBFBF00FFFFFF00BFBFBF001F201F00606060009090
        9000DFDFDF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBFBF001F20
        1F0080808000DFDFDF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBF
        BF003F403F0090909000FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFF
        FF00FFFFFF00DFDFDF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF
        BF00303030003F403F003F403F003F403F0090909000FFFFFF007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00BFBFBF001F201F00BFBFBF007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F7F00909090007F7F7F00FFFF
        FF00FFFFFF00DFDFDF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF
        BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F7F7F003F403F007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F403F007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F403F007F7F7F00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F403F007F7F7F00FFFF
        FF00FFFFFF00DFDFDF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF
        BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF003F403F007F7F7F00FFFF
        FF00FFFFFF007F7FFF00FFFFFF002F30FF00CFCFFF007F7FFF00CFCFFF00FFFF
        FF007F7FFF00FFFFFF002F30FF00CFCFFF00FFFFFF003F403F007F7F7F00FFFF
        FF00FFFFFF007F7FFF007F7FFF007F7FFF007F7FFF00FFFFFF007F7FFF00FFFF
        FF007F7FFF00FFFFFF002F30FF00FFFFFF00FFFFFF003F403F007F7F7F00FFFF
        FF00FFFFFF00CFCFFF00FFFFFF00CFCFFF00FFFFFF007F7FFF00FFFFFF007F7F
        FF007F7FFF00CFCFFF007F7FFF00CFCFFF00FFFFFF003F403F00808080008080
        8000808080008080800080808000808080008080800080808000808080008080
        800080808000808080008080800080808000808080003F403F00}
      Layout = blGlyphTop
      Spacing = 0
      OnClick = SpeedButton1Click
    end
    object SpeedButton5: TSpeedButton
      Left = 49
      Top = 2
      Width = 40
      Height = 40
      Caption = #21024#38500
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
        00000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF000000
        FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF000000
        00000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000000FF000000FF000000FF0000000000000000000000
        FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000FF000000FF000000
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000000000FF000000FF000000FF000000FF000000
        FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF0000000000000000000000FF000000FF000000FF00FFFFFF00FFFFFF000000
        FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        00000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000
        FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
      Layout = blGlyphTop
      Spacing = 0
      OnClick = SpeedButton5Click
    end
    object ToolButton8: TToolButton
      Left = 89
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 6
      Style = tbsDivider
    end
    object SpeedButton6: TSpeedButton
      Left = 97
      Top = 2
      Width = 40
      Height = 40
      Caption = #25171#21360
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000000000000000000000000000000000000000000000000000000000