selclient.~dfm

企业商品管理系统

object Frm_SelClient: TFrm_SelClient
  Left = 202
  Top = 140
  Width = 696
  Height = 480
  Caption = #23458#25143#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 81
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 102
      Height = 13
      Caption = #36873#25321#26597#35810#23383#27573#65306'      '
    end
    object Label2: TLabel
      Left = 160
      Top = 24
      Width = 81
      Height = 13
      Caption = #26597#35810#26465#20214#65306'       '
    end
    object Label3: TLabel
      Left = 274
      Top = 24
      Width = 78
      Height = 13
      Caption = #26597#35810#20540#65306'          '
    end
    object SpeedButton1: TSpeedButton
      Left = 435
      Top = 32
      Width = 73
      Height = 33
      Caption = #26597#35810
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 515
      Top = 32
      Width = 73
      Height = 33
      Caption = #26597#35810#20840#37096
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 595
      Top = 32
      Width = 73
      Height = 33
      Caption = #36864#20986
      OnClick = SpeedButton3Click
    end
    object ComboBox1: TComboBox
      Left = 24
      Top = 40
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object ComboBox2: TComboBox
      Left = 160
      Top = 40
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 1
    end
    object Notebook1: TNotebook
      Left = 272
      Top = 39
      Width = 129
      Height = 23
      TabOrder = 2
      object TPage
        Left = 0
        Top = 0
        Caption = 'Edit'
        object Edit1: TEdit
          Left = 1
          Top = 1
          Width = 121
          Height = 21
          TabOrder = 0
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'Date'
        object DateTimePicker1: TDateTimePicker
          Left = 1
          Top = 1
          Width = 121
          Height = 21
          Date = 38876.610193321760000000
          Time = 38876.610193321760000000
          TabOrder = 0
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 434
    Width = 688
    Height = 19
    Panels = <>
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 81
    Width = 688
    Height = 219
    Align = alClient
    Caption = #20379#24212#21830
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 202
      Align = alClient
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'MR_Code'
          Title.Caption = #20225#19994#32534#30721
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Name'
          Title.Caption = #20225#19994#21517#31216
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_ShortName'
          Title.Caption = #20225#19994#31616#31216
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_assist'
          Title.Caption = #21161#35760#30721
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_AreaType'
          Title.Caption = #22320#21306#31867#21035
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_TelID'
          Title.Caption = #20225#19994#30005#35805
          Width = 98
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Addr'
          Title.Caption = #20225#19994#22320#22336
          Width = 116
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Fax'
          Title.Caption = #20256#30495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_MailID'
          Title.Caption = #37038#25919#32534#30721
          Width = 98
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Bank'
          Title.Caption = #24320#25143#38134#34892
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_BankID'
          Title.Caption = #38134#34892#36134#21495
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_TaxID'
          Title.Caption = #31246#21495
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_RelyMoney'
          Title.Caption = #21463#20449#37329#39069
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_ShouldMoney'
          Title.Caption = #24212#20184#37329#39069
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Type'
          Title.Caption = #20225#19994#31867#21035
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Memo'
          Title.Caption = #20225#19994#35828#26126
          Width = 122
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 300
    Width = 688
    Height = 134
    Align = alBottom
    Caption = #32852#31995#20154
    TabOrder = 3
    object DBGrid2: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 117
      Align = alClient
      DataSource = DataSource2
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'MR_Name'
          Title.Caption = #32852#31995#20154#22995#21517
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Dept'
          Title.Caption = #37096#38376
          Width = 92
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_TelID'
          Title.Caption = #32852#31995#30005#35805
          Width = 94
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_HandSet'
          Title.Caption = #32852#31995#20154#25163#26426
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_Mail'
          Title.Caption = #32852#31995#20154#30005#23376#37038#20214
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MR_QQ'
          Title.Caption = #32852#31995#20154'QQ'#21495
          Width = 116
          Visible = True
        end>
    end
  end
  object ADODataSet1: TADODataSet
    Connection = FDM.ADOCon
    CursorType = ctStatic
    CommandText = 'select * from MR_SCInfo_Tab Where MR_Type<>'#39#20379#24212#21830#39
    Parameters = <>
    Left = 144
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 176
    Top = 128
  end
  object ADODataSet2: TADODataSet
    Connection = FDM.ADOCon
    CursorType = ctStatic
    CommandText = 'select * from MR_LinkMan_Tab Where MR_SCCode=:MR_Code'
    DataSource = DataSource1
    MasterFields = 'MR_Code'
    Parameters = <
      item
        Name = 'MR_Code'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = 1
      end>
    Left = 152
    Top = 361
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 184
    Top = 361
  end
end