customer.~dfm

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

inherited frmCustomer: TfrmCustomer
  Left = 41
  Top = 199
  Width = 1006
  Height = 475
  Caption = #23458#25143#31649#29702
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 998
  end
  inherited TVCustomers: TTreeView
    Height = 378
  end
  inherited PageControl1: TPageControl
    Width = 845
    Height = 378
    inherited TabSheet1: TTabSheet
      object DBG_Customer: TDBGrid
        Left = 0
        Top = 0
        Width = 837
        Height = 351
        Align = alTop
        DataSource = DS_Base
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Custer_No'
            Title.Caption = #23458#25143#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Custer_Name'
            Title.Caption = #23458#25143#21517#31216
            Width = 209
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Type_Name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Seller'
            Width = 86
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'level_name'
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'credit_name'
            Width = 74
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Begin_Date'
            Visible = True
          end>
      end
    end
    inherited TBCusterDetail: TTabSheet
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 837
        Height = 175
        Align = alTop
        TabOrder = 0
        object Label1: TLabel
          Left = 9
          Top = 18
          Width = 54
          Height = 12
          Caption = #23458#25143#32534#21495':'
        end
        object Label2: TLabel
          Left = 9
          Top = 42
          Width = 54
          Height = 12
          Caption = #24320#22987#26085#26399':'
        end
        object Label4: TLabel
          Left = 9
          Top = 66
          Width = 54
          Height = 12
          Caption = #32852#31995#30005#35805':'
        end
        object Label5: TLabel
          Left = 9
          Top = 90
          Width = 54
          Height = 12
          Caption = #20844#21496#20256#30495':'
        end
        object Label6: TLabel
          Left = 185
          Top = 18
          Width = 54
          Height = 12
          Caption = #23458#25143#21517#31216':'
        end
        object Label7: TLabel
          Left = 185
          Top = 42
          Width = 54
          Height = 12
          Caption = #20844#21496#22320#22336':'
        end
        object Label8: TLabel
          Left = 185
          Top = 66
          Width = 54
          Height = 12
          Caption = #30005#23376#20449#31665':'
        end
        object Label9: TLabel
          Left = 185
          Top = 90
          Width = 54
          Height = 12
          Caption = #20844#21496#20027#39029':'
        end
        object Label10: TLabel
          Left = 480
          Top = 18
          Width = 54
          Height = 12
          Caption = #23458#25143#31867#22411':'
        end
        object Label11: TLabel
          Left = 493
          Top = 42
          Width = 42
          Height = 12
          Caption = #20449#29992#24230':'
        end
        object Label12: TLabel
          Left = 485
          Top = 66
          Width = 54
          Height = 12
          Caption = #38134#34892#36134#21495':'
        end
        object Label13: TLabel
          Left = 485
          Top = 90
          Width = 54
          Height = 12
          Caption = #26399#21021#37329#39069':'
        end
        object Label14: TLabel
          Left = 661
          Top = 18
          Width = 54
          Height = 12
          Caption = #23458#25143#31561#32423':'
        end
        object Label15: TLabel
          Left = 664
          Top = 42
          Width = 54
          Height = 12
          Caption = #23458#25143#20195#34920':'
        end
        object Label16: TLabel
          Left = 664
          Top = 66
          Width = 54
          Height = 12
          Caption = #27861#20154#20195#34920':'
        end
        object Label18: TLabel
          Left = 17
          Top = 138
          Width = 30
          Height = 12
          Caption = #22791#27880':'
        end
        object Label17: TLabel
          Left = 664
          Top = 90
          Width = 54
          Height = 12
          Caption = #20132#26131#27425#25968':'
        end
        object DB_CNo: TDBEdit
          Left = 68
          Top = 13
          Width = 108
          Height = 20
          Color = 14212576
          DataField = 'Custer_No'
          DataSource = DS_Base
          ReadOnly = True
          TabOrder = 0
        end
        object DB_CName: TDBEdit
          Left = 239
          Top = 14
          Width = 220
          Height = 20
          DataField = 'Custer_Name'
          DataSource = DS_Base
          TabOrder = 1
        end
        object DB_CType: TDBLookupComboBox
          Left = 544
          Top = 15
          Width = 108
          Height = 20
          DataField = 'Custer_Type_ID'
          DataSource = DS_Base
          DropDownWidth = 200
          KeyField = 'ID'
          ListField = 'Type_Des;ID'
          ListSource = DS_CType
          TabOrder = 2
        end
        object DB_CLevel: TDBLookupComboBox
          Left = 720
          Top = 15
          Width = 110
          Height = 20
          DataField = 'CLevel'
          DataSource = DS_Base
          DropDownWidth = 150
          KeyField = 'ID'
          ListField = 'Level_Des;ID'
          ListSource = DS_Level
          TabOrder = 3
        end
        object DB_CSDate: TDBEdit
          Left = 68
          Top = 37
          Width = 108
          Height = 20
          DataField = 'Begin_Date'
          DataSource = DS_Base
          TabOrder = 4
        end
        object DB_CAddress: TDBEdit
          Left = 239
          Top = 37
          Width = 220
          Height = 20
          DataField = 'Address'
          DataSource = DS_Base
          TabOrder = 5
        end
        object DB_CCredit: TDBLookupComboBox
          Left = 544
          Top = 37
          Width = 108
          Height = 20
          DataField = 'Credit'
          DataSource = DS_Base
          DropDownWidth = 150
          KeyField = 'ID'
          ListField = 'Credit_Des;ID'
          ListSource = DS_Credit
          TabOrder = 6
        end
        object DB_CSeller: TDBEdit
          Left = 720
          Top = 37
          Width = 110
          Height = 20
          DataField = 'Seller'
          DataSource = DS_Base
          TabOrder = 7
        end
        object DB_CPhone: TDBEdit
          Left = 68
          Top = 60
          Width = 108
          Height = 20
          DataField = 'Phone'
          DataSource = DS_Base
          TabOrder = 8
        end
        object DB_CEmail: TDBEdit
          Left = 239
          Top = 61
          Width = 220
          Height = 20
          DataField = 'Email'
          DataSource = DS_Base
          TabOrder = 9
        end
        object DB_CBank_No: TDBEdit
          Left = 544
          Top = 60
          Width = 108
          Height = 20
          DataField = 'Bank_No'
          DataSource = DS_Base
          TabOrder = 10
        end
        object DB_CCorporate: TDBEdit
          Left = 720
          Top = 60
          Width = 110
          Height = 20
          DataField = 'Corporate'
          DataSource = DS_Base
          TabOrder = 11
        end
        object DB_CFax: TDBEdit
          Left = 68
          Top = 83
          Width = 109
          Height = 20
          DataField = 'Fax'
          DataSource = DS_Base
          TabOrder = 12
        end
        object DB_CHttp: TDBEdit
          Left = 239
          Top = 84
          Width = 220
          Height = 20
          DataField = 'Http'
          DataSource = DS_Base
          TabOrder = 13
        end
        object DB_CSum_Money: TDBEdit
          Left = 544
          Top = 83
          Width = 108
          Height = 20
          DataField = 'Sum_Money'
          DataSource = DS_Base
          TabOrder = 14
        end
        object DB_CContract_Count: TDBEdit
          Left = 720
          Top = 83
          Width = 110
          Height = 20
          Color = clInactiveBorder
          DataField = 'Contract_Count'
          DataSource = DS_Base
          TabOrder = 15
        end
        object DB_Memo: TDBMemo
          Left = 68
          Top = 107
          Width = 585
          Height = 61
          DataField = 'Note'
          DataSource = DS_Base
          TabOrder = 16
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 175
        Width = 305
        Height = 176
        Align = alLeft
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            Title.Caption = 'aaa'
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = 'bbb'
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = 'ccc'
            Visible = True
          end>
      end
    end
  end
  inherited StatusBar: TStatusBar
    Top = 422
    Width = 998
  end
  inherited ADO_Base: TADOQuery
    SQL.Strings = (
      'select * from ms_customer_hdr')
    Left = 72
    Top = 72
    object ADO_BaseID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADO_BaseCuster_No: TStringField
      FieldName = 'Custer_No'
      FixedChar = True
      Size = 15
    end
    object ADO_BaseCuster_Name: TStringField
      FieldName = 'Custer_Name'
      Size = 50
    end
    object ADO_BaseCuster_Type_ID: TIntegerField
      FieldName = 'Custer_Type_ID'
    end
    object ADO_BaseBegin_Date: TDateTimeField
      FieldName = 'Begin_Date'
    end
    object ADO_BaseSeller: TStringField
      FieldName = 'Seller'
      FixedChar = True
    end
    object ADO_BaseCredit: TStringField
      FieldName = 'Credit'
      FixedChar = True
      Size = 10
    end
    object ADO_BaseCLevel: TStringField
      FieldName = 'CLevel'
      FixedChar = True
      Size = 10
    end
    object ADO_BaseAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object ADO_BaseEmail: TStringField
      FieldName = 'Email'
      Size = 50
    end
    object ADO_BasePhone: TStringField
      FieldName = 'Phone'
      Size = 50
    end
    object ADO_BaseFax: TStringField
      FieldName = 'Fax'
      Size = 50
    end
    object ADO_BaseHttp: TStringField
      FieldName = 'Http'
      Size = 50
    end
    object ADO_BaseBank_No: TStringField
      FieldName = 'Bank_No'
      Size = 50
    end
    object ADO_BaseTax_No: TStringField
      FieldName = 'Tax_No'
      Size = 50
    end
    object ADO_BaseCorporate: TStringField
      FieldName = 'Corporate'
      FixedChar = True
      Size = 10
    end
    object ADO_BaseContract_Count: TIntegerField
      FieldName = 'Contract_Count'
    end
    object ADO_BaseSum_Money: TBCDField
      FieldName = 'Sum_Money'
      Precision = 19
    end
    object ADO_BaseNote: TStringField
      FieldName = 'Note'
      Size = 200
    end
    object ADO_BaseType_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Type_Name'
      LookupDataSet = ADO_Type
      LookupKeyFields = 'ID'
      LookupResultField = 'Type_Des'
      KeyFields = 'Custer_Type_ID'
      Lookup = True
    end
    object ADO_Baselevel_name: TStringField
      FieldKind = fkLookup
      FieldName = 'level_name'
      LookupDataSet = ADO_Level
      LookupKeyFields = 'ID'
      LookupResultField = 'Level_Des'
      KeyFields = 'CLevel'
      Lookup = True
    end
    object ADO_Basecredit_name: TStringField
      FieldKind = fkLookup
      FieldName = 'credit_name'
      LookupDataSet = ADO_Credit
      LookupKeyFields = 'ID'
      LookupResultField = 'Credit_Des'
      KeyFields = 'Credit'
      Lookup = True
    end
  end
  inherited DS_Base: TDataSource
    Top = 72
  end
  object ADO_Type: TADOTable
    Connection = Main_DM.ADOConn
    CursorType = ctStatic
    TableName = 'ms_customer_type'
    Left = 72
    Top = 232
    object ADO_TypeID: TIntegerField
      FieldName = 'ID'
    end
    object ADO_TypeType_No: TStringField
      FieldName = 'Type_No'
      FixedChar = True
      Size = 6
    end
    object ADO_TypeType_Des: TStringField
      FieldName = 'Type_Des'
      Size = 50
    end
  end
  object ADO_Level: TADOTable
    Connection = Main_DM.ADOConn
    CursorType = ctStatic
    TableName = 'ms_customer_level'
    Left = 72
    Top = 304
  end
  object ADO_Credit: TADOTable
    Connection = Main_DM.ADOConn
    CursorType = ctStatic
    TableName = 'ms_customer_credit'
    Left = 72
    Top = 272
  end
  object DS_CType: TDataSource
    DataSet = ADO_Type
    Left = 112
    Top = 240
  end
  object DS_Credit: TDataSource
    DataSet = ADO_Credit
    Left = 104
    Top = 272
  end
  object DS_Level: TDataSource
    DataSet = ADO_Level
    Left = 104
    Top = 304
  end
end