📄 recipequerym.dfm

📁 本文重点研究的是医院西药药房管理系统
💻 DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object RadioButton3: TRadioButton
          Left = 104
          Top = 2
          Width = 57
          Height = 17
          Caption = #20540#29677#26041
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object RadioButton4: TRadioButton
          Left = 212
          Top = 2
          Width = 71
          Height = 17
          Caption = #26410#30830#35748#26041
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object RadioButton5: TRadioButton
          Left = 165
          Top = 2
          Width = 46
          Height = 17
          Caption = #40635#26041
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
      end
    end
    object ToolBar4: TToolBar
      Left = 390
      Top = 31
      Width = 232
      Height = 25
      Caption = 'ToolBar3'
      Images = ImageList1
      TabOrder = 3
      object ToolButton2: TToolButton
        Left = 0
        Top = 2
        Hint = #28165#38500
        Caption = 'ToolButton1'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object Panel6: TPanel
        Left = 23
        Top = 2
        Width = 131
        Height = 22
        Caption = 'Panel1'
        TabOrder = 0
        object Label2: TLabel
          Left = 3
          Top = 2
          Width = 36
          Height = 16
          Caption = #30830#35748#20154
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Box1: TDBLookupComboBox
          Left = 45
          Top = 0
          Width = 84
          Height = 21
          KeyField = 'uid'
          ListField = 'name'
          ListSource = UserSource
          TabOrder = 0
        end
      end
    end
  end
  object ImageList1: TImageList
    Left = 528
    Top = 32
    Bitmap = {
      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD0000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD007B7B7B007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
      00000000000000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000FFFF000000
      FF0000FFFF000000000000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD007B7B7B007B7B7B007B7B7B000000000000FFFF000000FF0000FF
      FF000000FF0000FFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD000000000000000000000000000000FF0000FFFF000000
      FF0000FFFF000000FF0000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD0000000000000000000000000000000000000000000000FF0000FF
      FF000000FF0000FFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD0000000000BDBD
      BD000000000000000000000000000000FF000000000000000000000000000000
      FF0000FFFF000000000000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      0000000000000000FF0000000000000000000000FF0000000000000000000000
      00000000000000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000BDBDBD00000000000000
      000000000000000000000000FF0000000000000000000000FF00000000000000
      000000000000BDBDBD0000000000BDBDBD000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD00000000000000000000FF
      FF000000000000000000000000000000FF000000000000000000000000000000
      0000BDBDBD0000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000FFFF0000FF
      FF0000FFFF000000000000000000000000000000FF000000000000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00184A3900E7EF52004ACE4A0021EF
      4A00BD6B5200E76B5200CE6B5200A5AD42006B8C5A009C0852007BEF4A00636B
      310094C6290029085A0029080000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD000000000000FFFF0000FF
      FF000000000000FFFF0000000000000000000000000000000000BDBDBD000000
      0000BDBDBD0000000000BDBDBD00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000422100000000000000000000BDBDBD00000000000000
      000000FFFF0000FFFF0000FFFF000000000000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000BDBDBD0000000000BDBDBD000000
      000000FFFF0000FFFF000000000000000000BDBDBD0000000000BDBDBD000000
      0000BDBDBD0000000000BDBDBD0000000000BDBDBD00FFFFFF00BDBDBD00FFFF
      FF00BDBDBD007B7B7B007B7B7B007B7B7B000000000000FFFF000000FF0000FF
      FF000000FF0000FFFF0000000000FFFFFF00FFFFFF00BDBDBD007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B000000000000FFFF000000
      FF0000FFFF0000000000FFFFFF00BDBDBD00BDBDBD007B7B7B007B7B7B007B7B
      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
      000000000000FFFFFF00BDBDBD00FFFFFF0000000000BDBDBD0000000000BDBD
      BD00000000000000000000000000BDBDBD0000000000BDBDBD0000000000BDBD
      BD0000000000BDBDBD0000000000BDBDBD00BDBDBD00FFFFFF00BDBDBD00FFFF
      FF00000000000000FF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF000000
      000000000000FFFFFF00BDBDBD00FFFFFF00FFFFFF00BDBDBD00FFFFFF00BDBD
      BD00FFFFFF0000000000FFFFFF000000FF00FFFFFF00FFFFFF00000000000000
      FF0000FFFF0000000000FFFFFF00BDBDBD00BDBDBD00FFFFFF00BDBDBD00FFFF
      FF00BDBDBD00FFFFFF0000000000FFFFFF00FFFFFF00000000000000FF0000FF
      FF000000FF0000FFFF0000000000FFFFFF00424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFE0FF0000FFFFAAAA0000E0FFE0FF
      0005F7BDFFFFF7BD8002F7BDFFFFF7BD5001E0FFE0FF0000AA00F7BD00000000
      5581FFFFF7BDFFFFAAC2FFFFF7BDFFFF5365E0FF0000FFFFADAAFFFFF7BD0000
      46D5F7BDFFFFF7BD832AF7BDFFFFF7BD01550000FFFFF7BD80AAF7BDFFFFF7BD
      4155000000000000A2AA6E200000000000000000000000000000000000000000
      000000000000}
  end
  object RecipeXmQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyMzRecipe;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@QuitIden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@Sdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@HjId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end
      item
        Name = '@QrMan'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = ''
      end>
    Left = 221
    Top = 215
    object RecipeXmQueryhzname: TStringField
      FieldName = 'hzname'
      ReadOnly = True
      Size = 8
    end
    object RecipeXmQueryhj_id: TIntegerField
      FieldName = 'hj_id'
    end
    object RecipeXmQuerysr_man: TStringField
      FieldName = 'sr_man'
      ReadOnly = True
      Size = 8
    end
    object RecipeXmQueryysmoney: TBCDField
      FieldName = 'ysmoney'
      ReadOnly = True
      DisplayFormat = '###########0.00###'
      Precision = 32
      Size = 2
    end
    object RecipeXmQueryva_man: TStringField
      FieldName = 'va_man'
      FixedChar = True
      Size = 8
    end
    object RecipeXmQueryva_iden: TWordField
      FieldName = 'va_iden'
    end
  end
  object RecipeXmSource: TDataSource
    DataSet = RecipeXmQuery
    Left = 304
    Top = 215
  end
  object RecipeQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = RecipeXmSource
    Parameters = <
      item
        Name = 'hj_id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select my_id,'
      '       XyId.yp_name,'
      '       XyId.yp_spec,'
      '       XyId.yp_unit,'
      '       yp_batch,'
      '       sc_fact,'
      '       qr_date,'
      '       ls_price,'
      '       yp_amou'
      'from XyMzVali,XyId'
      'where XyMzVali.yp_id=XyId.yp_id and'
      '      hj_id=:hj_id')
    Left = 384
    Top = 215
    object RecipeQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object RecipeQueryyp_name: TStringField
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object RecipeQueryyp_spec: TStringField
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object RecipeQueryyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object RecipeQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object RecipeQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 10
    end
    object RecipeQueryqr_date: TDateTimeField
      FieldName = 'qr_date'
    end
    object RecipeQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '###########0.00###'
      Precision = 18
      Size = 5
    end
    object RecipeQueryyp_amou: TIntegerField
      FieldName = 'yp_amou'
    end
  end
  object RecipeSource: TDataSource
    DataSet = RecipeQuery
    Left = 456
    Top = 215
  end
  object UserQuery: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=tffw_;Persist Security Info=True;Us' +
      'er ID=usergroup;Initial Catalog=qyyfy_run;Data Source=qy_nt;Loca' +
      'le Identifier=2052;Connect Timeout=15;Use Procedure for Prepare=' +
      '1;Auto Translate=True;Packet Size=4096;Workstation ID=NEWWH'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select uid,'
      '       name'
      'from sysusers'
      'where uid<10000 and'
      '      uid>4 and'
      '      uid in (select memberuid'
      '              from sysusers,sysmembers'
      '              where uid=groupuid and'
      '              (name='#39#35199#33647#38376#35786#30830#35748#32452#39' or'
      '               name='#39#35199#33647#38376#35786#36864#33647#32452#39' ))'
      '             '
      '')
    Left = 224
    Top = 270
  end
  object UserSource: TDataSource
    DataSet = UserQuery
    Left = 288
    Top = 270
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -