demo.dfm

D6+SQL2000 通用自定义查询.

object DemoForm: TDemoForm
  Left = 227
  Top = 109
  Width = 696
  Height = 480
  Caption = 'Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn1: TButton
    Left = 392
    Top = 16
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 0
    OnClick = btn1Click
  end
  object grd1: TDBGrid
    Left = 16
    Top = 88
    Width = 657
    Height = 345
    DataSource = dsScaleData
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Station: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Station')
    Left = 20
    Top = 17
  end
  object dsWarehouse: TDataSource
    DataSet = Warehouse
    Left = 20
    Top = 49
  end
  object dsScaleData: TDataSource
    DataSet = ScaleData
    Left = 52
    Top = 49
  end
  object Warehouse: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Warehouse')
    Left = 52
    Top = 17
  end
  object Vendor: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT cVCCode AS cVenCode, Cast(cVCName AS Varchar(98)) AS cVen' +
        'Name, '
      '      cPr_Code'
      'FROM VendorClass'
      'UNION ALL'
      'SELECT b.cVenCode, b.cVenName, b.cVCCode'
      'FROM dbo.VendorClass a INNER JOIN'
      '      dbo. Vendor b ON a.cVCCode = b.cVCCode')
    Left = 84
    Top = 17
  end
  object dsStation: TDataSource
    DataSet = Station
    Left = 84
    Top = 49
  end
  object UserList: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM UserList')
    Left = 116
    Top = 17
  end
  object dsDeductReasonList: TDataSource
    DataSet = DeductReasonList
    Left = 116
    Top = 49
  end
  object ScaleData: TADOQuery
    Connection = MDDM.MDScaleDB
    Parameters = <>
    SQL.Strings = (
      'Select * From ScaleData')
    Left = 148
    Top = 17
    object ScaleDataID: TAutoIncField
      DisplayLabel = #27969#27700#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object ScaleDatacSVCode: TStringField
      DisplayLabel = #30917#30721#21333#32534#21495
      FieldName = 'cSVCode'
      Size = 10
    end
    object ScaleDatacCarNo: TStringField
      DisplayLabel = #36710#21495
      FieldName = 'cCarNo'
      Size = 10
    end
    object ScaleDatacCTCode: TStringField
      DisplayLabel = #36710#22411#32534#30721
      FieldName = 'cCTCode'
      Size = 3
    end
    object ScaleDatacCTName: TStringField
      DisplayLabel = #36710#22411#21517#31216
      FieldKind = fkLookup
      FieldName = 'cCTName'
      LookupDataSet = CarType
      LookupKeyFields = 'cCTCode'
      LookupResultField = 'cCTName'
      KeyFields = 'cCTCode'
      Lookup = True
    end
    object ScaleDatacInvCode: TStringField
      DisplayLabel = #36135#29289#32534#30721
      FieldName = 'cInvCode'
    end
    object ScaleDatacInvName: TStringField
      DisplayLabel = #36135#29289#21517#31216
      DisplayWidth = 60
      FieldKind = fkLookup
      FieldName = 'cInvName'
      LookupDataSet = Inventory
      LookupKeyFields = 'cInvCode'
      LookupResultField = 'cInvName'
      KeyFields = 'cInvCode'
      Size = 60
      Lookup = True
    end
    object ScaleDatacInvStd: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 60
      FieldKind = fkLookup
      FieldName = 'cInvStd'
      LookupDataSet = Inventory
      LookupKeyFields = 'cInvCode'
      LookupResultField = 'cInvStd'
      KeyFields = 'cInvCode'
      Size = 60
      Lookup = True
    end
    object ScaleDatacCusCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldName = 'cCusCode'
    end
    object ScaleDatacCusName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      DisplayWidth = 98
      FieldKind = fkLookup
      FieldName = 'cCusName'
      LookupDataSet = Customer
      LookupKeyFields = 'cCusCode'
      LookupResultField = 'cCusName'
      KeyFields = 'cCusCode'
      Size = 98
      Lookup = True
    end
    object ScaleDatacVenCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'cVenCode'
    end
    object ScaleDatacVenName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      DisplayWidth = 98
      FieldKind = fkLookup
      FieldName = 'cVenName'
      LookupDataSet = Vendor
      LookupKeyFields = 'cVenCode'
      LookupResultField = 'cVenName'
      KeyFields = 'cVenCode'
      Size = 98
      Lookup = True
    end
    object ScaleDatacWhCode: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldName = 'cWhCode'
      Size = 10
    end
    object ScaleDatacWhName: TStringField
      DisplayLabel = #20179#24211#21517#31216
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'cWhName'
      LookupDataSet = Warehouse
      LookupKeyFields = 'cWhCode'
      LookupResultField = 'cWhName'
      KeyFields = 'cWhCode'
      Lookup = True
    end
    object ScaleDataiGross: TFloatField
      DisplayLabel = #27611#37325
      FieldName = 'iGross'
      DisplayFormat = '0.000'
      EditFormat = '0.000'
    end
    object ScaleDataiTare: TFloatField
      DisplayLabel = #30382#37325
      FieldName = 'iTare'
      DisplayFormat = '0.000'
      EditFormat = '0.000'
    end
    object ScaleDataiNet: TFloatField
      DisplayLabel = #20928#37325
      FieldKind = fkCalculated
      FieldName = 'iNet'
      DisplayFormat = '0.000'
      Calculated = True
    end
    object ScaleDatacGSCode: TStringField
      DisplayLabel = #27611#37325#35745#37327#31449#28857#32534#30721
      FieldName = 'cGSCode'
      Size = 3
    end
    object ScaleDatacGSName: TStringField
      DisplayLabel = #27611#37325#35745#37327#31449#28857#21517#31216
      FieldKind = fkLookup
      FieldName = 'cGSName'
      LookupDataSet = Station
      LookupKeyFields = 'cSCode'
      LookupResultField = 'cSName'
      KeyFields = 'cGSCode'
      Size = 50
      Lookup = True
    end
    object ScaleDatacTSCode: TStringField
      DisplayLabel = #30382#37325#35745#37327#31449#28857#32534#30721
      FieldName = 'cTSCode'
      Size = 3
    end
    object ScaleDatacTSName: TStringField
      DisplayLabel = #30382#37325#35745#37327#31449#28857#21517#31216
      FieldKind = fkLookup
      FieldName = 'cTSName'
      LookupDataSet = Station
      LookupKeyFields = 'cSCode'
      LookupResultField = 'cSName'
      KeyFields = 'cTSCode'
      Size = 50
      Lookup = True
    end
    object ScaleDatadGTime: TDateTimeField
      DisplayLabel = #27611#37325#35745#37327#26102#38388
      FieldName = 'dGTime'
    end
    object ScaleDatadTTime: TDateTimeField
      DisplayLabel = #30382#37325#35745#37327#26102#38388
      FieldName = 'dTTime'
    end
    object ScaleDatacGUser: TStringField
      DisplayLabel = #27611#37325#21496#30917#21592
      FieldName = 'cGUser'
      Size = 10
    end
    object ScaleDatacTUser: TStringField
      DisplayLabel = #30382#37325#21496#30917#21592
      FieldName = 'cTUser'
      Size = 10
    end
    object ScaleDatadPrintTime: TDateTimeField
      DisplayLabel = #30917#30721#21333#25171#21360#26102#38388
      FieldName = 'dPrintTime'
    end
    object ScaleDatacSMCode: TStringField
      DisplayLabel = #31216#37325#27169#24335#32534#30721
      FieldName = 'cSMCode'
      Size = 1
    end
    object ScaleDatacSMName: TStringField
      DisplayLabel = #31216#37325#27169#24335
      FieldKind = fkLookup
      FieldName = 'cSMName'
      LookupDataSet = ScaleMode
      LookupKeyFields = 'cSMCode'
      LookupResultField = 'cSMName'
      KeyFields = 'cSMCode'
      Size = 16
      Lookup = True
    end
    object ScaleDatacPrinter: TStringField
      DisplayLabel = #25171#21360
      FieldName = 'cPrinter'
      Size = 10
    end
    object ScaleDatadDatetime: TDateTimeField
      DisplayLabel = #26368#21518#26356#26032#26102#38388
      FieldName = 'dDatetime'
    end
    object ScaleDatacMemo: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'cMemo'
      Size = 100
    end
    object ScaleDatacDRCode: TStringField
      DisplayLabel = #25187#20943#21407#22240#32534#30721
      FieldName = 'cDRCode'
      Size = 3
    end
    object ScaleDatacDRName: TStringField
      DisplayLabel = #25187#20943#21407#22240
      FieldKind = fkLookup
      FieldName = 'cDRName'
      LookupDataSet = DeductReasonList
      LookupKeyFields = 'cDRCode'
      LookupResultField = 'cDRName'
      KeyFields = 'cDRCode'
      Size = 50
      Lookup = True
    end
    object ScaleDataiDWeight: TFloatField
      DisplayLabel = #25187#20943#21544#25968
      FieldName = 'iDWeight'
      DisplayFormat = '0.000'
    end
    object ScaleDatacCardID1: TStringField
      DisplayLabel = 'ID'#21345#21495'1'
      FieldName = 'cCardID1'
      Size = 10
    end
    object ScaleDatacCardID2: TStringField
      DisplayLabel = 'ID'#21345#21495'2'
      FieldName = 'cCardID2'
      Size = 10
    end
    object ScaleDataiCID: TIntegerField
      DisplayLabel = #37319#26679#35760#24405'ID'
      FieldName = 'iCID'
    end
  end
  object dsScaleMode: TDataSource
    DataSet = ScaleMode
    Left = 148
    Top = 49
  end
  object DeductReasonList: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DeductReasonList')
    Left = 180
    Top = 17
  end
  object dsVendor: TDataSource
    DataSet = Vendor
    Left = 180
    Top = 49
  end
  object ScaleMode: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From ScaleMode')
    Left = 212
    Top = 17
  end
  object dsInventory: TDataSource
    DataSet = Inventory
    Left = 212
    Top = 49
  end
  object Inventory: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT b.cInvCode, b.cInvName, b.cInvStd,cVenCode,cWhCode, b.cIn' +
        'vCCode as cPr_Code'
      'FROM dbo.InventoryClass a INNER JOIN'
      '      dbo.Inventory b ON a.cInvCCode = b.cInvCCode'
      'UNION ALL'
      
        'SELECT cInvCCode AS cInvCode, Cast(cInvCName AS Varchar(98)) AS ' +
        'cInvName, '
      '      '#39#39' AS cInvStd,'#39#39' as cVenCode,'#39#39' as cWhCode ,cPr_Code'
      'FROM InventoryClass')
    Left = 244
    Top = 17
    object InventorycInvCode: TStringField
      FieldName = 'cInvCode'
      ReadOnly = True
    end
    object InventorycInvName: TStringField
      FieldName = 'cInvName'
      ReadOnly = True
      Size = 98
    end
    object InventorycInvStd: TStringField
      FieldName = 'cInvStd'
      ReadOnly = True
      Size = 60
    end
    object InventorycPr_Code: TStringField
      FieldName = 'cPr_Code'
      Size = 12
    end
    object InventorycVenCode: TStringField
      FieldName = 'cVenCode'
    end
    object InventorycWhCode: TStringField
      FieldName = 'cWhCode'
      Size = 10
    end
  end
  object dsUserList: TDataSource
    DataSet = UserList
    Left = 244
    Top = 49
  end
  object CarType: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM CarType')
    Left = 276
    Top = 17
  end
  object dsCarType: TDataSource
    DataSet = CarType
    Left = 276
    Top = 49
  end
  object Customer: TADOQuery
    Connection = MDDM.MDScaleDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT cCCCode AS cCusCode, Cast(cCCName AS Varchar(98)) AS cCus' +
        'Name, '
      '      cPr_Code'
      'FROM CustomerClass'
      'UNION ALL'
      'SELECT b.cCusCode, b.cCusName, b.cCCCode'
      'FROM dbo.CustomerClass a INNER JOIN'
      '      dbo. Customer b ON a.cCCCode = b.cCCCode')
    Left = 308
    Top = 17
  end
  object dsCustomer: TDataSource
    DataSet = Customer
    Left = 308
    Top = 49
  end
end