cheng_pin_tong.~dfm

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

object cheng_pin_ton: Tcheng_pin_ton
  Left = 22
  Top = 109
  AutoScroll = False
  Caption = #25104#21697'/'#21322#25104#21697#27298#39511#32113#35336
  ClientHeight = 262
  ClientWidth = 297
  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 = 35
    Top = 24
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #29983#29986#37096#38272
  end
  object Label2: TLabel
    Left = 9
    Top = 64
    Width = 88
    Height = 13
    AutoSize = False
    Caption = #32113#35336#26085#26399#38283#22987
  end
  object Label3: TLabel
    Left = 9
    Top = 112
    Width = 88
    Height = 13
    AutoSize = False
    Caption = #32113#35336#26085#26399#32080#26463
  end
  object Label4: TLabel
    Left = 200
    Top = 8
    Width = 32
    Height = 13
    Caption = 'Label4'
  end
  object ComboBox1: TComboBox
    Left = 96
    Top = 21
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'ComboBox1'
    OnKeyPress = ComboBox1KeyPress
  end
  object t1: TMaskEdit
    Left = 96
    Top = 63
    Width = 103
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 1
    Text = '    /  /  '
    OnKeyPress = t1KeyPress
  end
  object t2: TMaskEdit
    Left = 96
    Top = 111
    Width = 103
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 2
    Text = '    /  /  '
    OnExit = t2Exit
    OnKeyPress = t2KeyPress
  end
  object Button1: TButton
    Left = 94
    Top = 147
    Width = 105
    Height = 25
    Caption = #32113#35336
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 94
    Top = 181
    Width = 105
    Height = 25
    Caption = #21015#21360
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 94
    Top = 213
    Width = 105
    Height = 25
    Caption = #21462#28040
    TabOrder = 5
    OnClick = Button3Click
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'aa'
    TableName = 'dbo.cheng_pin_tong'
    Left = 216
    Top = 72
  end
  object Query1: TQuery
    DatabaseName = 'aa'
    Left = 224
    Top = 144
  end
  object Query2: TQuery
    DatabaseName = 'aa'
    Left = 232
    Top = 40
  end
  object sp1: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liang;1'
    Left = 16
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 85052464
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object sp2: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bumen_pi;1'
    Left = 24
    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 A: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liangA;1'
    Left = 224
    Top = 200
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 3371636
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object B: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liangB;1'
    Left = 264
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object C: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liangC;1'
    Left = 264
    Top = 144
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 1953710138
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object D: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liangD;1'
    Left = 272
    Top = 192
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 1953710138
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object E: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liangE;1'
    Left = 272
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end>
  end
  object X: TStoredProc
    Active = True
    DatabaseName = 'aa'
    StoredProcName = 'tong_cheng_bu_liangX;1'
    Left = 224
    Top = 232
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 2099853170
      end
      item
        DataType = ftDateTime
        Name = '@str1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str3'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str4'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str5'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str6'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str7'
        ParamType = ptInput
      end>
  end
  object Query3: TQuery
    DatabaseName = 'aa'
    Left = 56
    Top = 144
  end
  object Query4: TQuery
    DatabaseName = 'aa'
    Left = 16
    Top = 24
  end
  object query_A: TQuery
    DatabaseName = 'aa'
    Left = 56
    Top = 8
  end
  object query_B: TQuery
    DatabaseName = 'aa'
    Left = 208
    Top = 24
  end
  object query_C: TQuery
    DatabaseName = 'aa'
    Left = 24
    Top = 80
  end
  object query_D: TQuery
    DatabaseName = 'aa'
    Left = 216
    Top = 112
  end
  object query_E: TQuery
    DatabaseName = 'aa'
    Left = 80
    Top = 88
  end
  object query_X: TQuery
    DatabaseName = 'aa'
    Left = 264
    Top = 8
  end
end