jhth1_unit.dfm

这是我照着书做的一个销售管理系统,内容不难,很简单,但是对于我这个菜鸟来说已经很不错了

object Form1: TForm1
  Left = 1
  Top = 91
  Width = 780
  Height = 475
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 772
    Height = 448
    ActivePage = TabSheet1
    Align = alClient
    DockSite = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #36827#36135#21333
      object GroupBox1: TGroupBox
        Left = 0
        Top = 33
        Width = 764
        Height = 131
        Align = alTop
        TabOrder = 0
        object Label1: TLabel
          Left = 12
          Top = 51
          Width = 60
          Height = 12
          Caption = #20379#36135#21830#31616#30721
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 229
          Top = 49
          Width = 60
          Height = 12
          Caption = #20379#36135#21830#32534#30721
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 438
          Top = 48
          Width = 60
          Height = 12
          Caption = #20379#36135#21830#21517#31216
        end
        object Label4: TLabel
          Left = 23
          Top = 19
          Width = 48
          Height = 12
          Caption = #36827#36135#26085#26399
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 240
          Top = 19
          Width = 48
          Height = 12
          Caption = #36827#36135#21333#21495
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 36
          Top = 78
          Width = 36
          Height = 12
          Caption = #32463#25163#20154
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 48
          Top = 109
          Width = 24
          Height = 12
          Caption = #22791#27880
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object SpeedButton3: TSpeedButton
          Left = 410
          Top = 77
          Width = 20
          Height = 18
          Caption = '...'
          Flat = True
        end
        object SpeedButton10: TSpeedButton
          Left = 192
          Top = 47
          Width = 20
          Height = 18
          Caption = '...'
          Flat = True
        end
        object SpeedButton11: TSpeedButton
          Left = 409
          Top = 46
          Width = 20
          Height = 18
          Caption = '...'
          Flat = True
        end
        object Edit2: TEdit
          Left = 288
          Top = 16
          Width = 140
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = 'Edit2'
        end
        object Edit3: TEdit
          Left = 500
          Top = 44
          Width = 140
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          Text = 'Edit3'
        end
        object Edit4: TEdit
          Left = 72
          Top = 46
          Width = 119
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          Text = 'Edit4'
        end
        object Edit5: TEdit
          Left = 289
          Top = 46
          Width = 119
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          Text = 'Edit5'
        end
        object Edit6: TEdit
          Left = 72
          Top = 76
          Width = 337
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          Text = 'Edit6'
        end
        object Edit7: TEdit
          Left = 73
          Top = 106
          Width = 571
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          Text = 'Edit7'
        end
        object DateTimePicker1: TDateTimePicker
          Left = 72
          Top = 16
          Width = 140
          Height = 20
          BevelOuter = bvNone
          BevelWidth = 2
          CalAlignment = dtaLeft
          CalColors.TextColor = clBlue
          CalColors.TitleTextColor = clBtnHighlight
          CalColors.TrailingTextColor = clGray
          Date = 37587.6204793981
          Time = 37587.6204793981
          Color = clWhite
          DateFormat = dfShort
          DateMode = dmComboBox
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Kind = dtkDate
          ParseInput = False
          ParentFont = False
          TabOrder = 6
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 164
        Width = 764
        Height = 106
        Align = alTop
        TabOrder = 1
        object Label8: TLabel
          Left = 23
          Top = 21
          Width = 48
          Height = 12
          Caption = #21830#21697#31616#30721
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307