ps_db.dfm

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

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 = '旗标'
      FieldName = 'flag'
      Required = True
    end
    object ordbillsubbillno: TStringField
      DisplayLabel = '单号'
      FieldName = 'billno'
      Required = True
      Size = 12
    end
    object ordbillsubserialno: TSmallintField
      DisplayLabel = '栏号'
      FieldName = 'serialno'
      Required = True
    end
    object ordbillsubproductid: TStringField
      FieldName = 'productid'
      Required = True
      OnChange = ordbillsubproductidChange
    end
    object ordbillsubproductid2: TStringField
      DisplayLabel = '产品编号'
      FieldKind = fkLookup
      FieldName = 'productid2'
      LookupDataSet = comproduct
      LookupKeyFields = 'productid'
      LookupResultField = 'productid'
      KeyFields = 'productid'
      Lookup = True
    end
    object ordbillsubamount: TFloatField
      DisplayLabel = '数量'
      FieldName = 'amount'
    end
    object ordbillsubprice: TFloatField
      DisplayLabel = '单价'
      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 = '已转进/销货单'
      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