jh_sp_find_unit.dfm

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

object jh_sp_find_form: Tjh_sp_find_form
  Left = 38
  Top = 117
  Width = 707
  Height = 375
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #21830#21697#20449#24687#26597#25214
  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 = 699
    Height = 49
    Align = alTop
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 48
      Height = 12
      Caption = #26597#25214#23383#27573
    end
    object Label2: TLabel
      Left = 165
      Top = 20
      Width = 48
      Height = 12
      Caption = #26597#25214#26041#24335
    end
    object Label3: TLabel
      Left = 287
      Top = 20
      Width = 48
      Height = 12
      Caption = #26597#25214#20869#23481
    end
    object SpeedButton1: TSpeedButton
      Left = 457
      Top = 13
      Width = 75
      Height = 22
      Caption = #26597#25214
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 611
      Top = 13
      Width = 75
      Height = 22
      Caption = #20851#38381
      Flat = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 534
      Top = 13
      Width = 75
      Height = 22
      Caption = #21830#21697#20449#24687#25805#20316
      Flat = True
      OnClick = SpeedButton3Click
    end
    object ComboBox1: TComboBox
      Left = 55
      Top = 14
      Width = 110
      Height = 22
      BevelKind = bkFlat
      Style = csOwnerDrawFixed
      Ctl3D = False
      ItemHeight = 16
      ParentCtl3D = False
      TabOrder = 0
      Items.Strings = (
        #21830#21697#32534#30721
        #21830#21697#21517#31216
        #25340#38899#31616#30721
        '')
    end
    object ComboBox2: TComboBox
      Left = 213
      Top = 14
      Width = 72
      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 = 335
      Top = 16
      Width = 115
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      OnKeyDown = Edit1KeyDown
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 49
    Width = 699
    Height = 278
    Align = alClient
    Ctl3D = False
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 327
    Width = 699
    Height = 21
    Panels = <
      item
        Alignment = taRightJustify
        Text = #35760#24405#24635#25968
        Width = 60
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 49
    Width = 699
    Height = 278
    Align = alClient
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid2DblClick
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 49
    Width = 699
    Height = 278
    Align = alClient
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid3DblClick
  end
  object DBGrid4: TDBGrid
    Left = 0
    Top = 49
    Width = 699
    Height = 278
    Align = alClient
    BorderStyle = bsNone
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid4DblClick
  end
end