unit6.~dfm

delphi 控制设备程序

object Form6: TForm6
  Left = 229
  Top = 145
  Width = 681
  Height = 429
  Caption = 'Form6'
  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 DBGridMaster: TDBGrid
    Left = 8
    Top = 48
    Width = 649
    Height = 193
    DataSource = dsMaster
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGridDetail: TDBGrid
    Left = 8
    Top = 256
    Width = 649
    Height = 137
    DataSource = dsDetail
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 584
    Top = 8
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 2
    OnClick = Button1Click
  end
  object TableMaster: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'orders.db'
    Left = 56
    Top = 8
  end
  object TableDetail: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = dsMaster
    TableName = 'items.db'
    Left = 208
    Top = 8
  end
  object dsMaster: TDataSource
    DataSet = TableMaster
    Left = 88
    Top = 8
  end
  object dsDetail: TDataSource
    DataSet = TableDetail
    Left = 248
    Top = 8
  end
  object Query1: TQuery
    Left = 288
    Top = 8
  end
  object StoredProc1: TStoredProc
    Left = 328
    Top = 8
  end
  object Database1: TDatabase
    SessionName = 'Default'
    Left = 368
    Top = 8
  end
end