qing_gou_wei.dfm

采购管理系统：delphi+sql实现了企业采购自动化作业流程

  object DBGrid2: TDBGrid
    Left = 7
    Top = 352
    Width = 775
    Height = 196
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clMoneyGreen
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid2CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'qing_gou_no'
        Title.Caption = #35531#36092#21934#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zi_hao'
        Title.Caption = #23376#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_no'
        Title.Caption = #29289#26009#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_name'
        Title.Caption = #29289#26009#21517#31281
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_gui'
        Title.Caption = #35215#26684
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qing_shu_liang'
        Title.Caption = #35531#36092#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dan_wei'
        Title.Caption = #21934#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_property'
        Title.Caption = #29289#26009#23660#24615
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ku_chen'
        Title.Caption = #30070#21069#24235#23384
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'an_chuan_ku_chen'
        Title.Caption = #23433#20840#24235#23384
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'need_date'
        Title.Caption = #38656#27714#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bei_zhu'
        Title.Caption = #20633#27880
        Visible = True
      end>
  end
  object Table1: TTable
    AfterScroll = Table1AfterScroll
    DatabaseName = 'vvv'
    TableName = 'dbo.qing_gou_wei_zhu'
    Left = 376
    Top = 256
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 592
    Top = 256
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 640
    Top = 264
  end
  object Table3: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.shu_ju_weifu'
    Left = 200
    Top = 256
  end
  object Table4: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.shu_jiu_wei_mi'
    Left = 496
    Top = 264
  end
  object Table5: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.Ebase'
    Left = 456
    Top = 256
  end
  object Table6: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.t_maTERIAL'
    Left = 416
    Top = 256
  end
  object Table7: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.gong_jia'
    Left = 232
    Top = 272
  end
  object Table2: TTable
    AfterScroll = Table2AfterScroll
    DatabaseName = 'vvv'
    IndexFieldNames = 'qing_gou_no'
    MasterFields = 'qing_gou_no'
    MasterSource = DataSource1
    TableName = 'dbo.qing_gou_wei_chong'
    Left = 544
    Top = 264
  end
  object Table8: TTable
    DatabaseName = 'vvv'
    Left = 264
    Top = 264
  end
  object Query1: TQuery
    DatabaseName = 'vvv'
    Left = 728
    Top = 280
  end
  object sp1: TStoredProc
    DatabaseName = 'vvv'
    StoredProcName = 'yes_or_no_cai_zhong;1'
    Left = 320
    Top = 304
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = '@str1'
        ParamType = ptInput
      end>
  end
  object Query2: TQuery
    DatabaseName = 'vvv'
    Left = 72
    Top = 102
  end
  object Query3: TQuery
    DatabaseName = 'vvv'
    Left = 136
    Top = 240
  end
  object PopupMenu1: TPopupMenu
    Left = 312
    Top = 248
    object N1: TMenuItem
      Caption = #25552#21462#29289#26009#32232#34399
      OnClick = N1Click
    end
  end
  object Table9: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.select_wu_no'
    Left = 656
    Top = 392
  end
  object Table10: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.cai_edit_record'
    Left = 392
    Top = 392
  end
  object Query4: TQuery
    DatabaseName = 'vvv'
    Left = 496
    Top = 384
  end
  object Table11: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.shan_chu_cai_gou'
    Left = 320
    Top = 408
  end
  object PopupMenu2: TPopupMenu
    Left = 64
    Top = 264
    object N2: TMenuItem
      Caption = #25353#27969#27700#34399#25490#24207
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #25353#35531#36092#32232#34399#25490#24207
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #25353#35531#36092#26085#26399#25490#24207
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #25353#35531#36092#20154#25490#24207
      OnClick = N5Click
    end
  end
  object xws1: TStoredProc
    DatabaseName = 'vvv'
    StoredProcName = 'delete_qing_gou;1'
    Left = 208
    Top = 96
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end>
  end
  object Query5: TQuery
    DatabaseName = 'vvv'
    Left = 136
    Top = 320
  end
  object Query6: TQuery
    DatabaseName = 'vvv'
    Left = 136
    Top = 80
  end
  object Query7: TQuery
    DatabaseName = 'vvv'
    Left = 120
    Top = 216
  end
  object Table12: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.qing_gou_wei_zhu'
    Left = 104
    Top = 416
  end
  object Query8: TQuery
    DatabaseName = 'vvv'
    Left = 176
    Top = 416
  end
  object sp2: TStoredProc
    DatabaseName = 'vvv'
    StoredProcName = 'chuan_chi_cai_gou;1'
    Left = 336
    Top = 376
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = '@str1'
        ParamType = ptInput
      end>
  end
  object Query9: TQuery
    DatabaseName = 'vvv'
    Left = 249
    Top = 70
  end
  object Table13: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.qing_gou_wei_zhu'
    Left = 192
    Top = 312
  end
  object Query10: TQuery
    DatabaseName = 'aa'
    SQL.Strings = (
      'select getDate()')
    Left = 204
    Top = 5
  end
end