xs_charge.dfm

这是一个实用的软件

inherited fXs_charge: TfXs_charge
  Left = 270
  Top = 151
  Caption = #20854#23427#36153#29992
  ClientHeight = 308
  ClientWidth = 438
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 438
    inherited SpeedButton6: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    Width = 438
    Height = 259
    inherited TabSheet1: TTabSheet
      inherited Label1: TLabel
        Left = 30
        Caption = #21333'  '#21495#65306
      end
      inherited lbl1: TLabel
        Left = 222
        Top = 54
        Width = 60
        Caption = #36153#29992#21517#31216#65306
      end
      inherited Label2: TLabel
        Left = 30
        Top = 118
      end
      object Label3: TLabel [3]
        Left = 12
        Top = 88
        Width = 60
        Height = 13
        Caption = #36153#29992#37329#39069#65306
      end
      object Label4: TLabel [4]
        Left = 240
        Top = 24
        Width = 42
        Height = 13
        Caption = #26085'  '#26399#65306
      end
      object lbl2: TLabel [5]
        Left = 24
        Top = 56
        Width = 48
        Height = 13
        Caption = #32463#21150#20154#65306
      end
      inherited DBEdit1: TDBEdit
        Left = 80
        Width = 129
        DataField = 'fcode'
        DataSource = baseSource
        ReadOnly = True
      end
      inherited DBEdit2: TDBEdit
        Left = 288
        Top = 48
        DataField = 'Xs_name'
        DataSource = baseSource
        TabOrder = 3
        OnMouseDown = DBEdit2MouseDown
      end
      inherited DBMemo1: TDBMemo
        Left = 80
        Top = 112
        Width = 329
        Height = 89
        DataField = 'fmem'
        DataSource = baseSource
        TabOrder = 5
      end
      object DBEdit3: TDBEdit
        Left = 80
        Top = 80
        Width = 129
        Height = 21
        DataField = 'Xs_money'
        DataSource = baseSource
        TabOrder = 4
      end
      object dxDBDateEdit1: TdxDBDateEdit
        Left = 288
        Top = 16
        Width = 121
        TabOrder = 1
        DataField = 'De_date'
        DataSource = baseSource
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 80
        Top = 48
        Width = 129
        Height = 21
        DataField = 'Otc_worker'
        DataSource = baseSource
        KeyField = 'User_code'
        ListField = 'User_name'
        ListSource = fpubdata.dsdisp_user
        TabOrder = 2
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        Width = 430
        Height = 231
        KeyField = 'fcode'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridXs_code: TdxDBGridColumn
          Width = 83
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fcode'
          SummaryFooterType = cstCount
        end
        object dxDBGridXs_name: TdxDBGridColumn
          Width = 98
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Xs_name'
        end
        object dxDBGridXs_money: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Xs_money'
          SummaryFooterType = cstSum
        end
        object dxDBGridDe_date: TdxDBGridDateColumn
          Width = 104
          BandIndex = 0
          RowIndex = 0
          FieldName = 'De_date'
        end
        object dxDBGridOtc_worker: TdxDBGridColumn
          Width = 46
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Otc_worker'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Width = 150
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Xs_charge'
      'where 1=0')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QbaseinfoXs_name: TWideStringField
      DisplayLabel = #36153#29992#21517#31216
      FieldName = 'Xs_name'
    end
    object QbaseinfoXs_money: TFloatField
      DisplayLabel = #36153#29992#37329#39069
      FieldName = 'Xs_money'
    end
    object QbaseinfoDe_date: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'De_date'
    end
    object QbaseinfoOtc_worker: TWideStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'Otc_worker'
    end
    object Qbaseinfofmem: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfoXs_checked: TIntegerField
      FieldName = 'Xs_checked'
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
    object Qbaseinfofcode: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'fcode'
    end
  end
end