d_m.dfm

来自「网吧的基本操作都可以」· DFM 代码 · 共 132 行

object DM: TDM
  OldCreateOrder = False
  Left = 229
  Top = 200
  Height = 296
  Width = 391
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#32593#21543#31649#29702#31995 +
      #32479
    LoginPrompt = False
    Left = 40
    Top = 16
  end
  object ADOTgl: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = #19979#26426#26102#38388
    TableName = 'gl'
    Left = 136
    Top = 16
  end
  object DSgl: TDataSource
    DataSet = ADOTgl
    Left = 184
    Top = 16
  end
  object ADOTgltemp: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'gltemp'
    Left = 136
    Top = 72
  end
  object ADOTjggl: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = #19978#26426#26102#38388
    TableName = 'jg'
    Left = 136
    Top = 128
  end
  object DSjggl: TDataSource
    DataSet = ADOTjggl
    Left = 208
    Top = 128
  end
  object ADOTpc: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'pc'
    Left = 136
    Top = 192
  end
  object DSpc: TDataSource
    DataSet = ADOTpc
    Left = 200
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from gl order by '#19979#26426#26102#38388' desc')
    Left = 256
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 320
    Top = 24
  end
  object ADOTdl: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'denglu'
    Left = 24
    Top = 112
  end
  object DSdl: TDataSource
    DataSet = ADOTdl
    Left = 72
    Top = 112
  end
  object ADOC: TADOCommand
    CommandText = 'delete * from gltemp'
    Connection = ADOConnection1
    Parameters = <>
    Left = 272
    Top = 112
  end
  object ADOCshanchu: TADOCommand
    CommandText = 'delete from gl where '#19978#26426#26102#38388'>:aa and '#19978#26426#26102#38388' <:bb'
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'aa'
        Size = -1
        Value = Null
      end
      item
        Name = 'bb'
        Size = -1
        Value = Null
      end>
    Left = 272
    Top = 160
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from gltemp')
    Left = 256
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 320
    Top = 64
  end
end