fmdkysque.dfm

本文重点研究的是医院西药药房管理系统

        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ParentFont = False
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Visible = False
        OnKeyPress = DBGrid1KeyPress
        Columns = <
          item
            Expanded = False
            FieldName = 'yp_id'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#32534#30721
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 69
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_name'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#21517#31216
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 169
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_spec'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#35268#26684
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 113
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_unit'
            Title.Alignment = taCenter
            Title.Caption = #21333#20301
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 26
            Visible = True
          end>
      end
      object DBGrid2: TDBGrid
        Left = 352
        Top = 64
        Width = 416
        Height = 177
        Color = clAqua
        DataSource = DS_xycorp_id_ys
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ParentFont = False
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Visible = False
        OnKeyPress = DBGrid2KeyPress
        Columns = <
          item
            Expanded = False
            FieldName = 'corp_id'
            Title.Alignment = taCenter
            Title.Caption = #36141#20837#20844#21496#32534#30721
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 89
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'corp_name'
            Title.Alignment = taCenter
            Title.Caption = #36141#20837#20844#21496#21517#31216
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 290
            Visible = True
          end>
      end
    end
    object Panel15: TPanel
      Left = 1
      Top = 1
      Width = 794
      Height = 152
      Align = alTop
      Caption = 'Panel15'
      TabOrder = 1
      object DBGrid3: TDBGrid
        Left = 1
        Top = 17
        Width = 792
        Height = 134
        Align = alClient
        Color = clInfoBk
        DataSource = DS_dkys_que
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'in_id'
            Title.Alignment = taCenter
            Title.Caption = #39564#25910#24207#21495
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_name'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#21517#31216
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 138
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_spec'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#35268#26684
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 123
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_unit'
            Title.Alignment = taCenter
            Title.Caption = #21333#20301
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 29
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gr_date'
            Title.Alignment = taCenter
            Title.Caption = #39564#25910#26102#38388
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gr_amou'
            Title.Alignment = taCenter
            Title.Caption = #39564#25910#25968#37327
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'rz_amou'
            Title.Alignment = taCenter
            Title.Caption = #20837#36134#25968#37327
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_amou'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#20313#37327
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'corp_name'
            Title.Alignment = taCenter
            Title.Caption = #36141#20837#20844#21496#21517#31216
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 129
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sc_fact'
            Title.Alignment = taCenter
            Title.Caption = #29983#20135#21378#23478
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 109
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gr_pric'
            Title.Alignment = taCenter
            Title.Caption = #36141#20837#20215#26684
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'pf_pric'
            Title.Alignment = taCenter
            Title.Caption = #25209#21457#20215#26684
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ls_price'
            Title.Alignment = taCenter
            Title.Caption = #38646#21806#20215#26684
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_batch'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#25209#21495
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yp_life'
            Title.Alignment = taCenter
            Title.Caption = #33647#21697#25928#26399
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'pz_number'
            Title.Alignment = taCenter
            Title.Caption = #25209#20934#25991#21495
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 66
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zl_reason'
            Title.Alignment = taCenter
            Title.Caption = #36136#37327#38382#39064
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -14
            Title.Font.Name = #23435#20307
            Title.Font.Style = []
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'js_man'
            Title.Alignment = taCenter
            Title.Caption = #32463#25163#20154
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindow