uyg.dfm

这是一个药店连锁系统,1 本软件可用于商业用途

object fyg: Tfyg
  Left = 234
  Top = 180
  Width = 544
  Height = 372
  Caption = #22522#26412#20449#24687
  Color = clInactiveCaptionText
  Ctl3D = False
  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
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 297
    ActivePage = TabSheet1
    Align = alTop
    HotTrack = True
    Images = adodm.ImageList1
    MultiLine = True
    RaggedRight = True
    Style = tsFlatButtons
    TabHeight = 50
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21592#24037#20449#24687
      ImageIndex = 12
      OnShow = TabSheet1Show
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 528
        Height = 237
        Align = alClient
        AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
        Ctl3D = False
        DataSource = adodm.dsyg
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        FrozenCols = 2
        ParentCtl3D = False
        RowHeight = 20
        RowSizingAllowed = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnKeyDown = DBGridEh1KeyDown
        Columns = <
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #21592#24037#32534#21495
            Footer.Value = #21592#24037#20154#25968':'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Width = 68
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #22995#21517
            Footer.FieldName = 'ygid'
            Footer.ValueType = fvtCount
            Footers = <>
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #31616#30721
            Footers = <>
          end
          item
            AutoDropDown = True
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #24615#21035
            Footers = <>
            KeyList.Strings = (
              #30007
              #22899)
            PickList.Strings = (
              #30007
              #22899)
            Width = 36
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #24180#40836
            Footers = <>
          end
          item
            AutoDropDown = True
            AutoFitColWidth = False
            DropDownShowTitles = True
            DropDownSizing = True
            DropDownSpecRow.CellsText = '<Null>;<Null>'
            DropDownWidth = 200
            EditButtons = <>
            FieldName = #37096#38376#21517#31216
            Footers = <>
            LookupDisplayFields = #31616#30721';'#37096#38376#21517#31216
            Width = 102
          end
          item
            AutoDropDown = True
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #32844#21153
            Footers = <>
            KeyList.Strings = (
              #33829#19994#21592
              #25910#27454#21592
              #32463#29702
              #20250#35745
              #37319#36141#21592
              #20854#23427#20154#21592)
            PickList.Strings = (
              #33829#19994#21592
              #25910#27454#21592
              #32463#29702
              #20250#35745
              #37319#36141#21592
              #20854#23427#20154#21592)
          end
          item
            AutoDropDown = True
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #38599#20323#26085#26399
            Footers = <>
          end
          item
            AutoDropDown = True
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #23398#21382
            Footers = <>
            KeyList.Strings = (
              #39640#20013#20197#19979
              #39640#20013'/'#20013#19987
              #19987#31185
              #26412#31185
              #30805#22763
              #30805#22763#20197#19978)
            PickList.Strings = (
              #39640#20013#20197#19979
              #39640#20013'/'#20013#19987
              #19987#31185
              #26412#31185
              #30805#22763
              #30805#22763#20197#19978)
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #20303#22336
            Footers = <>
            Width = 137
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #36523#20221#35777#21495
            Footers = <>
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #32852#31995#26041#24335
            Footers = <>
            Width = 140
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #22791#27880
            Footers = <>
            Width = 192
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #37096#38376#20449#24687
      ImageIndex = 14
      OnShow = TabSheet2Show
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 528
        Height = 237
        Align = alClient
        AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
        DataSource = adodm.dsbm
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnKeyDown = DBGridEh2KeyDown
        Columns = <
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #37096#38376#32534#21495
            Footer.Value = #37096#38376#20010#25968#65306
            Footer.ValueType = fvtStaticText
            Footers = <>
            Width = 135
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = #37096#38376#21517#31216
            Footer.FieldName = #37096#38376#21517#31216
            Footer.ValueType = fvtCount