dfm_price.dfm

仓库管理系统 仓库管理系统

object dfmprice: Tdfmprice
  Left = 99
  Top = 140
  Width = 645
  Height = 360
  Caption = #21830#21697#25913#20215
  Color = 13422259
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 314
    Width = 637
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 637
    Height = 282
    Align = alClient
    DataSource = DataSource1
    ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'clabel'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'spbh'
        Title.Alignment = taCenter
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lsj'
        Title.Alignment = taCenter
        Width = 73
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cname'
        Title.Alignment = taCenter
        Width = 187
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 282
    Width = 637
    Height = 32
    Align = alBottom
    TabOrder = 2
    object Label2: TLabel
      Left = 150
      Top = 12
      Width = 48
      Height = 12
      Caption = #21830#21697#32534#30721
    end
    object Label11: TLabel
      Left = 13
      Top = 12
      Width = 24
      Height = 12
      Caption = #21697#29260
    end
    object Label1: TLabel
      Left = 416
      Top = 11
      Width = 36
      Height = 12
      Caption = #38646#21806#20215
    end
    object ComboBox1: TComboBox
      Left = 48
      Top = 8
      Width = 81
      Height = 20
      ItemHeight = 12
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 320
      Top = 4
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Edit1: TEdit
      Left = 208
      Top = 8
      Width = 89
      Height = 20
      TabOrder = 1
    end
    object MaskEdit1: TMaskEdit
      Left = 464
      Top = 6
      Width = 65
      Height = 20
      TabOrder = 3
      OnKeyPress = MaskEdit1KeyPress
    end
    object BitBtn2: TBitBtn
      Left = 544
      Top = 4
      Width = 75
      Height = 25
      Caption = #25913#20215
      TabOrder = 4
      OnClick = BitBtn2Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 104
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vlabel'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vspbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select t_ware.clabel,t_ware.spbh,t_ware.lsj,t_spec.cname'
      'from t_ware,t_spec'
      
        'where t_ware.flh=t_spec.cstyle and t_ware.clabel like :vlabel an' +
        'd t_ware.spbh like :vspbh')
    Left = 144
    Top = 48
    object ADOQuery1clabel: TWideStringField
      DisplayLabel = #21697#29260
      FieldName = 'clabel'
      Size = 16
    end
    object ADOQuery1spbh: TWideStringField
      DisplayLabel = #21830#21697#32534#30721
      FieldName = 'spbh'
      Size = 23
    end
    object ADOQuery1lsj: TBCDField
      DisplayLabel = #38646#21806#20215
      FieldName = 'lsj'
      Precision = 19
    end
    object ADOQuery1cname: TWideStringField
      DisplayLabel = #27454#24335#21517#31216
      FieldName = 'cname'
    end
  end
  object DataSource2: TDataSource
    Left = 248
    Top = 48
  end
  object ADOTable1: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_label'
    Left = 288
    Top = 48
  end
  object ADOQuery2: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <
      item
        Name = 'vlsj'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vlabel'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vspbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'update t_ware set lsj = :vlsj'
      'where t_ware.clabel like :vlabel and t_ware.spbh like :vspbh')
    Left = 360
    Top = 56
  end
end