unit4.~dfm

用delphi实现的一个酒店管理系统框架

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 350
  Top = 234
  Height = 189
  Width = 302
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=master;Data Source=.;Use Procedure for ' +
      'Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SM' +
      'XY-YU7TM606PK;Use Encryption for Data=False;Tag with column coll' +
      'ation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 8
  end
  object ADOCommand1: TADOCommand
    CommandText = '--'#19981#35201#22312#27492#28155#21152'SQL'#35821#21477
    Connection = ADOConnection2
    Parameters = <>
    Left = 132
    Top = 56
  end
  object ADOCommand2: TADOCommand
    CommandText = 
      'Create Table MyUser('#24207#21495' int Identity,'#22995#21517' varchar(10) primary key,'#21475 +
      #20196' varchar(10),'#31561#32423' varchar(2))'#13#10'Insert  MyUser  values('#39#30000#27665#26684#39','#39'888'#39 +
      ','#39'A'#39')'#13#10'Insert  MyUser  values('#39#25805#20316#21592#39','#39'123'#39','#39'G'#39')'#13#10'Insert  MyUser  ' +
      'values('#39#27983#35272#32773#39','#39#39','#39'R'#39')'#13#10'--'#28155#21152#20854#20182#29992#25143#20449#24687#13#10#13#10'Create Table '#29992#25143#31867#22411'('#31867#22411#21517' varcha' +
      'r(10) primary key,'#31561#32423' varchar(2))  -- '#20849#26377#22914#19979#19977#31181#13#10'Insert  '#29992#25143#31867#22411'  value' +
      's('#39#31649#29702#21592#39','#39'A'#39')'#13#10'Insert  '#29992#25143#31867#22411'  values('#39#25805#20316#21592#39','#39'G'#39')'#13#10'Insert  '#29992#25143#31867#22411'  val' +
      'ues('#39#27983#35272#32773#39','#39'R'#39')'#13#10#13#10'create table '#36755#20837#34920'('#32534#21495' int Identity primary key,'#20998 +
      #31867' varchar(12),'#24207#21495' int,'#20869#23481' varchar(20))'#13#10'Insert '#36755#20837#34920' values('#39#27665#26063#39',1,'#39 +
      #27721#26063#39')'#13#10'Insert '#36755#20837#34920' values('#39#27665#26063#39',2,'#39#33945#21476#26063#39')'#13#10'Insert '#36755#20837#34920' values('#39#27665#26063#39',3,' +
      #39#30066#26063#39')'#13#10'Insert '#36755#20837#34920' values('#39#23398#21382#39',1,'#39#30740#31350#29983#39')'#13#10'Insert '#36755#20837#34920' values('#39#23398#21382#39',2' +
      ','#39#26412#31185#39')'#13#10'Insert '#36755#20837#34920' values('#39#23398#21382#39',3,'#39#19987#31185#39')'#13#10'Insert '#36755#20837#34920' values('#39#23398#21382#39',4' +
      ','#39#20013#19987#39')'#13#10'--'#28155#21152#20854#23427#31181#31867#21450#20854#21021#20540#13#10#13#10'create table PCInfo(xh int identity prim' +
      'ary key,Pname varchar(30),CpuId varchar(11),CpuSp float,'#13#10'IP var' +
      'char(20),host varchar(30),mac varchar(30),ds varchar(30),LogTime' +
      ' datetime)'#13#10'--  '#29992#20110#20445#23384#30331#24405#35745#31639#26426#30340'CPU'#21378#21830#21644#31995#21015#21495#21450#20027#39057#12289#35745#31639#26426'IP'#21644#21517#31216#12289#30828#30424#31995#21015#21495#21644#30331#24405#26102#38388#13#10#13#10'CR' +
      'EATE TABLE '#24403#21069' ('#36719#20214' varchar (10) PRIMARY KEY,'#29256#26412' varchar (52),'#25991#20214' im' +
      'age)  '#13#10#13#10'--'#20197#19979#28155#21152#31649#29702#31995#32479#25152#35201#21019#24314#34920#30340'SQL'#35821#21477#31561#13#10
    Connection = ADOConnection2
    Parameters = <>
    Left = 219
    Top = 56
  end
  object ADOCommand3: TADOCommand
    CommandText = '--'#28155#21152#31649#29702#31995#32479#25152#35201#21019#24314#30340#35302#21457#22120#30340'SQL'#35821#21477#13#10
    Connection = ADOConnection2
    Parameters = <>
    Left = 43
    Top = 110
  end
  object ADOCommand4: TADOCommand
    CommandText = '--'#28155#21152#31649#29702#31995#32479#25152#35201#21019#24314#30340#35302#21457#22120#30340'SQL'#35821#21477#13#10
    Connection = ADOConnection2
    Parameters = <>
    Left = 132
    Top = 110
  end
  object ADOCommand5: TADOCommand
    CommandText = '--'#28155#21152#31649#29702#31995#32479#25152#35201#21019#24314#30340#35302#21457#22120#30340'SQL'#35821#21477#13#10
    Connection = ADOConnection2
    Parameters = <>
    Left = 227
    Top = 110
  end
  object ADOConnection2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=master;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 56
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 136
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'create table PCInfo(xh int identity primary key,'
      'Pname varchar(30),CpuId varchar(11),CpuSp float,'
      'IP varchar(20),host varchar(30),mac varchar(30),'
      'ds varchar(30),LogTime datetime)')
    Left = 224
    Top = 8
  end
end