mainfrm.~dfm

这个是一个完整的药房管理系统

object Mainform: TMainform
  Left = 671
  Top = 200
  Width = 510
  Height = 341
  Caption = #25171#21360#34920#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 40
    Width = 28
    Height = 13
    Caption = #34920#22836
  end
  object Label2: TLabel
    Left = 336
    Top = 16
    Width = 105
    Height = 13
    Caption = #21015#34920#21333#20301#20026'0.1inch'
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 176
    Width = 473
    Height = 120
    DataSource = DS_print
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object btn_headerfont: TButton
    Left = 72
    Top = 32
    Width = 89
    Height = 25
    Caption = #34920#22836#23383#20307
    TabOrder = 1
    OnClick = btn_headerfontClick
  end
  object StringGrid1: TStringGrid
    Left = 272
    Top = 40
    Width = 201
    Height = 120
    ColCount = 2
    RowCount = 1
    FixedRows = 0
    TabOrder = 2
  end
  object i_header: TEdit
    Left = 24
    Top = 72
    Width = 145
    Height = 21
    TabOrder = 3
    Text = 'i_header'
  end
  object Btn_print: TButton
    Left = 144
    Top = 112
    Width = 105
    Height = 25
    Caption = #24320#22987#25171#21360
    TabOrder = 4
    OnClick = Btn_printClick
  end
  object Q_print: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'select student.class,student.id,student.name'
      'from student,score'
      'where score.course_id=:course_id'
      'and score.student=student.id'
      'order by student.id')
    Left = 16
    ParamData = <
      item
        DataType = ftString
        Name = 'course_id'
        ParamType = ptUnknown
      end>
  end
  object DS_print: TDataSource
    DataSet = Q_print
    Left = 56
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 104
  end
end