jh_unit.~dfm

仿速达进销存系统,系统在单据打印上作了灵活的自定义.可供借鉴

object jh_form: Tjh_form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  BorderIcons = [biSystemMenu, biMaximize, biHelp]
  Caption = #36827#36135
  Color = 13031127
  Ctl3D = False
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 800
    Height = 546
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #36827#36135#21333
      object GroupBox1: TGroupBox
        Left = 0
        Top = 33
        Width = 792
        Height = 83
        Align = alTop
        TabOrder = 0
        object Label3: TLabel
          Left = 12
          Top = 38
          Width = 60
          Height = 12
          Caption = #20379#36135#21830#21517#31216
        end
        object Label4: TLabel
          Left = 23
          Top = 16
          Width = 48
          Height = 12
          Caption = #24405#21333#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 = 14
          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 = 250
          Top = 39
          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 = 65
          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 SpeedButton10: TSpeedButton
          Left = 192
          Top = 37
          Width = 20
          Height = 18
          Caption = '...'
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          OnClick = SpeedButton10Click
        end
        object SpeedButton11: TSpeedButton
          Left = 413
          Top = 36
          Width = 17
          Height = 18
          Caption = '...'
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          OnClick = SpeedButton11Click
        end
        object Edit2: TEdit
          Left = 288
          Top = 11
          Width = 140
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 16
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          OnKeyDown = Edit2KeyDown
        end
        object Edit3: TEdit
          Left = 74
          Top = 37
          Width = 118
          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
          OnKeyDown = Edit3KeyDown
        end
        object Edit4: TEdit
          Left = 288
          Top = 36
          Width = 124
          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
          OnKeyDown = Edit4KeyDown
        end
        object Edit5: TEdit
          Left = 74
          Top = 61
          Width = 570
          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
          OnKeyDown = Edit5KeyDown
        end
        object DateTimePicker1: TDateTimePicker
          Left = 72
          Top = 11
          Width = 140
          Height = 20
          BevelOuter = bvNone
          BevelWidth = 2
          CalColors.TextColor = clBlue
          CalColors.TitleTextColor = clBtnHighlight
          CalColors.TrailingTextColor = clGray
          Date = 37587.620479398100000000
          Time = 37587.620479398100000000
          Color = clWhite
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object Edit30: TEdit
          Left = 680
          Top = 16
          Width = 33
          Height = 18
          TabOrder = 5
          Visible = False
        end
        object Edit31: TEdit
          Left = 696
          Top = 32
          Width = 25
          Height = 18
          TabOrder = 6
          Visible = False
        end
        object Edit32: TEdit
          Left = 696
          Top = 56
          Width = 33
          Height = 18
          TabOrder = 7
          Visible = False
        end
        object Edit33: TEdit
          Left = 600
          Top = 16
          Width = 65
          Height = 18
          TabOrder = 8
          Visible = False
        end
        object Edit34: TEdit
          Left = 600
          Top = 32
          Width = 57
          Height = 18
          TabOrder = 9
          Visible = False
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 116
        Width = 792
        Height = 95
        Align = alTop
        TabOrder = 1
        object Label8: TLabel
          Left = 26
          Top = 15
          Width = 48
          Height = 12
          Caption = #21830#21697#31616#30721
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 240
          Top = 15
          Width = 48