main.pas

delphi调语音系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, Menus,inifiles;

type
  Tw_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    ToolBar1: TToolBar;
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_main: Tw_main;

implementation

{$R *.dfm}   uses search, dm,cjcx;

procedure Tw_main.N2Click(Sender: TObject);
begin
application.CreateForm(tw_sjcl,w_sjcl);
w_sjcl.showmodal;
w_sjcl.free;
end;

procedure Tw_main.FormCreate(Sender: TObject);
var
FileName,ServerIP,SQLDBName,SQLUserName:string;
begin
//edit1.Clear;
//edit2.Clear;

       FileName:=ExtractFilePath(application.ExeName)+'inifiles\inifile.ini';
          with   TInifile.Create(Filename)   do
          begin
              ServerIP:=ReadString('ServerInfo','ServerIP','');
              SQLDBName:=ReadString('ServerInfo','SQLDBName','');
              SQLUserName:=ReadString('ServerInfo','SQLUserID','');
              //SQLPwd:=ReadString('ServerInfo','SQLPwd','');
              Destroy;
          end;
datam.Conn.ConnectionString:='Provider=SQLOLEDB.1;Password=lypass619;Persist Security  Info=false;User ID='+SQLUserName+';Initial Catalog='+SQLDBName+';Data Source='+ServerIP;
try
datam.Conn.Connected :=true;
except
Application.MessageBox('连接操作失败','',mb_ok);
exit;
end;

end;

procedure Tw_main.N4Click(Sender: TObject);
begin
application.CreateForm(tw_sjcx,w_sjcx);
w_sjcx.showmodal;
w_sjcx.free;
end;

end.