Delphi_7.0数据库开发源代码。有内容十一章节

				object Form1: TForm1
				  Left = 247
				  Top = 237
				  Width = 341
				  Height = 223
				  Caption = 'InterBase Express'#31616#21333#24212#29992#31034#20363
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  PixelsPerInch = 96
				  TextHeight = 13
				  object DBGrid1: TDBGrid
				    Left = 8
				    Top = 56
				    Width = 320
				    Height = 120
				    DataSource = DataSource1
				    TabOrder = 0
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = -11
				    TitleFont.Name = 'MS Sans Serif'
				    TitleFont.Style = []
				  end
				  object IBDatabase1: TIBDatabase
				    Connected = True
				    DatabaseName = 'C:\Program Files\Borland\Delphi7\Projects\employee.gdb'
				    Params.Strings = (
				      'user_name=sysdba'
				      'password=masterkey')
				    DefaultTransaction = IBTransaction1
				    IdleTimer = 0
				    SQLDialect = 1
				    TraceFlags = []
				    Left = 8
				    Top = 16
				  end
				  object IBTable1: TIBTable
				    Database = IBDatabase1
				    Transaction = IBTransaction1
				    Active = True
				    BufferChunks = 1000
				    CachedUpdates = False
				    FieldDefs = <
				      item
				        Name = 'CUST_NO'
				        Attributes = [faRequired]
				        DataType = ftInteger
				      end
				      item
				        Name = 'CUSTOMER'
				        Attributes = [faRequired]
				        DataType = ftString
				        Size = 25
				      end
				      item
				        Name = 'CONTACT_FIRST'
				        DataType = ftString
				        Size = 15
				      end
				      item
				        Name = 'CONTACT_LAST'
				        DataType = ftString
				        Size = 20
				      end
				      item
				        Name = 'PHONE_NO'
				        DataType = ftString
				        Size = 20
				      end
				      item
				        Name = 'ADDRESS_LINE1'
				        DataType = ftString
				        Size = 30
				      end
				      item
				        Name = 'ADDRESS_LINE2'
				        DataType = ftString
				        Size = 30
				      end
				      item
				        Name = 'CITY'
				        DataType = ftString
				        Size = 25
				      end
				      item
				        Name = 'STATE_PROVINCE'
				        DataType = ftString
				        Size = 15
				      end
				      item
				        Name = 'COUNTRY'
				        DataType = ftString
				        Size = 15
				      end
				      item
				        Name = 'POSTAL_CODE'
				        DataType = ftString
				        Size = 12
				      end
				      item
				        Name = 'ON_HOLD'
				        Attributes = [faFixed]
				        DataType = ftString
				        Size = 1
				      end>
				    IndexDefs = <
				      item
				        Name = 'RDB$PRIMARY22'
				        Fields = 'CUST_NO'
				        Options = [ixPrimary, ixUnique]
				      end
				      item
				        Name = 'RDB$FOREIGN23'
				        Fields = 'COUNTRY'
				      end
				      item
				        Name = 'CUSTNAMEX'
				        Fields = 'CUSTOMER'
				      end
				      item
				        Name = 'CUSTREGION'
				        Fields = 'COUNTRY;CITY'
				      end>
				    StoreDefs = True
				    TableName = 'CUSTOMER'
				    Left = 64
				    Top = 16
				  end
				  object IBTransaction1: TIBTransaction
				    Active = True
				    DefaultDatabase = IBDatabase1
				    AutoStopAction = saNone
				    Left = 112
				    Top = 16
				  end
				  object DataSource1: TDataSource
				    DataSet = IBTable1
				    Left = 176
				    Top = 16
				  end
				end