unit1.pas

个人理财系统可以添加

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, StdCtrls, DB, DBTables, ExtCtrls, DBCtrls, Buttons;

type
  Tmima = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    pswedit: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    usedit: TEdit;
    Query1: TQuery;
    Query2: TQuery;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ischanged;
    procedure psweditKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mima: Tmima;
  jibei:string;   //获得该用户的权限，管理员、用户
  username:string;//获得用户名
implementation
procedure Tmima.ischanged;     //改变收入金额，支出金额，以及剩余总额
 var
  inmon,outmon:real;                      
begin
  query2.DatabaseName:=sysutils.GetCurrentDir+'\database';
  query2.Close;
  query2.SQL.Clear;
  query2.SQL.Add('select sum(inmoney),sum(outmoney) from ');
  query2.SQL.Add(usedit.Text+'.db');
  query2.Open;
  inmon:=query2.Fields[0].AsFloat;
  outmon:=query2.Fields[1].AsFloat;
    with mainform do begin
      Edit1.Text:=floattostr(inmon);
      Edit2.Text:=floattostr(outmon);
      Edit3.Text:=floattostr(inmon-outmon);
    end;
end;

{$R *.dfm}

procedure Tmima.FormCreate(Sender: TObject);
var
  stoptime:longint;
begin
stoptime:=gettickcount div 1000;
while((gettickcount div 1000)<>(stoptime+3))do
sleep(1);
end;

procedure Tmima.BitBtn1Click(Sender: TObject);
begin
  query1.DatabaseName:=sysutils.GetCurrentDir+'\database';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from mima.db where name=:na and psw=:ps');
  query1.Params[0].AsString:=usedit.Text;
  query1.Params[1].AsString:=pswedit.Text;
  query1.Open;
  if(query1.Eof)then showmessage(' 该用户不存在或密码输入错误')
  else
  begin
  jibei:=query1.Fields[2].AsString;   //获得该用户的权限，管理员、用户
  username:=query1.Fields[0].AsString;//获得用户名
  mima.Hide;
  mainform.DBGrid1.DataSource:=mainform.DataSource1;
  mainform.DataSource1.DataSet:=mainform.Table1;
  mainform.Table1.DatabaseName:=sysutils.GetCurrentDir+'\database';
  mainform.Table1.Close;
  mainform.Table1.TableName:=usedit.Text+'.db';
  mainform.Table1.Open;
  ischanged;
  mainform.Show;
  end;
end;

procedure Tmima.BitBtn2Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure Tmima.FormShow(Sender: TObject);
begin
  usedit.SetFocus;
end;

procedure Tmima.psweditKeyPress(Sender: TObject; var Key: Char);
begin
  if(key=#13)then
    BitBtn1Click(Sender);
end;

procedure Tmima.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Application.Terminate;
end;

end.