uinfo.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

object fmInfo: TfmInfo
  Left = 223
  Top = 186
  ActiveControl = BitBtn2
  BorderStyle = bsToolWindow
  Caption = #35760#24405#26085#24535
  ClientHeight = 158
  ClientWidth = 315
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object DBText10: TDBText
    Left = 101
    Top = 36
    Width = 92
    Height = 17
    Color = 12615680
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 315
    Height = 120
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 5
      Top = 7
      Width = 48
      Height = 12
      Caption = #21019#24314#26085#26399
    end
    object Label2: TLabel
      Left = 5
      Top = 65
      Width = 48
      Height = 12
      Caption = #20462#25913#26085#26399
    end
    object Label3: TLabel
      Left = 17
      Top = 36
      Width = 36
      Height = 12
      Caption = #21019#24314#32773
    end
    object Label4: TLabel
      Left = 17
      Top = 95
      Width = 36
      Height = 12
      Caption = #20462#25913#32773
    end
    object DBText1: TDBText
      Left = 57
      Top = 7
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 57
      Top = 36
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 57
      Top = 65
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 57
      Top = 95
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object Label5: TLabel
      Left = 162
      Top = 65
      Width = 48
      Height = 12
      Caption = #35760#24080#26085#26399
    end
    object Label6: TLabel
      Left = 174
      Top = 95
      Width = 36
      Height = 12
      Caption = #35760#24080#32773
    end
    object Label7: TLabel
      Left = 162
      Top = 7
      Width = 48
      Height = 12
      Caption = #25209#26680#26085#26399
    end
    object Label8: TLabel
      Left = 174
      Top = 36
      Width = 36
      Height = 12
      Caption = #25209#26680#32773
    end
    object DBText5: TDBText
      Left = 214
      Top = 7
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 214
      Top = 36
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 214
      Top = 65
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object DBText8: TDBText
      Left = 214
      Top = 95
      Width = 92
      Height = 17
      Color = clBtnFace
      DataSource = DSRecord
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 6
      Top = 115
      Width = 304
      Height = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 120
    Width = 315
    Height = 21
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 32
      Top = 0
      Width = 50
      Height = 19
      Caption = #21521#19978'(&P)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Style = bsNew
    end
    object BitBtn2: TBitBtn
      Left = 124
      Top = 0
      Width = 50
      Height = 19
      Caption = #21521#19979'(&N)'
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 216
      Top = 0
      Width = 50
      Height = 19
      Cancel = True
      Caption = #20851#38381
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ModalResult = 2
      ParentFont = False
      TabOrder = 2
      TabStop = False
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 141
    Width = 315
    Height = 17
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object DSRecord: TDataSource
    OnDataChange = DSRecordDataChange
    Left = 285
    Top = 129
  end
end