小编Ciu*_*caS的帖子

这不应该是一个非常难以解决的问题,但我在谷歌搜索解决方案的页面.

我有一个用户名为'firstname.lastname'的数据库.示例:john.smith,b.obama,v.putin等.

我尝试在SP中添加这些用户的某些角色

这是我的SP:

ALTER PROCEDURE [dbo].[sp_adaugaUserInRol]
    -- Add the parameters for the stored procedure here
    @Rol varchar(50), 
    @User varchar(32)
AS
BEGIN
declare @sRol varchar(50),
        @sUser varchar(32);
set @sUser = LTRIM(RTRIM(@User))
set @sRol = LTRIM(RTRIM(@Rol))
    -- SET NOCOUNT ON added to prevent extra result sets from
    -- interfering with SELECT statements.
    SET NOCOUNT ON;

    -- Insert statements for procedure here
    print(' ALTER ROLE ' + @sRol  + ' ADD MEMBER  ' +@User )



END 

如果我为'john'这样的用户使用字符串,'obama'就行了,但是如果我将它用作'john.smith'或'b.obama'我会得到错误Incorrect syntax near '.'.,这是非常合乎逻辑的,因为SQL认为john是一个table和smith是一列(我猜). …

我有一个delphi/sql server的小问题.我有一个SP

GO
/****** Object:  StoredProcedure [dbo].[sp_adaugaUser]    Script Date: 6/30/2014 12:33:52 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:      <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[sp_adaugaUser]
    -- Add the parameters for the stored procedure here
    @User varchar(50), 
    @Password varchar(32)--,
   -- @errMesaj varchar(50)
AS
BEGIN
declare @sUser varchar(50),
        @sPassword varchar(32),
        @errMesaj varchar(100),
        @exists bit, 
        @exists2 bit;
set @sUser = LTRIM(RTRIM(@User))
set @sPassword = LTRIM(RTRIM(@Password))


    -- SET NOCOUNT ON …

我已经阅读了关于如何从XML文件中读取的所有内容,但我无法完成任何工作.我想从XML文件中读取一个简单而简单的连接字符串,仅此而已.

我的XML看起来像

<?xml version="1.0" standalone="yes"?>
<connectionString>  
    <conn>"adsf"</conn>
</connectionString>

我已经尝试过varios方式了

XmlDocument doc = new XmlDocument();
XmlTextReader reader = new XmlTextReader(xmlLoc);

while (reader.MoveToNextAttribute())
{
    XmlNode a = doc.ReadNode(reader);
    textBox1.Text = Text + a.Name;
}

XmlDocument xml = new XmlDocument();
xml.LoadXml(xmlLoc); //myXmlString is the xml file in string //copying xml to string: string myXmlString = xmldoc.OuterXml.ToString();
XmlNodeList xnList = xml.SelectNodes("/connectionString");

foreach (XmlNode xn in xnList)
{
    XmlNode example = xn.SelectSingleNode("conn");

    if (example != null)
    {
        string na = example["Name"].InnerText;
        string no = example["NO"].InnerText; …

这看起来像一个愚蠢的问题,但我一直在努力解决它.我有两个单位.一个是具有声明接口的单元,另一个是我想要实现该接口的Form.码:

unit ITestInterfata;

interface


implementation

 type
  ITestInterfataUnit = interface
    ['{A0CD69F8-C919-4D2D-9922-A7A38A6C841C}']

    procedure Intrare(s : string);
  end;

end.

主要单位:

unit frameTestInterfata;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ITestInterfata;



type
  TformaTestInterfata = class(TForm, ITestInterfataUnit)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Intrare(s: string);
  end;

var
  formaTestInterfata: TformaTestInterfata;

implementation

{$R *.dfm}


{ TformaTestInterfata }

procedure TformaTestInterfata.Intrare(s: string);
begin
  ShowMessage('asdf');
end;

end.

如果我使用CTRL +点击ITestInterfataUnit它会把我带到正确位置的正确单位.我已经看到了像这样讨论的问题,我已经尝试了所有我看到的解决方案.

• 再次创建项目
• 关闭并打开Delphi IDE
• 检查接口单元是否uses以主窗体声明
• 确保我给单位命名,这样就没有其他.dcu的名字了.

我正在尝试做一个简单的程序,当点击其他框架/表单上的按钮时,该程序将显示一个框架.为了更清楚,我想要像MessageDialogBox,但我想要显示一个框架而不是MessageDialogBox.

到目前为止我尝试过的是OnClickEvent上的代码.

procedure TFrame3.SpeedButton1Click(Sender: TObject);
var 
    frm : TfrmVizorFunctii; // This is the frame I want to be appear;  
begin
    frm := TfrmVizorFunctii.Create(nil);
    frm.Parent := nil;
    frm.ABDBGrid1.ActiveColumn:=2;
    frm.Left:=(Screen.Width-Width)  div 2;
    frm.Top:=(Screen.Height-Height) div 2;
    frm.Show;


end;

我究竟做错了什么？

所以我有一个带有数据集的函数,需要从一个字段返回所有值.我无法弄清楚如何让函数返回一个数组,就像我声明一个数组时我一直得到错误

[DCC Error] dataModuleImportMonetar.pas(20): E2003 Undeclared identifier: 'nr'

这是我的代码

unit dataModuleImportMonetar;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule2 = class(TDataModule)
    conn: TADOConnection;
    importMonetar: TADOStoredProc;

    qMonetare: TADOQuery;
  private
    { Private declarations }
    //nr  : Array[Word] of Integer;
    nr : IntegerArray;
  public
    { Public declarations }
    function nrFisiere ( dataSet : TDataSet) : nr ;
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

{ TDataModule2 }

function TDataModule2.nrFisiere(dataSet: TDataSet): nr;
 var
  i : Integer;
begin
       dataSet.First;

       for i := 0 to dataSet.RecordCount …

我正在尝试使用Delphi 2007使用JEDI JCL压缩一些文件.问题是我无法弄清楚为什么我一直得到这个错误" Sevenzip: Failed to load 7z.dll"

我的代码是:

var
   archiveclass: TJclDecompressArchiveClass;
   archive: TJclDecompressArchive;
   item: TJclCompressionItem;
   s: String;
   i: Integer;
begin
   archiveclass := GetArchiveFormats.FindDecompressFormat(dir);

   if not Assigned(archiveclass) then
      raise Exception.Create('Could not determine the Format of ' + dir);

   archive := archiveclass.Create(dir);
   try
      if not (archive is TJclSevenZipDecompressArchive) then
         raise Exception.Create('This format is not handled by 7z.dll');

      archive.ListFiles;

      s := Format('test.zip Item Count: %d'#13#10#13#10, [archive.ItemCount]);

      for i := 0 to archive.ItemCount - 1 do
      begin
         item := archive.Items[i];
         case item.Kind …