loginformpas.pas

用于开发税务票据管理的软件

unit loginformpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient,mytype, myconst,mainformpas,tcpthreadpas;

type
  Tloginform = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    username: TEdit;
    passwd: TEdit;
    rem: TCheckBox;
    GroupBox2: TGroupBox;
    hostbox: TComboBox;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Button2: TButton;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    email: TEdit;
    facelist: TComboBoxEx;
    ImageList1: TImageList;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    login:boolean;
    { Public declarations }
  end;

var
  loginform: Tloginform;

implementation

{$R *.dfm}

procedure Tloginform.Button2Click(Sender: TObject);
begin
self.Close;
end;

procedure Tloginform.CheckBox1Click(Sender: TObject);
var
i:integer;
begin
if Tcheckbox(sender).Checked then
  begin
  self.Width:=449;
  self.Button1.caption:='注册';
  facelist.ItemsEx.Clear;
  for i:=0 to 84 do
    begin
    with facelist.ItemsEx.Add do imageindex:=i;
    end;
  facelist.ItemIndex:=0;
  end
else
  begin
  self.Width:=283;
  self.Button1.Caption:='登陆';
  end;
end;

procedure Tloginform.Button1Click(Sender: TObject);
var
userdata:Ruserdata;
ctext:Rcommandtext;
idtcpclient:Tidtcpclient;
st:string;
begin
if not mainform.idtcpclient1.Connected then
begin
mainform.idtcpclient1.Host:=hostbox.Text;
mainform.IdTCPClient1.Connect();
end;
//////////////////////////////
////登陆//////////////////////
//////////////////////////////
if Tbutton(sender).caption='登陆' then
  begin
  ctext.command:=Clogin;
  userdata.username:=username.Text;
  userdata.passwd:=passwd.Text;
  mainform.idtcpclient1.WriteBuffer(ctext,sizeof(ctext));
  mainform.idtcpclient1.WriteBuffer(userdata,sizeof(userdata));
  st:=mainform.idtcpclient1.ReadLn();
  if st='success' then
  begin
  self.login:=true;
  mainform.user.username:=username.Text;
  mainform.tcp1:=ttcpthread.Create(true);
  mainform.tcp1.user.username:=username.text;
  self.Close;
  end
  else showmessage(st);
  end;
////////////////////////////////////////////////////////////////////////
/////注册///////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
if Tbutton(sender).caption='注册' then
  begin
  ctext.command:=Creg;
  userdata.username:=username.Text;
  userdata.passwd:=passwd.Text;
  userdata.email:=email.Text;
  userdata.face:=facelist.ItemIndex;
    if (length(userdata.username)>0) and (length(userdata.passwd)>0) and (length(userdata.email)>0) then
      begin
      mainform.idtcpclient1.WriteBuffer(ctext,sizeof(ctext));
      mainform.idtcpclient1.WriteBuffer(userdata,sizeof(userdata));
      st:=mainform.IdTCPClient1.ReadLn();
      showmessage(st);
      end
    else
      begin
      showmessage('注册信息不完整');
      end;
  end;
end;

procedure Tloginform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not self.login then
application.Terminate;
end;

end.