f_specenter.dfm

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

        end
        item
          Expanded = False
          FieldName = 'cprice'
          Title.Alignment = taCenter
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cclass'
          Title.Alignment = taCenter
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 289
    Width = 644
    Height = 167
    Align = alClient
    Caption = #21830#21697#32534#30721
    TabOrder = 3
    object Panel4: TPanel
      Left = 2
      Top = 14
      Width = 239
      Height = 151
      Align = alLeft
      TabOrder = 0
      object Label6: TLabel
        Left = 18
        Top = 32
        Width = 48
        Height = 12
        Caption = #27454#24335#32534#30721
      end
      object Label7: TLabel
        Left = 18
        Top = 53
        Width = 24
        Height = 12
        Caption = #33394#30721
      end
      object Label8: TLabel
        Left = 18
        Top = 74
        Width = 24
        Height = 12
        Caption = #23610#30721
      end
      object Label5: TLabel
        Left = 18
        Top = 95
        Width = 36
        Height = 12
        Caption = #38646#21806#20215
      end
      object SpeedButton3: TSpeedButton
        Left = 88
        Top = 119
        Width = 52
        Height = 22
        Caption = #33258#21160#29983#25104
        Flat = True
        OnClick = SpeedButton3Click
      end
      object Label13: TLabel
        Left = 18
        Top = 14
        Width = 24
        Height = 12
        Caption = #21697#29260
      end
      object SpeedButton1: TSpeedButton
        Left = 140
        Top = 119
        Width = 41
        Height = 22
        Caption = #21024#38500
        Flat = True
        OnClick = SpeedButton1Click
      end
      object MaskEdit1: TMaskEdit
        Left = 75
        Top = 52
        Width = 150
        Height = 20
        EditMask = '999.999.999.999.999.999;1;_'
        MaxLength = 23
        TabOrder = 2
        Text = '   .   .   .   .   .   '
      end
      object MaskEdit2: TMaskEdit
        Left = 75
        Top = 73
        Width = 150
        Height = 20
        EditMask = '9999.9999.9999.9999.9999;1;_'
        MaxLength = 24
        TabOrder = 3
        Text = '    .    .    .    .    '
      end
      object MaskEdit3: TMaskEdit
        Left = 75
        Top = 94
        Width = 102
        Height = 20
        TabOrder = 4
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 75
        Top = 8
        Width = 105
        Height = 20
        KeyField = 'clabel'
        ListField = 'clabel'
        ListSource = DSindlabel
        TabOrder = 0
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 75
        Top = 30
        Width = 105
        Height = 20
        KeyField = 'cstyle'
        ListField = 'cstyle'
        ListSource = dsspec
        TabOrder = 1
        OnEnter = DBLookupComboBox2Enter
        OnExit = DBLookupComboBox2Exit
      end
    end
    object DBGrid3: TDBGrid
      Left = 241
      Top = 14
      Width = 401
      Height = 151
      Align = alClient
      DataSource = DataSource3
      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
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'spbh'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#32534#30721
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'flh'
          Title.Alignment = taCenter
          Title.Caption = #27454#24335#32534#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lsj'
          Title.Alignment = taCenter
          Title.Caption = #38646#21806#20215
          Width = 54
          Visible = True
        end>
    end
  end
  object DataSource2: TDataSource
    DataSet = ATblspec
    OnStateChange = DataSource2StateChange
    Left = 280
    Top = 144
  end
  object DataSource3: TDataSource
    DataSet = ATbleware
    Left = 304
    Top = 328
  end
  object ATblspec: TADOTable
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    OnPostError = ATblspecPostError
    IndexFieldNames = 'cstyle'
    TableName = 't_spec'
    Left = 312
    Top = 144
    object ATblspecclabel: TWideStringField
      DisplayLabel = #21697#29260
      DisplayWidth = 11
      FieldName = 'clabel'
      Size = 16
    end
    object ATblspeccstyle: TWideStringField
      DisplayLabel = #27454#24335#30721
      DisplayWidth = 8
      FieldName = 'cstyle'
      Size = 8
    end
    object ATblspeccname: TWideStringField
      DisplayLabel = #27454#24335#21517#31216
      DisplayWidth = 20
      FieldName = 'cname'
    end
    object ATblspeccprice: TFloatField
      DisplayLabel = #20215#26684
      DisplayWidth = 10
      FieldName = 'cprice'
      currency = True
    end
    object ATblspeccclass: TWideStringField
      DisplayLabel = #25152#23646#22823#31867
      DisplayWidth = 6
      FieldName = 'cclass'
      Size = 2
    end
  end
  object ATbleware: TADOTable
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    OnPostError = ATblewarePostError
    IndexFieldNames = 'flh'
    MasterFields = 'cstyle'
    TableName = 't_ware'
    Left = 336
    Top = 328
    object ATblewarespbh: TWideStringField
      FieldName = 'spbh'
      Size = 23
    end
    object ATblewarejldw: TWideStringField
      FieldName = 'jldw'
      Size = 4
    end
    object ATblewareflh: TWideStringField
      FieldName = 'flh'
      Size = 8
    end
    object ATblewarelsj: TFloatField
      FieldName = 'lsj'
      currency = True
    end
    object ATblewarejj: TFloatField
      FieldName = 'jj'
    end
    object ATblewareclabel: TWideStringField
      DisplayLabel = #21697#29260
      FieldName = 'clabel'
      Size = 16
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    OnPostError = ADOTable1PostError
    TableName = 't_class'
    Left = 320
    Top = 32
    object ADOTable1cclass: TWideStringField
      FieldName = 'cclass'
      Size = 2
    end
    object ADOTable1cname: TWideStringField
      FieldName = 'cname'
    end
    object ADOTable1clabel: TWideStringField
      DisplayLabel = #21697#29260
      FieldName = 'clabel'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    OnStateChange = DataSource1StateChange
    Left = 280
    Top = 32
  end
  object DSindlabel: TDataSource
    DataSet = Aindlabel
    Left = 512
    Top = 16
  end
  object Aindlabel: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_label'
    Left = 544
    Top = 16
    object Aindlabelclabel: TWideStringField
      FieldName = 'clabel'
      Size = 16
    end
    object Aindlabelcfactory: TWideStringField
      FieldName = 'cfactory'
      Size = 30
    end
  end
  object dsclass: TDataSource
    DataSet = Atclass
    Left = 512
    Top = 48
  end
  object Atclass: TADOTable
    Connection = dmRainbowMIS.adopos
    IndexFieldNames = 'clabel'
    TableName = 't_class'
    Left = 544
    Top = 48
  end
  object atspec: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    IndexFieldNames = 'cstyle'
    TableName = 't_spec'
    Left = 544
    Top = 80
  end
  object dsspec: TDataSource
    DataSet = atspec
    Left = 512
    Top = 80
  end
end