unit1.dfm

一个小的冰酒公司的销售系统。可以进行数据插入

object Account: TAccount
  Left = 162
  Top = 122
  Width = 633
  Height = 477
  Caption = 'Account'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 617
    Height = 441
    ActivePage = TabSheet4
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MultiLine = True
    ParentFont = False
    TabIndex = 2
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = 'DownPayment(Cheque)'
      ImageIndex = 1
      object Label7: TLabel
        Left = 32
        Top = 32
        Width = 89
        Height = 19
        Caption = 'Customer No'
      end
      object Label11: TLabel
        Left = 32
        Top = 200
        Width = 75
        Height = 19
        Caption = 'Cheque No'
        FocusControl = DBEdit7
      end
      object Label9: TLabel
        Left = 32
        Top = 128
        Width = 89
        Height = 19
        Caption = 'Customer No'
      end
      object Label62: TLabel
        Left = 296
        Top = 128
        Width = 64
        Height = 19
        Caption = 'Order No'
        FocusControl = DBEdit46
      end
      object Edit3: TEdit
        Left = 136
        Top = 32
        Width = 73
        Height = 27
        TabOrder = 0
      end
      object DBNavigator2: TDBNavigator
        Left = 224
        Top = 288
        Width = 240
        Height = 25
        DataSource = DataSource8
        TabOrder = 1
      end
      object DBEdit7: TDBEdit
        Left = 136
        Top = 200
        Width = 97
        Height = 27
        DataField = 'ChequeNo'
        DataSource = DataSource2
        TabOrder = 2
      end
      object DBEdit46: TDBEdit
        Left = 368
        Top = 128
        Width = 97
        Height = 27
        DataField = 'ONo'
        DataSource = DataSource2
        TabOrder = 3
      end
      object DBEdit1: TDBEdit
        Left = 136
        Top = 128
        Width = 97
        Height = 27
        DataField = 'CNo'
        DataSource = DataSource9
        TabOrder = 4
      end
      object BitBtn6: TBitBtn
        Left = 232
        Top = 32
        Width = 91
        Height = 33
        Caption = '&Search'
        TabOrder = 5
        OnClick = BitBtn6Click
        Glyph.Data = {
          F6030000424DF603000000000000360000002800000013000000100000000100
          180000000000C0030000C40E0000C40E0000000000000000000053595A53595A
          53595A53595A53595A9BA8A9D8E9ECD8E9ECD8E9ECD8E9ECD8E9EC8791935359
          5A53595A53595A53595A53595AACBABCD8E9ECFFFFFF26262661616100000000
          0000000000757F80D8E9ECD8E9ECD8E9ECD8E9ECD8E9EC545B5C353535525252
          000000000000000000919D9FD8E9ECFFFFFF535353D4D4D40000000000000000
          00757F80D8E9ECD8E9ECD8E9ECD8E9ECD8E9EC545B5C747474B3B3B300000000
          0000000000919D9FD8E9ECFFFFFF484848B7B7B7000000000000000000656E6F
          BAC9CCC1D1D3D6E7EABDCCCEBAC9CC494F4F6464649B9B9B0000000000000000
          00919D9FD8E9ECFFFFFF02020204040400000000000000000002020304050535
          393AC7D7DA151616040505020202020202030303000000000000000000919D9F
          D8E9ECFFFFFF000000232323CFCFCF1E1E1E000000000000000000090A0A2427
          27030303A0A0A0525252000000000000000000000000000000919D9FD8E9ECFF
          FFFF0000002B2B2BFCFCFC252525000000000000373B3C6E7678000000000000
          C3C3C3646464000000000000000000000000000000919D9FD8E9ECFFFFFF0000
          002B2B2BFCFCFC252525000000000000545A5BA6B3B6000000000000C3C3C364
          6464000000000000000000000000000000919D9FD8E9ECFFFFFF3236371C1C1C
          A5A5A5181818000000000000373B3C6D75770000000000008080804242420000
          000000000000000000003E4243A9B7B9D8E9ECFFFFFF9FABAD21242401010128
          28280E0E0E000000000000090A0A252728030303242424121212000000000000
          060606272A2BBAC8CBD8E9ECD8E9ECFFFFFFD8E9ECB4C2C4030303D5D5D54B4B
          4B000000000000323636C7D7DA111212BEBEBE6262620000000000001E2121D5
          E5E8D8E9ECD8E9ECD8E9ECFFFFFFD8E9ECB4C2C40000001D1D1D0A0A0A000000
          000000323636C7D7DA1112121A1A1A0D0D0D0000000000001E2121D5E5E8D8E9
          ECD8E9ECD8E9ECFFFFFFD8E9ECCDDEE097A3A51618180000000000003B4040A7
          B5B7D3E4E79EAAAC2427270000000000002D3131A2AEB1D7E8EBD8E9ECD8E9EC
          D8E9ECFFFFFFD8E9ECD8E9ECD5E6E91F2222616161404040545A5BD8E9ECD8E9
          ECD8E9EC3337375555554C4C4C404546D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECFF
          FFFFD8E9ECD8E9ECD5E6E91F22226D6D6D484848545A5BD8E9ECD8E9ECD8E9EC
          3337375F5F5F555555404546D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECFFFFFFD8E9
          ECD8E9ECD6E7EA4A5051323636323636727B7CD8E9ECD8E9ECD8E9EC59606132
          3636323636636B6CD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECFFFFFF}
      end
      object BitBtn7: TBitBtn
        Left = 520
        Top = 280
        Width = 41
        Height = 41
        Hint = 'Exit'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = BitBtn7Click
        Glyph.Data = {
          6A080000424D6A0800000000000036000000280000001B000000190000000100
          18000000000034080000120B0000120B00000000000000000000FFFFFFFFFFFF
          F8F7FBCCC4DFFBF9FBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE3E3FA55
          53DBCAD4F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8CBBE80719988C7CB6FEF8F9
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFE4E2F83431D40011D21531D4C8D6F3FFFFFFFF
          FFFFFAFCFE7895E2499EE42C83D60012927766AAFAF7F7FFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEAEC
          F4272BC5001ED00024CE174DCC59ADE9C3DAF2FFFFFF606BE2011AD2092EC765
          AFE73B8EDF031160ABA09DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1ECEEB1BDCB74ACE70525BA1F51C76EC2
          F01051C02C36A1FFFFFF8B89E70611D2002AD30421B966A2D5B6CACAD5D7D8F0
          ECEDFCFCFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          F5F2F5CFCCD7E0DBE0C8D4D54D698769B8F11253BD19198EC3B2D2FFFFFFFFFF
          FF938FE60410C72B60D2637381EBEAE6FFFEFEF7F8F8F7F4F5FEFDFDFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEDEFCEC9D4E2E6ECA2B6CAD2D2D8
          FFFFFF59768D151473C1AECEFFFFFFFFFFFFFFFFFFFFFFFFAAB4E39FCBE1ECEE
          EC98A5B9A5BBD1FFFFFFEDECECEAE7E8FFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFF4F0F3C5C0CCCDCDD2E8EAEBABBECEEBF1F5F4F4F5C0BFBECEC3C0FFFEFF
          FFFFFFFFFFFFFFFFFFFFFFFFFEFFFEE1DEE2D3D1D9CBD9E6CDD3DAF3F4F4E7EA
          EEF5F5F5F7F5F5FFFFFFFFFFFFFFFFFFFFFEFDF6EAE6D5CED6E0E0E7C9CACBDD
          DFE1FEFEFFFCFDFDF2F0F0FAF7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFE9E9EFDAD6E0E3E1E5CCCDCED7DCDCFEFFFFFFFDFAABB3C5E8E9
          E9FFFFFFCDC1D04C5A94D6D7E8F2F1EDDDDEDFE4E9EDE5E7E8F1EFF1FAF9F9FF
          FEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7EB
          BBBCC4D7D7DBE6E6E7F0EBE5B8CDED0846B3578AAECBB7BE2044880045C34183
          DFDADFDDFDFCFBFEFDFEF1EEEEF7F6F6FFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEDF1D6D5E0F8F4F5A0BFDE
          0E76E51175EA094DCA245FA01748AC0637DA0066E54789E8D6DCEAF9F6F5FBFA
          FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFF3EEEE8490B60C48D20445DD0935DB1079E70494F2
          3B49A21C24C30F67EB0254CC3B5E9AF0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFBBBCC9225EA1094DC00616CA0089E833D5EE2455B01A31A41841C33B7DAF
          DFE0DCFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA39BCD071A870A
          77E42C8AD41D38A40359D2003CBC152CA0C1C5D3FFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFD9D7F10F10CC0600AF2C37892B33CA0100BD0012B901
          51CC0137BB2430ABDAD7E9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9897
          D30000B90000C50710B5000FC30000C90100BF010DBA0244C9002DB5605CAAF9
          F8FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9492B80006A2010BB40042CA002E
          B70A0CBE0000CC0000C3010AB9001AAB565196F7F3F4FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFD7CCCD287DB20048A8001A94001B9C434BAFBFBEE72B2ED20000C00000
          AE00189F1D72AFC5BBC1FFFEFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFAF8A6A2BB1D6DBF0888C4508FB5
          BAAABDC9BDD6EFECF2FFFFFFE4E5F68585D17871B64374A8007FC0358BB79A99
          B0FDFBFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFB0A4A55B688C2864C64779ABECD4D1FFFFFEFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFF0E6E3598CB30360CC4B71B6A4BCC7F7F7F8FFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDC5A6A2506B9A92B2CA73
          92B4CBC4CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          ECE3EC5C63927F98B481ADCB9EA4B7FFF7F5FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFDFBCEABA5697D96449BCB668DB4D3DCE4FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDDD5CE6E708A3A80B7
          69AFD9B7AEB9F6ECE9FFFFFFFFFFFFFFFFFFFFFFFFFFFEFCCFADA6697A9364B9
          E795B2CEE1D6D7FFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFECE1DF8B70765E9FC56DB5DFA6A2B1F5E8E4
          FFFFFFFFFFFFFFFFFFCEBDBC6B798D70BBE486A0BDD9C4C4FFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFAEDE997797E6098BB80BEE59BA6C4F1EFF5FFFFFFFFFFFFE2E3EA
          669ED194AFCDE0CCCBFFFEFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8EDEAA5
          8482618FB3B4D3F1FEFDFFFFFFFF}
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Quote(Cheque)'
      ImageIndex = 2
      object Label17: TLabel
        Left = 16
        Top = 32
        Width = 65
        Height = 19
        Caption = 'Quote No'
        FocusControl = DBEdit9
      end
      object Label49: TLabel
        Left = 16
        Top = 88
        Width = 40
        Height = 19
        Caption = 'Name'
        FocusControl = DBEdit33
      end
      object Label50: TLabel
        Left = 280
        Top = 88
        Width = 55
        Height = 19
        Caption = 'Address'
        FocusControl = DBEdit34
      end
      object Label20: TLabel
        Left = 280
        Top = 144
        Width = 58
        Height = 19
        Caption = 'Quantity'
        FocusControl = DBEdit12
      end
      object Label43: TLabel
        Left = 280
        Top = 200
        Width = 70
        Height = 19
        Caption = 'Total Cost'
        FocusControl = DBEdit27
      end
      object Label41: TLabel
        Left = 16
        Top = 200
        Width = 66
        Height = 19
        Caption = 'Unit Price'
        FocusControl = DBEdit25
      end
      object Label44: TLabel
        Left = 16
        Top = 256
        Width = 96
        Height = 19
        Caption = 'DownPayment'
        FocusControl = DBEdit28
      end
      object Label18: TLabel
        Left = 16
        Top = 144
        Width = 80
        Height = 19
        Caption = 'Ice-wine No'
        FocusControl = DBEdit10
      end
      object Label19: TLabel
        Left = 280
        Top = 32
        Width = 64
        Height = 19
        Caption = 'Order No'
        FocusControl = DBEdit11
      end
      object DBEdit9: TDBEdit
        Left = 120
        Top = 32
        Width = 121
        Height = 27
        DataField = 'QNo'
        DataSource = DataSource3
        TabOrder = 0
      end
      object DBEdit33: TDBEdit
        Left = 120
        Top = 88
        Width = 121
        Height = 27
        DataField = 'CName'
        DataSource = DataSource8
        TabOrder = 1
      end
      object DBEdit34: TDBEdit