guanjingguige.dfm

石油公司网管系统优化系统软件源码,很有价值的.

object TPipeBiaoZhun: TTPipeBiaoZhun
  Left = 257
  Top = 134
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #31649#32447#26631#20934#35268#26684
  ClientHeight = 416
  ClientWidth = 592
  Color = clBtnFace
  Constraints.MaxHeight = 450
  Constraints.MaxWidth = 600
  Constraints.MinHeight = 450
  Constraints.MinWidth = 600
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 577
    Height = 337
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'WaiJing'
        Title.Alignment = taCenter
        Title.Caption = #22806#24452'(mm)'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NeiJing'
        Title.Alignment = taCenter
        Title.Caption = #20869#24452'(mm)'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BiHou'
        Title.Alignment = taCenter
        Title.Caption = #22721#21402'(mm)'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZhongLiang'
        Title.Alignment = taCenter
        Title.Caption = #21333#20301#37325#37327'(kg/m)'
        Width = 100
        Visible = True
      end>
  end
  object GuanBi: TButton
    Left = 496
    Top = 384
    Width = 75
    Height = 25
    Caption = #20851#38381
    Default = True
    TabOrder = 1
    OnClick = GuanBiClick
  end
  object DBNavigator: TDBNavigator
    Left = 8
    Top = 352
    Width = 576
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
    Hints.Strings = (
      #31532#19968#26465
      #19978#19968#26465
      #19979#19968#26465
      #26368#21518#19968#26465
      #25554#20837
      #21024#38500
      #32534#36753
      #30830#35748#25805#20316
      #21462#28040#25805#20316
      #21047#26032#25968#25454)
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=GuanJing.mdb;Persis' +
      't Security Info=False'
    CursorType = ctStatic
    TableName = 'pipe'
    Left = 64
    Top = 288
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 136
    Top = 280
  end
end