uls.dfm

连锁药店源码,开发环境 d6 up2, sqlserver200

object fls: Tfls
  Left = 153
  Top = 164
  BorderStyle = bsSingle
  Caption = #38646#21806
  ClientHeight = 473
  ClientWidth = 692
  Color = clInactiveCaptionText
  Constraints.MinHeight = 400
  Constraints.MinWidth = 700
  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
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 692
    Height = 29
    Align = alTop
    Alignment = taCenter
    Caption = #33647#21697#38646#21806#21333
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 73
    Width = 692
    Height = 183
    TabStop = False
    Align = alClient
    AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
    DataSource = adodm.dscr
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab]
    ParentFont = False
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColEnter = DBGridEh1ColEnter
    OnColExit = DBGridEh1ColExit
    OnKeyDown = DBGridEh1KeyDown
    Columns = <
      item
        AutoDropDown = True
        AutoFitColWidth = False
        DropDownWidth = 300
        EditButtons = <>
        FieldName = #33647#21697#31616#30721
        Footer.Value = #21697#31181#21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        LookupDisplayFields = #31616#30721';'#32534#21495';'#21517#31216
        Width = 62
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = #25968#37327
        Footer.FieldName = #33647#21697#31616#30721
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 68
      end
      item
        AutoDropDown = True
        AutoFitColWidth = False
        DropDownWidth = 300
        EditButtons = <>
        FieldName = #33647#21697#32534#21495
        Footer.EndEllipsis = True
        Footers = <>
        LookupDisplayFields = #31616#30721';'#32534#21495';'#21517#31216
        Width = 68
      end
      item
        AutoDropDown = True
        AutoFitColWidth = False
        DropDownWidth = 300
        EditButtons = <>
        FieldName = #33647#21697#21517#31216
        Footers = <>
        LookupDisplayFields = #31616#30721';'#32534#21495';'#21517#31216
        Width = 73
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = #21333#20215
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = #37329#39069
        Footer.EndEllipsis = True
        Footer.FieldName = #37329#39069
        Footer.ValueType = fvtSum
        Footers = <>
        ReadOnly = True
        Width = 83
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = #21333#20301
        Footers = <>
        ReadOnly = True
        Width = 71
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = #35268#26684
        Footers = <>
        ReadOnly = True
        Width = 87
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = #38646#21806#20215
        Footers = <>
        ReadOnly = True
      end>
  end
  object TabControl1: TTabControl
    Left = 0
    Top = 29
    Width = 692
    Height = 44
    Align = alTop
    Style = tsFlatButtons
    TabOrder = 0
    object Label2: TLabel
      Left = 512
      Top = 16
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #32534#21495
    end
    object Label3: TLabel
      Left = 320
      Top = 16
      Width = 32
      Height = 13
      Caption = 'Label3'
    end
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #36141#33647#21333#20301
    end
    object dw: TDBLookupComboboxEh
      Left = 72
      Top = 16
      Width = 121
      Height = 19
      DropDownBox.AutoDrop = True
      DropDownBox.Width = 200
      EditButtons = <>
      KeyField = 'clientid'
      ListField = #31616#30721';'#21517#31216
      ListFieldIndex = 1
      ListSource = adodm.dsdw
      Style = csDropDownEh
      TabOrder = 0
      OnChange = dwChange
      OnExit = dwExit
    end
    object Edit2: TEdit
      Left = 568
      Top = 16
      Width = 105
      Height = 19
      Enabled = False
      TabOrder = 1
    end
  end
  object TabControl2: TTabControl
    Left = 0
    Top = 256
    Width = 692
    Height = 217
    Align = alBottom
    Style = tsFlatButtons
    TabOrder = 2
    object Label5: TLabel
      Left = 264
      Top = 28
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #25805#20316#20154
    end
    object Label6: TLabel
      Left = 24
      Top = 28
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #24320#31080#20154
    end
    object Label7: TLabel
      Left = 16
      Top = 88
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #23454#20184#37329#39069#65306
    end
    object Label8: TLabel
      Left = 280
      Top = 96
      Width = 33
      Height = 17
      AutoSize = False
      Caption = #25214#38065#65306
    end
    object sncCurrencyLabel1: TsncCurrencyLabel
      Left = 104
      Top = 64
      Width = 129
      Height = 26
      Ctl3D = False
      DecimalSymbols.Strings = (
        #35282
        #20998)
      DigitalSymbols.Strings = (
        #20803
        #21313
        #30334
        #21315
        #19975
        #21313
        #30334
        #21315
        #20159
        #21313
        #30334
        #21315
        #19975)
      ParentColor = False
    end