我想知道里面的唯一一条SQL查询语句，是和服务器连接的关建吗？为什么我抓的包里除了
SQL.Strings = ('select * from VStockDetailWhPos') 这句还有其它东西，我只是单纯的想用手机请求数据
inherited frmStockDetailWhPos: TfrmStockDetailWhPos
Left = 205
Top = 155
Width = 892
Height = 439
Caption = 仓库明细表查询
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 12
inherited PanelTop: TPanel
Width = 884
inherited Panel_ToolBar: TPanel
Width = 882
inherited ToolBar3: TToolBar
Left = 94
inherited SBADD: TSpeedButton
Visible = False
end
inherited SBDel: TSpeedButton
Visible = False
end
inherited SBSave: TSpeedButton
Visible = False
end
inherited SBCancel: TSpeedButton
Visible = False
end
end
inherited Panel_DisDataTime: TPanel
Left = -254
end
inherited Panel_DisRecordCount: TPanel
Left = -455
end
inherited Panel_AuditMDIMaster: TPanel
Left = -590
end
end
inherited Panel_TitleTop: TPanel
Width = 882
inherited Image1: TImage
Width = 882
end
inherited Lab_FmTitle: TLabel
Width = 180
Caption = 仓库库位明细表查询
end
end
end
inherited pMaster: TPanel
Width = 884
Height = 343
inherited ListFmStatusBar: TStatusBar
Top = 323
Width = 882
end
inherited DBGridEhList: TDBGridEh
Width = 882
Height = 322
FooterRowCount = 1
Columns = <
item
EditButtons = <>
FieldName = 'GoodsId'
Footers = <>
end
item
EditButtons = <>
FieldName = 'WhID'
Footers = <>
end
item
EditButtons = <>
FieldName = 'WhNo'
Footers = <>
end
item
EditButtons = <>
FieldName = 'WhName'
Footers = <>
end
item
EditButtons = <>
FieldName = 'WhPosName'
Footers = <>
end
item
EditButtons = <>
FieldName = 'PackLength'
Footers = <>
end
item
EditButtons = <>
FieldName = 'BatchNo'
Footers = <>
Width = 102
end
item
EditButtons = <>
FieldName = 'WhPosID'
Footers = <>
end
item
EditButtons = <>
FieldName = 'PcQty'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Unit'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Qty'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Price'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Amount'
Footers = <>
end
item
EditButtons = <>
FieldName = 'SecUnit'
Footers = <>
end
item
EditButtons = <>
FieldName = 'SecPackLength'
Footers = <>
end
item
EditButtons = <>
FieldName = 'SecQty'
Footers = <>
end
item
EditButtons = <>
FieldName = 'WhType'
Footers = <>
end
item
EditButtons = <>
FieldName = 'GoodsNo'
Footers = <>
end
item
EditButtons = <>
FieldName = 'GoodsName'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Color'
Footers = <>
end>
end
end
inherited PopupMenuGridSet: TPopupMenu
inherited NMdiFormListMasgterNcopy: TMenuItem
Visible = False
end
object NStockDetail3: TMenuItem
Caption = '-'
end
object NNBaseMDIFormMasterStockFlow: TMenuItem
Caption = 库存流水账
OnClick = NNBaseMDIFormMasterStockFlowClick
end
end
inherited DSShare: TDataSource
DataSet = AdoVStockDetail
end
inherited SaveDialogToOut: TSaveDialog
Left = 432
Top = 94
end
object AdoVStockDetail: TADOQuery
Connection = DM.Adoconnection
Parameters = <>
SQL.Strings = (
'select * from VStockDetailWhPos')
Left = 136
Top = 150
object AdoVStockDetailGoodsId: TIntegerField
FieldName = 'GoodsId'
end
object AdoVStockDetailWhID: TIntegerField
FieldName = 'WhID'
end
object AdoVStockDetailPackLength: TBCDField
FieldName = 'PackLength'
Precision = 10
end
object AdoVStockDetailBatchNo: TStringField
FieldName = 'BatchNo'
Size = 30
end
object AdoVStockDetailWhPosID: TIntegerField
FieldName = 'WhPosID'
end
object AdoVStockDetailPcQty: TBCDField
FieldName = 'PcQty'
Precision = 16
end
object AdoVStockDetailUnit: TStringField
FieldName = 'Unit'
Size = 6
end
object AdoVStockDetailQty: TBCDField
FieldName = 'Qty'
Precision = 16
end
object AdoVStockDetailPrice: TBCDField
FieldName = 'Price'
Precision = 18
end
object AdoVStockDetailAmount: TBCDField
FieldName = 'Amount'
Precision = 18
end
object AdoVStockDetailSecUnit: TStringField
FieldName = 'SecUnit'
Size = 6
end
object AdoVStockDetailSecPackLength: TBCDField
FieldName = 'SecPackLength'
Precision = 10
end
object AdoVStockDetailSecQty: TBCDField
FieldName = 'SecQty'
Precision = 16
end
object AdoVStockDetailWhNo: TStringField
FieldName = 'WhNo'
end
object AdoVStockDetailWhName: TStringField
FieldName = 'WhName'
end
object AdoVStockDetailWhType: TIntegerField
FieldName = 'WhType'
end
object AdoVStockDetailGoodsNo: TStringField
FieldName = 'GoodsNo'
Size = 32
end
object AdoVStockDetailGoodsName: TStringField
FieldName = 'GoodsName'
Size = 32
end
object AdoVStockDetailColor: TStringField
FieldName = 'Color'
end
object AdoVStockDetailWhPosName: TStringField
FieldName = 'WhPosName'
end
end
end

代版主回复你。
淘宝欢迎您。

淘宝欢迎您。是什么意思啊