unit_tj.pas

这是一套小型家庭理财软件delphi源代码

  4:        begin
              Edit_See.Text :='0.';
              doing :=1;
            end;
  end;

end;

procedure TForm_TJ.SpeedButton_ZFClick(Sender: TObject);
var
  S : String;
begin
  KaiGuan(1,0);

  if Edit_See.Text = '' then
    Edit_See.Text :='0';

  QingChuQianLing;

  if Edit_See.Text <>'0' then
  begin
    S := Edit_See.Text;
    if Copy(s,1,1) <> '-' then
      Edit_See.Text := '-' + Edit_See.Text
    else
      Edit_See.Text := Copy(s,2,length(s)-1+1);
  end;

end;

procedure TForm_TJ.SpeedButton_cClick(Sender: TObject);
begin
  KaiGuan(1,0);

  Edit_See.Text := '0';
  doing := 1;
  a:=0;
  b:=0;
end;

procedure TForm_TJ.SpeedButton_SanClick(Sender: TObject);
begin
  KaiGuan(1,0);

  Edit_See.Text :=Copy(Edit_See.Text,1,length(Edit_See.Text)-1);
  if Edit_See.Text = '' then Edit_See.Text :='0';
end;

procedure TForm_TJ.SpeedButton_DengClick(Sender: TObject);
begin
  KaiGuan(1,0);

  if doing = 3 then
  begin
    b:= StrToFloat(Edit_See.Text);

    case x of
    '+':        Edit_See.Text :=FloatToStr(a+b);
    '-':        Edit_See.Text :=FloatToStr(a-b);
    '*':        Edit_See.Text :=FloatToStr(a*b);
    '/':        begin
                  if b<>0 then
                    Edit_See.Text :=FloatToStr(a/b)
                  else
                    ShowMessage('错误！零不能做除数！');
                end;
    end;
    a:=0;
    b:=0;
    doing :=4;
  end;
  Edit_money_tj.Text := Edit_See.Text;
end;

procedure TForm_TJ.SpeedButton_11Click(Sender: TObject);
begin
  KaiGuan(1,0);

  case doing of
  1,4:          begin
                a:= StrToFloat(Edit_See.Text);
                x:='+';
                doing :=2;
              end;
  2:          x:='+';
  3:          begin
                SpeedButton_DengClick(Sender);
                a:= StrToFloat(Edit_See.Text);
                x:='+';
                doing :=2;
              end;

  end;

end;


procedure TForm_TJ.SpeedButton_12Click(Sender: TObject);
begin
  KaiGuan(1,0);

  case doing of
  1,4:          begin
                a:= StrToFloat(Edit_See.Text);
                x:='-';
                doing :=2;
              end;
  2:          x:='-';
  3:          begin
                SpeedButton_DengClick(Sender);
                a:= StrToFloat(Edit_See.Text);
                x:='-';
                doing :=2;
              end;
  end;

end;

procedure TForm_TJ.SpeedButton_13Click(Sender: TObject);
begin
  KaiGuan(1,0);

  case doing of
  1,4:          begin
                a:= StrToFloat(Edit_See.Text);
                x:='*';
                doing :=2;
              end;
  2:          x:='*';
  3:          begin
                SpeedButton_DengClick(Sender);
                a:= StrToFloat(Edit_See.Text);
                x:='*';
                doing :=2;
              end;
  end;

end;

procedure TForm_TJ.SpeedButton_14Click(Sender: TObject);
begin
  KaiGuan(1,0);

  case doing of
  1,4:          begin
                a:= StrToFloat(Edit_See.Text);
                x:='/';
                doing :=2;
              end;
  2:          x:='/';
  3:          begin
                SpeedButton_DengClick(Sender);
                a:= StrToFloat(Edit_See.Text);
                x:='/';
                doing :=2;
              end;
  end;

end;

procedure TForm_TJ.Edit_SeeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  KaiGuan(0,1);

  case Key of
  27:      begin SpeedButton_c.Down := True; SpeedButton_cClick(Sender); end;
  13:      begin SpeedButton_Deng.Down := True; SpeedButton_DengClick(Sender); end;
   8:      begin SpeedButton_San.Down := True; SpeedButton_SanClick(Sender); end;
  107:     begin SpeedButton_11.Down := True; SpeedButton_11Click(Sender); end;
  109:     begin SpeedButton_12.Down := True; SpeedButton_12Click(Sender); end;
  106:     begin SpeedButton_13.Down := True; SpeedButton_13Click(Sender); end;
  111,191: begin SpeedButton_14.Down := True; SpeedButton_14Click(Sender); end;
  48,96:   begin SpeedButton_0.Down := True; SpeedButton_0Click(Sender); end;
  49,97:   begin SpeedButton_1.Down := True; SpeedButton_1Click(Sender); end;
  50,98:   begin SpeedButton_2.Down := True; SpeedButton_2Click(Sender); end;
  51,99:   begin SpeedButton_3.Down := True; SpeedButton_3Click(Sender); end;
  52,100:  begin SpeedButton_4.Down := True; SpeedButton_4Click(Sender); end;
  53,101:  begin SpeedButton_5.Down := True; SpeedButton_5Click(Sender); end;
  54,102:  begin SpeedButton_6.Down := True; SpeedButton_6Click(Sender); end;
  55,103:  begin SpeedButton_7.Down := True; SpeedButton_7Click(Sender); end;
  56,104:  begin SpeedButton_8.Down := True; SpeedButton_8Click(Sender); end;
  57,105:  begin SpeedButton_9.Down := True; SpeedButton_9Click(Sender); end;
  190,110: begin SpeedButton_10.Down := True; SpeedButton_10Click(Sender); end;
  end;

end;

procedure TForm_TJ.Edit_SeeKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
  27:      SpeedButton_c.Down := False;
  13:      SpeedButton_Deng.Down := False;
   8:      SpeedButton_San.Down := False;
  107:     SpeedButton_11.Down := False;
  109:     SpeedButton_12.Down := False;
  106:     SpeedButton_13.Down := False;
  111,191: SpeedButton_14.Down := False;
  48,96:   SpeedButton_0.Down := False;
  49,97:   SpeedButton_1.Down := False;
  50,98:   SpeedButton_2.Down := False;
  51,99:   SpeedButton_3.Down := False;
  52,100:  SpeedButton_4.Down := False;
  53,101:  SpeedButton_5.Down := False;
  54,102:  SpeedButton_6.Down := False;
  55,103:  SpeedButton_7.Down := False;
  56,104:  SpeedButton_8.Down := False;
  57,105:  SpeedButton_9.Down := False;
  190,110: SpeedButton_10.Down := False;

  end;

end;

procedure TForm_TJ.SpeedButton_1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_1.Down := True;
end;

procedure TForm_TJ.SpeedButton_2MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_2.Down := True;
end;

procedure TForm_TJ.SpeedButton_3MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_3.Down := True;
end;

procedure TForm_TJ.SpeedButton_4MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_4.Down := True;
end;

procedure TForm_TJ.SpeedButton_5MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_5.Down := True;
end;

procedure TForm_TJ.SpeedButton_6MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_6.Down := True;
end;

procedure TForm_TJ.SpeedButton_7MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_7.Down := True;
end;

procedure TForm_TJ.SpeedButton_8MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_8.Down := True;
end;

procedure TForm_TJ.SpeedButton_9MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_9.Down := True;
end;

procedure TForm_TJ.SpeedButton_ZFMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_ZF.Down := True;
end;

procedure TForm_TJ.SpeedButton_0MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_0.Down := True;
end;

procedure TForm_TJ.SpeedButton_10MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_10.Down := True;
end;

procedure TForm_TJ.SpeedButton_11MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_11.Down := True;
end;

procedure TForm_TJ.SpeedButton_12MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_12.Down := True;
end;

procedure TForm_TJ.SpeedButton_13MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_13.Down := True;
end;

procedure TForm_TJ.SpeedButton_14MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_14.Down := True;
end;

procedure TForm_TJ.SpeedButton_cMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_c.Down := True;
end;

procedure TForm_TJ.SpeedButton_SanMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_San.Down := True;
end;

procedure TForm_TJ.SpeedButton_DengMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_Deng.Down := True;
end;

procedure TForm_TJ.SpeedButton_ceClick(Sender: TObject);
begin
  KaiGuan(1,0);

  Edit_See.Text :='0';
end;

procedure TForm_TJ.SpeedButton_ceMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SpeedButton_ce.Down := True;
end;
////////////////////////////////////////////////////////////////////////////
//完毕//



procedure TForm_TJ.FormShow(Sender: TObject);
{var
  I : Integer;
  MyNode : TTreeNode; }
begin
  TreeViewBool := False;
  Panel_money_tj.Visible := False;


{  for i:=0 to TreeView1.Items.Count-1 do
  begin
    MyNode := TreeView1.Items[i];
    if MyNode.Level = 0 then
      ComboBox_type1_TJ.Items.Add(MyNode.Text);
  end;
}
end;

procedure TForm_TJ.TreeView1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
     TreeView1Click(Sender);
end;

procedure TForm_TJ.FormClose(Sender: TObject; var Action: TCloseAction);
var
  filepath: String;
  myinifile: Tinifile;
  i: Integer;
begin
  if TreeViewBool then
  begin
    TreeView1.SaveToFile(ExtractFilePath(Paramstr(0))+'data\Home.dat');
    filepath :=ExtractFilePath(Paramstr(0));

    myinifile:= TiniFile.Create(filepath+'data\Home.dft');
    try
      myinifile.WriteInteger('spot','n',ComboBox_spot_tj.Items.Count);
      for i:=0 to ComboBox_spot_tj.Items.Count-1 do
         myinifile.WriteString('spot',IntToStr(i),ComboBox_spot_tj.Items[i]);
    finally
      myinifile.Destroy;
    end;

    Form_GL.ListBox_spot.Items := ComboBox_spot_tj.Items;
  end;

  ClsTjDate;
  Form1.TableMoneyJS;
  TreeViewBool := False;

  Form1.TreeView1.Items := TreeView1.Items;
  Form1.TreeView1.SetFocus;
end;

procedure TForm_TJ.Edit_money_tjMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Edit_money_tj.SelectAll;
end;

//焦点控制
procedure TForm_TJ.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    ComboBox_name_tj.SetFocus;
end;

procedure TForm_TJ.ComboBox_name_tjKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    ComboBox_type1_tj.SetFocus;
end;

procedure TForm_TJ.ComboBox_type1_tjKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    ComboBox_type2_tj.SetFocus;
end;

procedure TForm_TJ.ComboBox_type2_tjKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    ComboBox_type3_tj.SetFocus;
end;

procedure TForm_TJ.ComboBox_type3_tjKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    ComboBox_spot_tj.SetFocus;
end;

procedure TForm_TJ.ComboBox_spot_tjKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    Edit_money_tj.SetFocus;
end;

procedure TForm_TJ.Edit_money_tjKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    Edit_memo_tj.SetFocus;
end;

procedure TForm_TJ.Edit_memo_tjKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    SpeedButton_ok_tjClick(Sender);
end;

end.