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

源代码在线查看: unit1.~dfm

软件大小: 663 K
上传用户: rylzll
关键词: Delphi 7.0 数据库 源代码
下载地址: 免注册下载 普通下载 VIP

相关代码

				object Form1: TForm1
				  Left = 322
				  Top = 198
				  Width = 370
				  Height = 375
				  Caption = 'Form1'
				  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 = 8
				    Width = 345
				    Height = 129
				    DataSource = DataSource1
				    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
				    TabOrder = 0
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = -11
				    TitleFont.Name = 'MS Sans Serif'
				    TitleFont.Style = []
				  end
				  object DBGrid2: TDBGrid
				    Left = 8
				    Top = 184
				    Width = 345
				    Height = 161
				    DataSource = DataSource2
				    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
				    TabOrder = 1
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = -11
				    TitleFont.Name = 'MS Sans Serif'
				    TitleFont.Style = []
				  end
				  object Button1: TButton
				    Left = 136
				    Top = 152
				    Width = 75
				    Height = 25
				    Caption = #24320#22987
				    TabOrder = 2
				    OnClick = Button1Click
				  end
				  object Table1: TTable
				    Active = True
				    DatabaseName = 'DBDEMOS'
				    TableName = 'animals.dbf'
				    Left = 8
				    Top = 136
				  end
				  object DataSource1: TDataSource
				    DataSet = Table1
				    Left = 56
				    Top = 136
				  end
				  object Table2: TTable
				    DatabaseName = 'BATCH'
				    Left = 288
				    Top = 144
				  end
				  object DataSource2: TDataSource
				    DataSet = Table2
				    Left = 320
				    Top = 144
				  end
				  object BatchMove1: TBatchMove
				    Destination = Table2
				    Mappings.Strings = (
				      'ANIMAL NAME=NAME'
				      'AREA=STATION')
				    Mode = batCopy
				    Source = Table1
				    Left = 160
				    Top = 88
				  end
				end
							

相关资源