gong_ying_zi.dfm

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

    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 184
    Top = 91
    Width = 110
    Height = 21
    Color = cl3DLight
    DataField = 'gong_shang_no'
    DataSource = DataSource1
    Enabled = False
    TabOrder = 1
    OnKeyPress = DBEdit1KeyPress
  end
  object DBGrid2: TDBGrid
    Left = 98
    Top = 304
    Width = 665
    Height = 189
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clLime
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'gong_computerno'
        Title.Caption = #20379#25033#21830#27969#27700#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_shang_no'
        Title.Caption = #20379#25033#21830#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_shang_name'
        Title.Caption = #20379#25033#21830#21517#31281
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_shang_phone'
        Title.Caption = #32879#31995#38651#35441
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_shang_fax'
        Title.Caption = #20659#30495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_made_date'
        Title.Caption = #24314#27284#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_shang_ren'
        Title.Caption = #26989#21209#32879#31995#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_shang_adress'
        Title.Caption = #24037#21378#22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'made_ren'
        Title.Caption = #24314#27284#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cai_gou_things'
        Title.Caption = #25505#36092#38917#30446
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jing_ying_things'
        Title.Caption = #32147#29151#38917#30446
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jue_kuan'
        Title.Caption = #32080#27454#24977#25454
        Visible = True
      end>
  end
  object DBEdit2: TDBEdit
    Left = 652
    Top = 91
    Width = 110
    Height = 21
    Anchors = [akTop, akRight]
    DataField = 'gong_shang_name'
    DataSource = DataSource1
    ImeName = 'FM-WuBi(HK)'
    TabOrder = 3
    OnExit = DBEdit2Exit
    OnKeyPress = DBEdit2KeyPress
  end
  object DBEdit3: TDBEdit
    Left = 184
    Top = 125
    Width = 110
    Height = 21
    DataField = 'gong_shang_phone'
    DataSource = DataSource1
    TabOrder = 4
    OnKeyPress = DBEdit3KeyPress
  end
  object DBEdit4: TDBEdit
    Left = 184
    Top = 161
    Width = 110
    Height = 21
    DataField = 'gong_shang_fax'
    DataSource = DataSource1
    TabOrder = 5
    OnKeyPress = DBEdit4KeyPress
  end
  object DBEdit6: TDBEdit
    Left = 652
    Top = 161
    Width = 110
    Height = 21
    Anchors = [akTop, akRight]
    DataField = 'gong_shang_ren'
    DataSource = DataSource1
    ImeName = 'FM-WuBi(HK)'
    TabOrder = 6
    OnKeyPress = DBEdit6KeyPress
  end
  object DBEdit7: TDBEdit
    Left = 184
    Top = 258
    Width = 578
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    DataField = 'gong_shang_adress'
    DataSource = DataSource1
    ImeName = 'FM-WuBi(HK)'
    TabOrder = 7
    OnKeyPress = DBEdit7KeyPress
  end
  object t1: TMaskEdit
    Left = 652
    Top = 124
    Width = 109
    Height = 21
    Anchors = [akTop, akRight]
    Color = cl3DLight
    Enabled = False
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 8
    Text = '    /  /  '
    OnExit = t1Exit
    OnKeyPress = t1KeyPress
  end
  object DBGrid1: TDBGrid
    Left = 1
    Top = 24
    Width = 95
    Height = 468
    Anchors = [akLeft, akTop, akBottom]
    Color = clYellow
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'gong_shang_no'
        Title.Caption = #20379#25033#21830#32232#34399
        Visible = True
      end>
  end
  object RadioButton1: TRadioButton
    Left = 143
    Top = 56
    Width = 65
    Height = 17
    Anchors = [akTop]
    Caption = #21253#35037#39006
    TabOrder = 10
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 229
    Top = 56
    Width = 89
    Height = 17
    Anchors = [akTop]
    Caption = #38750#29983#29986#39006
    TabOrder = 11
    OnClick = RadioButton2Click
  end
  object RadioButton3: TRadioButton
    Left = 323
    Top = 54
    Width = 65
    Height = 19
    Anchors = [akTop]
    Caption = #21270#24037#39006
    TabOrder = 12
    OnClick = RadioButton3Click
  end
  object RadioButton4: TRadioButton
    Left = 410
    Top = 54
    Width = 73
    Height = 19
    Anchors = [akTop]
    Caption = #27169#20855#39006
    TabOrder = 13
    OnClick = RadioButton4Click
  end
  object RadioButton5: TRadioButton
    Left = 498
    Top = 54
    Width = 57
    Height = 19
    Anchors = [akTop]
    Caption = #37329#23660#39006
    TabOrder = 14
    OnClick = RadioButton5Click
  end
  object RadioButton6: TRadioButton
    Left = 578
    Top = 56
    Width = 65
    Height = 17
    Anchors = [akTop]
    Caption = #37197#20214#39006
    TabOrder = 15
    OnClick = RadioButton6Click
  end
  object RadioButton7: TRadioButton
    Left = 670
    Top = 56
    Width = 73
    Height = 17
    Anchors = [akTop]
    Caption = #20854#23427#39006
    TabOrder = 16
    OnClick = RadioButton7Click
  end
  object BitBtn1: TBitBtn
    Left = 682
    Top = 13
    Width = 42
    Height = 25
    Anchors = [akTop]
    TabOrder = 18
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object DBEdit5: TDBEdit
    Left = 489
    Top = 227
    Width = 273
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    DataField = 'cai_gou_things'
    DataSource = DataSource1
    ImeName = 'FM-WuBi(HK)'
    TabOrder = 19
    OnKeyPress = DBEdit5KeyPress
  end
  object DBEdit8: TDBEdit
    Left = 184
    Top = 225
    Width = 234
    Height = 21
    DataField = 'jing_ying_things'
    DataSource = DataSource1
    TabOrder = 20
    OnKeyPress = DBEdit8KeyPress
  end
  object DBEdit10: TDBEdit
    Left = 653
    Top = 192
    Width = 110
    Height = 21
    DataField = 'fo_bi'
    DataSource = DataSource1
    TabOrder = 21
    OnKeyPress = DBEdit10KeyPress
  end
  object DBComboBox1: TDBComboBox
    Left = 184
    Top = 192
    Width = 110
    Height = 21
    DataField = 'fu_kuan'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #29694#37329#25903#20184
      '30'#22825#26376#32080
      '60'#22825#26376#32080
      '90'#22825#26376#32080
      '120'#22825#26376#32080
      '150'#22825#26376#32080)
    TabOrder = 22
    OnKeyPress = DBComboBox1KeyPress
  end
  object DBComboBox2: TDBComboBox
    Left = 423
    Top = 192
    Width = 110
    Height = 21
    DataField = 'jue_kuan'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #22283#31237
      #25910#25454
      #22686#20540#31237)
    TabOrder = 23
    OnKeyPress = DBComboBox2KeyPress
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 336
    Top = 144
  end
  object Table1: TTable
    Active = True
    AfterScroll = Table1AfterScroll
    DatabaseName = 'vvv'
    TableName = 'dbo.gong_ying_shang'
    Left = 344
    Top = 88
  end
  object Query1: TQuery
    DatabaseName = 'vvv'
    Left = 448
    Top = 120
  end
  object Query2: TQuery
    DatabaseName = 'vvv'
    Left = 304
    Top = 88
  end
  object Query3: TQuery
    DatabaseName = 'vvv'
    Left = 408
    Top = 112
  end
  object Query4: TQuery
    DatabaseName = 'vvv'
    Left = 512
    Top = 128
  end
end