unitdetailform.dfm

手机批发商进销存管理

object DetailForm: TDetailForm
  Left = 274
  Top = 117
  Width = 553
  Height = 480
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #26126#32454'...'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 545
    Height = 453
    Align = alClient
    BorderStyle = bsNone
    Color = clSkyBlue
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object DataSource1: TDataSource
    AutoEdit = False
    Left = 88
    Top = 80
  end
  object ADOQuery1: TADOQuery
    Connection = DM1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select A.*,B.GoodsName,B.GoodsType from Tab_Goods A '
      'left join Tab_GoodsNo B on A.GoodsNo=B.GoodsNo'
      'order by  B.GoodsName, B.GoodsType')
    Left = 160
    Top = 80
    object ADOQuery1InDate: TWideStringField
      DisplayLabel = #36141#36827#26085#26399
      FieldName = 'InDate'
      Size = 8
    end
    object ADOQuery1GoodsOwner: TWideStringField
      DisplayLabel = #23384#25918#22320
      DisplayWidth = 20
      FieldName = 'GoodsOwner'
      Size = 30
    end
    object ADOQuery1GoodsName: TWideStringField
      DisplayLabel = #21697#21517
      DisplayWidth = 20
      FieldName = 'GoodsName'
      Size = 30
    end
    object ADOQuery1GoodsType: TWideStringField
      DisplayLabel = #26426#22411
      DisplayWidth = 20
      FieldName = 'GoodsType'
      Size = 30
    end
    object ADOQuery1GoodsNo: TWideStringField
      DisplayLabel = #20018#21495
      DisplayWidth = 20
      FieldName = 'GoodsNo'
      Size = 30
    end
    object ADOQuery1OutDate: TWideStringField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'OutDate'
      Size = 8
    end
    object ADOQuery1CustName: TWideStringField
      DisplayLabel = #23458#25143#22995#21517
      DisplayWidth = 20
      FieldName = 'CustName'
      Size = 100
    end
    object ADOQuery1CustTel: TWideStringField
      DisplayLabel = #23458#25143#30005#35805
      DisplayWidth = 20
      FieldName = 'CustTel'
      Size = 100
    end
    object ADOQuery1CustAddr: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      DisplayWidth = 20
      FieldName = 'CustAddr'
      Size = 100
    end
    object ADOQuery1InRemark: TWideStringField
      DisplayLabel = #36141#36827#22791#27880
      DisplayWidth = 20
      FieldName = 'InRemark'
      Size = 255
    end
    object ADOQuery1OutRemark: TWideStringField
      DisplayLabel = #38144#21806#22791#27880
      DisplayWidth = 20
      FieldName = 'OutRemark'
      Size = 255
    end
    object ADOQuery1CustRemark: TWideStringField
      DisplayLabel = #23458#25143#22791#27880
      DisplayWidth = 20
      FieldName = 'CustRemark'
      Size = 255
    end
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = DM1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select X.*,Y.* from'
      '('
      'select A.*,B.GoodsName,B.GoodsType from Tab_Service A '
      'left join Tab_GoodsNo B on A.GoodsNo=B.GoodsNo'
      ') X, Tab_Goods Y'
      'where X.GoodsNo=Y.GoodsNo'
      ''
      'order by X.ServiceDate,X.GoodsName,X.GoodsType')
    Left = 216
    Top = 80
    object ADOQuery2ServiceDate: TWideStringField
      DisplayLabel = #26381#21153#26085#26399
      FieldName = 'ServiceDate'
      Size = 8
    end
    object ADOQuery2ServiceRemark: TWideStringField
      DisplayLabel = #25925#38556#35828#26126
      DisplayWidth = 20
      FieldName = 'ServiceRemark'
      Size = 255
    end
    object ADOQuery2InDate: TWideStringField
      DisplayLabel = #36141#36827#26085#26399
      FieldName = 'InDate'
      Size = 8
    end
    object ADOQuery2GoodsOwner: TWideStringField
      DisplayLabel = #38144#21806#26588#21488
      DisplayWidth = 20
      FieldName = 'GoodsOwner'
      Size = 30
    end
    object ADOQuery2GoodsName: TWideStringField
      DisplayLabel = #21697#21517
      DisplayWidth = 20
      FieldName = 'GoodsName'
      Size = 30
    end
    object ADOQuery2GoodsType: TWideStringField
      DisplayLabel = #26426#22411
      DisplayWidth = 20
      FieldName = 'GoodsType'
      Size = 30
    end
    object ADOQuery2GoodsNo: TWideStringField
      DisplayLabel = #20018#21495
      DisplayWidth = 20
      FieldName = 'GoodsNo'
      Size = 30
    end
    object ADOQuery2OutDate: TWideStringField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'OutDate'
      Size = 8
    end
    object ADOQuery2CustName: TWideStringField
      DisplayLabel = #23458#25143#22995#21517
      DisplayWidth = 20
      FieldName = 'CustName'
      Size = 100
    end
    object ADOQuery2CustTel: TWideStringField
      DisplayLabel = #23458#25143#30005#35805
      DisplayWidth = 20
      FieldName = 'CustTel'
      Size = 100
    end
    object ADOQuery2CustAddr: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      DisplayWidth = 20
      FieldName = 'CustAddr'
      Size = 100
    end
    object ADOQuery2InRemark: TWideStringField
      DisplayLabel = #36141#36827#22791#27880
      DisplayWidth = 20
      FieldName = 'InRemark'
      Size = 255
    end
    object ADOQuery2OutRemark: TWideStringField
      DisplayLabel = #38144#21806#22791#27880
      DisplayWidth = 20
      FieldName = 'OutRemark'
      Size = 255
    end
    object ADOQuery2CustRemark: TWideStringField
      DisplayLabel = #23458#25143#22791#27880
      DisplayWidth = 20
      FieldName = 'CustRemark'
      Size = 255
    end
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = DM1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select X.*,Y.* from'
      '('
      'select A.*,B.GoodsName,B.GoodsType from Tab_Call A '
      'left join Tab_GoodsNo B on A.GoodsNo=B.GoodsNo'
      ') X, Tab_Goods Y'
      'where X.GoodsNo=Y.GoodsNo'
      ''
      'order by X.CallDate,X.GoodsName,X.GoodsType')
    Left = 272
    Top = 80
    object ADOQuery3CallDate: TWideStringField
      DisplayLabel = #22238#35775#26085#26399
      FieldName = 'CallDate'
      Size = 8
    end
    object ADOQuery3CallRemark: TWideStringField
      DisplayLabel = #21453#39304#24847#35265
      DisplayWidth = 20
      FieldName = 'CallRemark'
      Size = 255
    end
    object WideStringField3: TWideStringField
      DisplayLabel = #36141#36827#26085#26399
      FieldName = 'InDate'
      Size = 8
    end
    object WideStringField4: TWideStringField
      DisplayLabel = #38144#21806#26588#21488
      DisplayWidth = 20
      FieldName = 'GoodsOwner'
      Size = 30
    end
    object WideStringField5: TWideStringField
      DisplayLabel = #21697#21517
      DisplayWidth = 20
      FieldName = 'GoodsName'
      Size = 30
    end
    object WideStringField6: TWideStringField
      DisplayLabel = #26426#22411
      DisplayWidth = 20
      FieldName = 'GoodsType'
      Size = 30
    end
    object WideStringField7: TWideStringField
      DisplayLabel = #20018#21495
      DisplayWidth = 20
      FieldName = 'GoodsNo'
      Size = 30
    end
    object WideStringField8: TWideStringField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'OutDate'
      Size = 8
    end
    object WideStringField9: TWideStringField
      DisplayLabel = #23458#25143#22995#21517
      DisplayWidth = 20
      FieldName = 'CustName'
      Size = 100
    end
    object WideStringField10: TWideStringField
      DisplayLabel = #23458#25143#30005#35805
      DisplayWidth = 20
      FieldName = 'CustTel'
      Size = 100
    end
    object WideStringField11: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      DisplayWidth = 20
      FieldName = 'CustAddr'
      Size = 100
    end
    object WideStringField12: TWideStringField
      DisplayLabel = #36141#36827#22791#27880
      DisplayWidth = 20
      FieldName = 'InRemark'
      Size = 255
    end
    object WideStringField13: TWideStringField
      DisplayLabel = #38144#21806#22791#27880
      DisplayWidth = 20
      FieldName = 'OutRemark'
      Size = 255
    end
    object WideStringField14: TWideStringField
      DisplayLabel = #23458#25143#22791#27880
      DisplayWidth = 20
      FieldName = 'CustRemark'
      Size = 255
    end
  end
end