zhou_pin_tong.dfm

品质管理系统：delphi+sql实现了制造企业在生产过程中对产品质量的控制

object zhou_pin_ton: Tzhou_pin_ton
  Left = 97
  Top = 152
  Width = 313
  Height = 274
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #37096#38272#21697#36074#35413#27604#32113#35336
  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 Label1: TLabel
    Left = 24
    Top = 32
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #32113#35336#26085#26399#38283#22987
  end
  object Label2: TLabel
    Left = 23
    Top = 82
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #32113#35336#26085#26399#32080#26463
  end
  object Label3: TLabel
    Left = 248
    Top = 184
    Width = 32
    Height = 13
    Caption = 'Label3'
  end
  object t1: TMaskEdit
    Left = 120
    Top = 32
    Width = 109
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 0
    Text = '    /  /  '
    OnKeyPress = t1KeyPress
  end
  object t2: TMaskEdit
    Left = 120
    Top = 80
    Width = 109
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 1
    Text = '    /  /  '
    OnExit = t2Exit
    OnKeyPress = t2KeyPress
  end
  object BitBtn1: TBitBtn
    Left = 120
    Top = 128
    Width = 110
    Height = 25
    Caption = #32113#35336
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 120
    Top = 196
    Width = 110
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object Button1: TButton
    Left = 120
    Top = 160
    Width = 110
    Height = 25
    Caption = #21015#21360
    TabOrder = 4
    OnClick = Button1Click
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'aa'
    TableName = 'dbo.zhou_bumen_tong'
    Left = 40
    Top = 144
  end
  object sp1: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'delete_bumen_tong;1'
    Left = 256
    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = '@str1'
        ParamType = ptInput
      end>
  end
  object Table2: TTable
    DatabaseName = 'aa'
    Left = 64
    Top = 112
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    Left = 272
    Top = 96
  end
  object sp2: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'tong_bumen_bu_liang;1'
    Left = 8
    Top = 208
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 740303468
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object sp3: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'tong_bumen_pi;1'
    Left = 56
    Top = 200
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object sp4: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'tong_bumen_pi1;1'
    Left = 16
    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object sp5: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'tong_bumen_bu_liang;1'
    Left = 232
    Top = 24
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object sp6: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'tong_bumen_pi;1'
    Left = 8
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object sp7: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'tong_bumen_pi1;1'
    Left = 112
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    Left = 40
    Top = 8
  end
  object xws: TStoredProc
    DatabaseName = 'aa'
    StoredProcName = 'edit_ying;1'
    Left = 168
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftInteger
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'aa'
    TableName = 'dbo.xiang_du'
    Left = 72
    Top = 48
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    Left = 264
    Top = 8
  end
end