jh_jhd_find_unit.dfm

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

object jh_jhd_find_form: Tjh_jhd_find_form
  Left = 191
  Top = 142
  BorderIcons = [biSystemMenu, biMaximize]
  BorderStyle = bsDialog
  Caption = #36827#36135'-'#36827#36135#21333'-'#26597#25214
  ClientHeight = 104
  ClientWidth = 334
  Color = 13031127
  Ctl3D = False
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 334
    Height = 104
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 48
      Height = 12
      Caption = #26597#25214#23383#27573
    end
    object Label2: TLabel
      Left = 15
      Top = 49
      Width = 48
      Height = 12
      Caption = #26597#25214#26041#24335
    end
    object Label3: TLabel
      Left = 16
      Top = 79
      Width = 48
      Height = 12
      Caption = #26597#25214#20869#23481
    end
    object SpeedButton1: TSpeedButton
      Left = 241
      Top = 12
      Width = 75
      Height = 22
      Caption = #26597#25214
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 241
      Top = 43
      Width = 75
      Height = 22
      Caption = #20851#38381
      Flat = True
      OnClick = SpeedButton2Click
    end
    object ComboBox1: TComboBox
      Left = 63
      Top = 14
      Width = 145
      Height = 22
      BevelKind = bkFlat
      Style = csOwnerDrawFixed
      Ctl3D = False
      ItemHeight = 16
      ParentCtl3D = False
      TabOrder = 0
      Items.Strings = (
        #21333#25454#32534#30721
        #20379#36135#21830#21517#31216
        #32463#25163#20154)
    end
    object ComboBox2: TComboBox
      Left = 63
      Top = 44
      Width = 145
      Height = 22
      BevelKind = bkFlat
      Style = csOwnerDrawFixed
      Ctl3D = False
      ItemHeight = 16
      ParentCtl3D = False
      TabOrder = 1
      Items.Strings = (
        #31561#20110
        #31867#20284#20110)
    end
    object Edit1: TEdit
      Left = 64
      Top = 74
      Width = 145
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      OnKeyDown = Edit1KeyDown
    end
  end
end