dm.dfm

本系统前端界面采用WINDOWS 窗口风格

object Frmdm: TFrmdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 21
  Top = 107
  Height = 375
  Width = 715
  object Database: TDatabase
    AliasName = 'yygl'
    DatabaseName = 'yygl'
    LoginPrompt = False
    Params.Strings = (
      'user name='#39#39
      'password='#39#39)
    SessionName = 'Default'
    TransIsolation = tiRepeatableRead
    Left = 96
    Top = 24
  end
  object Query_gettime: TQuery
    DatabaseName = 'yygl'
    Left = 96
    Top = 80
  end
  object Query_czy: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 16
    Top = 80
  end
  object Query_bm: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 160
    Top = 80
  end
  object DataSource_bm: TDataSource
    DataSet = Query_bm
    Left = 160
    Top = 128
  end
  object Query_bhb: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 216
    Top = 80
  end
  object DataSource_ghs: TDataSource
    DataSet = Query_ghs
    Left = 264
    Top = 128
  end
  object Query_ghs: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 264
    Top = 80
  end
  object Query_ywy: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 320
    Top = 80
    object Query_ywyywy_bh: TStringField
      FieldName = 'ywy_bh'
      Origin = 'YYGL.ywyb.ywy_bh'
      Size = 3
    end
    object Query_ywyywy_xm: TStringField
      FieldName = 'ywy_xm'
      Origin = 'YYGL.ywyb.ywy_xm'
      Size = 8
    end
    object Query_ywyxb: TStringField
      FieldName = 'xb'
      Origin = 'YYGL.ywyb.xb'
      Size = 2
    end
    object Query_ywynl: TStringField
      FieldName = 'nl'
      Origin = 'YYGL.ywyb.nl'
      Size = 2
    end
    object Query_ywybm_bh: TStringField
      FieldName = 'bm_bh'
      Origin = 'YYGL.ywyb.bm_bh'
      Size = 2
    end
    object Query_ywybm_mc: TStringField
      FieldKind = fkLookup
      FieldName = 'bm_mc'
      LookupDataSet = Query_bm
      LookupKeyFields = 'bm_bh'
      LookupResultField = 'bm_mc'
      KeyFields = 'bm_bh'
      Size = 10
      Lookup = True
    end
  end
  object DataSource_ywy: TDataSource
    DataSet = Query_ywy
    Left = 320
    Top = 128
  end
  object Query_dbdw: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 368
    Top = 80
  end
  object DataSource_dbdw: TDataSource
    DataSet = Query_dbdw
    Left = 368
    Top = 128
  end
  object DataSource_khxx: TDataSource
    DataSet = Query_khxx
    Left = 24
    Top = 240
  end
  object Query_khxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 24
    Top = 184
  end
  object Query_kc: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 88
    Top = 184
  end
  object DataSource_kc: TDataSource
    DataSet = Query_kc
    Left = 96
    Top = 240
  end
  object Query_ckxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 152
    Top = 16
  end
  object Query_db: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 216
    Top = 184
    object Query_dbdb_bh: TStringField
      FieldName = 'db_bh'
      Origin = 'YYGL.dbxxb.db_bh'
      Size = 22
    end
    object Query_dbcd: TStringField
      FieldName = 'cd'
      Origin = 'YYGL.dbxxb.cd'
    end
    object Query_dbpm: TStringField
      FieldName = 'pm'
      Origin = 'YYGL.dbxxb.pm'
    end
    object Query_dbgg: TStringField
      FieldName = 'gg'
      Origin = 'YYGL.dbxxb.gg'
      Size = 10
    end
    object Query_dbdw2: TStringField
      FieldName = 'dw'
      Origin = 'YYGL.dbxxb.dw'
      Size = 4
    end
    object Query_dbph: TStringField
      FieldName = 'ph'
      Origin = 'YYGL.dbxxb.ph'
    end
    object Query_dbjj: TFloatField
      FieldName = 'jj'
      Origin = 'YYGL.dbxxb.jj'
    end
    object Query_dbdbsl: TFloatField
      FieldName = 'dbsl'
      Origin = 'YYGL.dbxxb.dbsl'
    end
    object Query_dbje: TFloatField
      FieldName = 'je'
      Origin = 'YYGL.dbxxb.je'
    end
    object Query_dbdbrq: TDateTimeField
      FieldName = 'dbrq'
      Origin = 'YYGL.dbxxb.dbrq'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object Query_dbdbdw: TStringField
      FieldName = 'dbdw'
      Origin = 'YYGL.dbxxb.dbdw'
    end
    object Query_dbfpph: TStringField
      FieldName = 'fpph'
      Origin = 'YYGL.dbxxb.fpph'
      Size = 14
    end
    object Query_dbck_bh: TStringField
      FieldName = 'ck_bh'
      Origin = 'YYGL.dbxxb.ck_bh'
      Size = 1
    end
    object Query_dbck_mc: TStringField
      FieldKind = fkLookup
      FieldName = 'ck_mc'
      LookupDataSet = Query_ckxx
      LookupKeyFields = 'ck_bh'
      LookupResultField = 'ck_mc'
      KeyFields = 'ck_bh'
      Size = 10
      Lookup = True
    end
    object Query_dbwp_bm: TStringField
      FieldName = 'wp_bm'
      Origin = 'YYGL.dbxxb.wp_bm'
      Size = 5
    end
  end
  object DataSource_db: TDataSource
    DataSet = Query_db
    Left = 216
    Top = 248
  end
  object Query_xs: TQuery
    OnCalcFields = Query_xsCalcFields
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 272
    Top = 184
    object Query_xsxs_bh: TStringField
      FieldName = 'xs_bh'
      Origin = 'YYGL.xsxxb.xs_bh'
      Size = 22
    end
    object Query_xswp_bm: TStringField
      FieldName = 'wp_bm'
      Origin = 'YYGL.xsxxb.wp_bm'
      Size = 5
    end
    object Query_xskh_mc: TStringField
      FieldName = 'kh_mc'
      Origin = 'YYGL.xsxxb.kh_mc'
    end
    object Query_xspm: TStringField
      FieldName = 'pm'
      Origin = 'YYGL.xsxxb.pm'
    end
    object Query_xsdw: TStringField
      FieldName = 'dw'
      Origin = 'YYGL.xsxxb.dw'
      Size = 4
    end
    object Query_xsgg: TStringField
      FieldName = 'gg'
      Origin = 'YYGL.xsxxb.gg'
      Size = 10
    end
    object Query_xsjj: TFloatField
      FieldName = 'jj'
      Origin = 'YYGL.xsxxb.jj'
    end
    object Query_xsdj: TFloatField
      FieldName = 'dj'
      Origin = 'YYGL.xsxxb.dj'
    end
    object Query_xssl: TFloatField
      FieldName = 'sl'
      Origin = 'YYGL.xsxxb.sl'
    end
    object Query_xsje: TFloatField
      FieldName = 'je'
      Origin = 'YYGL.xsxxb.je'
    end
    object Query_xsfp_ph: TStringField
      FieldName = 'fp_ph'
      Origin = 'YYGL.xsxxb.fp_ph'
      Size = 14
    end
    object Query_xscb: TFloatField
      FieldKind = fkCalculated
      FieldName = 'cb'
      DisplayFormat = '0.0000'
      Calculated = True
    end
    object Query_xssj: TFloatField
      FieldKind = fkCalculated
      FieldName = 'sj'
      DisplayFormat = '0.0000'
      Calculated = True
    end
    object Query_xsml: TFloatField
      FieldKind = fkCalculated
      FieldName = 'ml'
      Calculated = True
    end
    object Query_xslr: TFloatField
      FieldKind = fkCalculated
      FieldName = 'lr'
      DisplayFormat = '0.0000'
      Calculated = True
    end
    object Query_xsph: TStringField
      FieldName = 'ph'
      Origin = 'YYGL.xsxxb.ph'
    end
    object Query_xsxsrq: TDateTimeField
      FieldName = 'xsrq'
      Origin = 'YYGL.xsxxb.xsrq'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object Query_xsck_bh: TStringField
      FieldName = 'ck_bh'
      Origin = 'YYGL.xsxxb.ck_bh'
      Size = 1
    end
    object Query_xsbm_mc: TStringField
      FieldName = 'bm_mc'
      Origin = 'YYGL.xsxxb.bm_mc'
      Size = 10
    end
    object Query_xsywy_xm: TStringField
      FieldName = 'ywy_xm'
      Origin = 'YYGL.xsxxb.ywy_xm'
      Size = 8
    end
    object Query_xscd: TStringField
      FieldName = 'cd'
      Origin = 'YYGL.xsxxb.cd'
    end
    object Query_xsck_mc: TStringField
      FieldKind = fkLookup
      FieldName = 'ck_mc'
      LookupDataSet = Query_ckxx
      LookupKeyFields = 'ck_bh'
      LookupResultField = 'ck_mc'
      KeyFields = 'ck_bh'
      Size = 10
      Lookup = True
    end
    object Query_xssb: TStringField
      FieldName = 'sb'
      Origin = 'YYGL.xsxxb.sb'
      Size = 10
    end
    object Query_xspzwh: TStringField
      FieldName = 'pzwh'
      Origin = 'YYGL.xsxxb.pzwh'
      Size = 30
    end
  end
  object DataSource_xs: TDataSource
    DataSet = Query_xs
    Left = 272
    Top = 248
  end
  object Query_ckd: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 320
    Top = 184
  end
  object Query_bs: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 376
    Top = 192
  end
  object DataSource_bs: TDataSource
    DataSet = Query_bs
    Left = 376
    Top = 248
  end
  object DataSource_ckxx: TDataSource
    DataSet = Query_ckxx
    Left = 272
    Top = 24
  end
end