main.~pas

来自「家用理财软件beta版」· ~PAS 代码 · 共 238 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CoolTrayIcon, Menus, xpWindow, ExtCtrls, xpPanel, StdCtrls,
  xpCombo, xpBitBtn, xpEdit, ComCtrls, xpGroupBox, RzListVw, RzPanel,
  Grids, RzGrids, RzStatus, DB, RzDBStat, RzTray, RzButton, ImgList, ADODB,
  DBGrids, jpeg;

type
  TForm1 = class(TForm)
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    x1: TMenuItem;
    N2: TMenuItem;
    D1: TMenuItem;
    xpWindow1: TxpWindow;
    Timer1: TTimer;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    DataSource1: TDataSource;
    RzStatusPane2: TRzStatusPane;
    RzToolbar1: TRzToolbar;
    ImageList1: TImageList;
    BtnUtilities: TRzToolButton;
    BtnSecurity: TRzToolButton;
    BtnInsertImage: TRzToolButton;
    ADOConnection1: TADOConnection;
    BtnSecurity1: TRzToolButton;
    ADOTable1: TADOTable;
    RzDBStateStatus1: TRzDBStateStatus;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    xpEdit1: TxpEdit;
    Label2: TLabel;
    xpEdit2: TxpEdit;
    xpBitBtn1: TxpBitBtn;
    xpBitBtn2: TxpBitBtn;
    procedure CoolTrayIcon1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure x1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure D1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BtnInsertImageClick(Sender: TObject);
    procedure BtnUtilitiesClick(Sender: TObject);
    procedure BtnSecurityClick(Sender: TObject);
    procedure BtnSecurity1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure xpBitBtn1Click(Sender: TObject);
    procedure xpBitBtn2Click(Sender: TObject);
    procedure xpEdit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  session_close:boolean;
  login:boolean;

implementation

uses Unit3, search, Unit4;

{$R *.dfm}

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
    CoolTrayicon1.ShowMainForm;
    //alphablendvalue:=255;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    session_close:=true;
    login:=false;
    //alphablendvalue:=255;
end;

procedure TForm1.x1Click(Sender: TObject);
begin
session_close:=true;
close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose:=session_close;
  if not canclose then
    cooltrayicon1.HideMainForm;
end;

procedure TForm1.D1Click(Sender: TObject);
begin
cooltrayicon1.ShowMainForm;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if alphablendvalue>10 then
     alphablendvalue:=alphablendvalue-10
    else
     begin
     alphablendvalue:=255;
     cooltrayicon1.HideMainForm;
     end;
end;

procedure TForm1.BtnInsertImageClick(Sender: TObject);
begin
 session_close:=true;
 close;
end;

procedure TForm1.BtnUtilitiesClick(Sender: TObject);
begin
  if not login then
  exit;
  if assigned(form3) then
  begin
    form3.show;
    form3.WindowState:=wsMaximized;
  end
  else
  begin
    form3:=Tform3.Create(nil);
  end;
end;

procedure TForm1.BtnSecurityClick(Sender: TObject);
begin
  if not login then
  exit;
 if assigned(form2) then
  begin
    form2.show;
    form2.WindowState:=wsMaximized;
  end
  else
  begin
    form2:=Tform2.Create(nil);
  end;
end;

procedure TForm1.BtnSecurity1Click(Sender: TObject);
begin
  if not login then
  exit;
 if assigned(form3) then
  begin
     form3.Show;
     Form3.xpGroupBox2.Visible:=true;
     Form3.xpgroupbox3.visible:=false;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 adoconnection1.Connected:=true;
 adotable1.Active:=true;
end;

procedure TForm1.xpBitBtn1Click(Sender: TObject);
var SearchOptions:TLocateOptions;
    searchresult:boolean;
begin
 SearchOptions:=[loCaseInsensitive];
  if (xpedit1.Text='') or (xpedit2.Text='') then
   begin
      application.MessageBox('请输入用户名密码!','提示',mb_ok);
      xpedit1.Text:='';
      xpedit2.Text:='';
      xpedit1.SetFocus;
      exit;
   end;
  with ADOtable1 do
  begin
      searchresult:=locate('username',xpedit1.Text,SearchOptions);
      if searchresult then
       begin
        if Fieldvalues['password']=xpedit2.Text then
           begin
              login:=true;
              rzstatuspane1.Caption:='登陆用户:'+xpedit1.Text;
              //xpgroupbox1.Visible:=false;
              label1.Visible:=false;
              label2.Visible:=false;
              xpedit1.Visible:=false;
              xpedit2.Visible:=false;
              xpbitbtn1.Visible:=false;
              xpbitbtn2.Visible:=false;
              //image1.Visible:=true;
           end
         else
           begin
              login:=false;
              application.MessageBox('请输入用户名密码!','提示',mb_ok);
              xpedit1.Text:='';
              xpedit2.Text:='';
              xpedit1.SetFocus;
              exit;
           end;
          end
        else
        begin
              login:=false;
              application.MessageBox('请输入用户名密码!','提示',mb_ok);
              xpedit1.Text:='';
              xpedit2.Text:='';
              xpedit1.SetFocus;
              exit;
        end;
  end;
end;

procedure TForm1.xpBitBtn2Click(Sender: TObject);
begin
      xpedit1.Text:='';
      xpedit2.Text:='';
      xpedit1.SetFocus;
end;

procedure TForm1.xpEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key =#13 then
  xpbitbtn1.OnClick(self);
end;

end.