cg_inwhs.dfm

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

inherited fcg_inwhs: Tfcg_inwhs
  Left = 166
  Top = 73
  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
  Caption = #37319#36141#20837#24211
  ClientHeight = 582
  ClientWidth = 753
  PixelsPerInch = 96
  TextHeight = 13
  inherited tlb1: TToolBar
    Width = 753
  end
  inherited pnl1: TPanel
    Width = 753
    Height = 533
    inherited lbl7: TLabel
      Left = 369
      Width = 36
      Caption = #21333#20301#65306
    end
    inherited lbl11: TLabel
      Left = 544
    end
    inherited lbl13: TLabel
      Left = 538
    end
    inherited lbl19: TLabel
      Left = 27
      Width = 42
      Caption = ' '#25968' '#37327#65306
    end
    inherited lbl20: TLabel
      Left = 488
    end
    inherited lbl18: TLabel
      Left = 550
      Visible = False
    end
    inherited dxDBGrid1: TdxDBGrid
      Top = 192
      Width = 753
      Height = 341
      KeyField = 'fcode'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      object dxDBGrid1Ma_code: TdxDBGridColumn
        Caption = #21333#21495
        Width = 85
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fcode'
        SummaryFooterType = cstCount
      end
      object dxDBGrid1Ma_worker: TdxDBGridColumn
        Caption = #24320#21333#20154
        Width = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_worker'
      end
      object dxDBGrid1Ma_whscode: TdxDBGridColumn
        Caption = #20179#24211#32534#21495
        Width = 61
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_whscode'
      end
      object dxDBGrid1Ma_pcode: TdxDBGridColumn
        Caption = #33647#21697#32534#21495
        Width = 61
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_pcode'
      end
      object dxDBGrid1Ma_pname: TdxDBGridColumn
        Caption = #33647#21697#21517#31216
        Width = 117
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_pname'
      end
      object dxDBGrid1Ma_out: TdxDBGridCheckColumn
        Caption = #23457#26680
        MinWidth = 20
        Width = 39
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fout'
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dxDBGrid1ma_otc: TdxDBGridCheckColumn
        Caption = #38750#22788#26041
        MinWidth = 20
        Width = 52
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_otc'
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object dxDBGrid1Fdate: TdxDBGridDateColumn
        Caption = #26085#26399
        Width = 83
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Fdate'
      end
      object dxDBGrid1ma_bzq: TdxDBGridMaskColumn
        Caption = #20445#36136#26399
        Width = 48
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_bzq'
      end
      object dxDBGrid1Ma_unit: TdxDBGridColumn
        Caption = #21333#20301
        Width = 36
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_unit'
      end
      object dxDBGrid1ma_qyt: TdxDBGridMaskColumn
        Caption = #24635#25968#37327
        Width = 44
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ma_qyt'
      end
      object dxDBGrid1Ma_buyprice: TdxDBGridMaskColumn
        Caption = #36827#20215
        Width = 42
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_buyprice'
      end
      object dxDBGrid1Ma_sum: TdxDBGridMaskColumn
        Caption = #21512#35745
        Width = 53
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_sum'
      end
      object dxDBGrid1Ma_yield: TdxDBGridDateColumn
        Caption = #29983#20135#26085#26399
        Width = 89
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_yield'
      end
      object dxDBGrid1Ma_enddate: TdxDBGridDateColumn
        Caption = #26377#25928#26399#33267
        Width = 85
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_enddate'
      end
      object dxDBGrid1Ma_ph: TdxDBGridColumn
        Caption = #25209#21495
        Width = 83
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_ph'
      end
      object dxDBGrid1Ma_factory: TdxDBGridColumn
        Caption = #29983#20135#21830
        Width = 131
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Ma_factory'
      end
    end
    inherited dbedtcode: TDBEdit
      DataField = 'fcode'
    end
    inherited dbedtmam: TDBEdit
      ReadOnly = True
    end
    inherited dbedtdate: TDBEdit
      ReadOnly = True
    end
    inherited dbedtname: TDBEdit
      TabOrder = 6
    end
    inherited dbedtinpri: TDBEdit
      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 = 457
      TabOrder = 14
    end
    inherited dbmmomen: TDBMemo
      TabOrder = 15
    end
    inherited btn1: TBitBtn
      Left = 640
      TabOrder = 17
    end
    inherited btn2: TBitBtn
      Left = 640
      TabOrder = 18
    end
    inherited dbchk1: TDBCheckBox
      Enabled = False
      TabOrder = 16
    end
    inherited dxDBButtonEdit1: TdxDBButtonEdit
      TabOrder = 5
      OnButtonClick = dxDBButtonEdit1ButtonClick
      ExistButtons = True
    end
    inherited dxDBDateEdit1: TdxDBDateEdit
      Width = 105
      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 = 105
      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 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 QbaseinfoFdate: TDateTimeField
      FieldName = 'Fdate'
    end
    object QbaseinfoMa_unit: TWideStringField
      FieldName = 'Ma_unit'
    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'
      OnValidate = QbaseinfoMa_yieldValidate
    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 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 Qbaseinfofout: TIntegerField
      FieldName = 'fout'
    end
    object Qbaseinfofcode: TWideStringField
      FieldName = 'fcode'
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_physic')
    Left = 448
    Top = 153
    object ADOQuery1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOQuery1Phy_code: TWideStringField
      FieldName = 'Phy_code'
    end
    object ADOQuery1Phy_name: TWideStringField
      FieldName = 'Phy_name'
    end
    object ADOQuery1Phy_type: TWideStringField
      FieldName = 'Phy_type'
    end
    object ADOQuery1Phy_marking: TWideStringField
      FieldName = 'Phy_marking'
    end
    object ADOQuery1Phy_abc: TWideStringField
      FieldName = 'Phy_abc'
    end
    object ADOQuery1Phy_unit: TWideStringField
      FieldName = 'Phy_unit'
    end
    object ADOQuery1Phy_aveprice: TFloatField
      FieldName = 'Phy_aveprice'
    end
    object ADOQuery1Phy_retail1: TFloatField
      FieldName = 'Phy_retail1'
    end
    object ADOQuery1Phy_unit1: TWideStringField
      FieldName = 'Phy_unit1'
    end
    object ADOQuery1Phy_unit1rate: TFloatField
      FieldName = 'Phy_unit1rate'
    end
    object ADOQuery1Phy_retail2: TFloatField
      FieldName = 'Phy_retail2'
    end
    object ADOQuery1Phy_unit2: TWideStringField
      FieldName = 'Phy_unit2'
    end
    object ADOQuery1Phy_unit2rate: TFloatField
      FieldName = 'Phy_unit2rate'
    end
    object ADOQuery1Phy_retail3: TFloatField
      FieldName = 'Phy_retail3'
    end
    object ADOQuery1Phy_unit3: TWideStringField
      FieldName = 'Phy_unit3'
    end
    object ADOQuery1Phy_unit3rate: TFloatField
      FieldName = 'Phy_unit3rate'
    end
    object ADOQuery1Phy_retail4: TFloatField
      FieldName = 'Phy_retail4'
    end
    object ADOQuery1Phy_up: TFloatField
      FieldName = 'Phy_up'
    end
    object ADOQuery1Phy_down: TFloatField
      FieldName = 'Phy_down'
    end
    object ADOQuery1Phy_spec: TWideStringField
      FieldName = 'Phy_spec'
    end
    object ADOQuery1Phy_xz: TWideStringField
      FieldName = 'Phy_xz'
    end
    object ADOQuery1Phy_fit: TWideStringField
      FieldName = 'Phy_fit'
      Size = 100
    end
    object ADOQuery1Phy_reaction: TWideStringField
      FieldName = 'Phy_reaction'
      Size = 100
    end
    object ADOQuery1Phy_enjoin: TWideStringField
      FieldName = 'Phy_enjoin'
      Size = 100
    end
    object ADOQuery1Phy_attention: TWideStringField
      FieldName = 'Phy_attention'
      Size = 100
    end
    object ADOQuery1Phy_savedate: TFloatField
      FieldName = 'Phy_savedate'
    end
    object ADOQuery1Phy_otc: TIntegerField
      FieldName = 'Phy_otc'
    end
    object ADOQuery1Phy_out: TIntegerField
      FieldName = 'Phy_out'
    end
    object ADOQuery1fmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object ADOQuery1fSort: TWideStringField
      FieldName = 'fSort'
    end
    object ADOQuery1phy_used: TWideStringField
      FieldName = 'phy_used'
    end
    object ADOQuery1phy_factory: TWideStringField
      FieldName = 'phy_factory'
      Size = 50
    end
  end
end