main.pas

家庭收支管理

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GridsEh, DBGridEh, ExtCtrls, StdCtrls, TFlatPanelUnit,
  TFlatButtonUnit, ComCtrls, jpeg;

type
  TMainForm = class(TForm)
    FlatButton1: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton7: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButton6: TFlatButton;
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    Label1: TLabel;
    FlatPanel3: TFlatPanel;
    FlatPanel4: TFlatPanel;
    Label2: TLabel;
    FlatPanel7: TFlatPanel;
    FlatPanel8: TFlatPanel;
    Label4: TLabel;
    FlatPanel9: TFlatPanel;
    FlatPanel10: TFlatPanel;
    Label5: TLabel;
    DBGridEh: TDBGridEh;
    FlatPanel5: TFlatPanel;
    FlatPanel6: TFlatPanel;
    Label3: TLabel;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Image: TImage;
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton6Click(Sender: TObject);
    procedure FlatButton7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure WMNCHitTest(var Msg:TMessage);message WM_NCHITTEST;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowForm(AFormClass:TFormClass);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses DataModule, Accounts, lbwh, report, chaxun, Jizhang, Check, Password;

procedure TMainForm.WMNCHitTest(var Msg:TMessage);
begin
  inherited;
  Msg.Result:=HTCLIENT;
end;

function GetWeek: string;
var
  mytime:_SYSTEMTIME;
begin
  GetLocalTime(mytime);
  case mytime.wDayOfWeek of
    0: Result:='星期日';
    1: Result:='星期一';
    2: Result:='星期二';
    3: Result:='星期三';
    4: Result:='星期四';
    5: Result:='星期五';
    6: Result:='星期六';
  end;
end;

procedure TMainForm.ShowForm(AFormClass:TFormClass);
begin
  with AFormClass.Create(self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;


procedure TMainForm.FlatButton1Click(Sender: TObject);
begin
  ShowForm(TJizhangForm);
end;

procedure TMainForm.FlatButton2Click(Sender: TObject);
begin
  ShowForm(TChaXunForm);
end;

procedure TMainForm.FlatButton3Click(Sender: TObject);
begin
  ShowForm(TReportForm);
end;

procedure TMainForm.FlatButton4Click(Sender: TObject);
begin
  ShowForm(TCheckForm);
end;

procedure TMainForm.FlatButton5Click(Sender: TObject);
begin
  ShowForm(TAccountsForm);
end;

procedure TMainForm.FlatButton6Click(Sender: TObject);
begin
  ShowForm(TLbwhForm);
end;

procedure TMainForm.FlatButton7Click(Sender: TObject);
begin
  DataForm.ABSDatabase.Close;
  close;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  YMD:string;
begin
  if not DataForm.ABSDatabase.Connected then
  begin
    DataForm.ABSDatabase.Password:='120101';
    DataForm.ABSDatabase.Open;
  end;
  YMD:=FormatDateTime('yyyy-mm-dd',Now);
  StatusBar1.Panels[1].Text:=copy(YMD,1,4)+' 年 '+copy(YMD,6,2)+' 月 '+copy(YMD,9,2)+' 日    '+GetWeek;
  if not DataForm.tbl_Account.Active then DataForm.tbl_Account.Open;
  DataForm.CalculateQuery.Open;
  while not DataForm.CalculateQuery.Eof do
  begin
    case DataForm.CalculateQuery.FieldByName('AccountType').AsInteger of
      0:Label1.Caption:=trim(format('%12.2n',[DataForm.CalculateQuery.FieldByName('Present').AsFloat]));
      1:Label2.Caption:=trim(format('%12.2n',[DataForm.CalculateQuery.FieldByName('Present').AsFloat]));
      2:Label3.Caption:=trim(format('%12.2n',[DataForm.CalculateQuery.FieldByName('Present').AsFloat]));
      3:Label4.Caption:=trim(format('%12.2n',[DataForm.CalculateQuery.FieldByName('Present').AsFloat]));
      4:Label5.Caption:=trim(format('%12.2n',[DataForm.CalculateQuery.FieldByName('Present').AsFloat]));
    end;
    DataForm.CalculateQuery.Next;
  end;
  DataForm.CalculateQuery.Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  dateseparator:='-';
  shortdateformat:='yyyy-mm-dd';
  if FileExists('Main.jpg') then Image.Picture.LoadFromFile('Main.jpg');
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  ShowForm(TPasswordForm);
end;

end.