cg_otherin.dfm

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

inherited fcg_otherin: Tfcg_otherin
  Left = 198
  Top = 85
  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
  Caption = #20854#23427#20837#24211
  ClientHeight = 579
  ClientWidth = 734
  PixelsPerInch = 96
  TextHeight = 13
  inherited tlb1: TToolBar
    Width = 734
  end
  inherited pnl1: TPanel
    Width = 734
    Height = 530
    inherited lbl2: TLabel
      Top = 23
    end
    inherited lbl4: TLabel
      Top = 45
    end
    inherited lbl5: TLabel
      Top = 49
    end
    inherited lbl6: TLabel
      Width = 42
      Caption = #26085'  '#26399#65306
    end
    inherited lbl7: TLabel
      Left = 370
      Width = 42
      Caption = #21333'  '#20301#65306
    end
    inherited lbl11: TLabel
      Left = 541
      Top = 46
      Width = 48
      Caption = #37319#36141#20215#65306
    end
    inherited lbl12: TLabel
      Left = 186
      Top = 73
    end
    inherited lbl13: TLabel
      Left = 538
    end
    inherited lbl15: TLabel
      Left = 361
    end
    inherited lbl16: TLabel
      Top = 95
    end
    inherited lbl19: TLabel
      Left = 23
      Width = 42
      Caption = ' '#25968' '#37327#65306
    end
    inherited lbl20: TLabel
      Visible = True
    end
    inherited lbl18: TLabel
      Left = 544
      Top = 47
      Visible = False
    end
    inherited dxDBGrid1: TdxDBGrid
      Top = 192
      Width = 734
      Height = 338
      KeyField = 'fcode'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      object dxDBGrid1fcode: TdxDBGridColumn
        Caption = #21333#21495
        Width = 87
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fcode'
      end
      object dxDBGrid1Ma_worker: TdxDBGridColumn
        Caption = #24320#21333#20154
        Width = 63
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_worker'
      end
      object dxDBGrid1Fdate: TdxDBGridDateColumn
        Caption = #26085#26399
        Width = 78
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Fdate'
      end
      object dxDBGrid1Ma_whscode: TdxDBGridColumn
        Caption = #20179#24211#32534#21495
        Width = 74
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_whscode'
      end
      object dxDBGrid1Ma_pcode: TdxDBGridColumn
        Caption = #33647#21697#32534#21495
        Width = 73
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_pcode'
      end
      object dxDBGrid1Ma_pname: TdxDBGridColumn
        Caption = #33647#21697#21517#31216
        Width = 127
        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 = 43
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_otc'
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dxDBGrid1Ma_unit: TdxDBGridColumn
        Caption = #21333#20301
        Width = 44
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_unit'
      end
      object dxDBGrid1Ma_buyprice: TdxDBGridMaskColumn
        Caption = #37319#36141#20215
        Width = 57
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_buyprice'
      end
      object dxDBGrid1ma_qyt: TdxDBGridMaskColumn
        Caption = #25968#37327
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_qyt'
      end
      object dxDBGrid1Ma_sum: TdxDBGridMaskColumn
        Caption = #21512#35745
        Width = 51
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_sum'
      end
      object dxDBGrid1Ma_yield: TdxDBGridDateColumn
        Caption = #29983#20135#26085#26399
        Width = 81
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_yield'
      end
      object dxDBGrid1Ma_enddate: TdxDBGridDateColumn
        Caption = #26377#25928#26399#33267
        Width = 90
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_enddate'
      end
      object dxDBGrid1Ma_ph: TdxDBGridColumn
        Caption = #25209#21495
        Width = 70
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_ph'
      end
      object dxDBGrid1Ma_factory: TdxDBGridColumn
        Caption = #29983#20135#21830
        Width = 114
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_factory'
      end
      object dxDBGrid1ma_bzq: TdxDBGridMaskColumn
        Caption = #20445#36136#26399
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_bzq'
      end
      object dxDBGrid1fmem: TdxDBGridColumn
        Caption = #22791#27880
        Width = 144
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fmem'
      end
    end
    inherited dbedtcode: TDBEdit
      DataField = 'fcode'
    end
    inherited dbedtname: TDBEdit
      TabOrder = 6
    end
    inherited dbedtinpri: TDBEdit
      Left = 608
      Width = 105
      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
      Width = 465
      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
      Left = 608
      Width = 105
      TabOrder = 12
      DataField = 'Ma_yield'
      DataSource = DataSource
    end
    inherited dxDBDateEdit2: TdxDBDateEdit
      TabOrder = 13
      DataField = 'Ma_enddate'
      DataSource = DataSource
    end
    inherited DBLookupComboBox1: TDBLookupComboBox
      Left = 608
      Top = 16
      DataField = 'Ma_whscode'
      KeyField = 'Whs_code'
      ListField = 'Whs_name'
      ListSource = fpubdata.dsdisp_whs
      TabOrder = 4
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 424
      Top = 40
      Width = 105
      Height = 21
      DataField = 'Ma_unit'
      DataSource = DataSource
      Enabled = False
      KeyField = 'Unit_code'
      ListField = 'Unit_name'
      ListSource = fpubdata.dsdisp_unit
      TabOrder = 7
    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