usubject.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

inherited fmSubject: TfmSubject
  Left = 93
  Top = 85
  Width = 610
  Height = 454
  Caption = #20250#35745#31185#30446
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    Width = 602
    Height = 368
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 235
        Height = 336
      end
      object Splitter1: TSplitter [1]
        Left = 233
        Top = 0
        Width = 2
        Height = 336
      end
      inherited DBGrid1: TdxDBGrid
        Left = 235
        Width = 359
        Height = 336
        KeyField = 'FS_No'
        Filter.Criteria = {00000000}
        object DBGrid1AC_ID: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'AC_ID'
        end
        object DBGrid1AC_Name: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'AC_Name'
        end
        object DBGrid1Parent: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Parent'
        end
        object DBGrid1Flag: TdxDBGridCheckColumn
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Flag'
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object DBGrid1Remark: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Remark'
        end
        object DBGrid1Debit: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Debit'
        end
        object DBGrid1Credit: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Credit'
        end
        object DBGrid1Creater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Creater'
        end
        object DBGrid1CreateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CreateDate'
        end
        object DBGrid1Updater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Updater'
        end
        object DBGrid1UpdateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UpdateDate'
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 233
        Height = 336
        ShowNodeHint = True
        DataSource = DataSource2
        DisplayField = 'AC_ID;AC_Name'
        KeyField = 'AC_ID'
        ListField = 'AC_Name'
        ParentField = 'Parent'
        SeparatedSt = ' '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        OnChange = dxDBTreeView1Change
        Align = alLeft
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #26032#32454#26126#20307
        Font.Style = []
        ParentColor = False
        Options = [trDBCanDelete, trDBConfirmDelete]
        SelectedIndex = 1
        TabOrder = 1
        ParentFont = False
        Images = ImageList2
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 313
        Height = 336
        object Label2: TLabel
          Left = 16
          Top = 17
          Width = 48
          Height = 12
          Caption = #31185#30446#20195#30721
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 16
          Top = 57
          Width = 48
          Height = 12
          Caption = #31185#30446#21517#31216
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Left = 16
          Top = 97
          Width = 48
          Height = 12
          Caption = #19978#32423#31185#30446
        end
        object Label7: TLabel
          Left = 16
          Top = 307
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit6
        end
        object DBEdit2: TDBEdit
          Left = 16
          Top = 33
          Width = 124
          Height = 20
          DataField = 'AC_ID'
          DataSource = DSMain
          TabOrder = 0
          OnKeyPress = DBEdit2KeyPress
        end
        object DBEdit3: TDBEdit
          Left = 16
          Top = 73
          Width = 244
          Height = 20
          DataField = 'AC_Name'
          DataSource = DSMain
          TabOrder = 1
        end
        object DBEdit6: TDBEdit
          Left = 16
          Top = 323
          Width = 244
          Height = 20
          DataField = 'ReMark'
          DataSource = DSMain
          TabOrder = 6
        end
        object dxDBLookupTreeView1: TdxDBLookupTreeView
          Left = 16
          Top = 115
          Width = 245
          Height = 20
          CanSelectParents = True
          DropDownRows = 15
          ParentColor = False
          TabOrder = 2
          TabStop = True
          Text = 'dxDBLookupTreeView1'
          TreeViewColor = clWindow
          TreeViewCursor = crDefault
          TreeViewFont.Charset = DEFAULT_CHARSET
          TreeViewFont.Color = clWindowText
          TreeViewFont.Height = -11
          TreeViewFont.Name = 'MS Sans Serif'
          TreeViewFont.Style = []
          TreeViewImages = ImageList2
          TreeViewIndent = 19
          TreeViewReadOnly = True
          TreeViewShowButtons = True
          TreeViewShowHint = False
          TreeViewShowLines = True
          TreeViewShowRoot = True
          TreeViewSortType = stNone
          DisplayField = 'AC_ID;AC_Name'
          DividedChar = '.'
          ListSource = DataSource2
          KeyField = 'AC_ID'
          ListField = 'AC_Name'
          Options = [trSmartRecordCopy, trCheckHasChildren]
          ParentField = 'Parent'
          TextStyle = tvtsShort
          DataField = 'Parent'
          DataSource = DSMain
          ReadOnly = True
        end
        object GroupBox2: TGroupBox
          Left = 15
          Top = 186
          Width = 246
          Height = 112
          TabOrder = 5
          object Label5: TLabel
            Left = 8
            Top = 20
            Width = 60
            Height = 12
            Caption = #35760#24080#20379#24212#21830
            FocusControl = DBEdit5
          end