ugysdd.dfm

工廠採購管理系統

          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGridEh1DblClick
          Columns = <
            item
              EditButtons = <>
              FieldName = #35746#21333#21495#30721
              Footers = <>
              Width = 101
            end
            item
              EditButtons = <>
              FieldName = #25253#20215#21333#21495
              Footers = <>
              Width = 102
            end
            item
              EditButtons = <>
              FieldName = #20379#24212#21830#20195#30721
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #20184#27454#26041#24335
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #24065#21035
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #32852#32476#20154
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #30331#35760#20154
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #37319#36141#26085#26399
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #33853#21333#26085#26399
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #38656#27714#21333#21495
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = #35745#21010#21333#21495
              Footers = <>
            end>
        end
      end
      object TabSheet2: TRzTabSheet
        Caption = #35746#21333#20449#24687
        object DBGridEh2: TDBGridEh
          Left = 0
          Top = 0
          Width = 515
          Height = 382
          Align = alClient
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FooterRowCount = 1
          ParentFont = False
          SumList.Active = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              EditButtons = <>
              FieldName = 'wldm'
              Footers = <
                item
                  Value = #21512#35745
                  ValueType = fvtStaticText
                end>
              ReadOnly = True
              Title.Caption = #29289#26009#20195#30721
              Width = 97
            end
            item
              EditButtons = <>
              FieldName = 'wlmc'
              Footers = <>
              Title.Caption = #29289#26009#21517#31216
              Width = 196
            end
            item
              EditButtons = <>
              FieldName = 'wlys'
              Footers = <>
              Title.Caption = #39068#33394
            end
            item
              EditButtons = <>
              FieldName = 'wlsh'
              Footers = <>
              Title.Caption = #33394#21495
            end
            item
              EditButtons = <>
              FieldName = 'dj'
              Footers = <>
              Title.Caption = #21333#20215
            end
            item
              EditButtons = <>
              FieldName = 'xql'
              Footers = <
                item
                  FieldName = 'xql'
                  ValueType = fvtSum
                end>
              Title.Caption = #25968#37327
              Width = 68
            end
            item
              EditButtons = <>
              FieldName = 'je'
              Footers = <
                item
                  FieldName = 'je'
                  ValueType = fvtSum
                end>
              Title.Caption = #37329#39069
            end
            item
              EditButtons = <>
              FieldName = 'cgdw'
              Footers = <>
              Title.Caption = #21333#20301
            end>
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 41
    Width = 169
    Height = 405
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object TreeView1: TTreeView
      Left = 0
      Top = 0
      Width = 169
      Height = 405
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Indent = 19
      ParentFont = False
      TabOrder = 0
      OnChange = TreeView1Change
    end
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    SQL.Strings = (
      
        'select ddhm as '#35746#21333#21495#30721',xqdh as '#38656#27714#21333#21495',jhdh as '#35745#21010#21333#21495',bjdh as '#25253#20215#21333#21495',djr a' +
        's '#30331#35760#20154',lxr as '#32852#32476#20154',gysdm as '#20379#24212#21830#20195#30721',gysmc as '#20379#24212#21830#21517#31216','
      
        'fkfs as '#20184#27454#26041#24335',bb as '#24065#21035',cgrq as '#37319#36141#26085#26399',ldrq as '#33853#21333#26085#26399' from cgdd_main o' +
        'rder by ddhm asc')
    Left = 336
    Top = 224
    object ADOQuery1DSDesigner: TStringField
      FieldName = #35746#21333#21495#30721
      FixedChar = True
      Size = 13
    end
    object ADOQuery1DSDesigner2: TStringField
      FieldName = #38656#27714#21333#21495
      FixedChar = True
      Size = 13
    end
    object ADOQuery1DSDesigner3: TStringField
      FieldName = #35745#21010#21333#21495
      FixedChar = True
      Size = 13
    end
    object ADOQuery1DSDesigner4: TStringField
      FieldName = #25253#20215#21333#21495
      FixedChar = True
      Size = 13
    end
    object ADOQuery1DSDesigner5: TStringField
      FieldName = #30331#35760#20154
      FixedChar = True
      Size = 10
    end
    object ADOQuery1DSDesigner6: TStringField
      FieldName = #32852#32476#20154
      FixedChar = True
      Size = 10
    end
    object ADOQuery1DSDesigner7: TStringField
      FieldName = #20379#24212#21830#20195#30721
      FixedChar = True
      Size = 10
    end
    object ADOQuery1DSDesigner8: TStringField
      FieldName = #20184#27454#26041#24335
      FixedChar = True
    end
    object ADOQuery1DSDesigner9: TStringField
      FieldName = #24065#21035
      FixedChar = True
      Size = 10
    end
    object ADOQuery1DSDesigner10: TDateTimeField
      FieldName = #37319#36141#26085#26399
    end
    object ADOQuery1DSDesigner11: TDateTimeField
      FieldName = #33853#21333#26085#26399
    end
    object ADOQuery1DSDesigner12: TStringField
      FieldName = #20379#24212#21830#21517#31216
      FixedChar = True
      Size = 30
    end
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 384
    Top = 192
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 304
    Top = 168
  end
  object ADOQuery3: TADOQuery
    Parameters = <>
    SQL.Strings = (
      
        'select cgdd_detail.wldm,wlmc,wlys,wlsh,cgdw,cgdd_detail.dj,cgdd_' +
        'detail.xql,cgdd_detail.dj*cgdd_detail.xql as je from'
      
        'cgdd_detail,wldmk where cgdd_detail.wldm=wldmk.wldm order by cgd' +
        'd_detail.wldm asc')
    Left = 456
    Top = 208
    object ADOQuery3wldm: TStringField
      FieldName = 'wldm'
      FixedChar = True
      Size = 10
    end
    object ADOQuery3wlmc: TStringField
      FieldName = 'wlmc'
      FixedChar = True
      Size = 60
    end
    object ADOQuery3wlys: TStringField
      FieldName = 'wlys'
      FixedChar = True
      Size = 12
    end
    object ADOQuery3wlsh: TStringField
      FieldName = 'wlsh'
      FixedChar = True
      Size = 6
    end
    object ADOQuery3cgdw: TStringField
      FieldName = 'cgdw'
      FixedChar = True
      Size = 4
    end
    object ADOQuery3dj: TFloatField
      FieldName = 'dj'
    end
    object ADOQuery3xql: TBCDField
      FieldName = 'xql'
      Precision = 18
      Size = 0
    end
    object ADOQuery3je: TFloatField
      FieldName = 'je'
      ReadOnly = True
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery3
    Left = 384
    Top = 248
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 344
    Top = 232
    ReportForm = {18000000}
  end
end