frmadmin.dfm

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

object Admin: TAdmin
  Left = 268
  Top = 133
  Width = 467
  Height = 354
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 168
    Width = 457
    Height = 113
  end
  object Label1: TLabel
    Left = 4
    Top = 184
    Width = 48
    Height = 13
    Caption = #29992#25143#21517#65306
  end
  object Label2: TLabel
    Left = 288
    Top = 184
    Width = 60
    Height = 13
    Caption = #30830#35748#23494#30721#65306
  end
  object Label3: TLabel
    Left = 152
    Top = 184
    Width = 36
    Height = 13
    Caption = #23494#30721#65306
  end
  object Label4: TLabel
    Left = 16
    Top = 216
    Width = 36
    Height = 13
    Caption = #24615#21035#65306
  end
  object Label5: TLabel
    Left = 152
    Top = 216
    Width = 36
    Height = 13
    Caption = #26085#26399#65306
  end
  object Label6: TLabel
    Left = 288
    Top = 216
    Width = 60
    Height = 13
    Caption = #36523#20221#35777#21495#65306
  end
  object Label7: TLabel
    Left = 16
    Top = 248
    Width = 36
    Height = 13
    Caption = #22791#27880#65306
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 459
    Height = 161
    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 = #29992#25143#21517
        Footers = <>
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = #24615#21035
        Footers = <>
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = #26085#26399
        Footers = <>
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = #36523#20221#35777#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Width = 100
      end>
  end
  object Edit1: TEdit
    Left = 56
    Top = 184
    Width = 89
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 192
    Top = 184
    Width = 89
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    PasswordChar = '*'
    TabOrder = 2
  end
  object Edit3: TEdit
    Left = 352
    Top = 184
    Width = 97
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    PasswordChar = '*'
    TabOrder = 3
  end
  object ComboBox1: TComboBox
    Left = 56
    Top = 216
    Width = 89
    Height = 21
    Style = csDropDownList
    Color = clMenu
    Ctl3D = False
    ItemHeight = 13
    ItemIndex = 0
    ParentCtl3D = False
    TabOrder = 4
    Text = #30007
    Items.Strings = (
      #30007
      #22899)
  end
  object DateTimePicker1: TDateTimePicker
    Left = 192
    Top = 216
    Width = 89
    Height = 21
    Date = 38854.816552592600000000
    Time = 38854.816552592600000000
    Color = clMenu
    TabOrder = 5
  end
  object Edit4: TEdit
    Left = 352
    Top = 216
    Width = 97
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 6
  end
  object Edit5: TEdit
    Left = 56
    Top = 248
    Width = 393
    Height = 19
    Color = clMenu
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 7
  end
  object ToolBar1: TToolBar
    Left = 8
    Top = 281
    Width = 449
    Height = 44
    Align = alNone
    ButtonHeight = 40
    Caption = 'ToolBar1'
    TabOrder = 8
    object ToolButton2: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsDivider
    end
    object SpeedButton15: TSpeedButton
      Left = 8
      Top = 2
      Width = 40
      Height = 40
      Caption = #20445#23384
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        0000C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        0000C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        0000C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        00000000000000000000000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000848400008484000084840000848400008484000084
        84000084840000848400008484000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        00000000000000000000008484000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000000000000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C60000000000C6C6C60000000000FFFFFF00FFFFFF000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
      Layout = blGlyphTop
      Spacing = 0
      OnClick = SpeedButton15Click
    end
    object SpeedButton20: TSpeedButton
      Left = 48
      Top = 2
      Width = 40
      Height = 40
      Caption = #20462#25913
      Flat = True