sysserver.dfm

一个MRPII系统源代码版本

object Server: TServer
  OldCreateOrder = False
  Pooled = False
  Left = 346
  Top = 121
  Height = 375
  Width = 544
  object AdoConnectMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=..\Mr' +
      'pMdl\MrpACT.mdb;Mode=Share Deny None;Extended Properties="";Pers' +
      'ist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:R' +
      'egistry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine ' +
      'Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partia' +
      'l Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New ' +
      'Database Password="";Jet OLEDB:Create System Database=False;Jet ' +
      'OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Comp' +
      'act=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLE' +
      'DB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 16
  end
  object AdoQry_Main: TADOQuery
    Connection = AdoConnectMain
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From Account where Valid='#39'Y'#39' Or Valid='#39'y'#39)
    Left = 104
    Top = 16
  end
  object DataProvider: TDataSetProvider
    DataSet = AdoQry_Main
    ResolveToDataSet = True
    Options = [poAutoRefresh, poPropogateChanges, poAllowCommandText]
    Left = 184
    Top = 16
  end
end