frmmain.~dfm

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

    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.0.1'
  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
  object SkinData1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcSystemMenu]
    Skin3rd.Strings = (
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      'TImageEnView=scrollbar'
      'TRzButton=button'
      'TRzCheckGroup=CheckGroup'
      'TRzRadioGroup=Radiogroup'
      'TRzRadioButton=Radiobutton'
      'TRzCheckBox=Checkbox'
      'TRzButtonEdit=Edit'
      'TRzDBRadioGroup=Radiogroup'
      'TRzDBRadioButton=Radiobutton'
      'TRzDBCheckBox=Checkbox'
      'TLMDGroupBox=Groupbox'
      'TDBCheckboxEh=Checkbox'
      'TDBCheckboxEh=Checkbox'
      'TLMDCHECKBOX=Checkbox'
      'TLMDDBCHECKBOX=Checkbox'
      'TLMDRadiobutton=Radiobutton'
      'TLMDCalculator=panel'
      'TLMDGROUPBOX=Panel'
      'TLMDSIMPLEPANEL=Panel'
      'TLMDDBCalendar=Panel'
      'TLMDButtonPanel=Panel'
      'TLMDLMDCalculator=Panel'
      'TLMDHeaderPanel=Panel'
      'TLMDTechnicalLine=Panel'
      'TLMDLMDClock=Panel'
      'TLMDTrackbar=panel'
      'TLMDListCombobox=combobox'
      'TLMDCheckListCombobox=combobox'
      'TLMDHeaderListCombobox=combobox'
      'TLMDImageCombobox=combobox'
      'TLMDColorCombobox=combobox'