createdata.dfm

很好用的一个票据管理系统

object createdataform: Tcreatedataform
  Left = 199
  Top = 104
  Width = 422
  Height = 398
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #36873#25321#36134#22871
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = formcreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 414
    Height = 89
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clTeal
    TabOrder = 0
    object Image2: TImage
      Left = 54
      Top = 8
      Width = 39
      Height = 33
      Picture.Data = {
        055449636F6E0000010001002020040000000000E80200001600000028000000
        2000000040000000010004000000000000020000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000000000000
        0000000000000000011000000000000000000000000000001381000000000000
        0000000000000000133F10000000000000000000000000013883F10000000000
        0000000000000018383F3F1000000000000000000000001383F3F3F110000000
        00000000000001383FFF3F3F3110000000000000000018383FFFF3F3F8311000
        0000000000001383FFBFFF3F33F83310000000000001383FF7FFFFF3F833F831
        100000000018383FFF7FFFFF33F8383381100000001383FFF7F7FFFFFF33F388
        33811000013838BFFF7000FFFFBF33338833811008383FFFFFF83B000FFF38BF
        338833818383BF878FFFF3BF30F38FFFBF338833383FF81878FFFF3B3008FFBF
        FFBF3388383F8F718778FFB30000BFFFBFFFBF3383FFF7087F17FFFF00C40FBF
        FFBFFFB73FF88F78F78718FF346C40FFBFFFBF703FF87817777877773F46C40F
        FFBFF70007BF778F88187F138FF46C40BFFF7000007FF88887878338FFBF46C4
        0FB700000007BF87F838713FBFFFB46C4070000000007FFF877783BFFFBFFF46
        C4000000000007BFFFB83FFFBFFFBFF46C40000000000077FF877FBFFFBFFFB7
        46C40000000000007770077FBFFFBF70046C400000000000000000077FBFF700
        0046C4000000000000000000077F700000046400000000000000000000070000
        00004440FF9FFFFFFF8FFFFFFF07FFFFFE03FFFFFE01FFFFFC00FFFFF8007FFF
        F8001FFFF00007FFE00001FFE000007FC000001F800000078000000100000000
        0000000000000000000000000000000000000000000000010000000380000007
        C000000FE000001FF000001FF800000FFC000007FF180183FFFE03C1FFFF87E1
        FFFFEFF1}
    end
    object Image3: TImage
      Left = 56
      Top = 44
      Width = 36
      Height = 33
      Picture.Data = {
        055449636F6E0000010001002020040000000000E80200001600000028000000
        2000000040000000010004000000000000020000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000700000000
        0000000000000000000000777000000000000000000000000000077877000000
        0000000000000000000077888770000000099000000000000007787887770000
        0009900000000000007789999999700999999000000000000778799999997709
        9009900000000000778799999999871990099000000000077877999999988879
        1009900000000077877799999998888990099000000007787777999999978889
        911990000000778777707999999988889991700000077877770F077791777888
        887700000077877770FFF0771977778778877000077877770FFFFF0779777777
        7888770000888770FFFFFFF077777777788887700008880FFFFFFFFF07777777
        78888800000080FFFFFFFFFFF07777777888800000000FFFFFFFFFFFFF077778
        888800000000FFFFFFFFFFFFFFF0700888800000000FFFFFFFFFF0FFF0000008
        880000000000FFFFFFFFF000088880078000000000000FFFFFFFFF0888888007
        00000000000000FFFFFFFF0000088000000000000000000FFFFFFF080B080800
        0000000000000000FFFFFFF080B0800000000000000000000FFFFF00000B0000
        000000000000000000FFF0888880B0000000000000000000000F000888000800
        0000000000000000000000008000000000000000000000000000000000000000
        00000000FFFEFFFFFFFC7FFFFFF83FFFFFF01FFFFFE00FE7FFC007E7FF800207
        FF000067FE000067FC000067F8000027F0000007E0000007C000000780000003
        0000000180000000C0000001E0000003F0000007E000000FC000001FE000003F
        F000007FF80000FFFC0001FFFE0003FFFF0007FFFF8003FFFFC411FFFFEE39FF
        FFFF7FFF}
    end
    object RadioButton1: TRadioButton
      Left = 110
      Top = 10
      Width = 241
      Height = 33
      Caption = ' [    '#21551#21160#26032#24314#36134#22871'    ]'
      Checked = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = formradio1click
    end
    object RadioButton2: TRadioButton
      Left = 110
      Top = 52
      Width = 243
      Height = 17
      Caption = ' [    '#21551#21160#21024#38500#36134#22871'    ]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = formclick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 89
    Width = 414
    Height = 223
    Align = alClient
    TabOrder = 1
    object TreeView1: TTreeView
      Left = 1
      Top = 1
      Width = 412
      Height = 221
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      Images = ImageList1
      Indent = 19
      ParentFont = False
      TabOrder = 0
      OnClick = TreeViewClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 312
    Width = 414
    Height = 59
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object BitBtn1: TBitBtn
      Left = 230
      Top = 13
      Width = 100
      Height = 33
      Caption = #21019#24314
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 106
      Top = 13
      Width = 101
      Height = 33
      Cancel = True
      Caption = #20851#38381
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333