unit_gl.pas

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

          for j:=0 to mynode.Count -1 do
             ComboBox_type3.Items.Add(mynode.item[j].Text);
             Break;
       end;
  end;

end;

procedure TForm_GL.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected.Level = 2 then
  begin
    Edit_type1Show.Text := TreeView1.Selected.Parent.Parent.Text;
    Edit_type2Show.Text := TreeView1.Selected.Parent.Text;
    Edit_type3Show.Text := TreeView1.Selected.Text;
  end;

end;


procedure TForm_GL.SpeedButton_typeGClick(Sender: TObject);
var
  MyNode,TSNode : TTreeNode;
  I : Integer;
begin
  if (Edit_type1Show.Text <>'')and(ComboBox_type1.Text <>'')and(Edit_type2Show.Text <>'')and
     (ComboBox_type2.Text <>'')and(Edit_type3Show.Text <>'')and(ComboBox_type3.Text <>'') then
    if MessageBox(Application.Handle,'这将使数据库全部更新！无法恢复！是否确定这样操作？','系统',MB_YESNO)=6 then
    begin
    //del............
      if Edit_type3Show.Text <> '' then
      begin
        MyNode := MyTreeNode(Edit_type1Show.Text,Edit_type2Show.Text,Edit_type3Show.Text,2);
        MyNode.Delete;
      end;
      if Edit_type2Show.Text <> '' then
      begin
        MyNode := MyTreeNode(Edit_type1Show.Text,Edit_type2Show.Text,'',1);
        if MyNode.Count < 1 then
          MyNode.Delete;
      end;
      MyNode := MyTreeNode(Edit_type1Show.Text,'','',0);
      if MyNode.Count < 1 then
        MyNode.Delete;
    //end del...........
    //add.............
      if ComboBox_type1.Text <> '' then
      begin
        MyNode := MyTreeNode(ComboBox_type1.Text,'','',0);
        if MyNode = nil then
        begin
          MyNode := TreeView1.Items.Add(nil,ComboBox_type1.Text);
          MyNode.ImageIndex := 0;
        end;

        if ComboBox_type2.Text <> '' then
        begin
          TSNode := MyTreeNode(ComboBox_type1.Text,ComboBox_type2.Text,'',1);
          if TSNode = nil then
          begin
            MyNode := TreeView1.Items.AddChild(MyNode,ComboBox_type2.Text);
            MyNode.ImageIndex := 1;
          end
          else
            MyNode := TSNOde;

          if ComboBox_type3.Text <> '' then
          begin
            if MyTreeNode(ComboBox_type1.Text,ComboBox_type2.Text,ComboBox_type3.Text,2) = nil then
            begin
              MyNode := TreeView1.Items.AddChild(MyNode,ComboBox_type3.Text);
              MyNode.ImageIndex := 2;
            end;
          end;
        end;
      end;
    //end add..............

      Form1.DBGrid1.DataSource.Enabled := False;
      Form1.all_cx;
      if Edit_type3Show.Text <> '' then
        Form1.Table1.Filter := '(type1='+#39+Edit_type1Show.Text+#39+')and(type2='+#39+Edit_type2Show.Text+#39+')and(type3='+#39+Edit_type3Show.Text+#39+')'
      else
        if Edit_type2Show.Text <> '' then
          Form1.Table1.Filter := '(type1='+#39+Edit_type1Show.Text+#39+')and(type2='+#39+Edit_type2Show.Text+#39+')'
        else
          if Edit_type1Show.Text <> '' then
            Form1.Table1.Filter := '(type1='+#39+Edit_type1Show.Text+#39+')';

      Form1.Table1.Filtered := True;
      Form1.Table1.First;
      while not Form1.Table1.Eof do
      begin
         Form1.Table1.Edit;
         Form1.Table1.FieldValues['type1'] := ComboBox_type1.Text;
         Form1.Table1.FieldValues['type2'] := ComboBox_type2.Text;
         Form1.Table1.FieldValues['type3'] := ComboBox_type3.Text;
         Form1.Table1.Post;
      end;
      Form1.DBGrid1.DataSource.Enabled := True;

    end;
    Edit_type1Show.Clear;
    Edit_type2Show.Clear;
    Edit_type3Show.Clear;
    ComboBox_type1.Clear;
    ComboBox_type2.Clear;
    ComboBox_type3.Clear;

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

procedure TForm_GL.TreeView1KeyPress(Sender: TObject; var Key: Char);
var
  MyNode : TTreeNode;
begin
  if key = '8' then
  begin

    TreeView1.AutoExpand := False;
    MyNode := TreeView1.Selected;
    if MyNode.Level = 0 then
      MyNode.MoveTo(TreeView1.Items[0],naInsert)
    else
      MyNode.MoveTo(MyNode.Parent.Item[MyNode.index -1],naInsert);
    TreeView1.AutoExpand := True;
  end;

  if key = '2' then
  begin

    TreeView1.AutoExpand := False;
    MyNode := TreeView1.Selected;
    if MyNode.Level <> 0 then
      if MyNode.Index < MyNode.Parent.Count-2 then
        MyNode.MoveTo(MyNode.Parent.Item[MyNode.index +2],naInsert);
    TreeView1.AutoExpand := True;
  end;

  Key := #0;
end;

procedure TForm_GL.FormClose(Sender: TObject; var Action: TCloseAction);
var
  myinifile : TInifile;
  i : Integer;
begin
  Form1.TreeView1.Items := TreeView1.Items;
  TreeView1.SaveToFile(filepath+'data\Home.dat');

  myinifile:= TiniFile.Create(filepath+'data\Home.dft');
  try
    Edit_j1.Text := myinifile.ReadString('自定义键','name1','昨天');
    Edit_j11.Text := myinifile.ReadString('自定义键','spot1','');
    Edit_j2.Text := myinifile.ReadString('自定义键','name2','今天');
    Edit_j22.Text := myinifile.ReadString('自定义键','spot2','');
    Edit_j3.Text := myinifile.ReadString('自定义键','name3','明天');
    Edit_j33.Text := myinifile.ReadString('自定义键','spot3','');
    Form1.SpeedButton_zt_cx.Caption := Form_GL.Edit_j1.Text;
    Form1.SpeedButton_jt_cx.Caption := Form_GL.Edit_j2.Text;
    Form1.SpeedButton_mt_cx.Caption := Form_GL.Edit_j3.Text;

    myinifile.WriteInteger('name','n',ListBox_name.Items.Count);
    for i:=0 to ListBox_name.Items.Count-1 do
      myinifile.WriteString('name',IntToStr(i),ListBox_name.Items[i]);
    myinifile.WriteInteger('spot','n',ListBox_spot.Items.Count);
    for i:=0 to ListBox_spot.Items.Count-1 do
       myinifile.WriteString('spot',IntToStr(i),ListBox_spot.Items[i]);
  finally
    myinifile.Destroy;
  end;
  Form1.TreeView1.SetFocus;
end;

procedure TForm_GL.PageControl1Change(Sender: TObject);
var
  I : Integer;
begin
  if PageControl1.ActivePageIndex = 2 then
    TreeView1.SetFocus;
  ComboBox_name.Items := ListBox_name.Items;
  for i:=0 to ComboBox_name.Items.Count -1 do
    if ComboBox_name.Items[i] = Form1.Name then
       ComboBox_name.ItemIndex := i;
end;

procedure TForm_GL.BitBtn_pClick(Sender: TObject);
var
  myinifile : TIniFile;
  Mima : String;
begin
  if (ComboBox_name.Text <> '')and(Edit_oldp.Text <>'')and(Edit_newp.Text <> '') then
  begin
    myinifile :=Tinifile.Create(ExtractFilePath(Paramstr(0))+'data\Home.dft');
    try
      Mima := myinifile.ReadString('name',ComboBox_name.Text,'');
      Mima := copy(Mima,1,7)+copy(Mima,9,Length(Mima)-8);

      if Edit_newp.Text <> Edit_newpp.Text then
      begin
        ShowMessage('新密码不一致!');
        Edit_newp.SetFocus;
      end
      else
        if Form1.Mi(ComboBox_name.Text,Edit_oldp.Text) = Mima then
        begin
          Mima := Form1.Mi(ComboBox_name.Text,Edit_newp.Text);
          if Radiobutton_YL1.Checked then Mima := copy(Mima,1,7)+'B'+copy(Mima,8,Length(Mima)-7);
          if Radiobutton_PT1.Checked then Mima := copy(Mima,1,7)+'O'+copy(Mima,8,Length(Mima)-7);
          if Radiobutton_GLY1.Checked then Mima := copy(Mima,1,7)+'H'+copy(Mima,8,Length(Mima)-7);
          myinifile.WriteString('name',ComboBox_name.Text,Mima);
          Edit_oldp.Clear;
          Edit_newp.Clear;
          Edit_newpp.Clear;
          ShowMessage('密码\权限已修改成功!需重新启动软件');
          Close;
        end;
    finally
      myinifile.Destroy;
    end;

  end
  else
  begin
    ShowMessage('密码修改不成功!');
    Edit_oldp.Clear;
    Edit_newp.Clear;
    Edit_newpp.Clear;
  end;
end;

procedure TForm_GL.ComboBox_nameChange(Sender: TObject);
var
  myinifile : TIniFile;
  QX : String;
begin
  if ComboBox_name.ItemIndex <> -1 then
  begin
    Edit_oldp.Enabled := True;
    Edit_newp.Enabled := True;
    Edit_newpp.Enabled := True;
    myinifile := TInifile.Create(ExtractFilePath(Paramstr(0))+'data\Home.dft');
    try
      QX := myinifile.ReadString('name',ComboBox_name.Text,'FJDAIEGBJFDKFKA');
      QX := copy(QX,8,1);
    finally
      myinifile.Destroy;
    end;
    if QX = 'B' then RadioButton_YL1.Checked := True;
    if QX = 'O' then RadioButton_PT1.Checked := True;
    if QX = 'H' then
      if Form1.NameQX = '管理员' then
        RadioButton_GLY1.Checked := True
      else
      begin
        ShowMessage('你的权限不够!');
        ComboBox_name.ItemIndex := -1;
        Edit_oldp.Enabled := False;
        Edit_newp.Enabled := False;
        Edit_newpp.Enabled := False;
      end;
  end
  else
  begin
    Edit_oldp.Enabled := False;
    Edit_newp.Enabled := False;
    Edit_newpp.Enabled := False;
  end;
end;

procedure TForm_GL.BitBtn_nameClick(Sender: TObject);
var
  Mima : String;
  I : Integer;
  T : Boolean;
  myinifile : TIniFile;
begin
  if (Edit_name.Text <> '')and(Edit_namep.Text <> '')and(Edit_namepp.Text <> '') then
  begin
    if Length(Edit_name.Text) >8 then
    begin
      ShowMessage('用户名过长');
      Edit_namep.Clear;
      Edit_namepp.Clear;
      Edit_name.SetFocus;
      exit;
    end;
    myinifile :=Tinifile.Create(ExtractFilePath(Paramstr(0))+'data\Home.dft');
    try
      if Edit_namep.Text <> Edit_namepp.Text then
      begin
        ShowMessage('新密码不一致!');
        Edit_namep.SetFocus;
      end
      else
      begin
          T := False;
          for i:=0 to ListBox_name.Items.Count-1 do
            if Edit_name.Text = ListBox_name.Items[i] then
               T := True;

          if T or (Edit_name.Text = '管理员')then
          begin
            ShowMessage('用户名已存在!新增用户不成功!');
            Edit_name.SetFocus;
          end
          else
          begin
            ListBox_name.Items.Add(Edit_name.Text);
            ComboBox_name.Items := ListBox_name.Items;
            Mima := Form1.Mi(Edit_name.Text,Edit_namep.Text);
            if RadioButton_GLY.Checked then Mima := copy(Mima,1,7)+'H'+copy(Mima,8,Length(Mima)-7);
            if RadioButton_PT.Checked then Mima := copy(Mima,1,7)+'O'+copy(Mima,8,Length(Mima)-7);
            if RadioButton_YL.Checked then Mima := copy(Mima,1,7)+'B'+copy(Mima,8,Length(Mima)-7);
            myinifile.WriteString('name',IntToStr(ListBox_name.Items.Count -1),Edit_name.Text);
            myinifile.WriteString('name',Edit_name.Text,Mima);
            Edit_name.Clear;
            Edit_namep.Clear;
            Edit_namepp.Clear;
            RadioButton_YL.Checked := True;
            ShowMessage('用户已经增加进系统!');
          end;
      end;
    finally
      myinifile.Destroy;
    end;

  end
  else
    ShowMessage('新增用户不成功!');
end;

procedure TForm_GL.SpeedButton_j1xClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit_j11.Text := OpenDialog1.FileName ;
end;

procedure TForm_GL.SpeedButton_j2xClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit_j22.Text := OpenDialog1.FileName ;
end;

procedure TForm_GL.SpeedButton_j3xClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit_j33.Text := OpenDialog1.FileName ;
end;

procedure TForm_GL.SpeedButton_j1mClick(Sender: TObject);
begin
  Edit_j1.Text := '昨天';
  Edit_j11.Text := '';
end;

procedure TForm_GL.SpeedButton_j2mClick(Sender: TObject);
begin
  Edit_j2.Text := '今天';
  Edit_j22.Text := '';
end;

procedure TForm_GL.SpeedButton_j3mClick(Sender: TObject);
begin
  Edit_j3.Text := '明天';
  Edit_j33.Text := '';
end;

procedure TForm_GL.BitBtn_jokClick(Sender: TObject);
var
  myinifile : Tinifile;
begin
  myinifile:= TiniFile.Create(filepath+'data\Home.dft');
  try
    myinifile.WriteString('自定义键','name1',Edit_j1.Text);
    myinifile.WriteString('自定义键','spot1',Edit_j11.Text);
    myinifile.WriteString('自定义键','name2',Edit_j2.Text);
    myinifile.WriteString('自定义键','spot2',Edit_j22.Text);
    myinifile.WriteString('自定义键','name3',Edit_j3.Text);
    myinifile.WriteString('自定义键','spot3',Edit_j33.Text);
  finally
    myinifile.Destroy;
  end;
  Form1.SpeedButton_zt_cx.Caption := Edit_j1.Text;
  Form1.SpeedButton_jt_cx.Caption := Edit_j2.Text;
  Form1.SpeedButton_mt_cx.Caption := Edit_j3.Text;
end;

procedure TForm_GL.BitBtn_JHClick(Sender: TObject);
var
  i : Integer;
  myinifile : TInifile;
begin    //保存计划数据
  myinifile :=Tinifile.Create(filepath+'data\Home.dft');
  try
    for i:=1 to StringGrid1.ColCount -1 do
      myinifile.WriteFloat('计划',StringGrid1.Rows[0].Strings[i],StrToFloat(StringGrid1.Rows[1].Strings[i]));
  finally
    myinifile.Destroy;
  end;
end;

end.