unit_customers.~dfm

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

          DataField = 'type_name'
          DataSource = DSCustomers
          TabOrder = 3
        end
        object DB_CLevel: TDBLookupComboBox
          Left = 720
          Top = 15
          Width = 110
          Height = 20
          DataField = 'levelname'
          DataSource = DSCustomers
          TabOrder = 4
        end
        object DB_CSDate: TDBEdit
          Left = 68
          Top = 37
          Width = 108
          Height = 20
          DataField = 'Begin_Date'
          DataSource = DSCustomers
          TabOrder = 5
        end
        object DB_CAddress: TDBEdit
          Left = 239
          Top = 37
          Width = 220
          Height = 20
          DataField = 'Address'
          DataSource = DSCustomers
          TabOrder = 6
        end
        object DB_CCredit: TDBLookupComboBox
          Left = 544
          Top = 37
          Width = 108
          Height = 20
          DataField = 'Credit'
          DataSource = DSCustomers
          DropDownWidth = 108
          KeyField = 'ID'
          ListField = 'Credit_Des'
          ListSource = Main_DM.DS_CCredit
          TabOrder = 7
        end
        object DB_CSeller: TDBEdit
          Left = 720
          Top = 37
          Width = 110
          Height = 20
          DataField = 'Seller'
          DataSource = DSCustomers
          TabOrder = 8
        end
        object DB_CPhone: TDBEdit
          Left = 68
          Top = 60
          Width = 108
          Height = 20
          DataField = 'Phone'
          DataSource = DSCustomers
          TabOrder = 9
        end
        object DB_CEmail: TDBEdit
          Left = 239
          Top = 61
          Width = 220
          Height = 20
          DataField = 'Email'
          DataSource = DSCustomers
          TabOrder = 10
        end
        object DB_CBank_No: TDBEdit
          Left = 544
          Top = 60
          Width = 108
          Height = 20
          DataField = 'Bank_No'
          DataSource = DSCustomers
          TabOrder = 11
        end
        object DB_CCorporate: TDBEdit
          Left = 720
          Top = 60
          Width = 110
          Height = 20
          DataField = 'Corporate'
          DataSource = DSCustomers
          TabOrder = 12
        end
        object DB_CFax: TDBEdit
          Left = 68
          Top = 83
          Width = 109
          Height = 20
          DataField = 'Fax'
          DataSource = DSCustomers
          TabOrder = 13
        end
        object DB_CHttp: TDBEdit
          Left = 239
          Top = 84
          Width = 220
          Height = 20
          DataField = 'Http'
          DataSource = DSCustomers
          TabOrder = 14
        end
        object DB_CSum_Money: TDBEdit
          Left = 544
          Top = 83
          Width = 108
          Height = 20
          DataField = 'Sum_Money'
          DataSource = DSCustomers
          TabOrder = 15
        end
        object DB_CContract_Count: TDBEdit
          Left = 720
          Top = 83
          Width = 110
          Height = 20
          Color = clInactiveBorder
          DataField = 'Contract_Count'
          DataSource = DSCustomers
          TabOrder = 16
        end
        object DB_Memo: TDBMemo
          Left = 68
          Top = 107
          Width = 585
          Height = 61
          DataField = 'Note'
          DataSource = DSCustomers
          TabOrder = 17
        end
      end
      object DBGLinker: TDBGrid
        Left = 0
        Top = 203
        Width = 586
        Height = 259
        Align = alClient
        Color = 15790320
        DataSource = DSLinker
        ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnKeyPress = DBGLinkerKeyPress
        Columns = <
          item
            Expanded = False
            FieldName = 'Linkman'
            Title.Caption = '      '#32852#31995#20154
            Width = 95
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Duty'
            Title.Caption = #32844#20301
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Mobile'
            Title.Caption = '     '#25163#26426
            Width = 96
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Phone'
            Title.Caption = '      '#30005#35805
            Width = 97
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Email'
            Title.Caption = #30005#23376#37038#20214
            Width = 150
            Visible = True
          end>
      end
      object Memo: TMemo
        Left = 586
        Top = 203
        Width = 281
        Height = 259
        Align = alRight
        Color = clInfoBk
        ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
        Lines.Strings = (
          #19994#21153#36319#36394#35760#24405)
        TabOrder = 2
        Visible = False
      end
    end
  end
  object StatusBar3: TStatusBar
    Left = 0
    Top = 533
    Width = 1028
    Height = 19
    Panels = <>
  end
  object TVCustomers: TTreeView
    Left = 0
    Top = 44
    Width = 153
    Height = 489
    Align = alLeft
    AutoExpand = True
    Color = 15790320
    Images = ImageList1
    Indent = 19
    ReadOnly = True
    TabOrder = 2
    Visible = False
    OnClick = TVCustomersClick
    Items.Data = {
      01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
      08BFCDBBA7D7CAC1CF}
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 1028
    Height = 44
    Bands = <>
    object SB_Exit: TSpeedButton
      Left = 2
      Top = 0
      Width = 57
      Height = 39
      Caption = #36864#20986
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6B7BBBD0F131700000C00001300001200
        051000001200050F00051100040F0000000810181F2525090303000009000001
        00030A0000008B8F91CED3D6CED3D6CED3D6CED3D6CED3D6D8DDDCB0BDCB161F
        7A00007B000B7D001279001279002572002273000F370000133A667EE2FFFF42
        5550000020000823000D2E00000A8B8E8ECED3D6CED3D6CED3D6CED3D6CED3D6
        CDD2D5DFE1DFAFBCC514227400096F00117300246B00206E000D300008200001
        18375F71D6FBF83F9390003B35000221000B2900000C8B8E8ECED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CCD2D5DFE1DFAFBCC60B1D74001D6D001E6D000B30