proselect.dfm

从网友处得到的蓝图财务进销存源程序

inherited ProSelectForm: TProSelectForm
  Caption = #39033#30446#26381#21153#21253
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    inherited ToolBar1: TToolBar
      inherited tbSel: TToolButton
        OnClick = tbSelClick
      end
    end
  end
  inherited QBaseInfo: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select * From New'#26381#21153#39033#30446#35774#32622' where '#26159#21542#25171#21253'='#39'1'#39' and '#29366#24577'='#39#20351#29992#39' Order by ID')
    object QBaseInfoID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object QBaseInfoDSDesigner: TStringField
      FieldName = #39033#30446#32534#21495
    end
    object QBaseInfoDSDesigner2: TStringField
      FieldName = #39033#30446#21517#31216
      Size = 50
    end
    object QBaseInfoDSDesigner3: TIntegerField
      FieldName = #31867#21035#32534#21495
    end
    object QBaseInfoDSDesigner4: TStringField
      FieldName = #39033#30446#26465#30721
    end
    object QBaseInfoDSDesigner5: TBCDField
      FieldName = #21333#20215
      Precision = 19
    end
    object QBaseInfoDSDesigner6: TFloatField
      FieldName = #39033#30446#25240#25187
    end
    object QBaseInfoDSDesigner7: TBCDField
      FieldName = #26448#26009#36153#29992
      Precision = 19
    end
    object QBaseInfoDSDesigner8: TFloatField
      FieldName = #26448#26009#21333#20215
    end
    object QBaseInfoDSDesigner9: TFloatField
      FieldName = #26631#20934#24037#26102
    end
    object QBaseInfoDSDesigner10: TIntegerField
      FieldName = #38656#29992#31215#20998
    end
    object QBaseInfoDSDesigner11: TBooleanField
      FieldName = #26159#21542#25171#21253
    end
    object QBaseInfoDSDesigner12: TWideStringField
      FieldName = #22791#27880
      Size = 200
    end
    object QBaseInfoDSDesigner13: TStringField
      FieldName = #29366#24577
    end
  end
end