unit_setuppara.dfm

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

inherited Frm_SetupPara: TFrm_SetupPara
  Left = 82
  Top = 74
  Width = 670
  Height = 450
  Caption = '系统参数设置'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited DBGrid_PUB: TDBGrid
    Width = 662
    Height = 168
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    Columns = <
      item
        Expanded = False
        FieldName = 'VERSION'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '版本号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'USERNAME'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '用户名'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'PASSWORD'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '密码'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'VER'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '版本序号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MODITIME'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '更新时间'
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MODICONTENT'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '修改内容'
        Width = 109
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SERVERADDR'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '服务器存放地址'
        Width = 131
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SERVERIP'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '服务器IP'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SERVERPORT'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '服务器端口'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUSERNAME'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '服务器用户名'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'SPASSWORD'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '服务器密码'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'LOCATEDIR'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '本地地址'
        Width = 129
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SPROXY'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '代理'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SPROXYPORT'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '端口代理'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'USEPROXY'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '用户代理'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UPLOADPWD'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '上传密码'
        Visible = False
      end>
  end
  inherited Pal_button: TPanel
    Top = 387
    Width = 662
    inherited BitBtnAdd: TFlatButton
      Left = 42
      Top = 7
      OnClick = BitBtnAddClick
    end
    inherited BitBtnAlter: TFlatButton
      Left = 141
      Top = 7
      OnClick = BitBtnAlterClick
    end
    inherited BitBtnDel: TFlatButton
      Left = 240
      Top = 7
    end
    inherited BitBtnSave: TFlatButton
      Left = 340
      Top = 7
      OnClick = BitBtnSaveClick
    end
    inherited BitBtnCancel: TFlatButton
      Left = 439
      Top = 7
    end
    inherited BitBtnClose: TFlatButton
      Left = 538
      Top = 7
    end
  end
  inherited Panel2: TPanel
    Top = 168
    Width = 662
    Height = 219
    inherited Label3: TLabel
      Left = 11
      Top = 7
      Width = 42
      Caption = '版本号'
    end
    object Label1: TLabel [1]
      Left = 242
      Top = 7
      Width = 42
      Height = 14
      Caption = '用户名'
    end
    object Label2: TLabel [2]
      Left = 454
      Top = 7
      Width = 28
      Height = 14
      Caption = '密码'
    end
    object Label4: TLabel [3]
      Left = 11
      Top = 46
      Width = 56
      Height = 14
      Caption = '版本序号'
    end
    object Label5: TLabel [4]
      Left = 242
      Top = 46
      Width = 56
      Height = 14
      Caption = '更新时间'
    end
    object Label6: TLabel [5]
      Left = 454
      Top = 46
      Width = 56
      Height = 14
      Caption = '修改内容'
    end
    object Label7: TLabel [6]
      Left = 11
      Top = 80
      Width = 98
      Height = 14
      Caption = '服务器存放地址'
    end
    object Label8: TLabel [7]
      Left = 242
      Top = 80
      Width = 56
      Height = 14
      Caption = '服务器IP'
    end
    object Label9: TLabel [8]
      Left = 454
      Top = 80
      Width = 70
      Height = 14
      Caption = '服务器端口'
    end
    object Label10: TLabel [9]
      Left = 11
      Top = 116
      Width = 84
      Height = 14
      Caption = '服务器用户名'
    end
    object Label11: TLabel [10]
      Left = 242
      Top = 116
      Width = 70
      Height = 14
      Caption = '服务器密码'
    end
    object Label12: TLabel [11]
      Left = 454
      Top = 116
      Width = 56
      Height = 14
      Caption = '本地地址'
    end
    object Label13: TLabel [12]
      Left = 11
      Top = 152
      Width = 28
      Height = 14
      Caption = '代理'
    end
    object Label14: TLabel [13]
      Left = 242
      Top = 152
      Width = 56
      Height = 14
      Caption = '端口代理'
    end
    object Label15: TLabel [14]
      Left = 454
      Top = 152
      Width = 56
      Height = 14
      Caption = '用户代理'
    end
    object Label16: TLabel [15]
      Left = 11
      Top = 185
      Width = 56
      Height = 14
      Caption = '上传密码'
    end
    inherited FlatEdit1: TFlatEdit
      Left = 108
      Top = 6
      Width = 76
      MaxLength = 10
      Text = ''
      OnKeyPress = FlatEdit1KeyPress
    end
    object FlatEdit2: TFlatEdit
      Left = 313
      Top = 6
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 100
      TabOrder = 1
      OnKeyPress = FlatEdit2KeyPress
    end
    object FlatEdit3: TFlatEdit
      Left = 531
      Top = 6
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 100
      PasswordChar = '*'
      TabOrder = 2
      OnKeyPress = FlatEdit3KeyPress
    end
    object FlatEdit4: TFlatEdit
      Left = 108
      Top = 42
      Width = 81
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 10
      TabOrder = 3
      OnKeyPress = FlatEdit4KeyPress
    end
    object FlatEdit6: TFlatEdit
      Left = 531
      Top = 42
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 200
      TabOrder = 4
      OnKeyPress = FlatEdit6KeyPress
    end
    object FlatEdit7: TFlatEdit
      Left = 108
      Top = 77
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 40
      TabOrder = 5
      OnKeyPress = FlatEdit7KeyPress
    end
    object FlatEdit8: TFlatEdit
      Left = 313
      Top = 77
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 20
      TabOrder = 6
      OnKeyPress = FlatEdit8KeyPress
    end
    object FlatEdit9: TFlatEdit
      Left = 531
      Top = 77
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 10
      TabOrder = 7
      OnKeyPress = FlatEdit9KeyPress
    end
    object FlatEdit10: TFlatEdit
      Left = 108
      Top = 113
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 100
      TabOrder = 8
      OnKeyPress = FlatEdit10KeyPress
    end
    object FlatEdit11: TFlatEdit
      Left = 313
      Top = 113
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 100
      PasswordChar = '*'
      TabOrder = 9
      OnKeyPress = FlatEdit11KeyPress
    end
    object FlatEdit12: TFlatEdit
      Left = 531
      Top = 113
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 60
      TabOrder = 10
      OnKeyPress = FlatEdit12KeyPress
    end
    object FlatEdit13: TFlatEdit
      Left = 108
      Top = 148
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      TabOrder = 11
      OnKeyPress = FlatEdit13KeyPress
    end
    object FlatEdit14: TFlatEdit
      Left = 313
      Top = 148
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 15
      TabOrder = 12
      OnKeyPress = FlatEdit14KeyPress
    end
    object FlatEdit15: TFlatEdit
      Left = 531
      Top = 148
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 15
      TabOrder = 13
      OnKeyPress = FlatEdit15KeyPress
    end
    object FlatEdit16: TFlatEdit
      Left = 108
      Top = 184
      Width = 121
      Height = 20
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 100
      PasswordChar = '*'
      TabOrder = 14
      OnKeyPress = FlatEdit16KeyPress
    end
    object DateTimePicker1: TDateTimePicker
      Left = 313
      Top = 42
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37476.6937704282
      Time = 37476.6937704282
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = '中文 (简体) - 智能 ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 15
      OnKeyPress = DateTimePicker1KeyPress
    end
  end
  inherited Query_PUB: TQuery
    CachedUpdates = True
    AfterScroll = Query_PUBAfterScroll
    SQL.Strings = (
      'select * from t_d_system')
    UpdateObject = UpdateSQL1
  end
  inherited Query_Tmp: TQuery
    Left = 256
    Top = 56
  end
  object UpdateSQL1: TUpdateSQL
    Left = 312
    Top = 64
  end
end