ucustom.dfm

是个办公系统,可以实现财务上的管理和人员的流动

        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = DBGrid2DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ProNo'
            Title.Caption = #39033#30446#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ProName'
            Title.Caption = #39033#30446#21517#31216
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'AssignDate'
            Title.Caption = #31614#32422#26085#26399
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FinishDate'
            Title.Caption = #23436#25104#26085#26399
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Customname'
            Title.Caption = #23458#25143#21517#31216
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Deposit'
            Title.Caption = #39044#20184#37329#39069
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Accountpay'
            Title.Caption = #24212#20184#37329#39069
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salesman'
            Title.Caption = #19994#21153#21592
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'URL'
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'URLType'
            Title.Caption = 'URL'#31867#22411
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Status'
            Title.Caption = #29366#24577
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Note'
            Title.Caption = #39033#30446#22791#27880
            Visible = True
          end>
      end
    end
    object GroupBox4: TGroupBox
      Left = 1
      Top = 473
      Width = 641
      Height = 144
      Align = alTop
      Caption = #23478#24237#25104#21592
      TabOrder = 2
      object DBGrid3: TDBGrid
        Left = 2
        Top = 15
        Width = 637
        Height = 127
        Align = alClient
        DataSource = dm.DSFimaly
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CustomerID'
            Title.Caption = #23458#25143#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MemberName'
            Title.Caption = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Relation'
            Title.Caption = #19982#23458#25143#20851#31995
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Birth'
            Title.Caption = #20986#29983#26085#26399
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Email'
            Title.Caption = #30005#23376#37038#20214
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DeptName'
            Title.Caption = #25152#22312#37096#38376
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Telephone'
            Title.Caption = #32852#31995#30005#35805
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Note'
            Title.Caption = #22791#27880
            Visible = True
          end>
      end
    end
    object GroupBox5: TGroupBox
      Left = 1
      Top = 55
      Width = 641
      Height = 306
      Align = alTop
      Caption = #23458#25143#22522#26412#20449#24687
      TabOrder = 3
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 637
        Height = 289
        Align = alClient
        DataSource = dm.DSCustInfo
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = PopupMenu1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'CustomerID'
            Title.Caption = #23458#25143#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cusname'
            Title.Caption = #23458#25143#22995#21517
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Address'
            Title.Caption = #22320#22336
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Telphone'
            Title.Caption = #32852#31995#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Email'
            Title.Caption = #30005#23376#37038#20214
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DeptName'
            Title.Caption = #37096#38376#21517#31216
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WebSit'
            Title.Caption = #23458#25143#32593#31449
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Area'
            Title.Caption = #22320#21306
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SalesmanName'
            Title.Caption = #19994#21153#21592
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'InputDate'
            Title.Caption = #24405#20837#26085#26399
            Width = 64
            Visible = True
          end
          item
            Expanded = False