updwlap.dfm

工廠倉庫管理系統

            NumGlyphs = 2
          end
          object editwldm: TEdit
            Left = 72
            Top = 16
            Width = 209
            Height = 24
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
          end
          object editwlmc: TEdit
            Left = 72
            Top = 40
            Width = 209
            Height = 24
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 5
          end
          object editwlys: TEdit
            Left = 72
            Top = 64
            Width = 81
            Height = 24
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 6
          end
          object editwlsh: TEdit
            Left = 192
            Top = 64
            Width = 89
            Height = 24
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 7
          end
        end
        object RzDBGrid1: TRzDBGrid
          Left = 304
          Top = 13
          Width = 417
          Height = 188
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'wldm'
              Title.Caption = #29289#26009#32534#30721
              Width = 63
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'gysdm'
              Title.Caption = #20379#24212#21830
              Width = 66
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sykc'
              Title.Caption = #21097#20313#24211#23384
              Width = 53
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sjkc'
              Title.Caption = #23454#38469#24211#23384
              Width = 53
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'wlsh'
              Title.Caption = #33394#21495
              Width = 44
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pym'
              Title.Caption = #25340#38899#30721
              Visible = True
            end>
        end
        object RzDBGrid2: TRzDBGrid
          Left = 8
          Top = 208
          Width = 713
          Height = 167
          Anchors = [akLeft, akTop, akBottom]
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = RzDBGrid2CellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'gdhm'
              Title.Caption = #24037#31243#21333#21495
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'wldm'
              Title.Caption = #29289#26009#20195#30721
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'wlmc'
              Title.Caption = #29289#26009#21517#31216
              Width = 197
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'wlys'
              Title.Caption = #39068#33394
              Width = 45
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'wlsh'
              Title.Caption = #33394#21495
              Width = 38
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'dw'
              Title.Caption = #21333#20301
              Width = 36
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'gysdm'
              Title.Caption = #20379#24212#21830
              Width = 57
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'xql'
              Title.Caption = #38656#27714#37327
              Width = 69
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'yfpsl'
              Title.Caption = #24050#20998#37197#25968
              Width = 75
              Visible = True
            end>
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_pdwlap order by '#24037#21333#21495#30721' asc')
    Left = 664
    Top = 264
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 688
    Top = 200
  end
  object ADOQuery3: TADOQuery
    Parameters = <>
    Left = 624
    Top = 328
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 664
    Top = 200
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 552
    Top = 320
    ReportForm = {18000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DataSource1
    Left = 480
    Top = 320
  end
  object PopupMenu1: TPopupMenu
    Left = 464
    Top = 280
    object N1: TMenuItem
      Caption = #21024#38500#35760#24405
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #28155#21152#35760#24405
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #26597#25214
      ShortCut = 112
      Visible = False
      OnClick = N3Click
    end
  end
  object ADOQuery4: TADOQuery
    Parameters = <>
    Left = 376
    Top = 288
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery4
    Left = 392
    Top = 328
  end
  object ADOQuery5: TADOQuery
    Parameters = <>
    Left = 440
    Top = 312
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery5
    Left = 504
    Top = 296
  end
  object ADOQuery6: TADOQuery
    Parameters = <>
    Left = 456
    Top = 272
  end
end