object comdatabase: Tcomdatabase
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 206
  Top = 114
  Height = 479
  Width = 741
  object comdepartment: TTable
    AutoRefresh = True
    DatabaseName = 'company'
    SessionName = 'Default'
    TableName = 'comdepartment'
    Left = 42
    Top = 56
  end
  object comperson: TTable
    DatabaseName = 'company'
    TableName = 'comperson'
    Left = 116
    Top = 56
  end
  object comproduct: TTable
    AutoRefresh = True
    DatabaseName = 'company'
    TableName = 'comproduct'
    Left = 190
    Top = 56
  end
  object comwarehouse: TTable
    DatabaseName = 'company'
    TableName = 'comwarehouse'
    Left = 264
    Top = 56
  end
  object comcustomer: TTable
    DatabaseName = 'company'
    FieldDefs = <
      item
        Name = 'flag'
        DataType = ftSmallint
      end
      item
        Name = 'id'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'name'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'shortname'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'address'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'telephone1'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'telephone2'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'boss'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'bosstitle'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'limitcredit'
        DataType = ftFloat
      end
      item
        Name = 'earlyfunds'
        DataType = ftFloat
      end
      item
        Name = 'earlyfundspaid'
        DataType = ftFloat
      end
      item
        Name = 'presentfunds'
        DataType = ftFloat
      end
      item
        Name = 'memo'
        DataType = ftMemo
        Size = 1
      end>
    StoreDefs = True
    TableName = 'comcustomer'
    Left = 42
    Top = 136
  end
  object ordbillmain: TTable
    DatabaseName = 'company'
    TableName = 'dbo.ordbillmain'
    Left = 116
    Top = 136
  end
  object ordbillsub: TTable
    AfterPost = ordbillsubAfterPost
    OnCalcFields = ordbillsubCalcFields
    DatabaseName = 'company'
    IndexFieldNames = 'flag;billno'
    MasterFields = 'flag;billno'
    MasterSource = DS_ordbillmain
    TableName = 'dbo.ordbillsub'
    Left = 192
    Top = 136
    object ordbillsubflag: TSmallintField
      DisplayLabel = '旗標(biāo)'
      FieldName = 'flag'
      Required = True
    end
    object ordbillsubbillno: TStringField
      DisplayLabel = '單號(hào)'
      FieldName = 'billno'
      Required = True
      Size = 12
    end
    object ordbillsubserialno: TSmallintField
      DisplayLabel = '欄號(hào)'
      FieldName = 'serialno'
      Required = True
    end
    object ordbillsubproductid: TStringField
      FieldName = 'productid'
      Required = True
      OnChange = ordbillsubproductidChange
    end
    object ordbillsubproductid2: TStringField
      DisplayLabel = '產(chǎn)品編號(hào)'
      FieldKind = fkLookup
      FieldName = 'productid2'
      LookupDataSet = comproduct
      LookupKeyFields = 'productid'
      LookupResultField = 'productid'
      KeyFields = 'productid'
      Lookup = True
    end
    object ordbillsubamount: TFloatField
      DisplayLabel = '數(shù)量'
      FieldName = 'amount'
    end
    object ordbillsubprice: TFloatField
      DisplayLabel = '單價(jià)'
      FieldName = 'price'
    end
    object ordbillsubmoney: TFloatField
      DisplayLabel = '金額'
      FieldKind = fkCalculated
      FieldName = 'money'
      Calculated = True
    end
    object ordbillsubtaxrate: TFloatField
      DisplayLabel = '稅率'
      FieldName = 'taxrate'
    end
    object ordbillsubtax: TFloatField
      DisplayLabel = '稅金'
      FieldKind = fkCalculated
      FieldName = 'tax'
      Calculated = True
    end
    object ordbillsubmemo: TMemoField
      DisplayLabel = '備注'
      FieldName = 'memo'
      BlobType = ftMemo
      Size = 1
    end
    object ordbillsubtranslated: TBooleanField
      DisplayLabel = '已轉(zhuǎn)進(jìn)/銷貨單'
      FieldName = 'translated'
    end
  end
  object stkbillmain: TTable
    DatabaseName = 'company'
    TableName = 'stkbillmain'
    Left = 264
    Top = 136
  end
  object stkbillsub: TTable
    AfterPost = stkbillsubAfterPost
    OnCalcFields = stkbillsubCalcFields
    DatabaseName = 'company'
    IndexFieldNames = 'flag;billno'
    MasterFields = 'flag;billno'
    MasterSource = DS_stkbillmain
    TableName = 'stkbillsub'
    Left = 344
    Top = 136
    object stkbillsubflag: TSmallintField
      FieldName = 'flag'
    end
    object stkbillsubbillno: TStringField
      FieldName = 'billno'
      Size = 12
    end
    object stkbillsubserialno: TSmallintField
      FieldName = 'serialno'
    end
    object stkbillsubproductid: TStringField
      FieldName = 'productid'
      OnChange = stkbillsubproductidChange
    end
    object stkbillsubproductid2: TStringField
      FieldKind = fkLookup
      FieldName = 'productid2'
      LookupDataSet = comproduct
      LookupKeyFields = 'productid'
      LookupResultField = 'productid'
      KeyFields = 'productid'
      Lookup = True
    end
    object stkbillsubamount: TFloatField
      FieldName = 'amount'
    end
    object stkbillsubprice: TFloatField
      FieldName = 'price'
    end
    object stkbillsubmoney: TFloatField
      FieldKind = fkCalculated
      FieldName = 'money'
      Calculated = True
    end
    object stkbillsubtaxrate: TFloatField
      FieldName = 'taxrate'
    end
    object stkbillsubtax: TFloatField
      FieldKind = fkCalculated
      FieldName = 'tax'
      Calculated = True
    end
    object stkbillsubcosts: TFloatField
      FieldName = 'costs'
    end
    object stkbillsubmemo: TMemoField
      FieldName = 'memo'
      BlobType = ftMemo
      Size = 1
    end
  end
  object company: TDatabase
    AliasName = 'company'
    DatabaseName = 'company'
    LoginPrompt = False
    Params.Strings = (
      'user name=company'
      'password=')
    SessionName = 'Default'
    Left = 40
    Top = 8
  end
  object comwareamount: TTable
    DatabaseName = 'company'
    TableName = 'comwareamount'
    Left = 344
    Top = 56
  end
  object DS_ordbillmain: TDataSource
    DataSet = ordbillmain
    Left = 24
    Top = 317
  end
  object DS_ordbillsub: TDataSource
    DataSet = ordbillsub
    Left = 24
    Top = 373
  end
  object DS_stkbillmain: TDataSource
    DataSet = stkbillmain
    Left = 104
    Top = 317
  end
  object DS_stkbillsub: TDataSource
    DataSet = stkbillsub
    Left = 104
    Top = 373
  end
  object DS_comdepartment: TDataSource
    DataSet = comdepartment
    Left = 192
    Top = 317
  end
  object DS_comperson: TDataSource
    DataSet = comperson
    Left = 280
    Top = 317
  end
  object DS_comproduct: TDataSource
    DataSet = comproduct
    Left = 360
    Top = 317
  end
  object DS_comwarehouse: TDataSource
    DataSet = comwarehouse
    Left = 448
    Top = 317
  end
  object DS_comwareamount: TDataSource
    DataSet = comwareamount
    Left = 552
    Top = 317
  end
  object DS_comcustomer: TDataSource
    DataSet = comcustomer
    Left = 280
    Top = 373
  end
  object Q_Public: TQuery
    AutoRefresh = True
    DatabaseName = 'company'
    SQL.Strings = (
      'select * from ordbillmain')
    Left = 120
    Top = 8
  end
end