addmemberform.~pas

家庭理财系统.rar

unit AddMemberForm;

interface

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

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

var
  AddMember: TAddMember;

implementation

uses DMForm, MainForm;

{$R *.dfm}

procedure TAddMember.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 member (成员姓名) 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.adotable3.active:=false;
      dm.adotable3.active:=true;
      Combobox1.Items.Clear;
      with dm.ADOQuery3 do
      begin
        dm.adoquery3.Close ;
        dm.adoquery3.Open ;
        while not dm.adoquery3.Eof do
        begin
          ComboBox1.Items.Add(dm.adoquery3.FieldByName('成员姓名').AsString);
          dm.adoquery3.Next
        end;
      end;
    end;
end;

procedure TAddMember.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 member 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.adotable3.active:=false;
      dm.adotable3.active:=true;
      combobox1.Items.Clear;
      with dm.ADOQuery3 do
      begin
        dm.adoquery3.Close ;
        dm.adoquery3.Open ;
        while not dm.adoquery3.Eof do
        begin
          ComboBox1.Items.Add(dm.adoquery3.FieldByName('成员姓名').AsString);
          dm.adoquery3.Next
        end;
      end;
    end;
end;

procedure TAddMember.FormCreate(Sender: TObject);
begin
  with dm.ADOQuery3 do
    begin
      dm.adoquery3.Close ;
      dm.adoquery3.Open ;
      while not dm.adoquery3.Eof do
      begin
        ComboBox1.Items.Add(dm.adoquery3.FieldByName('成员姓名').AsString);
        dm.adoquery3.Next
      end;
    end;
end;
end.