关于Tfinifile问题 在线等

Question

我找到了一个程序内边用到了,Tfinifile这个控件,但是在网上没有找到他的安装,请大家帮忙.谢谢

Answer 1

你看一下是不是 TiniFile 阿

Answer 2

不是,我可以把代码给你
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FInIfile, StdCtrls, Buttons, ExtCtrls, DB, ADODB;FInIfile1: TFInIfile;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FInIfile1.Writestrings('系统信息', '服务器',Trim(Edit3.Text));
if Length(Trim(Edit3.Text))=0 then
    begin
      Application.MessageBox('请输入服务器名称!','系统提示',mb_ok);
      Exit;
    end;
if trim(combobox1.text)=' ' then
      begin
         combobox1.SetFocus;
         application.MessageBox('请选择员工编号','提示',mb_ok+mb_IconInformation);         exit;
      end ;
if trim(edit2.text)='' then
      begin
         combobox1.SetFocus;
          application.MessageBox('请输入身份密码','提示',mb_ok+mb_IconInformation);
         exit;
      end
else
   begin
     data1.ado_tab.Close;
     data1.ado_tab.SQL.Clear;
     data1.ado_tab.SQL.Add('select * from username where user_id='+ char(39)+trim(combobox1.Text)+
                        char(39)+ 'and user_password='+char(39)+trim(edit2.Text)+char(39)+
                        'and user_name='+char(39)+trim(edit1.Text)+char(39)) ;
      data1.ado_tab.Open;
   if data1.ado_tab.RecordCount >0 then  begin
         s_mima:=trim(data1.ado_tab.fieldbyname('user_password').AsString );
         w_Main.auser.id:= trim(data1.ado_tab.fieldbyname('user_id').AsString );
         w_Main.auser.name:=trim(data1.ado_tab.fieldbyname('user_name').AsString );
         power:=trim(data1.ado_tab.fieldbyname('user_power').AsString );
      if power='一般用户' then
         begin
          w_main.n3.Enabled:=false;
          w_main.N7.Enabled:=false;
          w_main.N10.Enabled:=false;
          w_main.N11.Enabled:=false;
          w_main.N16.Enabled:=false;
          w_main.N18.Enabled:=false;
          w_main.N17.Enabled:=false;
          w_main.N19.Enabled:=false;
          w_main.N12.Enabled:=false;
          w_main.N14.Enabled:=false;
          w_main.N15.Enabled:=false;
          w_main.N22.Enabled:=false;
          w_main.N30.Enabled:=false;          //w_main.ToolButton4.Enabled:=false;
          w_main.show;
          form1.Hide;
        end
      else if power='会计人员' then
        begin
          w_main.n3.Enabled:=false;
          w_main.N7.Enabled:=false;
        
          w_main.show;
          form1.Hide;
       end
     else  if power='高级管理员' then
       begin
        s_gb:='yes';
        w_main.show;
        form1.Hide;
      end;
  end
    else
         begin
         application.MessageBox('你输入的身份密码不正确','提示',mb_ok+mb_IconInformation);
           edit2.text:='';
           edit2.setfocus;
           exit;
      end;
    end;
end;

Answer 3

你把他去掉自己写个INI文件不行么?

Answer 4

这个控件还可以在sql server 2000中使用