unit2.pas

个人理财系统可以添加

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,init,unit5,unit6,unit7,unit9,
  jpeg, ComCtrls, DBCtrls, Mask;

type
  Tmainform = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBGrid1: TDBGrid;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    DBComboBox1: TDBComboBox;
    DataSource1: TDataSource;
    Table1: TTable;
    DBComboBox2: TDBComboBox;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    dbedit1: TDBEdit;
    dbedit2: TDBEdit;
    dbedit3: TDBEdit;
    dbedit4: TDBEdit;
    Label5: TLabel;
    Edit1: TEdit;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    searchquery1: TQuery;
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure issetfalse;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation
  uses unit1;
procedure Tmainform.issetfalse;
begin
  dbedit1.Enabled:=false;
  dbedit2.Enabled:=false;
  dbedit3.Enabled:=false;
  dbedit4.Enabled:=false;
  dbcombobox1.Enabled:=false;
  dbcombobox2.Enabled:=false;
  dbmemo1.Enabled:=false;
  dbmemo2.Enabled:=false;
end;
{$R *.dfm}


procedure Tmainform.SpeedButton7Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
   userform.Show;
end;

procedure Tmainform.SpeedButton5Click(Sender: TObject);
begin
  leibie.Show;
end;

procedure Tmainform.SpeedButton3Click(Sender: TObject);
begin
  searchform.Show;
end;

procedure Tmainform.SpeedButton6Click(Sender: TObject);
begin
   aboutbox.Show;
end;

procedure Tmainform.SpeedButton1Click(Sender: TObject);
begin
 // table1.DatabaseName:=sysutils.GetCurrentDir+'database';
  table1.Open;
  table1.Edit;
  table1.Append;
  speedbutton8.Enabled:=true;
  speedbutton9.Enabled:=true;
  dbedit1.Enabled:=true;
  dbedit2.Enabled:=true;
  dbedit3.Enabled:=true;
  dbedit4.Enabled:=true;
  dbcombobox1.Enabled:=true;
  dbcombobox2.Enabled:=true;
  dbmemo1.Enabled:=true;
  dbmemo2.Enabled:=true;
end;

procedure Tmainform.SpeedButton8Click(Sender: TObject);
begin
  table1.Post;
  issetfalse;
  speedbutton8.Enabled:=false;
  speedbutton9.Enabled:=false;
  mima.ischanged;//改变收入金额，支出金额，以及剩余总额
end;

procedure Tmainform.SpeedButton9Click(Sender: TObject);
begin
  table1.Cancel;
  issetfalse;
  speedbutton9.Enabled:=false;
  speedbutton8.Enabled:=false;
end;

procedure Tmainform.SpeedButton2Click(Sender: TObject);
begin
 if(not table1.Eof)then
   begin
    if(application.MessageBox('您确实要删除该记录吗？','删除对话框',mb_okcancel+mb_iconhand)=1)then
     begin
      table1.Edit;
      table1.Delete;
      mima.ischanged;// 改变收入金额，支出金额，以及剩余总额
     end;
    end
  else showmessage('操作错误，没有记录了!!');
end;

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

end.