personunit.dfm

使用delphi语言

            Width = 52
            Height = 13
            Caption = #32844#24037#22995#21517
          end
          object Label4: TLabel
            Left = 503
            Top = 13
            Width = 26
            Height = 13
            Caption = #36134#21495
          end
          object Label5: TLabel
            Left = 29
            Top = 36
            Width = 26
            Height = 13
            Caption = #22791#27880
          end
          object DBEdit1: TDBEdit
            Left = 225
            Top = 9
            Width = 109
            Height = 21
            Color = 16758820
            DataField = #32844#24037#32534#21495
            DataSource = dm.dsperson
            ReadOnly = True
            TabOrder = 1
            OnEnter = DBEdit1Enter
            OnExit = DBEdit1Exit
            OnKeyDown = DBComboBox1KeyDown
          end
          object DBEdit2: TDBEdit
            Left = 389
            Top = 9
            Width = 111
            Height = 21
            Color = 16758820
            DataField = #32844#24037#22995#21517
            DataSource = dm.dsperson
            ReadOnly = True
            TabOrder = 2
            OnEnter = DBEdit1Enter
            OnExit = DBEdit1Exit
            OnKeyDown = DBComboBox1KeyDown
          end
          object DBEdit3: TDBEdit
            Left = 529
            Top = 9
            Width = 124
            Height = 21
            Color = 16758820
            DataField = #36134#21495
            DataSource = dm.dsperson
            ReadOnly = True
            TabOrder = 3
            OnEnter = DBEdit1Enter
            OnExit = DBEdit1Exit
            OnKeyDown = DBComboBox1KeyDown
          end
          object DBMemo1: TDBMemo
            Left = 56
            Top = 35
            Width = 597
            Height = 38
            Color = 16758820
            DataField = #22791#27880
            DataSource = dm.dsperson
            ReadOnly = True
            TabOrder = 4
            OnEnter = DBMemo1Enter
            OnExit = DBMemo1Exit
            OnKeyDown = DBComboBox1KeyDown
          end
          object DBComboBox1: TDBComboBox
            Left = 56
            Top = 8
            Width = 113
            Height = 21
            Color = 16758820
            DataField = #37096#38376#32534#21495
            DataSource = dm.dsperson
            ItemHeight = 13
            ReadOnly = True
            TabOrder = 0
            OnEnter = DBComboBox1Enter
            OnExit = DBComboBox1Exit
            OnKeyDown = DBComboBox1KeyDown
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 84
          Width = 654
          Height = 293
          DataSource = dm.dsperson
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnTitleClick = DBGrid1TitleClick
          Columns = <
            item
              Expanded = False
              FieldName = #32844#24037#32534#21495
              Width = 109
              Visible = True
            end
            item
              Expanded = False
              FieldName = #32844#24037#22995#21517
              Width = 109
              Visible = True
            end
            item
              Expanded = False
              FieldName = #37096#38376#32534#21495
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36134#21495
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22791#27880
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = #26597#35810
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 1
          Width = 655
          Height = 47
          BevelInner = bvLowered
          TabOrder = 0
          object Label6: TLabel
            Left = 16
            Top = 16
            Width = 52
            Height = 13
            Caption = #37096#38376#21517#31216
          end
          object Label7: TLabel
            Left = 400
            Top = 16
            Width = 7
            Height = 13
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 72
            Top = 13
            Width = 185
            Height = 21
            KeyField = #37096#38376#21517#31216
            ListSource = dm.dsbm
            TabOrder = 0
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object BitBtn1: TBitBtn
            Left = 259
            Top = 13
            Width = 25
            Height = 21
            Caption = 'Go'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = BitBtn1Click
          end
        end
        object DBGrid2: TDBGrid
          Left = 0
          Top = 50
          Width = 653
          Height = 327
          DataSource = DataSource1
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnTitleClick = DBGrid2TitleClick
          Columns = <
            item
              Expanded = False
              FieldName = #32844#24037#32534#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #32844#24037#22995#21517
              Visible = True
            end
            item
              Expanded = False
              FieldName = #37096#38376#32534#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36134#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22791#27880
              Visible = True
            end>
        end
      end
    end
  end
  object a: TADODataSet
    Connection = dm.gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#32844#24037
    Parameters = <>
    Left = 433
    Top = 33
    object aDSDesigner: TStringField
      DisplayWidth = 30
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object aDSDesigner2: TStringField
      DisplayWidth = 30
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object aDSDesigner3: TStringField
      DisplayWidth = 16
      FieldName = #37096#38376#32534#21495
      Size = 50
    end
    object aDSDesigner4: TStringField
      DisplayWidth = 50
      FieldName = #36134#21495
      Size = 50
    end
    object aDSDesigner5: TStringField
      DisplayWidth = 50
      FieldName = #22791#27880
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = a
    Left = 465
    Top = 33
  end
end