unit4.~dfm

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

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 350
  Top = 234
  Height = 351
  Width = 466
  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#24352#38134#29664#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#13#10#13#10'create table PCInfo(xh int identity primary key,Pnam' +
      'e varchar(30),CpuId varchar(11),CpuSp float,'#13#10'IP varchar(20),hos' +
      't 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'CREATE TABLE '#24403 +
      #21069' ('#36719#20214' varchar (10) PRIMARY KEY,'#29256#26412' varchar (52),'#25991#20214' image)  '#13#10#13#10'--' +
      #20197#19979#28155#21152#31649#29702#31995#32479#25152#35201#21019#24314#34920#30340'SQL'#35821#21477#31561#13#10'use JD'#13#10'create table rooms('#26631#35782' int primary ' +
      'key,'#27004#21495' varchar(10),'#25151#38388#21495' varchar(10),'#27004#23618' varchar(10),'#24202#20301#25968' int,'#31354#24202#25968' in' +
      't ,'#22791#27880' varchar(200))'#13#10'create table student('#23398#21495' int primary key,'#22995#21517' ' +
      'varchar(10),'#24615#21035' varchar(2),'#38498#31995' varchar(20),'#29677#32423' varchar(10),'#25152#22312#23487#33293#27004#21495' v' +
      'archar(10),'#25152#22312#23487#33293#25151#38388#21495' varchar(10))'#13#10'create table Guest('#26631#35782' int prima' +
      'ry key,'#26469#35775#20154#22995#21517' varchar(10),'#26469#35775#20154#21333#20301' varchar(10),'#27004#21495' varchar(10),'#25151#38388#21495' va' +
      'rchar(10),'#34987#35775#20154#22995#21517' varchar(10),'#34987#35775#20154#23398#21495' int,'#26469#35775#30331#35760#26085#21069' datetime,'#26159#21542#30331#35760#31163#24320' var' +
      'char(10),'#31163#24320#26102#38388' datetime)'#13#10'create table Sanitation('#26631#35782' int primary ' +
      'key,'#27004#21495' varchar(10),'#25151#38388#21495' varchar(10),'#35780#27604#26102#38388' datetime,'#22320#38754#38376#31383' varchar(10' +
      '),'#20070#26550#26700#26885' varchar(10),'#24202#38138' varchar(10),'#24635#20307#24418#35937' varchar(10))'#13#10'create tabl' +
      'e Mistake('#26631#35782' int primary key,'#27004#21495' varchar(10),'#25151#38388#21495' varchar(10),'#36829#32426#20154#22995 +
      #21517' varchar(10),'#36829#32426#26102#38388' datetime,'#23398#21495' int,'#22788#29702#35828#26126' varchar(200))'#13#10#13#10'Insert ' +
      ' rooms  values('#39'1'#39','#39#21335#21306'10'#26635#39','#39'205'#39','#39#20108#27004#39',8,2,'#39#25968#35745#31995#22899#29983#23487#33293#39')'#13#10'Insert  ro' +
      'oms  values('#39'2'#39','#39#21335#21306'7'#26635#39','#39'302'#39','#39#19977#27004#39',8,0,'#39#25968#35745#31995#30007#29983#23487#33293#39')'#13#10'Insert  rooms ' +
      ' values('#39'3'#39','#39#21335#21306'9'#26635#39','#39'106'#39','#39#19968#27004#39',8,0,'#39#22303#24314#31995#30007#29983#23487#33293#39')'#13#10'Insert  rooms  val' +
      'ues('#39'4'#39','#39#21335#21306'8'#26635#39','#39'201'#39','#39#20108#27004#39',8,1,'#39#20013#25991#31995#22899#29983#23487#33293#39')'#13#10'Insert  rooms  values(' +
      #39'5'#39','#39#21335#21306'5'#26635#39','#39'403'#39','#39#22235#27004#39',8,1,'#39#20307#32946#31995#30007#29983#23487#33293#39')'#13#10#13#10'Insert  student values('#39 +
      '1111'#39','#39#38065#19968#39','#39#22899#39','#39#25968#35745#31995#39','#39'06'#32593#32476#24037#31243#39','#39#21335#21306'10'#26635#39','#39'205'#39')'#13#10'Insert  student va' +
      'lues('#39'2222'#39','#39#36213#20108#39','#39#30007#39','#39#25968#35745#31995#39','#39'04'#24212#29992#25968#23398#39','#39#21335#21306'7'#26635#39','#39'302'#39')'#13#10'Insert  stude' +
      'nt values('#39'3333'#39','#39#24352#19977#39','#39#30007#39','#39#22303#24314#31995#39','#39'05'#23460#20869#35774#35745#39','#39#21335#21306'9'#26635#39','#39'106'#39')'#13#10'Insert  ' +
      'student values('#39'4444'#39','#39#26446#22235#39','#39#22899#39','#39#20013#25991#31995#39','#39'07'#35821#35328#25991#23398#39','#39#21335#21306'8'#26635#39','#39'201'#39')'#13#10'Ins' +
      'ert  student values('#39'5555'#39','#39#29579#20116#39','#39#30007#39','#39#20307#32946#31995#39','#39'05'#20307#32946#25945#32946#39','#39#21335#21306'5'#26635#39','#39'403'#39')' +
      #13#10#13#10#13#10'Insert  Guest values('#39'1'#39','#39#38065#20845#39','#39#19977#26126#31227#21160#39','#39#21335#21306'10'#26635#39','#39'205'#39','#39#38065#19968#39','#39'1' +
      '111'#39','#39'2006-05-12'#39','#39#26159#39','#39'2006-05-13'#39')'#13#10'Insert  Guest values('#39'2'#39','#39#36213 +
      #19971#39','#39#28895#33609#20844#21496#39','#39#21335#21306'7'#26635#39','#39'302'#39','#39#36213#20108#39','#39'2222'#39','#39'2003-03-18'#39','#39#26159#39','#39'2003-03-19'#39 +
      ')'#13#10'Insert  Guest values('#39'3'#39','#39#24352#38738#39','#39#24314#35774#38134#34892#39','#39#21335#21306'9'#26635#39','#39'106'#39','#39#24352#19977#39','#39'3333'#39 +
      ','#39'2005-010-12'#39','#39#26159#39','#39'2005-010-13'#39')'#13#10'Insert  Guest values('#39'4'#39','#39#26446#25991#39 +
      ','#39#30465#25945#32946#21381#39','#39#21335#21306'8'#26635#39','#39'201'#39','#39#26446#22235#39','#39'4444'#39','#39'2007-07-02'#39','#39#26159#39','#39'2007-07-02'#39')'#13 +
      #10'Insert  Guest values('#39'5'#39','#39#29579#30000#39','#39#24066#30005#35270#21488#39','#39#21335#21306'5'#26635#39','#39'403'#39','#39#29579#20116#39','#39'5555'#39','#39 +
      '2005-03-12'#39','#39#26159#39','#39'2005-03-13'#39')'#13#10#13#10#13#10#13#10'Insert  Sanitation values('#39 +
      '1'#39','#39#21335#21306'10'#26635#39','#39'205'#39','#39'2006-04-10'#39','#39#24178#20928#39','#39#25972#40784#39','#39#25972#40784#39','#39#20248#39')'#13#10'Insert  Sanit' +
      'ation values('#39'2'#39','#39#21335#21306'7'#26635#39','#39'302'#39','#39'2006-04-10'#39','#39#19981#24178#20928#39','#39#25972#40784#39','#39#25972#40784#39','#39#33391#39')'#13 +
      #10'Insert  Sanitation values('#39'3'#39','#39#21335#21306'9'#26635#39','#39'106'#39','#39'2006-04-10'#39','#39#19981#24178#20928#39','#39 +
      #19981#25972#40784#39','#39#25972#40784#39','#39#20013#39')'#13#10'Insert  Sanitation values('#39'4'#39','#39#21335#21306'8'#26635#39','#39'201'#39','#39'2006' +
      '-04-10'#39','#39#24178#20928#39','#39#25972#40784#39','#39#25972#40784#39','#39#20248#39')'#13#10'Insert  Sanitation values('#39'5'#39','#39#21335#21306'5'#26635 +
      #39','#39'403'#39','#39'2006-04-10'#39','#39#19981#24178#20928#39','#39#19981#25972#40784#39','#39#24046#39','#39#26159#39')'
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=JD;Data Source=.'
    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