unit_customers.dfm

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

object frmCustomers: TfrmCustomers
  Left = -206
  Top = 176
  Width = 1036
  Height = 586
  Caption = #23458#25143#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 153
    Top = 44
    Width = 875
    Height = 489
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20449#24687#21015#34920
      object DBGCustomers: TDBGrid
        Left = 0
        Top = 0
        Width = 867
        Height = 462
        Align = alClient
        Color = clCream
        DataSource = DSCustomers
        ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, 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
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Custer_Name'
            Title.Alignment = taCenter
            Title.Caption = #23458#25143#21517#31216
            Width = 220
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'type_name'
            Title.Alignment = taCenter
            Title.Caption = #23458#25143#31867#22411
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'creditname'
            Title.Caption = #20449#29992#24230
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'levelname'
            Title.Caption = #23458#25143#31561#32423
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Sum_Money'
            Title.Caption = #26399#21021#37329#39069
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Contract_Count'
            Title.Caption = #20132#26131#27425#25968
            Visible = True
          end>
      end
    end
    object TBCusterDetail: TTabSheet
      Caption = #26126#32454#20449#24687
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 867
        Height = 203
        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 DBN: TDBNavigator
          Left = 0
          Top = 176
          Width = 230
          Height = 25
          DataSource = DSCustomers
          ConfirmDelete = False
          TabOrder = 0
          Visible = False
          OnClick = DBNClick
        end
        object DB_CNo: TDBEdit
          Left = 68
          Top = 13
          Width = 108
          Height = 20
          Color = 14212576
          DataField = 'Custer_No'
          DataSource = DSCustomers
          ReadOnly = True
          TabOrder = 1
        end
        object DB_CName: TDBEdit
          Left = 239
          Top = 14
          Width = 220
          Height = 20
          DataField = 'Custer_Name'
          DataSource = DSCustomers
          TabOrder = 2
        end
        object DB_CType: TDBLookupComboBox
          Left = 544
          Top = 15
          Width = 108
          Height = 20