zoukankan      html  css  js  c++  java
  • SQL Server连接界面的设计(文件操作实现)

    ExtractFilePath

    Returns the drive and directory portions of a file name.

    The resulting string is the leftmost characters of FileName, up to and including the colon or backslash that separates the path information from the name and extension. The resulting string is empty if FileName contains no drive and directory parts.

    This function works for multi-byte character systems (MBCS).

    ParamStr returns the parameter from the command line that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.

    Note:  On Windows, ParamStr(0) returns the path and file name of the executing program (for example, C:\TEST\MYPROG.EXE).
    Note:  On Linux and Macintosh, ParamStr(0) returns the command used to execute the program, without parameters (for example, ./myprogram). This behavior is dependent on information returned by the shell program and may not be consistent among all shells.

    Note:  Use double quotation marks to wrap multiple words as one parameter (such as long file names containing spaces).

    unit UnitDataBaseLink;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TfrmlinkSQL
    = class(TForm)
    edtPassword: TEdit;
    cbbName: TComboBox;
    cbbIP: TComboBox;
    lblName: TLabel;
    lblPassword: TLabel;
    lblIP: TLabel;
    btnSure: TButton;
    btnCancel: TButton;
    procedure btnSureClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }

    end;

    var
    frmlinkSQL: TfrmlinkSQL;

    implementation

    uses UnitDM, UnitLogin, IniFiles;

    {$R *.dfm}
    var
    filename:
    string;
    iniFile: TIniFile;
    S: TStrings;

    procedure TfrmlinkSQL.btnSureClick(Sender: TObject);
    var
    // result: Boolean;
    i: Integer;
    begin
    DM.ADOConnection1.Close;
    DM.ADOConnection1.ConnectionString :
    = 'Provider=SQLOLEDB.1;Password='
    + QuotedStr(edtPassword.Text) + ';Persist Security Info=True;User ID='
    + QuotedStr(cbbName.Text) + ';Initial Catalog=Depot;Data Source=' +
    QuotedStr(cbbIP.Text);
    try
    DM.ADOConnection1.Open;
    iniFile.WriteString(
    'User','UserName',cbbName.Text);
    iniFile.WriteString(
    'User','IP',cbbIP.Text);
    iniFile.Free;
    except
    Application.MessageBox(pchar(
    '连接出错'),'警告',MB_OK+MB_ICONWARNING);
    iniFile.Free;
    exit;
    end;
    with frmLogin.ADOQuery1 do
    begin
    close;
    sql.Clear;
    sql.Add(
    'select Username from Admin');
    open;
    end;
    for i:=1 to frmLogin.Adoquery1.RecordCount do
    begin
    frmLogin.cbbUserName.Items.Add(frmLogin.adoquery1.Fields[
    0].asstring);
    frmLogin.Adoquery1.Next;
    end;
    frmLogin.cbbUserName.ItemIndex:
    =0;
    Application.MessageBox(pchar(
    '连接成功'),'',MB_OK);


    end;



    procedure TfrmlinkSQL.btnCancelClick(Sender: TObject);
    begin
    frmlinkSQL.Close;
    end;

    procedure TfrmlinkSQL.FormCreate(Sender: TObject);
    var
    i: Integer;
    begin
    s :
    = TStringList.Create;
    Filename :
    = ExtractFilePath(ParamStr(0))+'data.ini';
    IniFile :
    = TIniFile.Create(Filename);
    try
    iniFile.ReadSectionValues(
    'User', s);
    for i := 0 to s.Count-1 do
    begin
    if s.Names[i]='UserName' then
    cbbName.Items.Add(s.Values[s.Names[i]])
    else
    cbbIP .Items.Add(s.Values[s.Names[
    1]]);
    end;
    cbbName.Text :
    = cbbName.Items[0];
    cbbIP.Text :
    = cbbIP.Items[0];
    finally
    s.Free;
    end;

    end;

    end.
  • 相关阅读:
    AUPE学习第八章------进程控制
    软件工程中的一些图
    java_web用户的自动登录模块的实现
    opencv安装/usr/bin/ld: warning: libpcre.so.1, needed by //home/qian/anaconda3/lib/libglib-2.0.so.0, not found (try using -rpath or -rpath-link)问题
    ubuntu 安装使用多版本opencv
    基于运动学模型的模型预测控制
    粒子群滤波
    深度学习环境搭建
    安装uWebSocketIO
    最小二乘原理(3)——递归最小二乘
  • 原文地址:https://www.cnblogs.com/ljjphysics/p/2052304.html
Copyright © 2011-2022 走看看