u_cussearch.~dfm

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

object frmCusSearch: TfrmCusSearch
  Left = 215
  Top = 176
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #23458#25143#26597#35810
  ClientHeight = 399
  ClientWidth = 676
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 29
    Width = 60
    Height = 13
    Caption = #23458#25143#20998#31867#65306
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 64
    Width = 676
    Height = 335
    Align = alBottom
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusClass'
        Title.Alignment = taCenter
        Title.Caption = #23458#25143#31867#21035
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusNO'
        Title.Alignment = taCenter
        Title.Caption = #23458#25143#32534#21495
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusSName'
        Title.Alignment = taCenter
        Title.Caption = #23458#25143#21517#31216
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusFName'
        Title.Alignment = taCenter
        Title.Caption = #23458#25143#20840#31216
        Width = 120
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusMan'
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#20154
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusTel'
        Title.Alignment = taCenter
        Title.Caption = #30005#35805
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusFax'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusPost'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusAddr'
        Title.Alignment = taCenter
        Title.Caption = #22320#22336
        Width = 150
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusBank'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusBankAccount'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusTax'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CusNote'
        Title.Alignment = taCenter
        Visible = False
      end>
  end
  object edtName: TLabeledEdit
    Left = 456
    Top = 24
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #23458#25143#21517#31216#65306
    LabelPosition = lpLeft
    TabOrder = 1
    OnChange = edtNameChange
    OnKeyDown = edtNameKeyDown
  end
  object cmbCus: TComboBox
    Left = 96
    Top = 24
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
    OnChange = cmbCusChange
    Items.Strings = (
      #22823#23458#25143
      #23567#23458#25143)
  end
  object CusQry: TADOQuery
    Connection = frmDataCtrl.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from vw_Customer')
    Left = 160
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = CusQry
    Left = 224
    Top = 200
  end
end