u_datamodule.dfm

1. 在IBConsole中添加两个用户LOGIN和MATER

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 234
  Top = 123
  Height = 480
  Width = 696
  object Database: TDatabase
    DatabaseName = 'MISData'
    DriverName = 'INTRBASE'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=red:D:\DATABASE\MISDB.GDB'
      'USER NAME=MISDBA'
      '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'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=PASSWORD')
    SessionName = 'Default'
    Left = 24
    Top = 16
  end
  object Q_login: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM PERSON'
      'WHERE ID=:USER'
      'AND PASSWD=:PASSWD'
      'AND AUTHORITY='#39'7'#39)
    Left = 24
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PASSWD'
        ParamType = ptUnknown
      end>
  end
  object T_merchant: TTable
    DatabaseName = 'MISData'
    TableName = 'MERCHANT'
    Left = 160
    Top = 8
  end
  object DS_merchant: TDataSource
    DataSet = T_merchant
    Left = 224
    Top = 8
  end
  object T_parts: TTable
    DatabaseName = 'MISData'
    TableName = 'PARTS'
    Left = 160
    Top = 64
  end
  object DS_parts: TDataSource
    DataSet = T_parts
    Left = 224
    Top = 64
  end
  object T_buy: TTable
    OnNewRecord = T_buyNewRecord
    DatabaseName = 'MISData'
    Filter = 'BUY_SALE='#39'B'#39
    Filtered = True
    TableName = 'BUY_SALES'
    Left = 24
    Top = 112
  end
  object DS_buy: TDataSource
    DataSet = T_buy
    Left = 88
    Top = 112
  end
  object T_counter: TTable
    DatabaseName = 'MISData'
    TableName = 'COUNTER'
    Left = 88
    Top = 56
  end
  object T_buy_items: TTable
    AfterPost = T_buy_itemsAfterPost
    OnNewRecord = T_buy_itemsNewRecord
    DatabaseName = 'MISData'
    IndexFieldNames = 'CONTACT_ID'
    MasterFields = 'ID'
    MasterSource = DS_buy
    TableName = 'CONTACT_ITEMS'
    Left = 24
    Top = 160
  end
  object DS_buy_items: TDataSource
    DataSet = T_buy_items
    Left = 88
    Top = 160
  end
  object Q_buy_stat: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT SUM(PRICES)'
      'FROM BUY_SALES'
      'WHERE BUY_SALE='#39'B'#39
      'AND START_DATE>=:START_DATE'
      'AND START_DATE<:END_DATE')
    Left = 24
    Top = 216
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'START_DATE'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'END_DATE'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object T_sale: TTable
    OnNewRecord = T_saleNewRecord
    DatabaseName = 'MISData'
    Filter = 'BUY_SALE='#39'S'#39
    Filtered = True
    TableName = 'BUY_SALES'
    Left = 24
    Top = 296
  end
  object T_sale_items: TTable
    AfterPost = T_sale_itemsAfterPost
    OnNewRecord = T_buy_itemsNewRecord
    DatabaseName = 'MISData'
    IndexFieldNames = 'CONTACT_ID'
    MasterFields = 'ID'
    MasterSource = DS_sale
    TableName = 'CONTACT_ITEMS'
    Left = 24
    Top = 352
  end
  object DS_sale: TDataSource
    DataSet = T_sale
    Left = 96
    Top = 296
  end
  object DS_sale_items: TDataSource
    DataSet = T_sale_items
    Left = 96
    Top = 352
  end
  object Q_sale_stat: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT MAX(P.NAME) AS PARTS, SUM(C.UNIT_PRICE*C.AMOUNT)'
      
        'FROM (CONTACT_ITEMS C LEFT JOIN BUY_SALES B ON C.CONTACT_ID=B.ID' +
        ')'
      'LEFT JOIN PARTS P ON C.PARTS=P.ID'
      'WHERE B.BUY_SALE='#39'S'#39
      'AND B.START_DATE>=:START_DATE'
      'AND B.START_DATE<:END_DATE'
      'GROUP BY C.PARTS')
    Left = 96
    Top = 240
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'START_DATE'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'END_DATE'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object T_import: TTable
    OnNewRecord = T_importNewRecord
    DatabaseName = 'MISData'
    Filter = 'IM_EX='#39'I'#39
    Filtered = True
    TableName = 'IM_EXPORT'
    Left = 200
    Top = 128
  end
  object DS_import: TDataSource
    DataSet = T_import
    Left = 280
    Top = 128
  end
  object T_import_items: TTable
    OnNewRecord = T_import_itemsNewRecord
    DatabaseName = 'MISData'
    IndexFieldNames = 'PORT_ID'
    MasterFields = 'ID'
    MasterSource = DS_import
    TableName = 'PORT_ITEMS'
    Left = 200
    Top = 176
  end
  object DS_import_items: TDataSource
    DataSet = T_import_items
    Left = 280
    Top = 176
  end
  object Q_contact_items: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT ID, PARTS, AMOUNT'
      'FROM CONTACT_ITEMS'
      'WHERE CONTACT_ID=:ID')
    Left = 200
    Top = 232
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_contact_items: TDataSource
    DataSet = Q_contact_items
    Left = 280
    Top = 232
  end
  object T_export: TTable
    OnNewRecord = T_exportNewRecord
    DatabaseName = 'MISData'
    Filter = 'IM_EX='#39'O'#39
    Filtered = True
    TableName = 'IM_EXPORT'
    Left = 200
    Top = 288
  end
  object T_export_items: TTable
    OnNewRecord = T_import_itemsNewRecord
    DatabaseName = 'MISData'
    IndexFieldNames = 'PORT_ID'
    MasterFields = 'ID'
    MasterSource = DS_export
    TableName = 'PORT_ITEMS'
    Left = 200
    Top = 344
  end
  object DS_export: TDataSource
    DataSet = T_export
    Left = 280
    Top = 288
  end
  object DS_export_items: TDataSource
    DataSet = T_export_items
    Left = 280
    Top = 344
  end
  object T_store: TTable
    DatabaseName = 'MISData'
    Filter = 'ID<>'#39'0000000000'#39
    Filtered = True
    TableName = 'PARTS'
    Left = 368
    Top = 160
  end
  object DS_store: TDataSource
    DataSet = T_store
    Left = 432
    Top = 160
  end
  object Q_sum_store: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT SUM(P.AMOUNT)'
      'FROM PORT_ITEMS P LEFT JOIN IM_EXPORT I ON P.PORT_ID=I.ID'
      'WHERE P.PARTS=:PARTS'
      'AND I.IM_EX=:I_O')
    Left = 368
    Top = 224
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PARTS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'I_O'
        ParamType = ptUnknown
      end>
  end
end