customerfrm.dfm

医药连锁经营管理系统源码

          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684
          0084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      end
    end
    object FlatPanel3: TPanel
      Left = 1
      Top = 1
      Width = 26
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnPopMenu: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333330333333333333330603333333333330666033
          3333333306666603333333306666666033333300006660000333333330666033
          3333333330666033333333333066603333333333300000333333333333333333
          3333333333333333333333333333333333333333333333333333}
        ParentFont = False
        OnClick = BtnPopMenuClick
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 331
    Top = 196
    object ActRefresh: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      OnExecute = ActRefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActMore: TModlAction
      Caption = #26356#22810'(&M)'
      ImageIndex = 1
      OnExecute = ActMoreExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActNew: TModlAction
      Caption = #26032#22686'(&N)'
      ImageIndex = 2
      OnExecute = ActNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify: TModlAction
      Caption = #20462#25913'(&E)'
      ImageIndex = 2
      OnExecute = ActModifyExecute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDelete: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 3
      OnExecute = ActDeleteExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActFind: TModlAction
      Caption = #26597#35810'(&Q)'
      ImageIndex = 4
      Flag2 = 0
      Remark = 'Q'
    end
    object ActPrint: TModlAction
      Caption = #25253#34920'(&P)'
      ImageIndex = 5
      OnExecute = ActPrintExecute
      Flag2 = 0
      Remark = 'P'
    end
    object ActDesignReport: TModlAction
      Flag2 = 0
      Remark = 'G'
    end
    object ActExit: TModlAction
      Caption = #36864#20986'(&E)'
      ImageIndex = 7
      OnExecute = ActExitExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActNewLinkMan: TModlAction
      Category = 'Module'
      Caption = #26032#22686#32852#31995#20154
      ImageIndex = 12
      OnExecute = ActNewLinkManExecute
      Flag2 = 0
    end
    object ActEditLinkMan: TModlAction
      Category = 'Module'
      Caption = #20462#25913#32852#31995#20154
      ImageIndex = 14
      OnExecute = ActEditLinkManExecute
      Flag2 = 0
    end
    object ActDelLinkMan: TModlAction
      Category = 'Module'
      Caption = #21024#38500#32852#31995#20154
      ImageIndex = 13
      OnExecute = ActDelLinkManExecute
      Flag2 = 0
    end
    object ActNewCustGoods: TModlAction
      Category = 'Module'
      Caption = #26032#22686#21327#35758#21697#31181
      ImageIndex = 12
      OnExecute = ActNewCustGoodsExecute
      Flag2 = 0
    end
    object ActEditCustGoods: TModlAction
      Category = 'Module'
      Caption = #20462#25913#21327#35758#21697#31181
      ImageIndex = 14
      OnExecute = ActEditCustGoodsExecute
      Flag2 = 0
    end
    object ActDelCustGoods: TModlAction
      Category = 'Module'
      Caption = #21024#38500#21327#35758#21697#31181
      ImageIndex = 13
      OnExecute = ActDelCustGoodsExecute
      Flag2 = 0
    end
    object ActFieldsLayOut: TModlAction
      Category = 'Module'
      Caption = #35774#32622#23383#27573#24067#23616'&L'
      ImageIndex = 8
      OnExecute = ActFieldsLayOutExecute
      Flag2 = 0
      Remark = 'L'
    end
    object ActDataExport: TModlAction
      Category = 'Module'
      Caption = #25968#25454#23548#20986'(&X)'
      ImageIndex = 9
      OnExecute = ActDataExportExecute
      Flag2 = 0
      Remark = 'X'
    end
  end
  object DsCustomers: TDataSource
    DataSet = CdsCustomers
    Left = 157
    Top = 96
  end
  object Comcnn: TDCOMConnection
    ServerGUID = '{5C4442FE-EC8F-4504-92D4-CEA2DD55FA19}'
    ServerName = 'ckCustomers.Customers'
    Left = 15
    Top = 125
  end
  object CdsCustomers: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <>
    ProviderName = 'dspCustomers'
    RemoteServer = Comcnn
    BeforeOpen = CdsCustomersBeforeOpen
    AfterOpen = CdsCustomersAfterOpen
    BeforeRefresh = CdsCustomersBeforeRefresh
    OnReconcileError = CdsCustomersReconcileError
    BeforeGetRecords = CdsCustomersBeforeGetRecords
    AfterGetRecords = CdsCustomersAfterGetRecords
    Left = 81
    Top = 96
    object CdsCustomersCustNo: TStringField
      FieldName = 'CustNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 8
    end
    object CdsCustomersCustName: TStringField
      FieldName = 'CustName'
    end
    object CdsCustomersFullName: TStringField
      FieldName = 'FullName'
      Size = 50
    end
    object CdsCustomersABCKind: TStringField
      FieldName = 'ABCKind'
      Size = 1
    end
    object CdsCustomersTrade: TStringField
      FieldName = 'Trade'
      Size = 16
    end
    object CdsCustomersSubjectDept: TStringField
      FieldName = 'SubjectDept'
      Size = 16
    end
    object CdsCustomersWorkingMode: TStringField
      FieldName = 'WorkingMode'
      Size = 16
    end
    object CdsCustomersWorkingBound: TStringField
      FieldName = 'WorkingBound'
      Size = 60
    end
    object CdsCustomersCorpName: TStringField
      FieldName = 'CorpName'
      Size = 8
    end
    object CdsCustomersCorpDuty: TStringField
      FieldName = 'CorpDuty'
      Size = 12
    end
    object CdsCustomersOwnerKind: TStringField
      FieldName = 'OwnerKind'
      Size = 16
    end
    object CdsCustomersQualityPar: TStringField
      FieldName = 'QualityPar'
      Size = 16
    end
    object CdsCustomersPermitNo: TStringField
      FieldName = 'PermitNo'
      Size = 30
    end
    object CdsCustomersCompetency: TStringField
      FieldName = 'Competency'
      Size = 30
    end
    object CdsCustomersEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    end
    object CdsCustomersCustPyCode: TStringField
      FieldName = 'CustPyCode'
      Size = 8
    end
    object CdsCustomersArea: TStringField
      FieldName = 'Area'
      Size = 16
    end
    object CdsCustomersPostCode: TStringField
      FieldName = 'PostCode'
      Size = 8
    end
    object CdsCustomersAddress: TStringField
      FieldName = 'Address'
      Size = 40
    end
    object CdsCustomersLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsCustomersMobile: TStringField
      FieldName = 'Mobile'
      Size = 12
    end
    object CdsCustomersLinkTel: TStringField
      FieldName = 'LinkTel'
      Size = 12
    end
    object CdsCustomersFax: TStringField
      FieldName = 'Fax'
      Size = 12
    end
    object CdsCustomersAccountBank: TStringField
      FieldName = 'AccountBank'
      Size = 40
    end
    object CdsCustomersAccountNo: TStringField
      FieldName = 'AccountNo'
      Size = 30
    end
    object CdsCustomersTaxNo: TStringField
      FieldName = 'TaxNo'
    end
    object CdsCustomersCoinKind: TStringField
      FieldName = 'CoinKind'
      Size = 6
    end
    object CdsCustomersCredit: TIntegerField
      FieldName = 'Credit'
    end
    object CdsCustomersPause: TBooleanField
      FieldName = 'Pause'
    end
    object CdsCustomersPriceMode: TIntegerField
      FieldName = 'PriceMode'
    end
    object CdsCustomersPriceModulus: TBCDField
      FieldName = 'PriceModulus'
      Precision = 9
    end
    object CdsCustomersPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 8
    end
    object CdsCustomersRemark: TStringField
      FieldName = 'Remark'
      Size = 60
    end
    object CdsCustomersAdsCustLinkmans: TDataSetField
      FieldName = 'AdsCustLinkmans'
    end
    object CdsCustomersAdoCustGoods: TDataSetField
      FieldName = 'AdoCustGoods'
    end
    object CdsCustomersDataUsable: TBooleanField
      FieldName = 'DataUsable'
    end
    object CdsCustomersCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsCustomersMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsCustomersGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsCustomersCreditDays: TIntegerField
      FieldName = 'CreditDays'
    end
    object CdsCustomersPayModeName: TStringField
      FieldName = 'PayModeName'
      Size = 16
    end
    object CdsCustomersTimeLimit: TIntegerField
      FieldName = 'TimeLimit'
    end
  end
  object CdsCustGoods: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsCustomersAdoCustGoods
    Params = <>
    OnNewRecord = CdsCustGoodsNewRecord
    Left = 45
    Top = 212
    object CdsCustGoodsCustNo: TStringField
      FieldName = 'CustNo'