cai_jue.dfm

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

object cai_ju: Tcai_ju
  Left = 184
  Top = 86
  Width = 310
  Height = 336
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25505#36092#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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 16
    Width = 97
    Height = 289
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #35330#36092#21934#32232#34399
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 154
    Top = 72
    Width = 115
    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 = 154
    Top = 176
    Width = 115
    Height = 25
    Hint = #36864#20986
    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 DataSource1: TDataSource
    DataSet = StoredProc1
    Left = 184
    Top = 24
  end
  object Database1: TDatabase
    AliasName = 'ding_jue'
    Connected = True
    DatabaseName = 'bgtz1'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    OnLogin = Database1Login
    Left = 136
    Top = 104
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'vvv'
    TableName = 'dbo.ding_gou_zhu'
    Left = 224
    Top = 32
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'bgtz1'
    TableName = 'dbo.ding_gou_zhu'
    Left = 216
    Top = 120
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'vvv'
    IndexFieldNames = 'ding_gou_no'
    TableName = 'dbo.ding_gou_chong'
    Left = 176
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 184
    Top = 232
  end
  object StoredProc1: TStoredProc
    Active = True
    DatabaseName = 'vvv'
    StoredProcName = 'cai_gou_jue_dan;1'
    Left = 136
    Top = 248
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end>
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'bgtz1'
    TableName = 'dbo.ding_gou_chong'
    Left = 112
    Top = 168
  end
end