tempuntmain.pas

来自「资料室图书借阅管理系统」· PAS 代码 · 共 67 行

unit tempuntmain;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes, Menus, Controls,
  Forms, untframe, IWVCLBaseControl, IWBaseControl, IWControl, IWCompMemo,
  IWCompLabel, IWBaseHTMLControl;

type
  Ttempfrmmain = class(TIWAppForm)
    IWFrame11: TIWFrame1;
    IWMemo1: TIWMemo;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWFrame11N2Click(Sender: TObject);
    procedure IWFrame11N12Click(Sender: TObject);
    procedure IWFrame11N14Click(Sender: TObject);
  public
  end;

implementation

uses ServerController;

{$R *.dfm}


procedure Ttempfrmmain.IWAppFormCreate(Sender: TObject);
var
 i:integer;
begin
  iwmemo1.Lines.LoadFromFile(globfile);
  for i:=1 to 2 do
  begin
    if i=1 then
    begin
       dqstr:=strtoint(trim(iwmemo1.Lines[0]));
       
    end
    else
    begin
       logstr:=strtoint(trim(iwmemo1.Lines[1]));

    end;
  end;
end;

procedure Ttempfrmmain.IWFrame11N2Click(Sender: TObject);
begin
  IWFrame11.N2Click(Sender);

end;

procedure Ttempfrmmain.IWFrame11N12Click(Sender: TObject);
begin
  IWFrame11.N12Click(Sender);

end;

procedure Ttempfrmmain.IWFrame11N14Click(Sender: TObject);
begin
  IWFrame11.N14Click(Sender);

end;

end.