storagemanage.dfm

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

object CusForm: TCusForm
  Left = 344
  Top = 256
  Width = 952
  Height = 656
  Caption = 'Customer Manipulation'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 25
    Top = 40
    Width = 904
    Height = 505
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Goods Browse'
      object Label3: TLabel
        Left = 697
        Top = 137
        Width = 106
        Height = 16
        Caption = 'Perchase Amount'
      end
      object Label1: TLabel
        Left = 697
        Top = 65
        Width = 57
        Height = 16
        Caption = 'Goods ID'
      end
      object goodsdisp: TDBGrid
        Left = 48
        Top = 48
        Width = 580
        Height = 225
        DataSource = goodssource
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'GOODSID'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PRODUCTDATE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PRICE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STORAGE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'GKID'
            Visible = True
          end>
      end
      object goodsnavigator1: TDBNavigator
        Left = 233
        Top = 288
        Width = 208
        Height = 25
        DataSource = goodssource
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 1
      end
      object exportGrid: TDBGrid
        Left = 48
        Top = 336
        Width = 580
        Height = 113
        DataSource = exportsource
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Edit1: TEdit
        Left = 697
        Top = 89
        Width = 120
        Height = 24
        TabOrder = 3
      end
      object Edit2: TEdit
        Left = 696
        Top = 161
        Width = 121
        Height = 24
        TabOrder = 4
      end
      object goodsnavigator0: TDBNavigator
        Left = 232
        Top = 288
        Width = 212
        Height = 25
        DataSource = goodssource
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 5
      end
      object GKselect: TDBLookupComboBox
        Left = 48
        Top = 16
        Width = 145
        Height = 24
        KeyField = 'NAME'
        ListField = 'NAME'
        ListSource = GKsource
        TabOrder = 6
        OnCloseUp = selectGK
      end
      object Button1: TButton
        Left = 696
        Top = 232
        Width = 75
        Height = 25
        Caption = 'Perchase'
        TabOrder = 7
        OnClick = Button1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Custom Info'
      ImageIndex = 1
      object Label8: TLabel
        Left = 361
        Top = 89
        Width = 71
        Height = 16
        Caption = 'Change Info'
      end
      object Label9: TLabel
        Left = 256
        Top = 145
        Width = 61
        Height = 16
        Caption = 'Old Name'
      end
      object Label10: TLabel
        Left = 416
        Top = 137
        Width = 60
        Height = 16
        Caption = 'Password'
      end
      object Label11: TLabel
        Left = 256
        Top = 225
        Width = 67
        Height = 16
        Caption = 'New Name'
      end
      object Label12: TLabel
        Left = 416
        Top = 225
        Width = 90
        Height = 16
        Caption = 'New Password'
      end
      object Label13: TLabel
        Left = 416
        Top = 281
        Width = 107
        Height = 16
        Caption = 'Repeat password'
      end
      object Label2: TLabel
        Left = 416
        Top = 336
        Width = 96
        Height = 16
        Caption = 'New Telephone'
      end
      object Button4: TButton
        Left = 360
        Top = 416
        Width = 75
        Height = 25
        Caption = 'Change'
        TabOrder = 0
        OnClick = Button4Click
      end
      object Edit3: TEdit
        Left = 256
        Top = 168
        Width = 121
        Height = 24
        TabOrder = 1
      end
      object Edit4: TEdit
        Left = 416
        Top = 169
        Width = 121
        Height = 24
        TabOrder = 2
      end
      object Edit5: TEdit
        Left = 256
        Top = 249
        Width = 121
        Height = 24
        TabOrder = 3
      end
      object Edit6: TEdit
        Left = 416
        Top = 249
        Width = 121
        Height = 24
        TabOrder = 4
      end
      object Edit7: TEdit
        Left = 416
        Top = 304
        Width = 121
        Height = 24
        TabOrder = 5
      end
      object Edit8: TEdit
        Left = 416
        Top = 360
        Width = 121
        Height = 24
        TabOrder = 6
      end
    end
  end
  object Button2: TButton
    Left = 808
    Top = 568
    Width = 75
    Height = 25
    Caption = 'Logout'
    TabOrder = 1
    OnClick = Button2Click
  end
  object goodsQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'select * from Goods'
      'where GKID=(select GKID from GK where name=:goodsname)')
    Left = 672
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'goodsname'
        ParamType = ptUnknown
      end>
    object goodsQueryGOODSID: TFloatField
      FieldName = 'GOODSID'
      Origin = 'CUSDB.GOODS.GOODSID'
    end
    object goodsQueryNAME: TStringField
      FieldName = 'NAME'
      Origin = 'CUSDB.GOODS.NAME'
    end
    object goodsQueryPRODUCTDATE: TDateTimeField
      FieldName = 'PRODUCTDATE'
      Origin = 'CUSDB.GOODS.PRODUCTDATE'
    end
    object goodsQueryPRICE: TFloatField
      FieldName = 'PRICE'
      Origin = 'CUSDB.GOODS.PRICE'
    end
    object goodsQuerySTORAGE: TFloatField
      FieldName = 'STORAGE'
      Origin = 'CUSDB.GOODS.STORAGE'
    end
    object goodsQueryGKID: TFloatField
      FieldName = 'GKID'
      Origin = 'CUSDB.GOODS.GKID'
    end
  end
  object goodssource: TDataSource
    DataSet = goodsQuery
    Left = 668
    Top = 187
  end
  object exportQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'insert into Export'
      'values((select NVL(max(ExportID),0)+1 from Export),'
      ':cusname,:gdsname,:pchnum,:allprice,'
      'TO_CHAR(SYSDATE,'#39'MM-DD-YYYY HH24:MI:SS'#39'))')
    Left = 716
    Top = 427
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cusname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'gdsname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pchnum'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'allprice'
        ParamType = ptUnknown
      end>
  end
  object exportsource: TDataSource
    DataSet = expshowQuery
    Left = 716
    Top = 467
  end
  object pchQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'select * from Goods'
      'where GoodsID=:inputID')
    Left = 556
    Top = 3
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'inputid'
        ParamType = ptUnknown
      end>
  end
  object customersource: TDataSource
    DataSet = pchQuery
    Left = 556
    Top = 35
  end
  object changeQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'update Goods'
      'set Storage=Storage-:inputamount'
      'where GoodsID=:inputid')
    Left = 608
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'inputamount'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'inputid'
        ParamType = ptUnknown
      end>
  end
  object importsource: TDataSource
    DataSet = changeQuery
    Left = 608
    Top = 32
  end
  object GKQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'select distinct Name from GK')
    Left = 240
    Top = 80
  end
  object GKsource: TDataSource
    DataSet = GKQuery
    Left = 280
    Top = 80
  end
  object db2: TDatabase
    Connected = True
    DatabaseName = 'cusdb'
    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 = 840
  end
  object gdsinfoQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'select Name,price from Goods'
      'where GoodsID=:gdsid')
    Left = 680
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'gdsid'
        ParamType = ptUnknown
      end>
  end
  object expshowQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'select * from Export'
      'where Cusname=:cusname')
    Left = 680
    Top = 464
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cusname'
        ParamType = ptUnknown
      end>
  end
  object cusTable: TTable
    Active = True
    DatabaseName = 'cusdb'
    TableName = 'CUSTOMER'
    Left = 293
    Top = 179
  end
  object findkeyQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'select Key from Customer'
      'where name=:cusname')
    Left = 165
    Top = 243
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cusname'
        ParamType = ptUnknown
      end>
  end
  object cuschangeQuery: TQuery
    DatabaseName = 'cusdb'
    SQL.Strings = (
      'update Customer'
      'set Name=:newname,Key=:newkey,Tel=:newtel'
      'where Name=:cusname')
    Left = 165
    Top = 291
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'newname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'newkey'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'newtel'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cusname'
        ParamType = ptUnknown
      end>
  end
end