enterpriseregister.dfm

发票打印程序源码

object frmEnterpriseRegister: TfrmEnterpriseRegister
  Left = 100
  Top = 75
  BorderStyle = bsDialog
  Caption = '企业登记'
  ClientHeight = 408
  ClientWidth = 661
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 161
    Top = 37
    Width = 3
    Height = 283
    Cursor = crHSplit
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 661
    Height = 37
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = 'pnlTop'
    TabOrder = 0
    object lblTitle: TDRLabel
      Left = 3
      Top = 3
      Width = 655
      Height = 31
      Align = alClient
      Alignment = taCenter
      Caption = '委托企业登记'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -29
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
      HiColor = clBlue
      LoColor = clNavy
      Border = boNone
      Ctl3D = True
      BlinkInterval = 300
      Blink = blNone
      Deep = 1
    end
  end
  object pnlEdit: TPanel
    Left = 0
    Top = 320
    Width = 661
    Height = 88
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = 'pnlEdit'
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 3
      Top = 3
      Width = 655
      Height = 82
      ActivePage = TabSheet1
      Align = alClient
      MultiLine = True
      TabOrder = 0
      TabPosition = tpRight
      object TabSheet1: TTabSheet
        Caption = 'TabSheet1'
        TabVisible = False
        object bbtnNew: TBitBtn
          Left = 12
          Top = 14
          Width = 80
          Height = 45
          Caption = '添加'
          TabOrder = 0
          OnClick = bbtnNewClick
        end
        object bbtnModify: TBitBtn
          Left = 103
          Top = 14
          Width = 80
          Height = 45
          Caption = '修改'
          TabOrder = 1
          OnClick = bbtnModifyClick
        end
        object bbtnDelete: TBitBtn
          Left = 193
          Top = 14
          Width = 80
          Height = 45
          Caption = '删除'
          TabOrder = 2
          OnClick = bbtnDeleteClick
        end
        object bbtnPrint: TBitBtn
          Left = 465
          Top = 14
          Width = 80
          Height = 45
          Caption = '打印'
          TabOrder = 3
          OnClick = bbtnPrintClick
        end
        object bbtnClose: TBitBtn
          Left = 556
          Top = 14
          Width = 80
          Height = 45
          Caption = '关闭'
          TabOrder = 4
          OnClick = bbtnCloseClick
        end
        object bbtnCharge: TBitBtn
          Left = 284
          Top = 14
          Width = 80
          Height = 45
          Caption = '收费'
          TabOrder = 5
          OnClick = bbtnChargeClick
        end
        object bbtnPreview: TBitBtn
          Left = 375
          Top = 14
          Width = 80
          Height = 45
          Caption = '预览'
          TabOrder = 6
          OnClick = bbtnPreviewClick
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'TabSheet2'
        ImageIndex = 1
        TabVisible = False
        object Label1: TDRLabel
          Left = 37
          Top = 4
          Width = 60
          Height = 12
          Caption = '纳税代码：'
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object Label3: TDRLabel
          Left = 212
          Top = 4
          Width = 84
          Height = 12
          Caption = '委托企业全称：'
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object Label5: TDRLabel
          Left = 37
          Top = 56
          Width = 60
          Height = 12
          Caption = '电话号码：'
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object Label2: TDRLabel
          Left = 13
          Top = 30
          Width = 84
          Height = 12
          Caption = '税务登记证号：'
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object Label4: TDRLabel
          Left = 236
          Top = 30
          Width = 60
          Height = 12
          Caption = '详细地址：'
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object Label6: TDRLabel
          Left = 248
          Top = 56
          Width = 48
          Height = 12
          Caption = '联系人：'
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object lblAffiliateTown: TDRLabel
          Left = 454
          Top = 56
          Width = 96
          Height = 12
          Alignment = taRightJustify
          Caption = 'lblAffiliateTown'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object edtRatepayingNo: TEditN
          Left = 101
          Top = 0
          Width = 94
          Height = 20
          Color = clSilver
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ImeMode = imClose
          MaxLength = 6
          ParentFont = False
          TabOrder = 0
          Text = 'edtRatepayingNo'
          OnExit = edtRatepayingNoExit
          OnKeyPress = edtRatepayingNoKeyPress
          ColorOnFocus = clWhite
          ColorOnNotFocus = clSilver
          FontColorOnFocus = clRed
          FontColorOnNotFocus = clBlack
          FontColorOnOverWrite = clBlue
          EditType = etString
          EditKeyByTab = #13
          EditAlign = etAlignNone
          EditLengthAlign = 0
          EditPrecision = 0
          ValueInteger = 0
          ValueDate = 36942
          ValueTime = 0.118781365740741
          TimeSeconds = False
          FirstCharUpper = False
          FirstCharUpList = ' ('
          WidthOnFocus = 0
          TextHint = True
        end
        object edtEnterpriseName: TEditN
          Left = 300
          Top = 0
          Width = 250
          Height = 20
          Color = clSilver
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ImeMode = imOpen
          MaxLength = 50
          ParentFont = False
          TabOrder = 1
          Text = 'edtEnterpriseName'
          ColorOnFocus = clWhite
          ColorOnNotFocus = clSilver
          FontColorOnFocus = clRed
          FontColorOnNotFocus = clBlack
          FontColorOnOverWrite = clBlue
          EditType = etString
          EditKeyByTab = #13
          EditAlign = etAlignNone
          EditLengthAlign = 0
          EditPrecision = 0
          ValueInteger = 0
          ValueDate = 36942
          ValueTime = 0.118789699074074
          TimeSeconds = False
          FirstCharUpper = False
          FirstCharUpList = ' ('
          WidthOnFocus = 0
          TextHint = True
        end
        object edtTelephoneNo: TEditN
          Left = 101
          Top = 52
          Width = 94
          Height = 20
          Color = clSilver
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ImeMode = imClose
          MaxLength = 13
          ParentFont = False
          TabOrder = 4
          Text = 'edtTelephoneNo'
          OnKeyPress = edtRatepayingNoKeyPress
          ColorOnFocus = clWhite
          ColorOnNotFocus = clSilver
          FontColorOnFocus = clRed
          FontColorOnNotFocus = clBlack
          FontColorOnOverWrite = clBlue
          EditType = etString
          EditKeyByTab = #13
          EditAlign = etAlignNone
          EditLengthAlign = 0
          EditPrecision = 0
          ValueInteger = 0
          ValueDate = 36942
          ValueTime = 0.118798611111111
          TimeSeconds = False
          FirstCharUpper = False
          FirstCharUpList = ' ('
          WidthOnFocus = 0
          TextHint = True
        end
        object edtTaxRegisterNo: TEditN
          Left = 101
          Top = 26
          Width = 94
          Height = 20
          Color = clSilver
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ImeMode = imClose
          MaxLength = 15
          ParentFont = False
          TabOrder = 2
          Text = 'edtTaxRegisterNo'
          OnExit = edtTaxRegisterNoExit
          OnKeyPress = edtRatepayingNoKeyPress
          ColorOnFocus = clWhite
          ColorOnNotFocus = clSilver
          FontColorOnFocus = clRed
          FontColorOnNotFocus = clBlack
          FontColorOnOverWrite = clBlue
          EditType = etString
          EditKeyByTab = #13
          EditAlign = etAlignNone
          EditLengthAlign = 0
          EditPrecision = 0
          ValueInteger = 0
          ValueDate = 36942
          ValueTime = 0.118785185185185
          TimeSeconds = False
          FirstCharUpper = False
          FirstCharUpList = ' ('
          WidthOnFocus = 0
          TextHint = True
        end
        object edtDetailAddress: TEditN
          Left = 300
          Top = 26
          Width = 250
          Height = 20