jh_ghs1_find_unit.dfm

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

object jh_ghs_find_form: Tjh_ghs_find_form
  Left = 41
  Top = 134
  Width = 717
  Height = 321
  Caption = #20379#36135#21830#26597#25214
  Color = clBtnFace
  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 = 709
    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 = #20379#36135#21830#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 = (
        #20379#36135#21830#32534#30721
        #20379#36135#21830#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 = 709
    Height = 224
    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 = 273
    Width = 709
    Height = 21
    Panels = <
      item
        Alignment = taRightJustify
        Text = #35760#24405#24635#25968
        Width = 60
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
end