storagefind_unit.dfm

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

object frmStorageFind: TfrmStorageFind
  Left = 204
  Top = 148
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #24211#23384#30340#26597#35810
  ClientHeight = 322
  ClientWidth = 599
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 9
    Top = 0
    Width = 581
    Height = 53
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 21
      Top = 20
      Width = 60
      Height = 12
      Caption = #26597#35810#39033#30446#65306
    end
    object Label3: TLabel
      Left = 187
      Top = 20
      Width = 48
      Height = 12
      Caption = #26465'  '#20214#65306
    end
    object Label2: TLabel
      Left = 333
      Top = 20
      Width = 24
      Height = 12
      Caption = #20540#65306
    end
    object cmbxItems: TComboBox
      Left = 82
      Top = 15
      Width = 88
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbxItemsChange
      Items.Strings = (
        #33647#21697#31867#21035
        #33647#21697#32534#21495
        #26377#25928#26085#26399)
    end
    object cmbxIf: TComboBox
      Left = 238
      Top = 15
      Width = 79
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '>'
        '<'
        '=')
    end
    object edtValues: TEdit
      Left = 362
      Top = 15
      Width = 98
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
    end
    object btnFind: TBitBtn
      Left = 477
      Top = 12
      Width = 81
      Height = 27
      Caption = #26597#35810'(&F)'
      TabOrder = 3
      OnClick = btnFindClick
    end
    object DateTimePicker1: TDateTimePicker
      Left = 363
      Top = 15
      Width = 96
      Height = 20
      Date = 39332.498411817130000000
      Time = 39332.498411817130000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 4
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 61
    Width = 581
    Height = 252
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 577
      Height = 248
      Align = alClient
      DataSource = dsrStorage
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ValidityDatetime'
          Title.Alignment = taCenter
          Title.Caption = #26377#25928#26085#26399
          Width = 140
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedicineID'
          Title.Alignment = taCenter
          Title.Caption = #33647#21697#32534#21495
          Width = 140
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RetailPrice'
          Title.Alignment = taCenter
          Title.Caption = #38646#21806#20215#26684
          Width = 140
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StorageAmount'
          Title.Alignment = taCenter
          Title.Caption = #24211#23384#37327
          Width = 80
          Visible = True
        end>
    end
  end
  object dsrStorage: TDataSource
    DataSet = qryStorage
    Left = 184
    Top = 128
  end
  object qryStorage: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 152
    Top = 128
  end
end