main.pas

本软件是小管家个人帐户管理系统 (ADO+ACCESS)

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsSkinBoxCtrls, bsSkinData, BusinessSkinForm, Menus,
  ComCtrls, bsSkinTabs, ImgList, ExtCtrls, bsSkinHint, StdCtrls, Mask,
  ActnList, bsMessages, bsSkinMenus, bsSkinShellCtrls;

type
  TForm_Main = class(TForm)
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsSkinMainMenu1: TbsSkinMainMenu;
    D1: TMenuItem;
    C1: TMenuItem;
    R1: TMenuItem;
    Z1: TMenuItem;
    E1: TMenuItem;
    D2: TMenuItem;
    B1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    S1: TMenuItem;
    N3: TMenuItem;
    A1: TMenuItem;
    N4: TMenuItem;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsStoredSkin1: TbsStoredSkin;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinListBox1: TbsSkinListBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinToolBar1: TbsSkinToolBar;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinBevel1: TbsSkinBevel;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinBevel2: TbsSkinBevel;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinBevel3: TbsSkinBevel;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    ImageList1: TImageList;
    bsSkinStatusPanel1: TbsSkinStatusPanel;
    bsSkinStatusPanel2: TbsSkinStatusPanel;
    bsSkinStatusPanel3: TbsSkinStatusPanel;
    D3: TMenuItem;
    bsSkinSpeedButton10: TbsSkinSpeedButton;
    bsSkinHint1: TbsSkinHint;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinListView1: TbsSkinListView;
    bsSkinListView2: TbsSkinListView;
    Timer1: TTimer;
    ActionList1: TActionList;
    code_1: TAction;
    code_2: TAction;
    code_3: TAction;
    code_4: TAction;
    code_5: TAction;
    code_6: TAction;
    code_7: TAction;
    code_8: TAction;
    code_9: TAction;
    code_10: TAction;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinMenuSpeedButton1: TbsSkinMenuSpeedButton;
    bsSkinPopupMenu1: TbsSkinPopupMenu;
    N6: TMenuItem;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    bsSkinOpenDialog1: TbsSkinOpenDialog;
    procedure bsSkinListBox1ListBoxClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure bsSkinListBox1ListBoxDblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure code_10Execute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure code_9Execute(Sender: TObject);
    procedure code_1Execute(Sender: TObject);
    procedure code_3Execute(Sender: TObject);
    procedure code_4Execute(Sender: TObject);
    procedure code_2Execute(Sender: TObject);
    procedure code_5Execute(Sender: TObject);
    procedure code_6Execute(Sender: TObject);
    procedure code_7Execute(Sender: TObject);
    procedure code_8Execute(Sender: TObject);
  private
    { Private declarations }
    temp_zh:string;  //全局变量:存放出入帐信息的帐号
  public
    { Public declarations }
  end;

var
  Form_Main: TForm_Main;

implementation
uses Mydatabase,about,newzh,newch,newrh,txt,updatePd;
{$R *.dfm}
{******************************************************************************}
//星期函数
{******************************************************************************}
function ChinaWeek():string;
var
week_number:integer;
str:string;
begin
week_number:=dayofweek(date());
case week_number of
   7: str:='星期六';
   1: str:='星期天';
   2: str:='星期一';
   3: str:='星期二';
   4: str:='星期三';
   5: str:='星期四';
   6: str:='星期五';
end;
result:=str;
end;
{******************************************************************************}
//中文日期
{******************************************************************************}
function ChinaDate():string;
var
year,month,day:word;
begin
decodedate(date(),year,month,day);
result:=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';
end;
{******************************************************************************}
//单击显示帐户信息
{******************************************************************************}
procedure TForm_Main.bsSkinListBox1ListBoxClick(Sender: TObject);
begin
if bsskinlistbox1.ItemIndex <>-1 then begin
   DataModule1.ADOTable1.First ;
   DataModule1.adotable1.MoveBy(bsskinlistbox1.ItemIndex);
   bsskinedit1.Text :=DataModule1.adotable1.Fields.Fields[0].AsString ;
   bsskinedit2.text :=DataModule1.adotable1.Fields.Fields[1].AsString ;
   bsskinedit3.Text :=DataModule1.adotable1.Fields.Fields[2].AsString ;
   bsskinedit4.Text :=DataModule1.adotable1.Fields.Fields[3].AsString ;
end
end;
{******************************************************************************}
//数据初始化
{******************************************************************************}
procedure TForm_Main.FormActivate(Sender: TObject);
var
i:integer;
begin
{导出帐号到列表}
datamodule1.adotable1.First ;
bsskinlistbox1.Clear ;
for i:=0 to datamodule1.adotable1.RecordCount -1 do  begin
    bsskinlistbox1.Items.Add(datamodule1.adotable1.FieldValues['银行帐号']);
    datamodule1.adotable1.Next ;
end;
{显示第一个银行帐户的信息}
datamodule1.adotable1.First ;
bsskinedit1.Text :=datamodule1.adotable1.Fields.Fields[0].AsString ;
bsskinedit2.text :=datamodule1.adotable1.Fields.Fields[1].AsString ;
bsskinedit3.Text :=datamodule1.adotable1.Fields.Fields[2].AsString ;
bsskinedit4.Text :=datamodule1.adotable1.Fields.Fields[3].AsString ;
end;
{******************************************************************************}
//显示出帐及入帐信息
{******************************************************************************}
procedure TForm_Main.bsSkinListBox1ListBoxDblClick(Sender: TObject);
var 
ListItem : TListItem;
sear,temp:string;
begin
{-------------------------------出帐信息---------------------------------------}
self.temp_zh :=bsskinlistbox1.Items.Strings[bsskinlistbox1.ItemIndex];//删除判断
temp:=bsskinlistbox1.Items.Strings[bsskinlistbox1.ItemIndex];
datamodule1.adotable2.DisableControls ;
datamodule1.adotable2.Filtered :=false;
sear:='银行帐号'+'='+''''+temp+'''';
datamodule1.adotable2.Filter :=sear;
datamodule1.adotable2.Filtered :=true;
datamodule1.adotable2.EnableControls ;
bsskinListView1.Items.BeginUpdate; // 禁止显示更新
try
  bsskinListView1.Items.Clear;
  while not datamodule1.adotable2.eof do
      begin
        ListItem := bsskinListView1.Items.Add;
        ListItem.Caption := datamodule1.adotable2.FieldValues['出帐日期'];
        ListItem.SubItems.Add(datamodule1.adotable2.FieldValues['出帐金额']);
        ListItem.SubItems.Add(datamodule1.adotable2.FieldValues['备注']);
        datamodule1.adotable2.Next ;
      end;
finally
      bsskinListView1.Items.EndUpdate; // 更新显示
      datamodule1.adotable2.Filtered :=false;
end;
{-------------------------------入帐信息---------------------------------------}
temp:=bsskinlistbox1.Items.Strings[bsskinlistbox1.ItemIndex];
datamodule1.adotable3.DisableControls ;
datamodule1.adotable3.Filtered :=false;
sear:='银行帐号'+'='+''''+temp+'''';
datamodule1.adotable3.Filter :=sear;
datamodule1.adotable3.Filtered :=true;
datamodule1.adotable3.EnableControls ;
bsskinListView2.Items.BeginUpdate; // 禁止显示更新
try