cg_otherout.dfm

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

inherited fCg_otherout: TfCg_otherout
  Left = 216
  Top = 145
  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
  Caption = #20854#23427#20986#24211
  ClientHeight = 575
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnl1: TPanel
    Height = 526
    inherited lbl7: TLabel
      Left = 370
      Width = 36
      Caption = #21333#20301#65306
    end
    inherited lbl11: TLabel
      Left = 534
      Width = 48
      Caption = #37319#36141#20215#65306
      Visible = False
    end
    inherited lbl12: TLabel
      Left = 186
    end
    inherited lbl13: TLabel
      Left = 530
    end
    inherited lbl15: TLabel
      Left = 361
    end
    inherited lbl20: TLabel
      Visible = True
    end
    inherited lbl18: TLabel
      Left = 539
    end
    inherited dxDBGrid1: TdxDBGrid
      Top = 192
      Height = 334
      KeyField = 'fcode'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      object dxDBGrid1fcode: TdxDBGridColumn
        Caption = #21333#21495
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fcode'
        SummaryFooterType = cstCount
      end
      object dxDBGrid1Fdate: TdxDBGridDateColumn
        Caption = #26085#26399
        Width = 81
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Fdate'
      end
      object dxDBGrid1Ma_worker: TdxDBGridColumn
        Caption = #24320#21333#20154
        Width = 70
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_worker'
      end
      object dxDBGrid1Ma_whscode: TdxDBGridColumn
        Caption = #20179#24211#32534#21495
        Sorted = csUp
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_whscode'
      end
      object dxDBGrid1Ma_unit2: TdxDBGridMaskColumn
        Caption = #33647#21697#32534#21495
        Width = 68
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_pcode'
      end
      object dxDBGrid1Ma_unit1: TdxDBGridMaskColumn
        Caption = #33647#21697#21517#31216
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_pname'
      end
      object dxDBGrid1fout: TdxDBGridCheckColumn
        Caption = #23457#26680
        MinWidth = 20
        Width = 32
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fout'
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dxDBGrid1ma_otc: TdxDBGridCheckColumn
        Caption = #38750#22788#26041
        MinWidth = 20
        Width = 48
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_otc'
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dxDBGrid1Ma_unit: TdxDBGridColumn
        Caption = #21333#20301
        Width = 32
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_unit'
      end
      object dxDBGrid1Ma_ss: TdxDBGridMaskColumn
        Caption = #25955#25968
        Width = 37
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_ss'
      end
      object dxDBGrid1Ma_buyprice: TdxDBGridMaskColumn
        Caption = #36827#20215
        Width = 34
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_buyprice'
      end
      object dxDBGrid1ma_qyt: TdxDBGridMaskColumn
        Caption = #24635#25968#37327
        Width = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_qyt'
      end
      object dxDBGrid1Ma_sum: TdxDBGridMaskColumn
        Caption = #21512#35745
        Width = 42
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_sum'
      end
      object dxDBGrid1Ma_yield: TdxDBGridDateColumn
        Caption = #29983#20135#26085#26399
        Width = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_yield'
      end
      object dxDBGrid1Ma_enddate: TdxDBGridDateColumn
        Caption = #26377#25928#26399#33267
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_enddate'
      end
      object dxDBGrid1Ma_ph: TdxDBGridColumn
        Caption = #25209#21495
        Width = 77
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_ph'
      end
      object dxDBGrid1Ma_factory: TdxDBGridColumn
        Caption = #29983#20135#21830
        Width = 149
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_factory'
      end
      object dxDBGrid1ma_bzq: TdxDBGridMaskColumn
        Caption = #20445#36136#26399
        Width = 49
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_bzq'
      end
    end
    inherited dbedtcode: TDBEdit
      DataField = 'fcode'
    end
    inherited dbedtname: TDBEdit
      TabOrder = 6
    end
    inherited dbedtinpri: TDBEdit
      TabOrder = 8
    end
    inherited dbedtqty: TDBEdit
      TabOrder = 9
    end
    inherited dbedtmoney: TDBEdit
      ReadOnly = True
      TabOrder = 10
    end
    inherited dbedtph: TDBEdit
      TabOrder = 11
    end
    inherited dbedtfactory: TDBEdit
      TabOrder = 14
    end
    inherited dbmmomen: TDBMemo
      TabOrder = 15
    end
    inherited btn1: TBitBtn
      TabOrder = 17
    end
    inherited btn2: TBitBtn
      TabOrder = 18
    end
    inherited dbchk1: TDBCheckBox
      TabOrder = 16
    end
    inherited dxDBButtonEdit1: TdxDBButtonEdit
      TabOrder = 5
      OnButtonClick = dxDBButtonEdit1ButtonClick
      ExistButtons = True
    end
    inherited dxDBDateEdit1: TdxDBDateEdit
      TabOrder = 12
      DataField = 'Ma_yield'
      DataSource = DataSource
    end
    inherited dxDBDateEdit2: TdxDBDateEdit
      TabOrder = 13
      DataField = 'Ma_enddate'
      DataSource = DataSource
    end
    inherited DBLookupComboBox1: TDBLookupComboBox
      DataField = 'Ma_unit'
      KeyField = 'Unit_code'
      ListField = 'Unit_name'
      ListSource = fpubdata.dsdisp_unit
      TabOrder = 7
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 600
      Top = 16
      Width = 121
      Height = 21
      DataField = 'Ma_whscode'
      DataSource = DataSource
      Enabled = False
      KeyField = 'Whs_code'
      ListField = 'Whs_name'
      ListSource = fpubdata.dsdisp_whs
      TabOrder = 4
    end
  end
  inherited ActionList: TActionList
    inherited actfind: TAction
      OnExecute = actfindExecute
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    SQL.Strings = (
      'select * from cg_master'
      'where 1=0')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
    object QbaseinfoMa_worker: TWideStringField
      FieldName = 'Ma_worker'
    end
    object QbaseinfoMa_whscode: TWideStringField
      FieldName = 'Ma_whscode'
    end
    object QbaseinfoMa_pcode: TWideStringField
      FieldName = 'Ma_pcode'
    end
    object QbaseinfoMa_pname: TWideStringField
      FieldName = 'Ma_pname'
      Size = 50
    end
    object QbaseinfoMa_unit: TWideStringField
      FieldName = 'Ma_unit'
    end
    object QbaseinfoFdate: TDateTimeField
      FieldName = 'Fdate'
    end
    object QbaseinfoMa_unit2: TFloatField
      FieldName = 'Ma_unit2'
    end
    object QbaseinfoMa_unit1: TFloatField
      FieldName = 'Ma_unit1'
    end
    object QbaseinfoMa_ss: TFloatField
      FieldName = 'Ma_ss'
    end
    object QbaseinfoMa_buyprice: TFloatField
      FieldName = 'Ma_buyprice'
      OnValidate = QbaseinfoMa_buypriceValidate
    end
    object QbaseinfoMa_sum: TFloatField
      FieldName = 'Ma_sum'
    end
    object QbaseinfoMa_yield: TDateTimeField
      FieldName = 'Ma_yield'
    end
    object QbaseinfoMa_enddate: TDateTimeField
      FieldName = 'Ma_enddate'
    end
    object QbaseinfoMa_ph: TWideStringField
      FieldName = 'Ma_ph'
    end
    object QbaseinfoMa_factory: TWideStringField
      FieldName = 'Ma_factory'
      Size = 50
    end
    object Qbaseinfofout: TIntegerField
      FieldName = 'fout'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
    object Qbaseinfoma_bzq: TIntegerField
      FieldName = 'ma_bzq'
    end
    object Qbaseinfoma_qyt: TFloatField
      FieldName = 'ma_qyt'
      OnValidate = Qbaseinfoma_qytValidate
    end
    object Qbaseinfoma_otc: TIntegerField
      FieldName = 'ma_otc'
    end
    object Qbaseinfoma_othername: TWideStringField
      FieldName = 'ma_othername'
      Size = 50
    end
  end
end