untcustorder.dfm

这是一个不错的数据库管理程序

object frmCustOrder: TfrmCustOrder
  Left = 894
  Top = 341
  Width = 520
  Height = 559
  Caption = #39038#23458#35746#36135
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object gupCustInfo: TGroupBox
    Left = 16
    Top = 32
    Width = 457
    Height = 185
    BiDiMode = bdLeftToRight
    Caption = #39038#23458#20449#24687
    ParentBiDiMode = False
    TabOrder = 0
    object Bevel1: TBevel
      Left = 0
      Top = 48
      Width = 689
      Height = 3
      Shape = bsBottomLine
    end
    object Bevel2: TBevel
      Left = 0
      Top = 80
      Width = 689
      Height = 4
      Shape = bsBottomLine
    end
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 39
      Height = 13
      Caption = #35746#21333#21495
    end
    object Label2: TLabel
      Left = 8
      Top = 64
      Width = 39
      Height = 13
      Caption = #39038#23458#21495
    end
    object Label3: TLabel
      Left = 8
      Top = 144
      Width = 26
      Height = 13
      Caption = #37038#32534
    end
    object Label4: TLabel
      Left = 184
      Top = 96
      Width = 26
      Height = 13
      Caption = #24615#21035
    end
    object Label5: TLabel
      Left = 8
      Top = 104
      Width = 26
      Height = 13
      Caption = #22995#21517
    end
    object Label6: TLabel
      Left = 296
      Top = 96
      Width = 26
      Height = 13
      Caption = #30005#35805
    end
    object Label7: TLabel
      Left = 184
      Top = 64
      Width = 52
      Height = 13
      Caption = #36523#20221#35777#21495
    end
    object Label8: TLabel
      Left = 184
      Top = 144
      Width = 26
      Height = 13
      Caption = #22320#22336
    end
    object rdoSexMale: TRadioButton
      Left = 216
      Top = 96
      Width = 33
      Height = 17
      Alignment = taLeftJustify
      BiDiMode = bdLeftToRight
      Caption = #30007
      ParentBiDiMode = False
      TabOrder = 7
    end
    object edtOrderID: TEdit
      Left = 48
      Top = 16
      Width = 121
      Height = 21
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 0
      Text = 'edtOrderID'
    end
    object edtCustID: TEdit
      Left = 48
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 1
      Text = 'edtCustID'
      OnChange = edtChange
      OnExit = edtCustIDCodeExit
    end
    object edtCode: TEdit
      Left = 240
      Top = 56
      Width = 169
      Height = 21
      TabOrder = 2
      Text = 'edtCode'
      OnChange = edtChange
      OnExit = edtCustIDCodeExit
    end
    object edtCustName: TEdit
      Left = 48
      Top = 96
      Width = 121
      Height = 21
      TabOrder = 3
      Text = 'edtCustName'
      OnChange = edtChange
    end
    object edtTel: TEdit
      Left = 328
      Top = 96
      Width = 81
      Height = 21
      TabOrder = 4
      Text = 'edtTel'
      OnChange = edtChange
    end
    object edtZip: TEdit
      Left = 48
      Top = 144
      Width = 121
      Height = 21
      TabOrder = 5
      Text = 'edtZip'
      OnChange = edtChange
    end
    object edtAddress: TEdit
      Left = 216
      Top = 144
      Width = 187
      Height = 21
      TabOrder = 6
      Text = 'edtAddress'
      OnChange = edtChange
    end
    object rdoSexFemale: TRadioButton
      Left = 256
      Top = 96
      Width = 33
      Height = 17
      Alignment = taLeftJustify
      Caption = #22899
      TabOrder = 8
    end
  end
  object gupOrderItem: TGroupBox
    Left = 32
    Top = 240
    Width = 449
    Height = 145
    Caption = #35746#36135#26126#32454
    TabOrder = 1
    object grdOrderItem: TDBGrid
      Left = -1
      Top = 16
      Width = 362
      Height = 113
      DataSource = souOrderItemGrd
      TabOrder = 0
      TitleFont.Charset = GB2312_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 = 376
      Top = 19
      Width = 49
      Height = 25
      Caption = #22686#21152
      TabOrder = 1
      OnClick = btnAddClick
    end
    object btnDel: TButton
      Left = 376
      Top = 67
      Width = 49
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = btnDelClick
    end
  end
  object btnOK: TBitBtn
    Left = 280
    Top = 448
    Width = 57
    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 = 376
    Top = 448
    Width = 57
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    Kind = bkCancel
  end
  object qryOrderItemGrd: TADOQuery
    Connection = datGoodsOrder.conGoodsOrder
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      'A.GoodsCode,A.GoodsName,A.Unit,A.Price,B.Quantity'
      'FROM Goods A,OrderItem B'
      'WHERE 1=0'
      ' '
      ' ')
    Left = 184
  end
  object uspTmp: TADOStoredProc
    Connection = datGoodsOrder.conGoodsOrder
    Parameters = <>
    Left = 232
  end
  object souOrderItemGrd: TDataSource
    DataSet = qryOrderItemGrd
    Left = 280
  end
end