p_client.dfm

这个是我自己写的

object frm_Client: Tfrm_Client
  Left = 257
  Top = 154
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #26356#26032#31243#24207'...'
  ClientHeight = 102
  ClientWidth = 369
  Color = clBtnFace
  DockSite = True
  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 = 13
    Top = 36
    Width = 59
    Height = 13
    Caption = #31243#24207#21517#31216':'
  end
  object lb_cxName: TLabel
    Left = 75
    Top = 35
    Width = 73
    Height = 13
    Caption = #27491#22312#26816#27979'...'
  end
  object Label2: TLabel
    Left = 211
    Top = 36
    Width = 33
    Height = 13
    Caption = #22823#23567':'
  end
  object lb_cxSize: TLabel
    Left = 251
    Top = 36
    Width = 73
    Height = 13
    Caption = #27491#22312#26816#27979'...'
  end
  object Label4: TLabel
    Left = 14
    Top = 66
    Width = 78
    Height = 13
    Caption = #31243#24207#27491#22312#26356#26032
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 88
    Top = 8
    Width = 136
    Height = 16
    Caption = #35831#19981#35201#20851#38381#27492#31383#21475
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Timer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerTimer
    Left = 320
    Top = 48
  end
  object sp_se_cxVersion: TADOStoredProc
    Connection = wqdata
    ProcedureName = 'rsgz_se_cxVersion;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@cxNO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end>
    Left = 248
    Top = 56
  end
  object wqdata: TADOConnection
    Connected = True
    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 = 56
  end
  object sp_se_cxnow: TADOStoredProc
    Connection = wqdata
    ProcedureName = 'rsgz_se_cxnow;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@cxNO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end>
    Left = 96
    Top = 56
  end
  object XPManifest1: TXPManifest
    Left = 184
    Top = 56
  end
end