我先在这里谢谢了
小弟非常需要
还有一个问题
怎样实现按下键盘的任意字母就发生一个事件???????????????????????

解决方案 »

  1.   

    form1.keypreview:=true;
    procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
     ...
    end;
      

  2.   

    ini 文件的读写
    uses 
    IniFiles; procedure myread; 
    var 
      myini:Tinifile; 
    begin 
      MyIni := TIniFile.Create(s);//调用的文件名 
      a:=myIni.ReadString('comdata', 'aaa',cbxdata.Text ); 
      .... 
      myini.Free; 
    end; procedure mywrite; 
      MyIni := TIniFile.Create(s);//调用的文件名 
      myIni.WriteString('comdata', 'aa',cbxdata.Text); 
      ... 
      myini.Free; 
    end;
      

  3.   

    1.ini 文件的读写 
    uses 
    IniFiles; procedure myread; 
    var 
      myini:Tinifile; 
      path:String;
    begin
        path := Extractfilepath(paramstr(0));
        iniMail:=TIniFile.Create(Extractfilepath(paramstr(0))+'conn.ini');//读取路径
        try
           a:=myIni.ReadString('comdata', 'ConntionString',''); 
        except
          myIni.Free;
          MessageBox(Handle, '保存短信设置发生错误!', '错误', 48);
      end;
          myIni.Free;//写文件
    procedure mywrite; 
    var 
    myIni:IniFile;
    path:String;
    begin
        path := Extractfilepath(paramstr(0));
        myIni:=TIniFile.Create(Extractfilepath(paramstr(0))+'conn.ini');//读取路径
        myIni.WriteString('comdata', 'ConntionString',cbxdata.Text); 
        ... 
        myini.Free; 
    end;2. 1楼的就可以
      

  4.   

    1.把数据库的配置信息写到ini文件里
    例如:
    conn.ini:
    [dataBaseConf]
    connectionString=Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\testdb.mdb;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:New Database Password="";procedure TForm2.FormShow(Sender: TObject);
    var
      iniMail:TIniFile;
      path:String;
    begin
        path := Extractfilepath(paramstr(0));
        iniMail:=TIniFile.Create(Extractfilepath(paramstr(0))+'conn.ini');
        try
          ADOConnection1.Close;
          ADOConnection1.connectionString := iniMail.Readstring('dataBaseConf','connectionString',''); //取连接字符串
          ADOConnection1.Connected := true;
        except
          iniMail.Free;
          MessageBox(Handle, '保存短信设置发生错误!       ', '错误', 48);
      end;
          iniMail.Free;
    end;
      

  5.   

    procedure WriteIni(alias,param,value:string);//写入INI文件
    var
      ini: TIniFile;
    begin
      ini := TIniFile.Create(ExtractFilePath(Application.exename)+'系统配置\housebook.ini');//配置文件路径
     try
        ini.WriteString(alias,param,value);
      finally
      FreeAndNil(ini);
      end;
    end;function ReadIni(alias,param:string):string;//读取INI文件
    var
      ini: TIniFile;
    begin
      ini := TIniFile.Create(ExtractFilePath(Application.exename)+'系统配置\housebook.ini');
      try
        result:=ini.ReadString(alias,param,'');
     finally
       FreeAndNil(ini);
     end;
    end;Edit1.Text:=ReadIni('数据库','server');
    Edit2.Text:=ReadIni('数据库','uid');
    Edit3.Text:=ReadIni('数据库','pwd');
    try
      frm_data.connection.Open;
    except
      Application.MessageBox('数据库配置失败','提示',mb_ok or mb_IconInformation);
      frm_conn.Show;//数据库配置窗体
      exit;
    end;if frm_data.connection.Connected then
    begin
      Application.MessageBox('数据库已经连接','提示',mb_ok or mb_IconInformation);
      self.Hide;
      exit;
    end;frm_data.connection.ConnectionString:='Provider=SQLOLEDB.1;Password='+Trim(Edit3.Text)+';Persist Security Info=False;User ID='+Trim(Edit2.Text)+';Initial Catalog=house;Data Source='+Trim(Edit1.Text);//连接字符串
    try
      frm_data.connection.Close;
      frm_data.connection.Open;
      Application.MessageBox('数据库配置成功','提示',mb_ok or mb_IconInformation);
      frm_data.connection.LoginPrompt:=false;
      WriteIni('数据库','server',Trim(Edit1.Text));
      WriteIni('数据库','uid',Trim(Edit2.Text));
      WriteIni('数据库','pwd',Trim(Edit3.Text));
      self.Hide;
    except
      Application.MessageBox('数据库配置失败','提示',mb_ok or mb_IconInformation);
    end;ini的文件如下
    [数据库]
    server=.
    uid=sa
    pwd=sa
      

  6.   

    配置文件写法:文件名以ini为后缀,如:mySetting.inimySetting.ini内容为:
    [section]    //对应read/write  的第一参数
    Ident= value  //Ident对应read/write  的第二参数,value对应read/write  的第三参数