incomeform.~pas

家庭理财系统.rar

unit IncomeForm;

interface

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

type
  TIncome = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Income: TIncome;

implementation

uses DMForm, MainForm;

{$R *.dfm}

procedure TIncome.Button1Click(Sender: TObject);
begin
  if edit1.Text = '' then
    messagebox(getactivewindow(),'请输入收入项目的名称！','收入项目不能为空' ,MB_OK + MB_ICONINFORMATION)
  else
    begin
      DM.User.Close;
      DM.User.SQL.Clear;
      DM.User.SQL.Add('INSERT INTO income (收入项目) VALUES (:user)');
      DM.User.Parameters.ParamByName('user').Value := edit1.Text;
      DM.User.Prepared;
      DM.User.ExecSql;
      messagebox(getactivewindow(),'添加收入项目成功，单击确定返回！','成功添加' ,MB_OK + MB_ICONINFORMATION);
      edit1.Text := '';
      dm.adotable6.active:=false;
      dm.adotable6.active:=true;
      Combobox1.Items.Clear;
      with dm.ADOQuery6 do
      begin
        dm.adoquery6.Close ;
        dm.adoquery6.Open ;
        while not dm.adoquery6.Eof do
        begin
          ComboBox1.Items.Add(dm.adoquery6.FieldByName('收入项目').AsString);
          dm.adoquery6.Next
        end;
      end;
    end;
end;

procedure TIncome.Button2Click(Sender: TObject);
begin
  if combobox1.Text = '选择要删除的收入项目' then
    messagebox(getactivewindow(),'您没有选择任何收入项目，请选择！','请重新选择' ,MB_OK + MB_ICONINFORMATION)
  else
    begin
      dm.User.Close;
      dm.User.SQL.Clear;
      dm.User.SQL.Add('DELETE * FROM income WHERE 收入项目 = :user');
      dm.User.Parameters.ParamByName('user').Value := combobox1.Text;
      dm.User.Prepared;
      dm.User.ExecSql;
      messagebox(getactivewindow(),'删除收入项目成功，单击确定返回！','成功删除' ,MB_OK + MB_ICONINFORMATION);
      combobox1.Text := '选择要删除的收入项目';
      dm.adotable6.active:=false;
      dm.adotable6.active:=true;
      combobox1.Items.Clear;
      with dm.ADOQuery6 do
      begin
        dm.adoquery6.Close ;
        dm.adoquery6.Open ;
        while not dm.adoquery6.Eof do
        begin
          ComboBox1.Items.Add(dm.adoquery6.FieldByName('成员姓名').AsString);
          dm.adoquery6.Next
        end;
      end;
    end;
end;

procedure TIncome.FormCreate(Sender: TObject);
begin
  with dm.ADOQuery6 do
    begin
      dm.adoquery6.Close ;
      dm.adoquery6.Open ;
      while not dm.adoquery6.Eof do
      begin
        ComboBox1.Items.Add(dm.adoquery6.FieldByName('收入项目').AsString);
        dm.adoquery6.Next
      end;
    end;
end;

end.