newbookunit.dfm

好多上载非界面和非WEB源码

object newfrm: Tnewfrm
  Left = 187
  Top = 321
  Width = 782
  Height = 453
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #26032#20070#20837#24211
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 761
    Height = 361
    Caption = #26032#20070#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 24
      Width = 81
      Height = 17
      AutoSize = False
      Caption = #22270#20070#31867#21035#65306
    end
    object Label2: TLabel
      Left = 416
      Top = 24
      Width = 97
      Height = 25
      AutoSize = False
      Caption = #22270#20070#32534#21495#65306
    end
    object Label3: TLabel
      Left = 40
      Top = 64
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #20070'        '#21517#65306
    end
    object Label4: TLabel
      Left = 40
      Top = 96
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #20316'        '#32773#65306
    end
    object Label5: TLabel
      Left = 40
      Top = 136
      Width = 81
      Height = 25
      AutoSize = False
      Caption = #20986'  '#29256'  '#31038#65306
    end
    object Label6: TLabel
      Left = 416
      Top = 176
      Width = 89
      Height = 33
      AutoSize = False
      Caption = #20070'        '#20215#65306
    end
    object Label7: TLabel
      Left = 40
      Top = 216
      Width = 105
      Height = 33
      AutoSize = False
      Caption = #20837#24211#26102#38388#65306
    end
    object Label8: TLabel
      Left = 416
      Top = 216
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #20511#38405#27425#25968#65306
    end
    object Label9: TLabel
      Left = 40
      Top = 256
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #22791'        '#27880#65306
    end
    object Label10: TLabel
      Left = 40
      Top = 176
      Width = 97
      Height = 25
      AutoSize = False
      Caption = #20986#29256#26102#38388#65306
    end
    object typebox: TComboBox
      Left = 136
      Top = 24
      Width = 217
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #35745#31639#26426
      OnChange = typeboxChange
      Items.Strings = (
        #35745#31639#26426
        #25991#23398
        #27861#24459
        #21382#21490
        #25968#23398
        #29289#29702
        #20854#20182)
    end
    object nobox: TEdit
      Left = 512
      Top = 24
      Width = 193
      Height = 21
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 1
    end
    object namebox: TEdit
      Left = 136
      Top = 64
      Width = 569
      Height = 21
      TabOrder = 2
      Text = 'namebox'
    end
    object authorbox: TEdit
      Left = 136
      Top = 96
      Width = 569
      Height = 21
      TabOrder = 3
      Text = 'authorbox'
    end
    object publisherbox: TEdit
      Left = 136
      Top = 136
      Width = 569
      Height = 21
      TabOrder = 4
      Text = 'publisherbox'
    end
    object pubtimebox: TDateTimePicker
      Left = 136
      Top = 176
      Width = 217
      Height = 21
      Date = 37767.392687905090000000
      Time = 37767.392687905090000000
      TabOrder = 5
    end
    object pricebox: TEdit
      Left = 512
      Top = 176
      Width = 193
      Height = 21
      TabOrder = 6
      Text = 'pricebox'
    end
    object intimebox: TEdit
      Left = 136
      Top = 216
      Width = 217
      Height = 21
      Color = clInfoBk
      Enabled = False
      TabOrder = 7
      Text = 'intimebox'
    end
    object outcountbox: TEdit
      Left = 512
      Top = 216
      Width = 193
      Height = 21
      Color = clInfoBk
      Enabled = False
      TabOrder = 8
      Text = '0'
    end
    object memobox: TMemo
      Left = 136
      Top = 256
      Width = 569
      Height = 89
      Lines.Strings = (
        'memobox')
      TabOrder = 9
    end
  end
  object BitBtn1: TBitBtn
    Left = 224
    Top = 384
    Width = 81
    Height = 33
    Caption = #28165'       '#31354
    TabOrder = 1
    OnClick = FormShow
  end
  object BitBtn2: TBitBtn
    Left = 360
    Top = 384
    Width = 81
    Height = 33
    Caption = #20837'        '#24211
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 496
    Top = 384
    Width = 81
    Height = 33
    Caption = #20851#38381
    TabOrder = 3
    Kind = bkClose
  end
end