uworkinfo.dfm

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

inherited fmWorkInfo: TfmWorkInfo
  Left = 183
  Top = 116
  Height = 397
  Caption = #24037#26102#21333#25454#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited PageControl: TPageControl
    Height = 330
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Height = 298
      end
      inherited Panel1: TPanel
        Height = 298
        inherited DBGrid1: TdxDBGrid
          Height = 296
          Filter.Criteria = {00000000}
          OnChangeNode = DBGrid1ChangeNode
        end
        inherited Panel3: TPanel
          Top = 297
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 313
        Height = 298
        object Label5: TLabel
          Left = 13
          Top = 181
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit5
        end
        object Label4: TLabel
          Left = 205
          Top = 99
          Width = 24
          Height = 12
          Caption = #38271#24230
        end
        object Label3: TLabel
          Left = 97
          Top = 99
          Width = 48
          Height = 12
          Caption = #21333#25454#21069#32512
          FocusControl = DBEdit3
        end
        object Label2: TLabel
          Left = 13
          Top = 66
          Width = 48
          Height = 12
          Caption = #21333#25454#21517#31216
          FocusControl = DBEdit2
        end
        object Label1: TLabel
          Left = 13
          Top = 30
          Width = 48
          Height = 12
          Caption = #21333#25454#32534#21495
          FocusControl = DBEdit1
        end
        object Label6: TLabel
          Left = 13
          Top = 126
          Width = 90
          Height = 12
          Caption = #39044#30041#39033'1('#23383#31526#22411')'
          FocusControl = DBEdit5
        end
        object Label7: TLabel
          Left = 13
          Top = 155
          Width = 90
          Height = 12
          Caption = #39044#30041#39033'2('#25968#20540#22411')'
          FocusControl = DBEdit5
        end
        object Label8: TLabel
          Left = 117
          Top = 30
          Width = 114
          Height = 12
          Caption = '('#38480'0~9,A-Z,'#38271#24230'1'#20301')'
          FocusControl = DBEdit1
        end
        object DBRadioGroup1: TDBRadioGroup
          Left = 13
          Top = 232
          Width = 288
          Height = 43
          Caption = #24037#26102#25910#38598#26041#24335
          Columns = 2
          DataField = 'ByMachine'
          DataSource = DSMain
          Items.Strings = (
            #29992#26426#24202#32534#21495#25910#38598
            #29992#24037#20316#32534#30721#25910#38598)
          TabOrder = 9
          Values.Strings = (
            'True'
            'False')
          OnChange = DBRadioGroup1Change
        end
        object dxDBSpinEdit1: TdxDBSpinEdit
          Left = 230
          Top = 95
          Width = 47
          TabOrder = 5
          DataField = 'Length'
          DataSource = DSMain
          MaxValue = 14.000000000000000000
          MinValue = 6.000000000000000000
          StoredValues = 48
        end
        object DBEdit5: TDBEdit
          Left = 13
          Top = 205
          Width = 266
          Height = 20
          DataField = 'Remark'
          DataSource = DSMain
          TabOrder = 8
        end
        object DBEdit3: TDBEdit
          Left = 146
          Top = 95
          Width = 34
          Height = 20
          CharCase = ecUpperCase
          DataField = 'Prefix'
          DataSource = DSMain
          TabOrder = 4
        end
        object DBEdit2: TDBEdit
          Left = 64
          Top = 62
          Width = 213
          Height = 20
          DataField = 'BillName'
          DataSource = DSMain
          TabOrder = 1
        end
        object DBEdit1: TDBEdit
          Left = 64
          Top = 27
          Width = 49
          Height = 20
          CharCase = ecUpperCase
          DataField = 'BillID'
          DataSource = DSMain
          TabOrder = 0
          OnKeyPress = DBEdit1KeyPress
        end
        object DBCheckBox2: TDBCheckBox
          Left = 13
          Top = 97
          Width = 73
          Height = 17
          Caption = #33258#21160#32534#21495
          DataField = 'AutoNo'
          DataSource = DSMain
          TabOrder = 3
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object DBCheckBox1: TDBCheckBox
          Left = 234
          Top = 28
          Width = 49
          Height = 17
          Caption = #21551#29992'?'
          DataField = 'Enabled'
          DataSource = DSMain
          TabOrder = 2
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object GroupBox2: TGroupBox
          Left = 16
          Top = 287
          Width = 287
          Height = 355
          Caption = #21487#29992#24037#20316#32534#21495
          TabOrder = 10
          object dxDBGrid2: TdxDBGrid
            Left = 2
            Top = 14
            Width = 283
            Height = 339
            Bands = <
              item
              end>
            DefaultLayout = True
            HeaderPanelRowCount = 1
            SummaryGroups = <>
            SummarySeparator = ', '
            Align = alClient
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnDblClick = dxDBGrid2DblClick
            DataSource = DSBillAction
            Filter.Criteria = {00000000}
            OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
            OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
            ScrollBars = ssNone
            ShowGrid = False
            object dxDBGrid2ActionID: TdxDBGridMaskColumn
              DisableEditor = True
              ReadOnly = True
              Width = 71
              BandIndex = 0
              RowIndex = 0
              FieldName = 'ActionID'
            end
            object dxDBGrid2ActionName: TdxDBGridLookupColumn
              DisableEditor = True
              ReadOnly = True
              BandIndex = 0
              RowIndex = 0
              FieldName = 'ActionName'
            end
          end
        end
        object DBEdit4: TDBEdit
          Left = 109
          Top = 126
          Width = 169
          Height = 20
          DataField = 'Reserved1'
          DataSource = DSMain
          TabOrder = 6
        end
        object DBEdit6: TDBEdit
          Left = 109
          Top = 155
          Width = 169
          Height = 20
          DataField = 'Reserved2'
          DataSource = DSMain
          TabOrder = 7
        end
      end
      inherited Panel2: TPanel
        Left = 313
        Width = 236
        Height = 298
        object GroupBox3: TGroupBox
          Left = 27
          Top = 0
          Width = 209
          Height = 298
          Align = alClient
          Caption = #24037#20316#32534#30721#20449#24687
          TabOrder = 0
          object Panel4: TPanel
            Left = 2
            Top = 14
            Width = 205
            Height = 240
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
            object Label9: TLabel
              Left = 8
              Top = 8
              Width = 24
              Height = 12
              Caption = #32534#21495
              FocusControl = DBEdit7
            end
            object Label10: TLabel
              Left = 8
              Top = 48
              Width = 24
              Height = 12
              Caption = #21517#31216
              FocusControl = DBEdit8
            end