xing_jia_jue_dan.dfm

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

object xing_jia_jue_da: Txing_jia_jue_da
  Left = 49
  Top = 103
  Width = 345
  Height = 375
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #35426#20215#21934#32080#21934
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 16
    Width = 129
    Height = 321
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #35426#20215#21934#32232#34399
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 160
    Top = 80
    Width = 120
    Height = 25
    Hint = #32080#21934
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333333333C3333333333333337F3333333333333C0C3333
      333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
      3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
      333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
      0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
      0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
      3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
      3333333333777333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 160
    Top = 200
    Width = 120
    Height = 25
    Hint = #36820#22238
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'vvv'
    TableName = 'dbo.xing_jia_wei_zhu'
    Left = 88
    Top = 120
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'mkj20'
    TableName = 'dbo.xing_jia_wei_zhu'
    Left = 120
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = StoredProc1
    Left = 48
    Top = 120
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'vvv'
    TableName = 'dbo.xing_jia_wei'
    Left = 168
    Top = 48
  end
  object StoredProc1: TStoredProc
    Active = True
    DatabaseName = 'vvv'
    StoredProcName = 'xing_jia_jue;1'
    Left = 72
    Top = 192
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = '@str1'
        ParamType = ptInput
      end>
  end
  object Database1: TDatabase
    AliasName = 'ding_jue'
    Connected = True
    DatabaseName = 'mkj20'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    OnLogin = Database1Login
    Left = 184
    Top = 128
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'mkj20'
    TableName = 'dbo.xing_jia_wei'
    Left = 240
    Top = 144
  end
end