buyers.dfm

一款不错的商务程序商品管理系统,有简易的窗体皮肤

object Frm_Buyers: TFrm_Buyers
  Left = 225
  Top = 175
  Width = 696
  Height = 480
  Caption = #23458#25143#31649#29702
  Color = clBtnFace
  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 CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 49
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 41
        Width = 684
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 671
      Height = 41
      ButtonHeight = 36
      ButtonWidth = 55
      Caption = 'ToolBar1'
      Flat = True
      Images = FDM.ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = '    '#28155#21152'    '
        ImageIndex = 4
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 55
        Top = 0
        Caption = #20462#25913
        ImageIndex = 0
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 110
        Top = 0
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 165
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 173
        Top = 0
        Caption = #36864#20986
        ImageIndex = 3
        OnClick = ToolButton6Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 434
    Width = 688
    Height = 19
    Panels = <>
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 49
    Width = 688
    Height = 385
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 2
    TabPosition = tpBottom
    object TabSheet1: TTabSheet
      Caption = #23458#25143#36164#26009
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 359
        Align = alClient
        DataSource = DSBuyer
        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 = []
        OnCellClick = DBGrid1CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #23458#25143#21517
            Width = 94
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Tel'
            Title.Caption = #32852#31995#30005#35805
            Width = 102
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Address'
            Title.Caption = #32852#31995#22320#22336
            Width = 92
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Area'
            Title.Caption = #23458#25143#25152#22312#22320#21306
            Width = 118
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_NetAddress'
            Title.Caption = #20844#21496#32593#22336
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Fax'
            Title.Caption = #20256#30495
            Width = 117
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Eali'
            Title.Caption = #30005#23376#37038#31665
            Width = 128
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Date'
            Title.Caption = #30331#35760#26085#26399
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_EaliID'
            Title.Caption = #37038#25919#32534#30721
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Source'
            Title.Caption = #23458#25143#26469#28304
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Type'
            Title.Caption = #23458#25143#31867#21035
            Width = 78
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #22791#27880
            Width = 146
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #32852#31995#20154
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 359
        Align = alClient
        DataSource = DSLinkMan
        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
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Sex'
            Title.Caption = #24615#21035
            Width = 84
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_BirthDay'
            Title.Caption = #20986#29983#26085#26399
            Width = 126
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Tel'
            Title.Caption = #32852#31995#30005#35805
            Width = 102
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Address'
            Title.Caption = #32852#31995#22320#22336
            Width = 130
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Dept'
            Title.Caption = #37096#38376
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Duty'
            Title.Caption = #32844#21153
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Eali'
            Title.Caption = #30005#23376#37038#31665
            Width = 98
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_HandSet'
            Title.Caption = #32852#31995#20154#25163#26426
            Width = 104
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_HosTel'
            Title.Caption = #32852#31995#20154#20303#23429#30005#35805
            Width = 96
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_QQ'
            Title.Caption = 'QQ'#21495
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #22791#27880
            Width = 117
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20135#21697#25253#20215
      ImageIndex = 2
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 359
        Align = alClient
        DataSource = DSPick
        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 = #20135#21697#32534#21495
            Width = 116
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #20135#21697#21517#31216
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Pict'
            Title.Caption = #20135#21697#21333#20215
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Date'
            Title.Caption = #25253#20215#26085#26399
            Width = 126
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #22791#27880
            Width = 112
            Visible = True
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #32852#31995#20449#24687
      ImageIndex = 3
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 359
        Align = alClient
        DataSource = DSFeedback
        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_Date'
            Title.Caption = #32852#31995#26085#26399
            Width = 132
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Mode'
            Title.Caption = #32852#31995#26041#24335
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Kind'
            Title.Caption = #32852#31995#24615#36136
            Width = 98
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Matter'
            Title.Caption = #32852#31995#20869#23481
            Width = 202
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_FeedBack'
            Title.Caption = #21453#39304#20449#24687
            Width = 160
            Visible = True
          end>
      end
    end
  end
  object ADOBuyer: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_Buyer_Tab'
    Parameters = <>
    Left = 28
    Top = 373
  end
  object ADOLinkMan: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_LinkMan_Tab  where MR_ClientID=:MR_ID'
    DataSource = DSBuyer
    Parameters = <
      item
        Name = 'MR_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 60
    Top = 373
  end
  object ADOPick: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_Pict_Tab  where MR_ClientID=:MR_ID'
    DataSource = DSBuyer
    Parameters = <
      item
        Name = 'MR_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 92
    Top = 373
  end
  object DSBuyer: TDataSource
    DataSet = ADOBuyer
    Left = 196
    Top = 373
  end
  object DSLinkMan: TDataSource
    DataSet = ADOLinkMan
    Left = 228
    Top = 373
  end
  object DSPick: TDataSource
    DataSet = ADOPick
    Left = 260
    Top = 373
  end
  object ADOFeedback: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_FeedBack_Tab where MR_ClientID=:MR_ID'
    DataSource = DSBuyer
    Parameters = <
      item
        Name = 'MR_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 124
    Top = 373
  end
  object DSFeedback: TDataSource
    DataSet = ADOFeedback
    Left = 292
    Top = 373
  end
end