servermainfrm.~pas

delphi 编制的服务器程序

unit ServerMainFrm;

interface

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

type
  TServerForm = class(TForm)
    ListBox1: TListBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ServerForm: TServerForm;

implementation

uses unet, UHead, RoomInfoFrm, professionalFrm, MonitorFrm, StudentFrm,
  AccountFrm, CourseFrm, CourseTimeAssignFrm, TermDefineFrm, SpecifyDayFrm,
  SysparaFrm;

{$R *.dfm}

procedure TServerForm.Button1Click(Sender: TObject);
//var
{  aList,Blist: TStringList;
  i: Integer;
  Work,ComputeName: string;
}
begin
{  aList := TStringList.Create;
  BList := TStringList.Create;
  GetGroupList(aList); //取工作组
  ListBox1.Items.Clear;
  for i := 0 to aList.Count - 1 do
  begin
    Work := aList.Strings[i];
    GetUsers(Work,bList);
    ComputeName := aList.Strings[i];
  end;
  aList.Destroy;
  BList.Destroy;
  Close;
}
 CallSysParaForm;
end;

procedure TServerForm.Button2Click(Sender: TObject);
begin
  CallRoomInfoForm;
end;

procedure TServerForm.Button3Click(Sender: TObject);
begin
  CallprofessionalForm;
end;

procedure TServerForm.Button4Click(Sender: TObject);
begin
  CallMonitorForm;
end;

procedure TServerForm.Button5Click(Sender: TObject);
begin
  CallStudentForm;
end;

procedure TServerForm.Button6Click(Sender: TObject);
begin
  CallAccountForm;
end;

procedure TServerForm.BitBtn1Click(Sender: TObject);
begin
  CallCourseForm;
end;

procedure TServerForm.BitBtn2Click(Sender: TObject);
begin
  CallCourseTimeAssignForm;
end;

procedure TServerForm.Button7Click(Sender: TObject);
begin
  CallSpecifyDayForm;
end;

procedure TServerForm.Button9Click(Sender: TObject);
begin
  CallTermDefineForm;
end;

procedure TServerForm.Button8Click(Sender: TObject);
begin
  CallSysUserForm;
end;

end.