unit4.dfm

应用ADO技术在Delphi中进行客户信息管理系统的开发。系统设计分为数据库设计和功能模块设计两部分。本系统的数据分为两部分：客户信息和系统用户信息。所以要设计两个表：Customers和Users

object FrmSupt: TFrmSupt
  Left = 0
  Top = 0
  Width = 627
  Height = 473
  Caption = #23458#25143#20449#24687#32500#25252
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = #24494#36719#38597#40657
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object BtnReturn: TBitBtn
    Left = 528
    Top = 16
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 0
    OnClick = BtnReturnClick
    Kind = bkClose
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 48
    Width = 585
    Height = 377
    ActivePage = TabSheetDelete
    TabOrder = 1
    object TabSheetInput: TTabSheet
      Caption = #23458#25143#20449#24687#24405#20837
      object DBNvgt1: TDBNavigator
        Left = 195
        Top = 313
        Width = 186
        Height = 25
        DataSource = DSCustom
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh]
        TabOrder = 0
      end
      object DBGrd1: TDBGrid
        Left = 8
        Top = 8
        Width = 561
        Height = 297
        DataSource = DSCustom
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = #24494#36719#38597#40657
        TitleFont.Style = []
      end
    end
    object TabSheetUpdate: TTabSheet
      Caption = #23458#25143#20449#24687#20462#25913
      ImageIndex = 1
      object DBNvgt2: TDBNavigator
        Left = 176
        Top = 312
        Width = 225
        Height = 25
        DataSource = DSCustom
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
        TabOrder = 0
      end
      object DBGrd2: TDBGrid
        Left = 8
        Top = 8
        Width = 561
        Height = 297
        DataSource = DSCustom
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = #24494#36719#38597#40657
        TitleFont.Style = []
      end
    end
    object TabSheetDelete: TTabSheet
      Caption = #23458#25143#20449#24687#21024#38500
      ImageIndex = 2
      object DBNvgt3: TDBNavigator
        Left = 174
        Top = 312
        Width = 228
        Height = 25
        DataSource = DSCustom
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbDelete, nbRefresh]
        TabOrder = 0
      end
      object DBGrd3: TDBGrid
        Left = 8
        Top = 8
        Width = 561
        Height = 297
        DataSource = DSCustom
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = #24494#36719#38597#40657
        TitleFont.Style = []
      end
    end
  end
  object DSCustom: TDataSource
    DataSet = DMCu.ADOTblCu
    Left = 480
    Top = 16
  end
end