untcustorder.dfm

数据库实习个人作品

object frmCustOrder: TfrmCustOrder
  Left = 238
  Top = 180
  Width = 530
  Height = 410
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #39038#23458#35746#36135
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object gupCustInfo: TGroupBox
    Left = 10
    Top = 8
    Width = 502
    Height = 180
    Caption = #39038#23458#20449#24687
    TabOrder = 0
    object bsBottomLine: TBevel
      Left = 0
      Top = 48
      Width = 502
      Height = 3
    end
    object Bevel2: TBevel
      Left = 0
      Top = 96
      Width = 502
      Height = 3
    end
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 39
      Height = 13
      Caption = #35746#36135#21495
    end
    object Label2: TLabel
      Left = 16
      Top = 72
      Width = 39
      Height = 13
      Caption = #39038#23458#21495
    end
    object Label3: TLabel
      Left = 242
      Top = 72
      Width = 52
      Height = 13
      Caption = #36523#20221#35777#21495
    end
    object Label4: TLabel
      Left = 16
      Top = 120
      Width = 26
      Height = 13
      Caption = #22995#21517
    end
    object Label5: TLabel
      Left = 184
      Top = 120
      Width = 26
      Height = 13
      Caption = #24615#21035
    end
    object Label6: TLabel
      Left = 299
      Top = 120
      Width = 26
      Height = 13
      Caption = #30005#35805
    end
    object Label7: TLabel
      Left = 16
      Top = 152
      Width = 26
      Height = 13
      Caption = #37038#32534
    end
    object Label8: TLabel
      Left = 187
      Top = 152
      Width = 26
      Height = 13
      Caption = #22320#22336
    end
    object Label9: TLabel
      Left = 180
      Top = 60
      Width = 47
      Height = 13
      Caption = '(* '#26032#39038
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label10: TLabel
      Left = 490
      Top = 68
      Width = 7
      Height = 13
      Caption = '*'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 184
      Top = 77
      Width = 46
      Height = 13
      Caption = #23458#19981#22635')'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object edtOrderID: TEdit
      Left = 64
      Top = 16
      Width = 113
      Height = 21
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 0
      Text = 'edtOrderID'
    end
    object edtCustID: TEdit
      Left = 64
      Top = 64
      Width = 113
      Height = 21
      TabOrder = 1
      Text = 'edtCustID'
      OnChange = edtChange
      OnExit = edtCustIDCodeExit
    end
    object edtcode: TEdit
      Left = 296
      Top = 64
      Width = 192
      Height = 21
      TabOrder = 2
      Text = 'edtcode'
      OnChange = edtChange
      OnExit = edtCustIDCodeExit
    end
    object edtCustName: TEdit
      Left = 48
      Top = 112
      Width = 113
      Height = 21
      TabOrder = 3
      Text = 'edtCustName'
      OnChange = edtChange
    end
    object edtTel: TEdit
      Left = 332
      Top = 112
      Width = 153
      Height = 21
      TabOrder = 4
      Text = 'edtTel'
      OnChange = edtChange
    end
    object edtZip: TEdit
      Left = 48
      Top = 144
      Width = 113
      Height = 21
      TabOrder = 5
      Text = 'edtZip'
      OnChange = edtChange
    end
    object edtAddress: TEdit
      Left = 220
      Top = 144
      Width = 265
      Height = 21
      TabOrder = 6
      Text = 'edtAddress'
      OnChange = edtChange
    end
    object rdoSexMale: TRadioButton
      Left = 216
      Top = 120
      Width = 33
      Height = 17
      Caption = #30007
      TabOrder = 7
    end
    object rdoSexFemale: TRadioButton
      Left = 248
      Top = 120
      Width = 33
      Height = 17
      Caption = #22899
      TabOrder = 8
    end
  end
  object gupOrderItem: TGroupBox
    Left = 10
    Top = 195
    Width = 502
    Height = 142
    Caption = #35746#36135#26126#32454
    TabOrder = 1
    object grdOrderItem: TDBGrid
      Left = 8
      Top = 16
      Width = 425
      Height = 120
      DataSource = souOrderItemGrd
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnColExit = grdOrderItemColExit
      Columns = <
        item
          Expanded = False
          FieldName = 'GoodsCode'
          Title.Caption = #21830#21697#20195#30721
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GoodsName'
          Title.Caption = #21830#21697#21517#31216
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Unit'
          Title.Caption = #21333#20301
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Price'
          Title.Caption = #21333#20215
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quantity'
          Title.Caption = #35746#36135#25968#37327
          Width = 60
          Visible = True
        end>
    end
    object btnAdd: TButton
      Left = 443
      Top = 16
      Width = 49
      Height = 25
      Caption = #36861#21152
      TabOrder = 1
      OnClick = btnAddClick
    end
    object btnDel: TButton
      Left = 443
      Top = 56
      Width = 49
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = btnDelClick
    end
  end
  object btnOK: TBitBtn
    Left = 313
    Top = 344
    Width = 75
    Height = 25
    Caption = #30830#35748
    ModalResult = 1
    TabOrder = 2
    OnClick = btnOKClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object btnCancel: TBitBtn
    Left = 417
    Top = 344
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    Kind = bkCancel
  end
  object qryOrderItemGrd: TADOQuery
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT A.GoodsCode,A.GoodsName,A.Unit,A.Price,B.Quantity'
      ''
      'FROM Goods A,OrderItem B'
      ''
      'WHERE 1=0')
    Left = 346
    Top = 3
  end
  object uspTmp: TADOStoredProc
    Connection = datGoodsOrder.conGoodsOrder
    Parameters = <>
    Left = 442
    Top = 3
  end
  object souOrderItemGrd: TDataSource
    DataSet = qryOrderItemGrd
    Left = 394
    Top = 3
  end
end