unit2.~dfm

来自「是关于SQL的一些程序 很好很经典的~大家又兴趣的可以学习下」· ~DFM 代码 · 共 84 行

object mydata: Tmydata
  OldCreateOrder = False
  Left = 340
  Top = 249
  Height = 275
  Width = 344
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 40
    Top = 48
  end
  object Database1: TDatabase
    AliasName = #20154#20107#31649#29702#31995#32479
    Connected = True
    DatabaseName = #20154#20107#31649#29702#31995#32479
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='#20154#20107#31649#29702#31995#32479
      'USER NAME=sa'
      'ODBC DSN='#20154#20107#31649#29702#31995#32479
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 160
    Top = 32
  end
  object Query1: TQuery
    Active = True
    AutoCalcFields = False
    AutoRefresh = True
    DatabaseName = #20154#20107#31649#29702#31995#32479
    SQL.Strings = (
      'select '#29992#25143#21517','#29992#25143#26435#38480' from '#29992#25143#23494#30721#34920)
    Left = 80
    Top = 8
  end
  object query_stuff: TQuery
    Active = True
    DatabaseName = #20154#20107#31649#29702#31995#32479
    SQL.Strings = (
      'select * from '#21592#24037#36164#26009#34920)
    Left = 128
    Top = 88
  end
  object data_stuff: TDataSource
    DataSet = query_stuff
    Left = 48
    Top = 112
  end
  object data_depart: TDataSource
    DataSet = query_depart
    Left = 128
    Top = 176
  end
  object query_depart: TQuery
    Active = True
    DatabaseName = #20154#20107#31649#29702#31995#32479
    SQL.Strings = (
      'select '#37096#38376#21517#31216' from '#37096#38376#36164#26009#34920)
    Left = 216
    Top = 192
  end
  object Query_job: TQuery
    Active = True
    DatabaseName = #20154#20107#31649#29702#31995#32479
    SQL.Strings = (
      'select * from '#32844#21153#31867#21035#34920)
    Left = 224
    Top = 120
  end
end