ypgl.dfm

很好的药店进销存系统

object ypgl_Form: Typgl_Form
  Left = 244
  Top = 190
  Width = 542
  Height = 287
  Caption = #33647#21697#22522#26412#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 321
    Height = 260
    Align = alClient
    TabOrder = 0
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 317
      Height = 66
      Align = alTop
      TabOrder = 0
      object ypmc_LEdit: TLabeledEdit
        Left = 16
        Top = 24
        Width = 121
        Height = 21
        EditLabel.Width = 93
        EditLabel.Height = 13
        EditLabel.Caption = #21517#31216#27169#31946#26597#35810'       '
        TabOrder = 0
      end
      object cmdok: TButton
        Left = 168
        Top = 25
        Width = 49
        Height = 25
        Caption = #30830' '#23450
        TabOrder = 1
        OnClick = cmdokClick
      end
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 81
      Width = 317
      Height = 177
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21517#31216
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21806#20215
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #36827#20215
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31181#31867
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21378#23478
          Width = 60
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 321
    Top = 0
    Width = 213
    Height = 260
    Align = alRight
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 176
      Width = 33
      Height = 13
      Caption = #31181#31867'   '
    end
    object bh_LEdit: TLabeledEdit
      Left = 16
      Top = 32
      Width = 121
      Height = 21
      EditLabel.Width = 30
      EditLabel.Height = 13
      EditLabel.Caption = #32534#21495'  '
      TabOrder = 0
    end
    object mc_LEdit: TLabeledEdit
      Left = 16
      Top = 72
      Width = 121
      Height = 21
      EditLabel.Width = 33
      EditLabel.Height = 13
      EditLabel.Caption = #21517#31216'   '
      TabOrder = 1
    end
    object sj_LEdit: TLabeledEdit
      Left = 16
      Top = 112
      Width = 121
      Height = 21
      EditLabel.Width = 30
      EditLabel.Height = 13
      EditLabel.Caption = #21806#20215'  '
      TabOrder = 2
    end
    object jj_LEdit: TLabeledEdit
      Left = 16
      Top = 152
      Width = 121
      Height = 21
      EditLabel.Width = 30
      EditLabel.Height = 13
      EditLabel.Caption = #36827#20215'  '
      TabOrder = 3
    end
    object cj_LEdit: TLabeledEdit
      Left = 16
      Top = 232
      Width = 121
      Height = 21
      EditLabel.Width = 30
      EditLabel.Height = 13
      EditLabel.Caption = #21378#23478'  '
      TabOrder = 4
    end
    object cmdadd: TButton
      Left = 156
      Top = 57
      Width = 49
      Height = 25
      Caption = #28155#21152
      TabOrder = 5
      OnClick = cmdaddClick
    end
    object cmdmodi: TButton
      Left = 156
      Top = 121
      Width = 49
      Height = 25
      Caption = #20462#25913
      TabOrder = 6
      OnClick = cmdmodiClick
    end
    object cmddel: TButton
      Left = 156
      Top = 185
      Width = 49
      Height = 25
      Caption = #21024#38500
      TabOrder = 7
      OnClick = cmddelClick
    end
    object zl_CBox: TComboBox
      Left = 16
      Top = 192
      Width = 121
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 8
      Items.Strings = (
        #20013#33647
        #20013#25104#33647
        #20013#33647#21046#21058
        #35199#33647
        #35199#33647#21046#21058
        #20445#20581#21697)
    end
  end
  object Query1: TQuery
    Left = 288
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 256
    Top = 120
  end
end