cmoney.~dfm

delphi＋sql编写的医院信息系统

object F_CMoney: TF_CMoney
  Left = 240
  Top = 149
  Width = 528
  Height = 519
  Caption = #38376#35786#21010#20215#12289#25910#36153#12289#21462#33647#19977#21512#19968
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 520
    Height = 39
    ButtonHeight = 36
    ButtonWidth = 43
    Caption = 'ToolBar1'
    Color = clGradientActiveCaption
    EdgeOuter = esNone
    Flat = True
    Images = ImageList1
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = #22686#21152
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 43
      Top = 0
      Caption = #32534#36753
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 86
      Top = 0
      Caption = #21024#38500
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 129
      Top = 0
      Caption = #25552#20132
      Enabled = False
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 172
      Top = 0
      Caption = #21462#28040
      Enabled = False
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 215
      Top = 0
      Caption = #26368#21069#26465
      ImageIndex = 5
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 258
      Top = 0
      Caption = #21069#19968#26465
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
    object ToolButton8: TToolButton
      Left = 301
      Top = 0
      Caption = #21518#19968#26465
      ImageIndex = 7
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 344
      Top = 0
      Caption = #26368#21518#26465
      ImageIndex = 8
      OnClick = ToolButton9Click
    end
    object ToolButton10: TToolButton
      Left = 387
      Top = 0
      Caption = #26597#25214
      ImageIndex = 9
      OnClick = ToolButton10Click
    end
    object ToolButton11: TToolButton
      Left = 430
      Top = 0
      Caption = #25171#21360
      ImageIndex = 10
      OnClick = ToolButton11Click
    end
    object ToolButton12: TToolButton
      Left = 473
      Top = 0
      Caption = #20851#38381
      ImageIndex = 11
      OnClick = ToolButton12Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 520
    Height = 157
    Color = clInfoBk
    TabOrder = 1
    object Label1: TLabel
      Left = 20
      Top = 2
      Width = 69
      Height = 13
      Caption = #38376#35786#32534#21495'       '
    end
    object Label3: TLabel
      Left = 136
      Top = 2
      Width = 66
      Height = 13
      Caption = #30149#20154#22995#21517'      '
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 251
      Top = 2
      Width = 42
      Height = 13
      Caption = #26085#26399'      '
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 392
      Top = 1
      Width = 42
      Height = 13
      Caption = #21307#29983'      '
      FocusControl = DBEdit5
    end
    object DBEdit3: TDBEdit
      Left = 136
      Top = 18
      Width = 97
      Height = 21
      DataField = 'TCM_Name'
      DataSource = DM.DS_TCMoney
      TabOrder = 0
    end
    object DBEdit4: TDBEdit
      Left = 251
      Top = 18
      Width = 119
      Height = 21
      DataField = 'TCM_Date'
      DataSource = DM.DS_TCMoney
      TabOrder = 1
    end
    object DBEdit5: TDBEdit
      Left = 392
      Top = 17
      Width = 107
      Height = 21
      DataField = 'THM_Doctor'
      DataSource = DM.DS_TCMoney
      TabOrder = 2
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 41
      Width = 520
      Height = 115
      DataSource = DM.DS_TCMoney
      FixedColor = clMoneyGreen
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'TCM_RID'
          Title.Alignment = taCenter
          Title.Caption = #38376#35786#32534#21495
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TCM_Name'
          Title.Alignment = taCenter
          Title.Caption = #30149#20154#22995#21517
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TCM_Date'
          Title.Alignment = taCenter
          Title.Caption = #26085#26399
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'THM_Doctor'
          Title.Alignment = taCenter
          Title.Caption = #20027#35786#21307#29983
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TCM_Total'
          Title.Alignment = taCenter
          Title.Caption = #21512#35745#36153#29992
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TCM_WMDrug'
          Title.Caption = #35199#33647#36153
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TCM_CMDrug'
          Title.Caption = #20013#33609#33647