rtlpaymodesfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 828 行 · 第 1/3 页

object FmRtlPayModes: TFmRtlPayModes
  Left = 324
  Top = 191
  Width = 800
  Height = 398
  Caption = #38646#21806#20184#27454#26041#24335
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 371
    Align = alClient
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object DGridReStyle: TxDBGridEh
      Left = 0
      Top = 0
      Width = 792
      Height = 329
      Align = alClient
      AllowedOperations = []
      AutoFitColWidths = True
      ColumnDefValues.Title.Alignment = taCenter
      DataSource = dsRtlPayModes
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #19975#33021#20116#31508'2000a+'
      ReadOnly = True
      RowHeight = 17
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 15
    end
    object Panel2: TRzPanel
      Left = 0
      Top = 329
      Width = 792
      Height = 42
      Align = alBottom
      BevelWidth = 0
      BorderInner = fsBump
      BorderOuter = fsBump
      BorderSides = [sdTop]
      ParentColor = True
      TabOrder = 0
      object BtnNew: TRzBitBtn
        Left = 128
        Top = 10
        Width = 81
        Height = 27
        Action = AddNew
        Caption = #26032#22686'(&A)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ImageIndex = 2
        Images = ImageList1
      end
      object BitBtn2: TRzBitBtn
        Left = 689
        Top = 10
        Width = 81
        Height = 27
        Action = ActExit
        Caption = #20851#38381'(&E)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        ImageIndex = 7
        Images = ImageList1
      end
      object BtnPrint: TRzBitBtn
        Left = 576
        Top = 10
        Width = 81
        Height = 27
        Action = Print
        Caption = #25253#34920'(&P)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        ImageIndex = 6
        Images = ImageList1
      end
      object BtnEdit: TRzBitBtn
        Left = 240
        Top = 10
        Width = 81
        Height = 27
        Action = Edit
        Caption = #20462#25913'(&E)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        ImageIndex = 3
        Images = ImageList1
      end
      object BtnDel: TRzBitBtn
        Left = 352
        Top = 10
        Width = 81
        Height = 27
        Action = Delete
        Caption = #21024#38500'(&D)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        ImageIndex = 4
        Images = ImageList1
      end
      object BtnFind: TRzBitBtn
        Left = 464
        Top = 10
        Width = 81
        Height = 27
        Action = Finds
        Caption = #26597#35810'(&F)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        ImageIndex = 5
        Images = ImageList1
      end
      object RzBitBtn1: TRzBitBtn
        Left = 16
        Top = 10
        Width = 81
        Height = 27
        Action = Refresh
        Caption = #21047#26032'(&R)'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        ImageIndex = 0
        Images = ImageList1
      end
    end
  end
  object Commcnn: TDCOMConnection
    ServerGUID = '{403AC8CD-5ABD-48FE-B9EF-A683F4CDE525}'
    ServerName = 'RetailSvr.Retails'
    Left = 354
    Top = 216
  end
  object cdsRtlPayModes: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRtlPayModes'
    RemoteServer = Commcnn
    Left = 429
    Top = 216
    object cdsRtlPayModesPayMode: TStringField
      DisplayWidth = 8
      FieldName = 'PayMode'
      Size = 8
    end
    object cdsRtlPayModesPayModeDescr: TStringField
      DisplayWidth = 20
      FieldName = 'PayModeDescr'
    end
    object cdsRtlPayModesREMARK: TStringField
      DisplayWidth = 60
      FieldName = 'REMARK'
      Size = 60
    end
    object cdsRtlPayModesDataUsable: TBooleanField
      DisplayWidth = 12
      FieldName = 'DataUsable'
    end
  end
  object dsRtlPayModes: TDataSource
    DataSet = cdsRtlPayModes
    Left = 516
    Top = 217
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 589
    Top = 217
    object Refresh: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      OnExecute = RefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object AddNew: TModlAction
      Caption = #26032#22686'(&A)'
      ImageIndex = 2
      OnExecute = AddNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object Edit: TModlAction
      Caption = #20462#25913'(&E)'
      ImageIndex = 3
      OnExecute = EditExecute
      Flag2 = 0
      Remark = 'U'
    end
    object Delete: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 4
      OnExecute = DeleteExecute
      Flag2 = 0
      Remark = 'D'
    end
    object Finds: TModlAction
      Caption = #26597#35810'(&F)'
      ImageIndex = 5
      Flag2 = 0
      Remark = 'Q'
    end
    object Print: TModlAction
      Caption = #25253#34920'(&P)'
      ImageIndex = 6
      OnExecute = PrintExecute