untszglob.pas

资料室图书借阅管理系统

unit untszglob;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes, IWCompButton,
  IWCompListbox, IWHTMLControls, IWCompEdit, Controls, IWVCLBaseControl,
  IWBaseControl, IWControl, IWCompLabel, IWCompMemo, jpeg, IWExtCtrls,
  IWBaseHTMLControl;

type
  Tfrmszglob = class(TIWAppForm)
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWEdit1: TIWEdit;
    IWLabel3: TIWLabel;
    IWEdit2: TIWEdit;
    IWHRule1: TIWHRule;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWLabel7: TIWLabel;
    IWButton1: TIWButton;
    IWMemo1: TIWMemo;
    IWButton2: TIWButton;
    IWImage1: TIWImage;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

uses tempuntmain, ServerController;

{$R *.dfm}


procedure Tfrmszglob.IWButton1Click(Sender: TObject);
var
  str1,str2:string;
  tempint:integer;

begin
  str1:=trim(iwedit1.Text);
  str2:=trim(iwedit2.Text);
  if (trystrtoint( str1,tempint))and (trystrtoint( str2,tempint)) then
  begin
    iwmemo1.Lines.Clear;
    iwmemo1.Lines.Add(str1);
    iwmemo1.Lines.Add(str2);
    iwmemo1.Lines.SaveToFile(globfile);
    webapplication.ShowMessage('系统变量设置成功!'+#13+'重新进入系统后系统变量生效！');
  end
  else
  begin
    webapplication.ShowMessage('您设置的变量无效，请重新输入');
  end;

end;

procedure Tfrmszglob.IWButton2Click(Sender: TObject);
begin
   ttempfrmmain.Create(WebApplication).Show;
    Release;
end;

procedure Tfrmszglob.IWAppFormCreate(Sender: TObject);
var
 i:integer;
begin
  iwmemo1.Lines.LoadFromFile(globfile);
  for i:=1 to 2 do
  begin
    if i=1 then
    begin
       iwedit1.Text :=trim(iwmemo1.Lines[0]);
    end
    else
    begin
       iwedit2.text:=trim(iwmemo1.Lines[1]);
    end;
  end;
end;

end.