onmessa.dfm

直接可以编译运行

      end
      object Button8: TButton
        Left = 240
        Top = 256
        Width = 75
        Height = 25
        Caption = #19979#19968#26465
        TabOrder = 13
        OnClick = Button8Click
      end
      object Button9: TButton
        Left = 312
        Top = 256
        Width = 75
        Height = 25
        Caption = #19978#19968#26465
        TabOrder = 14
        OnClick = Button9Click
      end
      object DBEdit23: TDBEdit
        Left = 320
        Top = 144
        Width = 121
        Height = 21
        DataField = 'name'
        DataSource = DataSource1
        TabOrder = 15
      end
    end
    object TabSheet3: TTabSheet
      Caption = #32500#20462#31649#29702
      ImageIndex = 2
      object Label23: TLabel
        Left = 24
        Top = 24
        Width = 63
        Height = 13
        Caption = #23458#25143#32534#21495#65306' '
      end
      object Label24: TLabel
        Left = 24
        Top = 48
        Width = 51
        Height = 13
        Caption = #23458#25143#21517#65306' '
      end
      object Label25: TLabel
        Left = 24
        Top = 88
        Width = 39
        Height = 13
        Caption = #21306#21495#65306' '
      end
      object Label26: TLabel
        Left = 16
        Top = 128
        Width = 63
        Height = 13
        Caption = #23458#25143#30005#35805#65306' '
      end
      object Label27: TLabel
        Left = 16
        Top = 168
        Width = 66
        Height = 13
        Caption = #23458#25143#22320#22336#65306'  '
      end
      object Label28: TLabel
        Left = 16
        Top = 208
        Width = 66
        Height = 13
        Caption = #20837#24211#26102#38388#65306'  '
      end
      object Label29: TLabel
        Left = 232
        Top = 16
        Width = 66
        Height = 13
        Caption = #26426#22120#22411#21495#65306'  '
      end
      object Label30: TLabel
        Left = 232
        Top = 48
        Width = 63
        Height = 13
        Caption = #22788#29702#20449#24687#65306' '
      end
      object Label31: TLabel
        Left = 232
        Top = 88
        Width = 54
        Height = 13
        Caption = #32500#20462#21592#65306'  '
      end
      object Label32: TLabel
        Left = 232
        Top = 128
        Width = 63
        Height = 13
        Caption = #23436#25104#26102#38388#65306' '
      end
      object Label33: TLabel
        Left = 232
        Top = 168
        Width = 42
        Height = 13
        Caption = #37329#39069#65306'  '
      end
      object Label34: TLabel
        Left = 504
        Top = 24
        Width = 42
        Height = 13
        Caption = #22791#27880#65306'  '
      end
      object DBText3: TDBText
        Left = 96
        Top = 24
        Width = 65
        Height = 17
        DataField = 'id'
        DataSource = DataSource1
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 288
        Width = 681
        Height = 225
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            Title.Caption = #23458#25143#32534#21495#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yonghu'
            Title.Caption = #23458#25143#21517#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'quhao'
            Title.Caption = #21306#21495#65306' '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dianhua'
            Title.Caption = #23458#25143#30005#35805#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dizhi'
            Title.Caption = #23458#25143#22320#22336#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'time'
            Title.Caption = #20837#24211#26102#38388#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'weixiuwu'
            Title.Caption = #26426#22120#22411#21495#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'chulixinxi'
            Title.Caption = #22788#29702#20449#24687
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = #32500#20462#21592#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'endtime'
            Title.Caption = #23436#25104#26102#38388#65306'  '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'money'
            Title.Caption = #37329#39069#65306'   '
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'beizhu'
            Title.Caption = #22791#27880#65306'   '
            Visible = True
          end>
      end
      object DBEdit9: TDBEdit
        Left = 96
        Top = 48
        Width = 121
        Height = 21
        DataField = 'yonghu'
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBEdit18: TDBEdit
        Left = 96
        Top = 88
        Width = 121
        Height = 21
        DataField = 'quhao'
        DataSource = DataSource1
        TabOrder = 2
      end
      object DBEdit19: TDBEdit
        Left = 96
        Top = 128
        Width = 121
        Height = 21
        DataField = 'dianhua'
        DataSource = DataSource1
        TabOrder = 3
      end
      object DBEdit20: TDBEdit
        Left = 96
        Top = 168
        Width = 121
        Height = 21
        DataField = 'dizhi'
        DataSource = DataSource1
        TabOrder = 4
      end
      object DBEdit21: TDBEdit
        Left = 96
        Top = 208
        Width = 121
        Height = 21
        DataField = 'time'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        TabOrder = 5
      end
      object DBEdit22: TDBEdit
        Left = 320
        Top = 16
        Width = 121
        Height = 21
        DataField = 'weixiuwu'
        DataSource = DataSource1
        TabOrder = 6
      end
      object DBMemo3: TDBMemo
        Left = 480
        Top = 56
        Width = 177
        Height = 177
        DataField = 'beizhu'
        DataSource = DataSource1
        TabOrder = 7
      end
      object Button10: TButton
        Left = 112
        Top = 240
        Width = 75
        Height = 25
        Caption = #20462#25913#20449#24687
        TabOrder = 8
        OnClick = Button10Click
      end
      object Button11: TButton
        Left = 184
        Top = 240
        Width = 75
        Height = 25
        Caption = #21024#38500#20449#24687
        TabOrder = 9
        OnClick = Button11Click
      end
      object Button12: TButton
        Left = 256
        Top = 240
        Width = 75
        Height = 25
        Caption = #19979#19968#26465
        TabOrder = 10
        OnClick = Button12Click
      end
      object Button13: TButton
        Left = 328
        Top = 240
        Width = 75
        Height = 25
        Caption = #19978#19968#26465
        TabOrder = 11
        OnClick = Button13Click
      end
      object DBEdit24: TDBEdit
        Left = 320
        Top = 48
        Width = 121
        Height = 21
        DataField = 'chulixinxi'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 12
      end
      object DBEdit25: TDBEdit
        Left = 320
        Top = 80
        Width = 121
        Height = 21
        DataField = 'name'
        DataSource = DataSource1
        TabOrder = 13
      end
      object DBEdit26: TDBEdit
        Left = 320
        Top = 128
        Width = 121
        Height = 21
        DataField = 'endtime'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        TabOrder = 14
      end
      object DBEdit27: TDBEdit
        Left = 320
        Top = 168
        Width = 121
        Height = 21
        DataField = 'money'
        DataSource = DataSource1
        TabOrder = 15
      end
      object Button14: TButton
        Left = 40
        Top = 240
        Width = 75
        Height = 25
        Caption = #32500#20462#20986#24211
        TabOrder = 16
        OnClick = Button14Click
      end
    end
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    TableName = 'weixiu'
    Left = 308
    Top = 1
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 340
    Top = 1
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lname')
    Left = 392
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 428
  end
end