行业应用

开发平台：
Delphi

Clients.dfm：源码内容
							object Infos: TInfos
  Left = 0
  Top = 0
  BorderStyle = bsSingle
  Caption = 'Infos'
  ClientHeight = 467
  ClientWidth = 473
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LabNom: TLabel
    Left = 8
    Top = 230
    Width = 28
    Height = 13
    Caption = 'Nom :'
  end
  object LabPrenom: TLabel
    Left = 256
    Top = 230
    Width = 43
    Height = 13
    Caption = 'Pr'#233'nom :'
  end
  object LabFixe: TLabel
    Left = 8
    Top = 270
    Width = 48
    Height = 13
    Caption = 'T'#233'l. Fixe :'
  end
  object LabPortable: TLabel
    Left = 8
    Top = 310
    Width = 68
    Height = 13
    Caption = 'T'#233'l. Portable :'
  end
  object LabAdresse: TLabel
    Left = 176
    Top = 270
    Width = 46
    Height = 13
    Caption = 'Adresse :'
  end
  object LabEmail: TLabel
    Left = 8
    Top = 390
    Width = 31
    Height = 13
    Caption = 'Email :'
  end
  object LabNaissance: TLabel
    Left = 8
    Top = 350
    Width = 96
    Height = 13
    Caption = 'Date de Naissance :'
  end
  object LabNumero: TLabel
    Left = 8
    Top = 192
    Width = 67
    Height = 13
    Caption = 'Num'#233'ro Client'
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 473
    Height = 185
    Color = clInfoBk
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Numero'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nom'
        Width = 188
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Prenom'
        Width = 203
        Visible = True
      end>
  end
  object Nom: TDBEdit
    Left = 8
    Top = 245
    Width = 242
    Height = 21
    CharCase = ecUpperCase
    DataField = 'Nom'
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Prenom: TDBEdit
    Left = 256
    Top = 245
    Width = 209
    Height = 21
    DataField = 'Prenom'
    DataSource = DataSource1
    TabOrder = 3
  end
  object NumFixe: TDBEdit
    Left = 8
    Top = 285
    Width = 153
    Height = 21
    DataField = 'Telephone'
    DataSource = DataSource1
    TabOrder = 4
  end
  object NumPortable: TDBEdit
    Left = 8
    Top = 325
    Width = 153
    Height = 21
    DataField = 'Portable'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBNavigator1: TDBNavigator
    Left = 109
    Top = 430
    Width = 260
    Height = 33
    DataSource = DataSource1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object Naissance: TDBEdit
    Left = 8
    Top = 365
    Width = 153
    Height = 21
    DataField = 'Naissance'
    DataSource = DataSource1
    TabOrder = 6
  end
  object Email: TDBEdit
    Left = 8
    Top = 405
    Width = 457
    Height = 21
    DataField = 'Email'
    DataSource = DataSource1
    TabOrder = 8
  end
  object Client: TDBEdit
    Left = 8
    Top = 208
    Width = 113
    Height = 21
    DataField = 'Numero'
    DataSource = DataSource1
    TabOrder = 1
  end
  object Adresse: TDBMemo
    Left = 176
    Top = 285
    Width = 289
    Height = 101
    DataField = 'Adresse'
    DataSource = DataSource1
    TabOrder = 7
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 400
    Top = 40
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    TableName = 'Clients'
    Left = 400
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 320
    Top = 40
  end
end

						