p_server.dfm

这个是我自己写的

object frm_Server: Tfrm_Server
  Left = 385
  Top = 300
  Width = 412
  Height = 178
  Caption = #19978#20256#25991#20214
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 47
    Top = 69
    Width = 33
    Height = 13
    Caption = #31243#24207':'
  end
  object Label2: TLabel
    Left = 45
    Top = 38
    Width = 35
    Height = 13
    Caption = 'cxNO:'
  end
  object Label3: TLabel
    Left = 10
    Top = 98
    Width = 70
    Height = 13
    Caption = 'cxVersion:'
  end
  object Label4: TLabel
    Left = 21
    Top = 16
    Width = 59
    Height = 13
    Caption = #31243#24207#21517#31216':'
  end
  object ed_cxName: TEdit
    Left = 82
    Top = 61
    Width = 209
    Height = 21
    TabOrder = 0
  end
  object bt_Open: TBitBtn
    Left = 304
    Top = 59
    Width = 75
    Height = 25
    Caption = #36873#25321'(&C)'
    TabOrder = 1
    OnClick = bt_OpenClick
  end
  object bt_Update: TBitBtn
    Left = 304
    Top = 88
    Width = 75
    Height = 25
    Caption = #19978#20256'(&U)'
    TabOrder = 2
    OnClick = bt_UpdateClick
  end
  object sb_zt: TStatusBar
    Left = 0
    Top = 125
    Width = 404
    Height = 19
    Color = clTeal
    Panels = <
      item
        Text = #31561#24453#19978#20256'...'
        Width = 50
      end>
  end
  object ed_cxNO: TEdit
    Left = 82
    Top = 34
    Width = 97
    Height = 21
    ReadOnly = True
    TabOrder = 4
    Text = '1'
  end
  object Edit2: TEdit
    Left = 82
    Top = 90
    Width = 98
    Height = 21
    TabOrder = 5
  end
  object cb_FileName: TComboBox
    Left = 82
    Top = 8
    Width = 209
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 6
    Text = #26356#26032#31243#24207'(Client)'
    OnCloseUp = cb_FileNameCloseUp
    Items.Strings = (
      #26356#26032#31243#24207'(Client)'
      #25307#32856#20154#21592#24037#36164#31649#29702#31995#32479)
  end
  object Updae: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=wqsj2000;Persist Security Info=True' +
      ';User ID=wqsj;Initial Catalog=wqhis;Data Source=192.168.0.5;Use ' +
      'Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Wor' +
      'kstation ID=JING;Use Encryption for Data=False;Tag with column c' +
      'ollation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 168
    Top = 87
  end
  object OpenDialog: TOpenDialog
    Filter = '('#21487#25191#34892#25991#20214'*.exe)|*.exe'
    Left = 256
    Top = 55
  end
  object sp_in_cxInfo: TADOStoredProc
    Connection = Updae
    ProcedureName = 'rsgz_in_cxInfo;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@cxName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@cxVersion'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@cxSize'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 18
        Value = Null
      end
      item
        Name = '@cxStream'
        Attributes = [paNullable]
        DataType = ftVarBytes
        Size = 2147483647
        Value = Null
      end
      item
        Name = '@cxNO'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@gcts'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 30
        Value = Null
      end
      item
        Name = '@cgbz'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 272
    Top = 95
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 216
    Top = 95
  end
  object XPManifest1: TXPManifest
    Left = 224
    Top = 87
  end
end