u_choosegoodsinfo.dfm

河南师范大学餐饮进销存软件,只要控制库存的数据。

object frmChooseGoodsInfo: TfrmChooseGoodsInfo
  Left = 249
  Top = 214
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21830#21697#20449#24687
  ClientHeight = 290
  ClientWidth = 562
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 0
    Top = 129
    Width = 562
    Height = 161
    Align = alBottom
    DataSource = DataSource1
    ImeName = #20108#31508#36755#20837#27861'2003'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'ClassName'
        Title.Alignment = taCenter
        Title.Caption = #31867'    '#21035
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsBH'
        Title.Alignment = taCenter
        Title.Caption = #21830#21697#32534#21495
        Width = 70
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsName'
        Title.Alignment = taCenter
        Title.Caption = #21830#21697#21517#31216
        Width = 100
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsSpec'
        Title.Alignment = taCenter
        Title.Caption = #35268'    '#26684
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsModel'
        Title.Alignment = taCenter
        Title.Caption = #21830#21697#22411#21495
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsInPrice'
        Title.Alignment = taCenter
        Title.Caption = #36827'    '#20215
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsOutPrice'
        Title.Alignment = taCenter
        Title.Caption = #21806'    '#20215
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'GoodsNowSum'
        Title.Alignment = taCenter
        Title.Caption = #24211'    '#23384
        Width = 60
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 562
    Height = 129
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 75
      Top = 16
      Width = 60
      Height = 12
      Caption = #31867'    '#21035#65306
    end
    object cmbClass: TComboBox
      Left = 139
      Top = 12
      Width = 121
      Height = 20
      BevelKind = bkFlat
      Style = csDropDownList
      ImeName = #20108#31508#36755#20837#27861'2003'
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbClassChange
    end
    object edtGoodsBH: TLabeledEdit
      Left = 139
      Top = 56
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #21830#21697#32534#30721#65306
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpLeft
      TabOrder = 1
      OnChange = edtGoodsBHChange
    end
    object edtGoodsName: TLabeledEdit
      Left = 139
      Top = 100
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #21830#21697#21517#31216#65306
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpLeft
      TabOrder = 2
      OnChange = edtGoodsNameChange
    end
    object btnOK: TBitBtn
      Left = 353
      Top = 14
      Width = 75
      Height = 25
      Caption = #30830'   '#23450
      TabOrder = 3
      OnClick = btnOKClick
    end
    object btnClose: TBitBtn
      Left = 353
      Top = 91
      Width = 75
      Height = 25
      Caption = #20851'   '#38381
      TabOrder = 4
      OnClick = btnCloseClick
    end
  end
  object qry: TADOQuery
    Connection = frmDataCtrl.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'exec psp_GoodsInfo '#39#39','#39#39','#39#39)
    Left = 360
    Top = 216
  end
  object DataSource1: TDataSource
    DataSet = qry
    Left = 392
    Top = 216
  end
  object qryClass: TADOQuery
    Connection = frmDataCtrl.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tb_GoodsClass')
    Left = 288
    Top = 8
  end
end