unit7.pas

来自「个人理财系统可以添加」· PAS 代码 · 共 85 行

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tleibie = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  leibie: Tleibie;
implementation
  uses unit2,unit5;
{$R *.dfm}

procedure Tleibie.Button1Click(Sender: TObject);
var
  str:string;
begin
  if(edit1.Text=' ')then
   showmessage('请先选择类别，再输入类别名称')
  else
   begin
     if(application.MessageBox('确定要添加新类别吗?','添加自定义类别',mb_iconinformation+mb_okcancel+mb_defbutton1)=1)then
     begin
     str:=edit1.Text;
      case combobox1.ItemIndex of
      0: mainform.DBComboBox1.Items.Add(str);
      1:mainform.DBComboBox2.Items.Add(str);
      end;
     searchform.ComboBox1.Items.Add(str);
     combobox2.Items.Add(str);
     edit1.Clear;
     end;
   end;
end;

procedure Tleibie.Button2Click(Sender: TObject);
var
  i:integer;
begin
  i:=0;
 if(application.MessageBox('确定要删除吗？','删除自定义类别',mb_iconinformation+mb_okcancel+mb_defbutton1)=1)then
  begin
  while((mainform.DBComboBox1.Items[i]<>combobox2.Items[combobox2.ItemIndex])and(i<=mainform.DBComboBox1.Items.Count))do
   i:=i+1;
   if(i<=mainform.DBComboBox1.Items.Count)then
   mainform.DBComboBox1.Items.Delete(i);
   i:=0;
   while((mainform.DBComboBox2.Items[i]<>combobox2.Items[combobox2.ItemIndex])and(i<=mainform.DBComboBox2.Items.Count))do
   i:=i+1;
   if(i<=mainform.DBComboBox2.Items.Count)then
   mainform.DBComboBox2.Items.Delete(i);
   i:=0;
   while((searchform.Comb.Items[i]<>combobox2.Items[combobox2.ItemIndex])and(i<=searchform.Comb.Items.Count))do
   i:=i+1;
   if(i<=searchform.Comb.Items.Count)then
   searchform.Comb.Items.Delete(i);
   combobox2.DeleteSelected;
   combobox2.Text:='';
 end;
end;

end.