access.dfm

自己编写的delphi程序 可以与以有的数据库连接 使用SQL语言查询和修改数据库

object accessForm: TaccessForm
  Left = 324
  Top = 260
  Width = 849
  Height = 531
  Caption = 'Storage Managing System Access'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 153
    Top = 9
    Width = 522
    Height = 26
    Caption = 'Welcome to Storage Managing System'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -25
    Font.Name = 'BankGothic Lt BT'
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 89
    Width = 125
    Height = 22
    Caption = 'Customer Login'
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 241
    Top = 89
    Width = 100
    Height = 22
    Caption = ' Guest Login'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 425
    Top = 90
    Width = 109
    Height = 22
    Caption = 'Register New'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 424
    Top = 129
    Width = 67
    Height = 16
    Caption = 'New Name'
  end
  object Label6: TLabel
    Left = 424
    Top = 193
    Width = 60
    Height = 16
    Caption = 'Password'
  end
  object Label7: TLabel
    Left = 424
    Top = 257
    Width = 107
    Height = 16
    Caption = 'Repeat password'
  end
  object Label8: TLabel
    Left = 48
    Top = 128
    Width = 97
    Height = 16
    Caption = 'Customer Name'
  end
  object Label9: TLabel
    Left = 46
    Top = 192
    Width = 60
    Height = 16
    Caption = 'Password'
  end
  object Label10: TLabel
    Left = 625
    Top = 91
    Width = 119
    Height = 22
    Caption = 'Manager Login'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 625
    Top = 129
    Width = 70
    Height = 16
    Caption = 'Manager ID'
  end
  object Label12: TLabel
    Left = 625
    Top = 193
    Width = 60
    Height = 16
    Caption = 'Password'
  end
  object Label13: TLabel
    Left = 424
    Top = 320
    Width = 66
    Height = 16
    Caption = 'Telephone'
  end
  object Button3: TButton
    Left = 449
    Top = 401
    Width = 73
    Height = 24
    Caption = 'Register'
    TabOrder = 0
    OnClick = Button3Click
  end
  object Button1: TButton
    Left = 257
    Top = 256
    Width = 73
    Height = 25
    Caption = 'Log In'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 72
    Top = 256
    Width = 75
    Height = 25
    Caption = 'LogIn'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 649
    Top = 264
    Width = 73
    Height = 25
    Caption = 'LogIn'
    TabOrder = 3
    OnClick = Button4Click
  end
  object Edit1: TEdit
    Left = 48
    Top = 153
    Width = 121
    Height = 24
    TabOrder = 4
  end
  object Edit2: TEdit
    Left = 48
    Top = 217
    Width = 121
    Height = 24
    TabOrder = 5
  end
  object Edit3: TEdit
    Left = 625
    Top = 153
    Width = 120
    Height = 24
    TabOrder = 6
  end
  object Edit4: TEdit
    Left = 625
    Top = 216
    Width = 120
    Height = 24
    TabOrder = 7
  end
  object Edit5: TEdit
    Left = 424
    Top = 153
    Width = 121
    Height = 24
    TabOrder = 8
  end
  object Edit6: TEdit
    Left = 424
    Top = 217
    Width = 121
    Height = 24
    TabOrder = 9
  end
  object Edit7: TEdit
    Left = 424
    Top = 281
    Width = 121
    Height = 24
    TabOrder = 10
  end
  object Edit8: TEdit
    Left = 424
    Top = 344
    Width = 121
    Height = 24
    TabOrder = 11
  end
  object BitBtn1: TBitBtn
    Left = 736
    Top = 464
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 12
    OnClick = BitBtn1Click
  end
  object Button5: TButton
    Left = 32
    Top = 464
    Width = 75
    Height = 25
    Caption = 'About'
    TabOrder = 13
    OnClick = Button5Click
  end
  object customerQuery: TQuery
    DatabaseName = 'accessdb'
    SQL.Strings = (
      'select KEY from Customer'
      'where Name=:inputname')
    Left = 8
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'inputname'
        ParamType = ptUnknown
      end>
  end
  object managerQuery: TQuery
    DatabaseName = 'accessdb'
    SQL.Strings = (
      'select Key from Manager'
      'where Name=:inputname')
    Left = 208
    Top = 368
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'inputname'
        ParamType = ptUnknown
      end>
  end
  object db1: TDatabase
    Connected = True
    DatabaseName = 'accessdb'
    DriverName = 'ORACLE'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=o8i1'
      'USER NAME=stu115'
      'NET PROTOCOL=TNS'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ENABLE INTEGERS=FALSE'
      'LIST SYNONYMS=NONE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'OBJECT MODE=TRUE'
      'PASSWORD=st115')
    SessionName = 'Default'
    Left = 312
    Top = 48
  end
  object registerQuery: TQuery
    DatabaseName = 'accessdb'
    SQL.Strings = (
      'insert into customer(CusID, Name, Key, Tel) '
      'values ((select max(CusID)+1 from Customer),:name,:key,:tel)')
    Left = 568
    Top = 152
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'key'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'tel'
        ParamType = ptUnknown
      end>
  end
end