manager.dfm

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

object ManagerForm: TManagerForm
  Left = 283
  Top = 229
  Width = 953
  Height = 656
  Caption = 'Manager 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 Label1: TLabel
    Left = 169
    Top = 425
    Width = 61
    Height = 16
    Caption = 'Import Info'
  end
  object Button1: TButton
    Left = 832
    Top = 585
    Width = 75
    Height = 24
    Caption = 'Log Out'
    TabOrder = 0
    OnClick = Button1Click
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 32
    Width = 913
    Height = 537
    ActivePage = TabSheet1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Maintain the Goods'
      object Label2: TLabel
        Left = 712
        Top = 24
        Width = 135
        Height = 16
        Caption = 'Select the kind to show'
      end
      object Label3: TLabel
        Left = 48
        Top = 280
        Width = 115
        Height = 16
        Caption = 'Modify Your Goods'
      end
      object Label4: TLabel
        Left = 296
        Top = 336
        Width = 85
        Height = 16
        Caption = 'Import Record'
      end
      object Label5: TLabel
        Left = 288
        Top = 24
        Width = 89
        Height = 16
        Caption = 'Goods Record'
      end
      object DBGrid3: TDBGrid
        Left = 24
        Top = 48
        Width = 649
        Height = 209
        DataSource = goodssource
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object gklist: TDBLookupComboBox
        Left = 712
        Top = 48
        Width = 145
        Height = 24
        KeyField = 'GKID'
        ListField = 'NAME'
        ListSource = GKsource2
        TabOrder = 1
        OnCloseUp = gkselect
      end
      object gdsNavigator: TDBNavigator
        Left = 224
        Top = 280
        Width = 240
        Height = 25
        DataSource = goodssource
        TabOrder = 2
      end
      object DBGrid2: TDBGrid
        Left = 32
        Top = 360
        Width = 649
        Height = 120
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Maintain Customer'
      ImageIndex = 1
      object Label6: TLabel
        Left = 232
        Top = 16
        Width = 80
        Height = 16
        Caption = 'Customer List'
      end
      object DBGrid1: TDBGrid
        Left = 32
        Top = 48
        Width = 497
        Height = 257
        DataSource = customersource
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object cusNavigator: TDBNavigator
        Left = 152
        Top = 320
        Width = 240
        Height = 25
        DataSource = customersource
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Maintain Supply'
      ImageIndex = 2
      object Label7: TLabel
        Left = 200
        Top = 40
        Width = 65
        Height = 16
        Caption = 'Supply List'
      end
      object DBGrid4: TDBGrid
        Left = 48
        Top = 72
        Width = 393
        Height = 265
        DataSource = supplysource
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBNavigator1: TDBNavigator
        Left = 128
        Top = 352
        Width = 240
        Height = 25
        DataSource = supplysource
        TabOrder = 1
      end
    end
  end
  object goodsQuery: TQuery
    AutoRefresh = True
    DatabaseName = 'mngdb'
    SQL.Strings = (
      'select * from Goods'
      'where GKID=(select GKID from GK where name=:goodsname)')
    Left = 704
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'goodsname'
        ParamType = ptUnknown
      end>
  end
  object goodssource: TDataSource
    DataSet = goodsTable
    Left = 60
    Top = 315
  end
  object customQuery: TQuery
    DatabaseName = 'mngdb'
    Left = 596
    Top = 3
  end
  object customersource: TDataSource
    DataSet = custable
    Left = 412
    Top = 187
  end
  object importQuery: TQuery
    DatabaseName = 'mngdb'
    Left = 640
  end
  object importsource: TDataSource
    DataSet = importQuery
    Left = 640
    Top = 32
  end
  object supplyQuery: TQuery
    DatabaseName = 'mngdb'
    Left = 680
  end
  object supplysource: TDataSource
    DataSet = supplyTable
    Left = 416
    Top = 264
  end
  object GKQuery2: TQuery
    DatabaseName = 'mngdb'
    SQL.Strings = (
      'select GKID,NAME from GK')
    Left = 840
    Top = 160
  end
  object GKsource2: TDataSource
    DataSet = GKQuery2
    Left = 840
    Top = 192
  end
  object db3: TDatabase
    Connected = True
    DatabaseName = 'mngdb'
    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 = 832
    Top = 16
  end
  object goodsTable: TTable
    Active = True
    BeforeInsert = cfmgdsinsert
    BeforePost = cfmgdspost
    DatabaseName = 'mngdb'
    IndexFieldNames = 'GKID'
    MasterFields = 'GKID'
    MasterSource = GKsource2
    TableName = 'GOODS'
    Left = 32
    Top = 312
  end
  object gdsdispSource: TDataSource
    DataSet = goodsQuery
    Left = 704
    Top = 224
  end
  object custable: TTable
    Active = True
    BeforeInsert = cfmgdsinsert
    BeforePost = cfmgdspost
    DatabaseName = 'mngdb'
    TableName = 'CUSTOMER'
    Left = 380
    Top = 187
  end
  object supplyTable: TTable
    Active = True
    DatabaseName = 'mngdb'
    TableName = 'SUPPLY'
    Left = 380
    Top = 259
  end
end