unitinstore.dfm

一个操作sql server的实例

object FormInStore: TFormInStore
  Left = 139
  Top = 89
  Width = 696
  Height = 480
  Caption = '入库单输入窗口'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 688
    Height = 369
    Align = alClient
    DataSource = DataSourceInStoreDetail
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 36
      Height = 15
      Caption = '编号：'
    end
    object Label2: TLabel
      Left = 192
      Top = 8
      Width = 36
      Height = 15
      Caption = '日期：'
    end
    object Label4: TLabel
      Left = 392
      Top = 8
      Width = 36
      Height = 15
      Caption = '仓库：'
    end
    object DBEdit1: TDBEdit
      Left = 56
      Top = 8
      Width = 121
      Height = 23
      Color = clBtnFace
      DataField = 'iNo'
      DataSource = DataSourceInStoreMaster
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 240
      Top = 8
      Width = 121
      Height = 23
      DataField = 'dDate'
      DataSource = DataSourceInStoreMaster
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 424
      Top = 8
      Width = 81
      Height = 23
      DataField = 'iStore'
      DataSource = DataSourceInStoreMaster
      TabOrder = 2
      OnKeyPress = DBEdit4KeyPress
    end
    object DBLookupComboBoxStore: TDBLookupComboBox
      Left = 504
      Top = 8
      Width = 145
      Height = 23
      DataField = 'iStore'
      DataSource = DataSourceInStoreMaster
      KeyField = 'iNo'
      ListField = 'sName'
      ListSource = DataSourceEmploree
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 428
    Width = 688
    Height = 25
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Label3: TLabel
      Left = 408
      Top = 1
      Width = 36
      Height = 15
      Caption = '员工：'
    end
    object DBLookupComboBoxEmployee: TDBLookupComboBox
      Left = 520
      Top = 1
      Width = 145
      Height = 23
      DataField = 'iEmployee'
      DataSource = DataSourceInStoreMaster
      KeyField = 'iNo'
      ListField = 'sName'
      ListSource = DataSourceEmploree
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 440
      Top = 1
      Width = 81
      Height = 23
      DataField = 'iEmployee'
      DataSource = DataSourceInStoreMaster
      TabOrder = 1
      OnKeyPress = DBEdit4KeyPress
    end
    object DBNavigatorMaster: TDBNavigator
      Left = 0
      Top = 0
      Width = 401
      Height = 25
      DataSource = DataSourceInStoreMaster
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel, nbRefresh]
      Align = alLeft
      TabOrder = 2
      BeforeAction = DBNavigatorMasterBeforeAction
    end
  end
  object DBNavigatorDetail: TDBNavigator
    Left = 0
    Top = 410
    Width = 688
    Height = 18
    DataSource = DataSourceInStoreDetail
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel, nbRefresh]
    Align = alBottom
    TabOrder = 3
    BeforeAction = DBNavigatorDetailBeforeAction
  end
  object QueryGoods: TQuery
    DatabaseName = 'TestDatabase'
    SQL.Strings = (
      'Select * from Goods')
    Left = 24
    Top = 136
    object QueryGoodsiNo: TIntegerField
      FieldName = 'iNo'
      Origin = 'TESTDATABASE.Goods.iNo'
    end
    object QueryGoodssName: TStringField
      FieldName = 'sName'
      Origin = 'TESTDATABASE.Goods.sName'
      FixedChar = True
      Size = 40
    end
    object QueryGoodssEName: TStringField
      FieldName = 'sEName'
      Origin = 'TESTDATABASE.Goods.sEName'
      FixedChar = True
      Size = 40
    end
    object QueryGoodsiUnit: TStringField
      FieldName = 'iUnit'
      Origin = 'TESTDATABASE.Goods.iUnit'
      FixedChar = True
      Size = 6
    end
    object QueryGoodsfPrice: TStringField
      FieldName = 'fPrice'
      Origin = 'TESTDATABASE.Goods.fPrice'
      FixedChar = True
      Size = 4
    end
  end
  object QueryEmployee: TQuery
    DatabaseName = 'TestDatabase'
    SQL.Strings = (
      'Select * from Employee')
    Left = 88
    Top = 136
    object QueryEmployeeiNo: TIntegerField
      FieldName = 'iNo'
      Origin = 'TESTDATABASE.Employee.iNo'
    end
    object QueryEmployeesName: TStringField
      FieldName = 'sName'
      Origin = 'TESTDATABASE.Employee.sName'
      FixedChar = True
      Size = 40
    end
    object QueryEmployeesEName: TStringField
      FieldName = 'sEName'
      Origin = 'TESTDATABASE.Employee.sEName'
      FixedChar = True
      Size = 40
    end
  end
  object QueryInStoreMaster: TQuery
    AfterOpen = QueryInStoreMasterAfterOpen
    BeforeClose = QueryInStoreMasterBeforeClose
    BeforeDelete = QueryInStoreMasterBeforeDelete
    BeforeScroll = QueryInStoreMasterBeforeScroll
    OnNewRecord = QueryInStoreMasterNewRecord
    DatabaseName = 'TestDatabase'
    SQL.Strings = (
      'Select * from InStoreMaster')
    UpdateObject = UpdateSQLMaster
    Left = 376
    Top = 136
    object QueryInStoreMasteriNo: TStringField
      FieldName = 'iNo'
      Origin = 'TESTDATABASE.InStoreMaster.iNo'
    end
    object QueryInStoreMasterdDate: TDateTimeField
      FieldName = 'dDate'
      Origin = 'TESTDATABASE.InStoreMaster.dDate'
    end
    object QueryInStoreMasteriEmployee: TIntegerField
      FieldName = 'iEmployee'
      Origin = 'TESTDATABASE.InStoreMaster.iEmployee'
      OnSetText = QueryInStoreMasteriEmployeeSetText
    end
    object QueryInStoreMasteriStore: TIntegerField
      FieldName = 'iStore'
      Origin = 'TESTDATABASE.InStoreMaster.iStore'
      OnSetText = QueryInStoreMasteriStoreSetText
    end
  end
  object QueryInStoreDetail: TQuery
    BeforeClose = QueryInStoreDetailBeforeClose
    AfterClose = QueryInStoreDetailAfterClose
    OnCalcFields = QueryInStoreDetailCalcFields
    OnNewRecord = QueryInStoreDetailNewRecord
    DatabaseName = 'TestDatabase'
    DataSource = DataSourceInStoreMaster
    SQL.Strings = (
      'Select * from InStoreDetail Where iNo=:iNo')
    Left = 264
    Top = 136
    ParamData = <
      item
        DataType = ftString
        Name = 'iNo'
        ParamType = ptUnknown
      end>
    object QueryInStoreDetailiNo: TStringField
      FieldName = 'iNo'
      Origin = 'TESTDATABASE.InStoreDetail.iNo'
    end
    object QueryInStoreDetailiGoodsNo: TIntegerField
      FieldName = 'iGoodsNo'
      Origin = 'TESTDATABASE.InStoreDetail.iGoodsNo'
      OnChange = QueryInStoreDetailiGoodsNoChange
      OnSetText = QueryInStoreDetailiGoodsNoSetText
    end
    object QueryInStoreDetailfPrice: TCurrencyField
      FieldName = 'fPrice'
      Origin = 'TESTDATABASE.InStoreDetail.fPrice'
    end
    object QueryInStoreDetailfQuantity: TFloatField
      FieldName = 'fQuantity'
      Origin = 'TESTDATABASE.InStoreDetail.fQuantity'
    end
  end
  object QueryStore: TQuery
    DatabaseName = 'TestDatabase'
    SQL.Strings = (
      'Select * from Store')
    Left = 160
    Top = 136
  end
  object DataSourceInStoreMaster: TDataSource
    DataSet = QueryInStoreMaster
    OnStateChange = DataSourceInStoreDetailStateChange
    OnDataChange = DataSourceInStoreDetailDataChange
    Left = 376
    Top = 192
  end
  object DataSourceInStoreDetail: TDataSource
    DataSet = QueryInStoreDetail
    OnStateChange = DataSourceInStoreDetailStateChange
    OnDataChange = DataSourceInStoreDetailDataChange
    Left = 264
    Top = 192
  end
  object DataSourceEmploree: TDataSource
    DataSet = QueryEmployee
    Left = 80
    Top = 184
  end
  object DataSourceStore: TDataSource
    DataSet = QueryStore
    Left = 168
    Top = 192
  end
  object UpdateSQLDetail: TUpdateSQL
    ModifySQL.Strings = (
      'update InStoreDetail'
      'set'
      '  iNo = :iNo,'
      '  iGoodsNo = :iGoodsNo,'
      '  fPrice = :fPrice,'
      '  fQuantity = :fQuantity'
      'where'
      '  iNo = :OLD_iNo and'
      '  iGoodsNo = :OLD_iGoodsNo')
    InsertSQL.Strings = (
      'insert into InStoreDetail'
      '  (iNo, iGoodsNo, fPrice, fQuantity)'
      'values'
      '  (:iNo, :iGoodsNo, :fPrice, :fQuantity)')
    DeleteSQL.Strings = (
      'delete from InStoreDetail'
      'where'
      '  iNo = :OLD_iNo and'
      '  iGoodsNo = :OLD_iGoodsNo')
    Left = 256
    Top = 256
  end
  object UpdateSQLMaster: TUpdateSQL
    ModifySQL.Strings = (
      'update InStoreMaster'
      'set'
      '  iNo = :iNo,'
      '  dDate = :dDate,'
      '  iStore = :iStore,'
      '  iEmployee = :iEmployee'
      'where'
      '  iNo = :OLD_iNo')
    InsertSQL.Strings = (
      'insert into InStoreMaster'
      '  (iNo, dDate, iStore, iEmployee)'
      'values'
      '  (:iNo, :dDate, :iStore, :iEmployee)')
    DeleteSQL.Strings = (
      'delete from InStoreMaster'
      'where'
      '  iNo = :OLD_iNo')
    Left = 384
    Top = 272
  end
end