?? 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);
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;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -