pubdata.dfm

这是一个实用的软件

object fpubdata: Tfpubdata
  OldCreateOrder = False
  Left = 496
  Top = 168
  Height = 529
  Width = 371
  object qrydisp_area: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bs_area')
    Left = 56
    Top = 32
    object qrydisp_areaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_areafcode: TWideStringField
      FieldName = 'fcode'
    end
    object qrydisp_areaarea_name: TWideStringField
      FieldName = 'area_name'
    end
    object qrydisp_areafmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_areafathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object qrydisp_areafSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_area: TDataSource
    DataSet = qrydisp_area
    Left = 128
    Top = 32
  end
  object qrydisp_ftype: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bs_ftype')
    Left = 56
    Top = 88
    object qrydisp_ftypeid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_ftypefcode: TWideStringField
      FieldName = 'fcode'
    end
    object qrydisp_ftypeFtype_name: TWideStringField
      FieldName = 'Ftype_name'
    end
    object qrydisp_ftypefathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object qrydisp_ftypefmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_ftypefSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_ftype: TDataSource
    DataSet = qrydisp_ftype
    Left = 128
    Top = 88
  end
  object qrydisp_type: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bs_type')
    Left = 56
    Top = 152
    object qrydisp_typeid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_typefcode: TWideStringField
      FieldName = 'fcode'
    end
    object qrydisp_typeTy_name: TWideStringField
      FieldName = 'Ty_name'
    end
    object qrydisp_typefathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object qrydisp_typefmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_typefSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_type: TDataSource
    DataSet = qrydisp_type
    Left = 128
    Top = 152
  end
  object qrychine_type: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_machtype')
    Left = 56
    Top = 208
    object qrychine_typeid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrychine_typefcode: TWideStringField
      FieldName = 'fcode'
    end
    object qrychine_typeMtype_name: TWideStringField
      FieldName = 'Mtype_name'
    end
    object qrychine_typefathercode: TWideStringField
      FieldName = 'fathercode'
    end
    object qrychine_typefmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrychine_typesort: TWideStringField
      FieldName = 'sort'
    end
  end
  object dschine_type: TDataSource
    DataSet = qrychine_type
    Left = 128
    Top = 208
  end
  object qrydisp_whs: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_whs')
    Left = 224
    Top = 32
    object qrydisp_whsid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_whsWhs_code: TWideStringField
      FieldName = 'Whs_code'
    end
    object qrydisp_whsWhs_name: TWideStringField
      FieldName = 'Whs_name'
    end
    object qrydisp_whsWhs_whs: TWideStringField
      FieldName = 'Whs_whs'
    end
    object qrydisp_whsfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_whsfSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_whs: TDataSource
    DataSet = qrydisp_whs
    Left = 288
    Top = 32
  end
  object qrydisp_utype: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_utype')
    Left = 216
    Top = 96
    object qrydisp_utypeid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_utypeUt_code: TWideStringField
      FieldName = 'Ut_code'
    end
    object qrydisp_utypeUt_name: TWideStringField
      FieldName = 'Ut_name'
    end
    object qrydisp_utypeUt_mean: TWideStringField
      FieldName = 'Ut_mean'
      Size = 255
    end
    object qrydisp_utypefmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_utypefSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_utype: TDataSource
    DataSet = qrydisp_utype
    Left = 288
    Top = 88
  end
  object qrydisp_unit: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bs_unit')
    Left = 224
    Top = 160
    object qrydisp_unitid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_unitUnit_code: TWideStringField
      FieldName = 'Unit_code'
    end
    object qrydisp_unitUnit_name: TWideStringField
      FieldName = 'Unit_name'
    end
    object qrydisp_unitfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_unitfSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_unit: TDataSource
    DataSet = qrydisp_unit
    Left = 288
    Top = 160
  end
  object qrydisp_user: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Qx_user')
    Left = 56
    Top = 264
    object qrydisp_userid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrydisp_userUser_code: TWideStringField
      FieldName = 'User_code'
    end
    object qrydisp_userUser_name: TWideStringField
      FieldName = 'User_name'
    end
    object qrydisp_userUser_pas: TWideStringField
      FieldName = 'User_pas'
    end
    object qrydisp_userUser_sex: TWideStringField
      FieldName = 'User_sex'
    end
    object qrydisp_userUser_age: TIntegerField
      FieldName = 'User_age'
    end
    object qrydisp_userUser_adds: TWideStringField
      FieldName = 'User_adds'
      Size = 100
    end
    object qrydisp_userUser_tel: TIntegerField
      FieldName = 'User_tel'
    end
    object qrydisp_userfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrydisp_userUser_out: TIntegerField
      FieldName = 'User_out'
    end
    object qrydisp_userfSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dsdisp_user: TDataSource
    DataSet = qrydisp_user
    Left = 128
    Top = 264
  end
  object qryhi_draw: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from hi_draw')
    Left = 224
    Top = 216
    object qryhi_drawid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qryhi_drawFcode: TWideStringField
      FieldName = 'Fcode'
    end
    object qryhi_drawDr_name: TWideStringField
      FieldName = 'Dr_name'
    end
    object qryhi_drawDr_age: TIntegerField
      FieldName = 'Dr_age'
    end
    object qryhi_drawDr_sex: TWideStringField
      FieldName = 'Dr_sex'
    end
    object qryhi_drawDr_born: TDateTimeField
      FieldName = 'Dr_born'
    end
    object qryhi_drawDr_adds: TWideStringField
      FieldName = 'Dr_adds'
      Size = 100
    end
    object qryhi_drawDr_tel: TWideStringField
      FieldName = 'Dr_tel'
    end
    object qryhi_drawDr_self: TWideStringField
      FieldName = 'Dr_self'
      Size = 255
    end
    object qryhi_drawDr_gm: TWideStringField
      FieldName = 'Dr_gm'
      Size = 255
    end
    object qryhi_drawDr_jz: TWideStringField
      FieldName = 'Dr_jz'
      Size = 255
    end
    object qryhi_drawDr_gr: TWideStringField
      FieldName = 'Dr_gr'
      Size = 255
    end
    object qryhi_drawDr_jw: TWideStringField
      FieldName = 'Dr_jw'
      Size = 255
    end
    object qryhi_drawDr_xb: TWideStringField
      FieldName = 'Dr_xb'
      Size = 255
    end
    object qryhi_drawDr_result: TWideStringField