ufrmprice.dfm

水电管理系统,你们不妨看看怎么样?我再继续给你们别的

object frmPrice: TfrmPrice
  Left = 240
  Top = 175
  Width = 696
  Height = 480
  Caption = '单价维护'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel7: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 89
    Align = alTop
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label13: TLabel
      Left = 378
      Top = 20
      Width = 65
      Height = 13
      Caption = '单价名称：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 146
      Top = 44
      Width = 81
      Height = 13
      Caption = '单      价：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 354
      Top = 43
      Width = 91
      Height = 13
      Caption = '超出部分单价：'
    end
    object Label20: TLabel
      Left = 146
      Top = 20
      Width = 66
      Height = 13
      Caption = '表 类 型：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 331
      Top = 44
      Width = 13
      Height = 13
      Caption = '元'
    end
    object Label1: TLabel
      Left = 579
      Top = 44
      Width = 13
      Height = 13
      Caption = '元'
    end
    object DBEditEh2: TDBEditEh
      Left = 456
      Top = 42
      Width = 121
      Height = 19
      DataField = 'ExceedPrice'
      DataSource = dsPrice
      EditButtons = <>
      Flat = True
      ImeName = '中文 (简体) - 王码五笔型86版'
      TabOrder = 3
      Visible = True
    end
    object DBEditEh3: TDBEditEh
      Left = 455
      Top = 17
      Width = 121
      Height = 19
      DataField = 'PriceName'
      DataSource = dsPrice
      EditButtons = <>
      Flat = True
      ImeName = '中文 (简体) - 王码五笔型86版'
      TabOrder = 1
      Visible = True
    end
    object DBEditEh4: TDBEditEh
      Left = 224
      Top = 42
      Width = 105
      Height = 19
      DataField = 'PriceNumber'
      DataSource = dsPrice
      EditButtons = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ImeName = '中文 (简体) - 王码五笔型86版'
      ParentFont = False
      TabOrder = 2
      Visible = True
    end
    object DBLookupComboboxEh5: TDBLookupComboboxEh
      Left = 224
      Top = 17
      Width = 121
      Height = 19
      DataField = 'MeterSortID'
      DataSource = dsPrice
      EditButtons = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ImeMode = imClose
      KeyField = 'MeterSortID'
      ListField = 'MeterSortName'
      ListSource = DataSource1
      ParentFont = False
      TabOrder = 0
      Visible = True
    end
  end
  object DBGridEh2: TDBGridEh
    Left = 0
    Top = 89
    Width = 688
    Height = 339
    Align = alClient
    DataSource = dsPrice
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ImeName = '中文 (简体) - 王码五笔型86版'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'PriceID'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '单价ID'
      end
      item
        EditButtons = <>
        FieldName = 'PriceName'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '单价名称'
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'PriceNumber'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '单价'
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'ExceedPrice'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '超出部分单价'
        Width = 75
      end
      item
        EditButtons = <>
        FieldName = 'MeterSortName'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = '所属表类型'
        Width = 80
      end>
  end
  object MyDBNavigator1: TMyDBNavigator
    Left = 0
    Top = 428
    Width = 688
    Height = 25
    DataSource = dsPrice
    Align = alBottom
    Flat = True
    TabOrder = 2
  end
  object dsPrice: TDataSource
    DataSet = adoPrice
    Left = 40
    Top = 344
  end
  object adoPrice: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from price')
    Left = 80
    Top = 344
    object adoPricePriceID: TAutoIncField
      FieldName = 'PriceID'
    end
    object adoPricePriceName: TWideStringField
      FieldName = 'PriceName'
    end
    object adoPricePriceNumber: TBCDField
      FieldName = 'PriceNumber'
      Precision = 19
    end
    object adoPriceExceedPrice: TBCDField
      FieldName = 'ExceedPrice'
      Precision = 19
    end
    object adoPriceMeterSortID: TIntegerField
      FieldName = 'MeterSortID'
    end
    object adoPriceMeterSortName: TStringField
      FieldKind = fkLookup
      FieldName = 'MeterSortName'
      LookupDataSet = ADOQuery1
      LookupKeyFields = 'MeterSortID'
      LookupResultField = 'MeterSortName'
      KeyFields = 'MeterSortID'
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 544
    Top = 344
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from MeterSort')
    Left = 584
    Top = 344
  end
end