frmset.~pas

针对商品与仓库存储商品等信息的管理及维护的管理软件。它能够辅助仓库管理人员对供应商信息、商品基本信息以及商品入库、出库、库存信息查询等进行控制管理

unit frmset;

interface

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

type
  TsyssetFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
   function INI_Load_Str2(INIFileName,Object_Name, Obj_Kind,
        T_Def: String): String;

  public
    { Public declarations }
  end;

var
  syssetFrm: TsyssetFrm;

implementation
uses UTIL,MainD;
//function INI_Load_Str2(INIFileName,Object_Name, Obj_Kind,
//         T_Def: String): String;stdcall;external'dll\public';
{$R *.dfm}

procedure TsyssetFrm.BitBtn1Click(Sender: TObject);
 var
   FileName : String;
   DataName : String;
begin
   FileName := ExtractFilePath
    (Application.ExeName)+'INI\set.ini';
   if TEST_OpenFile(FileName) = False then File_Create(FileName);
   INI_Save_Str2(FileName,'SET','Name',Edit1.Text);
   INI_Save_Str2(FileName,'SET','Code',Edit2.Text);
   INI_Save_Str2(FileName,'SET','Telephone',Edit3.Text);
   INI_Save_Str2(FileName,'SET','Fax',Edit4.Text);
   INI_Save_Str2(FileName,'SET','Address',Edit5.Text);
   INI_Save_Str2(FileName,'SET','Email',Edit6.Text);
   INI_Save_Str2(FileName,'SET','WWW',Edit7.Text);
   IF RadioButton2.Checked = true then
   begin
      DataName := 'SQL';
//      MainDFrm.Database1.Close;
      MainDFrm.Database1.Connected := False;
      MainDFrm.Database1.AliasName :='mydata';
      try
       MainDFrm.Database1.Connected := true;
      except
       showmessage('连接SQL-Server失败，请设置好数据库重试！');
       MainDFrm.Database1.AliasName :='msdata';
       MainDFrm.Database1.Connected :=true;
       DataName := 'ACCESS';
      end;
  end else begin
      MainDFrm.Database1.Connected := False;
      DataName := 'ACCESS';
      MainDFrm.Database1.AliasName :='msdata';
     try
       MainDFrm.Database1.Connected := true;
      except
       showmessage('连接SQL-Server失败，请设置好数据库重试！');
       MainDFrm.Database1.AliasName :='mydata';
       MainDFrm.Database1.Connected :=true;
       DataName := 'SQL';
      end;
     end;
  INI_Save_Str2(FileName,'DATABASE','NAME',DataName);

end;

procedure TsyssetFrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TsyssetFrm.FormShow(Sender: TObject);
var
 FileName :string;
 dataname:string;
 begin
 FileName := ExtractFilePath(Application.ExeName)
             +'INI\set.ini';
if TEST_OpenFile(FileName) then
 begin
  Edit1.SetFocus;
  Edit1.Text := INI_Load_Str2(FileName,'SET','Name','');
  Edit2.Text := INI_Load_Str2(FileName,'SET','Code','');
  Edit3.Text := INI_Load_Str2(FileName,'SET','Telephone','');
  Edit4.Text := INI_Load_Str2(FileName,'SET','Fax','');
  Edit5.Text := INI_Load_Str2(FileName,'SET','Address','');
  Edit6.Text := INI_Load_Str2(FileName,'SET','Email','');
  Edit7.Text := INI_Load_Str2(FileName,'SET','WWW','');
  dataName   := INI_Load_Str2(FileName,'DATABASE','NAME','ACCESS');
  IF DataName = 'SQL' then
  RadioButton2.Checked := true
  else RadioButton1.Checked := true;
 end;
end;
function TsyssetFrm.INI_Load_Str2(INIFileName, Object_Name, Obj_Kind,
  T_Def: String): String;
var T :TINIFile;
begin
T        := TINIFile.Create(INIFileName);
Try
  Result :=T.ReadString(Object_Name,Obj_Kind,T_Def);
Finally
 T.Free;
end;
end;



end.