umessage.dfm

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

inherited fmmessage: Tfmmessage
  Left = 152
  Top = 119
  Caption = #31995#32479#25552#31034
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited Panel1: TPanel
        inherited DBGrid1: TdxDBGrid
          Height = 138
          KeyField = 'Sys_ID'
          Filter.Criteria = {00000000}
          OptionsDB = [edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          object DBGrid1MessageID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MessageID'
          end
          object DBGrid1MessageType: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MessageType'
          end
          object DBGrid1Ponderance: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Ponderance'
          end
          object DBGrid1MessageText: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MessageText'
          end
        end
        inherited Panel3: TPanel
          Top = 139
          Height = 124
          Visible = True
          object Label4: TLabel
            Left = 329
            Top = 7
            Width = 36
            Height = 12
            Caption = #20005#37325#24615
          end
          object Label3: TLabel
            Left = 9
            Top = 56
            Width = 48
            Height = 12
            Caption = #25552#31034#20449#24687
          end
          object Label2: TLabel
            Left = 9
            Top = 7
            Width = 36
            Height = 12
            Caption = #20851#38190#23383
            FocusControl = DBEdit2
          end
          object Label1: TLabel
            Left = 193
            Top = 7
            Width = 24
            Height = 12
            Caption = #31867#22411
          end
          object DBComboBox1: TDBComboBox
            Left = 193
            Top = 23
            Width = 81
            Height = 20
            Style = csDropDownList
            DataField = 'MessageType'
            DataSource = DSMain
            ItemHeight = 12
            Items.Strings = (
              'DB'
              'OS'
              'OT')
            TabOrder = 1
          end
          object DBMemo1: TDBMemo
            Left = 9
            Top = 71
            Width = 422
            Height = 44
            DataField = 'MessageText'
            DataSource = DSMain
            TabOrder = 3
          end
          object DBEdit2: TDBEdit
            Left = 9
            Top = 23
            Width = 161
            Height = 20
            DataField = 'MessageID'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBComboBox2: TDBComboBox
            Left = 329
            Top = 23
            Width = 102
            Height = 20
            Style = csDropDownList
            DataField = 'Ponderance'
            DataSource = DSMain
            ItemHeight = 12
            Items.Strings = (
              '1'
              '2'
              '3'
              '4'
              '5')
            TabOrder = 2
          end
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 497
      end
      inherited Panel2: TPanel
        Left = 497
        Width = 74
      end
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMSys.CSysMessage
  end
end