xs_otc.dfm

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

inherited fXs_otc: TfXs_otc
  Left = 235
  Top = 130
  Caption = 'OTC'#38144#21806
  ClientHeight = 419
  ClientWidth = 621
  Position = poDefault
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 621
  end
  inherited PageControl1: TPageControl
    Width = 621
    Height = 370
    inherited TabSheet1: TTabSheet
      inherited Label1: TLabel
        Left = 30
        Caption = #21333'  '#21495#65306
      end
      inherited lbl1: TLabel
        Left = 224
        Width = 48
        Caption = #24320#21333#20154#65306
      end
      inherited Label2: TLabel
        Left = 30
        Top = 182
      end
      object Label3: TLabel [3]
        Left = 12
        Top = 56
        Width = 60
        Height = 13
        Caption = #33647#21697#32534#21495#65306
      end
      object Label4: TLabel [4]
        Left = 212
        Top = 56
        Width = 60
        Height = 13
        Caption = #33647#21697#21517#31216#65306
      end
      object Label5: TLabel [5]
        Left = 417
        Top = 24
        Width = 42
        Height = 13
        Caption = #26085'  '#26399#65306
      end
      object Label6: TLabel [6]
        Left = 212
        Top = 120
        Width = 60
        Height = 13
        Caption = #20179#24211#32534#21495#65306
      end
      object Label7: TLabel [7]
        Left = 417
        Top = 56
        Width = 42
        Height = 13
        Caption = #21333'  '#20301#65306
      end
      object lbl2: TLabel [8]
        Left = 30
        Top = 88
        Width = 42
        Height = 13
        Caption = #20215'  '#26684#65306
      end
      object lbl3: TLabel [9]
        Left = 417
        Top = 88
        Width = 42
        Height = 13
        Caption = #21512'  '#35745#65306
      end
      object Label8: TLabel [10]
        Left = 417
        Top = 120
        Width = 42
        Height = 13
        Caption = #35268'  '#26684#65306
      end
      object Label9: TLabel [11]
        Left = 30
        Top = 120
        Width = 42
        Height = 13
        Caption = #25209'  '#21495#65306
      end
      object lbl4: TLabel [12]
        Left = 24
        Top = 152
        Width = 48
        Height = 13
        Caption = #29983#20135#21830#65306
      end
      object lbl5: TLabel [13]
        Left = 230
        Top = 88
        Width = 42
        Height = 13
        Caption = #25968'  '#37327#65306
      end
      object lbl20: TLabel [14]
        Left = 528
        Top = 297
        Width = 60
        Height = 19
        Caption = #24050#23457#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      inherited DBEdit1: TDBEdit
        Left = 80
        DataField = 'fcode'
        DataSource = baseSource
      end
      inherited DBEdit2: TDBEdit
        Left = 280
        DataField = 'otc_worker'
        DataSource = baseSource
      end
      inherited DBMemo1: TDBMemo
        Left = 80
        Top = 176
        Width = 513
        Height = 97
        DataField = 'fmem'
        DataSource = baseSource
        TabOrder = 13
      end
      object dxDBDateEdit1: TdxDBDateEdit
        Left = 472
        Top = 16
        Width = 121
        TabOrder = 2
        DataField = 'Fdate'
        DataSource = baseSource
      end
      object DBEdit4: TDBEdit
        Left = 280
        Top = 48
        Width = 121
        Height = 21
        DataField = 'otc_pname'
        DataSource = baseSource
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 80
        Top = 80
        Width = 121
        Height = 21
        DataField = 'otc_price'
        DataSource = baseSource
        TabOrder = 6
      end
      object DBEdit7: TDBEdit
        Left = 472
        Top = 80
        Width = 121
        Height = 21
        DataField = 'otc_sum'
        DataSource = baseSource
        ReadOnly = True
        TabOrder = 8
      end
      object DBEdit8: TDBEdit
        Left = 472
        Top = 112
        Width = 121
        Height = 21
        DataField = 'Otc_spec'
        DataSource = baseSource
        TabOrder = 11
      end
      object DBEdit9: TDBEdit
        Left = 80
        Top = 112
        Width = 121
        Height = 21
        DataField = 'otc_ph'
        DataSource = baseSource
        TabOrder = 9
      end
      object DBEdit10: TDBEdit
        Left = 80
        Top = 144
        Width = 513
        Height = 21
        DataField = 'otc_factory'
        DataSource = baseSource
        TabOrder = 12
      end
      object DBEdit11: TDBEdit
        Left = 280
        Top = 80
        Width = 121
        Height = 21
        DataField = 'otc_qty'
        DataSource = baseSource
        TabOrder = 7
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 280
        Top = 112
        Width = 121
        Height = 21
        DataField = 'otc_whscode'
        DataSource = baseSource
        KeyField = 'Whs_code'
        ListField = 'Whs_name'
        ListSource = fpubdata.dsdisp_whs
        TabOrder = 10
      end
      object dxDBButtonEdit1: TdxDBButtonEdit
        Left = 80
        Top = 48
        Width = 121
        TabOrder = 3
        OnExit = dxDBButtonEdit1Exit
        DataField = 'otc_pcode'
        DataSource = baseSource
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxDBButtonEdit1ButtonClick
        ExistButtons = True
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 472
        Top = 48
        Width = 121
        Height = 21
        DataField = 'otc_unit'
        DataSource = baseSource
        Enabled = False
        KeyField = 'Unit_code'
        ListField = 'Unit_name'
        ListSource = fpubdata.dsdisp_unit
        TabOrder = 5
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        Width = 613
        Height = 342
        KeyField = 'fcode'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridfcode: TdxDBGridColumn
          Width = 93
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fcode'
          SummaryFooterType = cstCount
        end
        object dxDBGridotc_worker: TdxDBGridColumn
          Width = 65
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_worker'
        end
        object dxDBGridfout: TdxDBGridCheckColumn
          MinWidth = 20
          Width = 37
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fout'
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
        object dxDBGridotc_whscode: TdxDBGridColumn
          Width = 67
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_whscode'
        end
        object dxDBGridotc_pcode: TdxDBGridColumn
          Width = 70
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_pcode'
        end
        object dxDBGridotc_pname: TdxDBGridColumn
          Width = 103
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_pname'
        end
        object dxDBGridFdate: TdxDBGridDateColumn
          Width = 70
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Fdate'
        end
        object dxDBGridotc_unit: TdxDBGridColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_unit'
        end
        object dxDBGridotc_price: TdxDBGridMaskColumn
          Width = 47
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_price'
        end
        object dxDBGridotc_qty: TdxDBGridMaskColumn
          Width = 49
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_qty'
          SummaryFooterType = cstSum
        end
        object dxDBGridotc_sum: TdxDBGridMaskColumn
          Width = 49
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_sum'
          SummaryFooterType = cstSum
        end
        object dxDBGridOtc_spec: TdxDBGridColumn
          Width = 76
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Otc_spec'
        end
        object dxDBGridotc_ph: TdxDBGridColumn
          Width = 75
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_ph'
        end
        object dxDBGridotc_factory: TdxDBGridColumn
          Width = 180
          BandIndex = 0
          RowIndex = 0
          FieldName = 'otc_factory'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Width = 150
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  object BitBtn1: TBitBtn [2]
    Left = 440
    Top = 16
    Width = 75
    Height = 25
    Caption = #23457' '#26680
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn [3]
    Left = 528
    Top = 16
    Width = 75
    Height = 25
    Caption = #21453#23457#26680
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    AfterScroll = QbaseinfoAfterScroll
    SQL.Strings = (
      'select * from xs_OTC'
      'where 1=0')
    Left = 400
    Top = 8
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qbaseinfofcode: TWideStringField
      DisplayLabel = #21333#21495
      FieldName = 'fcode'
    end
    object Qbaseinfootc_worker: TWideStringField
      DisplayLabel = #24320#21333#20154
      FieldName = 'otc_worker'
    end
    object Qbaseinfootc_whscode: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'otc_whscode'
    end
    object Qbaseinfootc_pcode: TWideStringField
      DisplayLabel = #33647#21697#32534#21495
      FieldName = 'otc_pcode'
    end
    object Qbaseinfootc_pname: TWideStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldName = 'otc_pname'
    end
    object QbaseinfoFdate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'Fdate'
    end
    object Qbaseinfootc_unit: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'otc_unit'
    end
    object Qbaseinfootc_buyprice: TFloatField
      DisplayLabel = #20215#26684
      FieldName = 'otc_price'
      OnValidate = Qbaseinfootc_buypriceValidate
      DisplayFormat = '0.00#'
    end
    object Qbaseinfootc_qty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'otc_qty'
      OnValidate = Qbaseinfootc_qtyValidate
      DisplayFormat = '0.00#'
    end
    object Qbaseinfootc_sum: TFloatField
      DisplayLabel = #21512#35745
      FieldName = 'otc_sum'
      DisplayFormat = '0.00#'
    end
    object QbaseinfoOtc_spec: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'Otc_spec'
    end
    object Qbaseinfootc_ph: TWideStringField
      DisplayLabel = #25209#21495
      FieldName = 'otc_ph'
    end
    object Qbaseinfootc_factory: TWideStringField
      DisplayLabel = #29983#20135#21830
      FieldName = 'otc_factory'
      Size = 50
    end
    object Qbaseinfofout: TIntegerField
      DisplayLabel = #23457#26680
      FieldName = 'fout'
    end
    object Qbaseinfofmem: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  inherited baseSource: TDataSource
    Left = 432
    Top = 8
  end
  inherited ActionList: TActionList
    Left = 464
    Top = 8
    inherited actfind: TAction
      OnExecute = actfindExecute
    end
  end
  inherited ImageList1: TImageList
    Left = 496
    Top = 8
  end
end