frmvendormanage.dfm

物流供应链管理系统

object FormVendor: TFormVendor
  Left = 180
  Top = 128
  Width = 578
  Height = 485
  Caption = #20379#24212#21830#36164#26009#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 8
    Top = 0
    Width = 513
    Height = 25
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'DataVendor'
    DataSource = DSVendor
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 88
    Width = 553
    Height = 233
    ActivePage = TabSheet1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #19968#33324#20449#24687
      object Label2: TLabel
        Left = 160
        Top = 16
        Width = 48
        Height = 12
        Caption = #26597#35810#23494#30721
      end
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 24
        Height = 12
        Caption = #32534#21495
      end
      object Label5: TLabel
        Left = 336
        Top = 24
        Width = 48
        Height = 12
        Caption = #37038#25919#32534#30721
      end
      object Label6: TLabel
        Left = 0
        Top = 112
        Width = 48
        Height = 12
        Caption = #32852#31995#30005#35805
      end
      object Label7: TLabel
        Left = 208
        Top = 120
        Width = 24
        Height = 12
        Caption = #25163#26426
      end
      object Label3: TLabel
        Left = 8
        Top = 56
        Width = 24
        Height = 12
        Caption = #21517#31216
      end
      object Label4: TLabel
        Left = 8
        Top = 88
        Width = 24
        Height = 12
        Caption = #22320#22336
      end
      object Label8: TLabel
        Left = 16
        Top = 152
        Width = 24
        Height = 12
        Caption = #20256#30495
      end
      object Label10: TLabel
        Left = 320
        Top = 58
        Width = 30
        Height = 12
        Caption = 'email'
      end
      object Label9: TLabel
        Left = 336
        Top = 90
        Width = 36
        Height = 12
        Caption = #32852#31995#20154
      end
      object Label11: TLabel
        Left = 216
        Top = 162
        Width = 48
        Height = 12
        Caption = #20844#21496#32593#22336
      end
      object DBEdtId: TDBEdit
        Left = 40
        Top = 16
        Width = 105
        Height = 20
        DataField = 'Id'
        DataSource = DSVendor
        TabOrder = 0
      end
      object DBEdtPassword: TDBEdit
        Left = 216
        Top = 16
        Width = 97
        Height = 20
        DataField = 'Password'
        DataSource = DSVendor
        TabOrder = 1
      end
      object DBEdtZipCode: TDBEdit
        Left = 392
        Top = 16
        Width = 121
        Height = 20
        DataField = 'ZipCode'
        DataSource = DSVendor
        TabOrder = 2
      end
      object DBEdtName: TDBEdit
        Left = 40
        Top = 56
        Width = 265
        Height = 20
        DataField = 'Name'
        DataSource = DSVendor
        TabOrder = 3
      end
      object DBEdtAddress: TDBEdit
        Left = 40
        Top = 80
        Width = 265
        Height = 20
        DataField = 'Address'
        DataSource = DSVendor
        TabOrder = 4
      end
      object DBEdtTel: TDBEdit
        Left = 56
        Top = 112
        Width = 105
        Height = 20
        DataField = 'Telephone'
        DataSource = DSVendor
        TabOrder = 5
      end
      object DBEdtMobile: TDBEdit
        Left = 248
        Top = 120
        Width = 105
        Height = 20
        DataField = 'MobilePhone'
        DataSource = DSVendor
        TabOrder = 6
      end
      object DBEdtFax: TDBEdit
        Left = 48
        Top = 152
        Width = 129
        Height = 20
        DataField = 'Fax'
        DataSource = DSVendor
        TabOrder = 7
      end
      object DBEdtEmail: TDBEdit
        Left = 368
        Top = 56
        Width = 145
        Height = 20
        DataField = 'Email'
        DataSource = DSVendor
        TabOrder = 8
      end
      object DBEdtContactMan: TDBEdit
        Left = 392
        Top = 88
        Width = 129
        Height = 20
        DataField = 'ContactMan'
        DataSource = DSVendor
        TabOrder = 9
      end
      object DBEdtWebSite: TDBEdit
        Left = 272
        Top = 160
        Width = 145
        Height = 20
        DataField = 'WebSite'
        DataSource = DSVendor
        TabOrder = 10
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20854#20182#20449#24687
      ImageIndex = 1
      object Label12: TLabel
        Left = 8
        Top = 162
        Width = 72
        Height = 12
        Caption = #34892#25919#21306#21010#32534#30721
      end
      object Label13: TLabel
        Left = 232
        Top = 50
        Width = 48
        Height = 12
        Caption = #24448#26469#38134#34892
      end
      object Label14: TLabel
        Left = 16
        Top = 10
        Width = 48
        Height = 12
        Caption = #38134#34892#24080#21495
      end
      object Label15: TLabel
        Left = 216
        Top = 130
        Width = 60
        Height = 12
        Caption = #19994#21153#21592#25163#26426
      end
      object Label16: TLabel
        Left = 0
        Top = 82
        Width = 60
        Height = 12
        Caption = #19994#21153#21592#22995#21517
      end
      object Label17: TLabel
        Left = 8
        Top = 122
        Width = 60
        Height = 12
        Caption = #19994#21153#21592#30005#35805
      end
      object Label18: TLabel
        Left = 16
        Top = 42
        Width = 48
        Height = 12
        Caption = #20184#27454#26041#24335
      end
      object DBEdBankAccount: TDBEdit
        Left = 64
        Top = 8
        Width = 241
        Height = 20
        DataField = 'BankAccount'
        DataSource = DSVendor
        TabOrder = 0
      end
      object DBEdPayType: TDBEdit
        Left = 72
        Top = 40
        Width = 129
        Height = 20
        DataField = 'PayType'
        DataSource = DSVendor
        TabOrder = 1
      end
      object DBEdtCurrentBank: TDBEdit
        Left = 344
        Top = 48
        Width = 145
        Height = 20
        DataField = 'CurrentBank'
        DataSource = DSVendor
        TabOrder = 2
      end
      object DBEdOperatorName: TDBEdit
        Left = 64
        Top = 80
        Width = 233
        Height = 20
        DataField = 'Operatorname'
        DataSource = DSVendor
        TabOrder = 3
      end
      object DBEdtOperatorPhone: TDBEdit
        Left = 72
        Top = 120
        Width = 137
        Height = 20
        DataField = 'OperatorTelePhone'
        DataSource = DSVendor
        TabOrder = 4
      end
      object DBEdtOperatorMobilePhone: TDBEdit
        Left = 304
        Top = 128
        Width = 225
        Height = 20
        DataField = 'OperatorMobilePhone'
        DataSource = DSVendor
        TabOrder = 5
      end
      object DBEdtRegionId: TDBEdit
        Left = 88
        Top = 160
        Width = 193
        Height = 20
        DataField = 'RegionId'
        DataSource = DSVendor
        TabOrder = 6
      end
      object Button1: TButton
        Left = 288
        Top = 160
        Width = 41
        Height = 17
        Caption = '...'
        TabOrder = 7
        OnClick = Button1Click
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 328
    Width = 553
    Height = 129
    DataSource = DSVendor
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object CBField: TComboBox
    Left = 24
    Top = 40
    Width = 153
    Height = 20
    ItemHeight = 12
    TabOrder = 3
    Items.Strings = (
      #32534#21495'=Id'
      #21517#31216'=Name'
      #37038#32534'=ZipCode'
      #30005#23376#37038#20214'=Email'
      #22320#22336'=Address'
      #32852#31995#20154'=ContactMan'
      #24448#26469#38134#34892'=CurrentBank'
      #34892#25919#21306#21010#32534#30721'=RegionId')
  end
  object RBEqual: TRadioButton
    Left = 200
    Top = 40
    Width = 57
    Height = 17
    Caption = #31561#20110
    TabOrder = 4
  end
  object RBContain: TRadioButton
    Left = 200
    Top = 64
    Width = 65
    Height = 17
    Caption = #21253#21547
    Checked = True
    TabOrder = 5
    TabStop = True
  end
  object EdtSearchValue: TEdit
    Left = 296
    Top = 48
    Width = 129
    Height = 20
    TabOrder = 6
  end
  object BtnSearch: TButton
    Left = 440
    Top = 48
    Width = 49
    Height = 25
    Caption = #26597#25214
    TabOrder = 7
    OnClick = BtnSearchClick
  end
  object BtnExitSearch: TButton
    Left = 496
    Top = 48
    Width = 65
    Height = 25
    Caption = #36864#20986#25628#32034
    TabOrder = 8
  end
  object DSVendor: TDataSource
    DataSet = ADOQVendor
    Left = 328
    Top = 72
  end
  object ADOQVendor: TADOQuery
    CacheSize = 1000
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from t_vendor')
    Left = 248
    Top = 72
    object ADOQVendorId: TWideStringField
      FieldName = 'Id'
      EditMask = '!G>a<aaaaaaaa;1; '
      Size = 10
    end
    object ADOQVendorPassword: TWideStringField
      FieldName = 'Password'
    end
    object ADOQVendorName: TWideStringField
      FieldName = 'Name'
      Size = 30
    end
    object ADOQVendorAddress: TWideStringField
      FieldName = 'Address'
      Size = 30
    end
    object ADOQVendorZipCode: TWideStringField
      FieldName = 'ZipCode'
      Size = 10
    end
    object ADOQVendorTelephone: TWideStringField
      FieldName = 'Telephone'
    end
    object ADOQVendorMobilePhone: TWideStringField
      FieldName = 'MobilePhone'
    end
    object ADOQVendorFax: TWideStringField
      FieldName = 'Fax'
    end
    object ADOQVendorContactMan: TWideStringField
      FieldName = 'ContactMan'
    end
    object ADOQVendorEmail: TWideStringField
      FieldName = 'Email'
    end
    object ADOQVendorWebSite: TWideStringField
      FieldName = 'WebSite'
      Size = 30
    end
    object ADOQVendorRegionId: TWideStringField
      FieldName = 'RegionId'
      Size = 10
    end
    object ADOQVendorCurrentBank: TWideStringField
      FieldName = 'CurrentBank'
      Size = 30
    end
    object ADOQVendorBankAccount: TWideStringField
      FieldName = 'BankAccount'
      Size = 30
    end
    object ADOQVendorOperatorMobilePhone: TWideStringField
      FieldName = 'OperatorMobilePhone'
    end
    object ADOQVendorOperatorname: TWideStringField
      FieldName = 'Operatorname'
      Size = 10
    end
    object ADOQVendorOperatorTelePhone: TWideStringField
      FieldName = 'OperatorTelePhone'
    end
    object ADOQVendorPayType: TSmallintField
      FieldName = 'PayType'
    end
  end
end