outform.pas

家庭理财系统.rar

unit OutForm;

interface

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

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

var
  Out: TOut;

implementation

uses DMForm, MainForm;

{$R *.dfm}

procedure TOut.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 out (支出项目) 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.adotable5.active:=false;
      dm.adotable5.active:=true;
      Combobox1.Items.Clear;
      with dm.ADOQuery5 do
      begin
        dm.adoquery5.Close ;
        dm.adoquery5.Open ;
        while not dm.adoquery5.Eof do
        begin
          ComboBox1.Items.Add(dm.adoquery5.FieldByName('支出项目').AsString);
          dm.adoquery5.Next;
        end;
      end;
    end;
end;

procedure TOut.FormCreate(Sender: TObject);
begin
  with dm.ADOQuery5 do
    begin
      dm.adoquery5.Close ;
      dm.adoquery5.Open ;
      while not dm.adoquery5.Eof do
      begin
        ComboBox1.Items.Add(dm.adoquery5.FieldByName('支出项目').AsString);
        dm.adoquery5.Next
      end;
    end;
end;

procedure TOut.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 out 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.adotable5.active:=false;
      dm.adotable5.active:=true;
      combobox1.Items.Clear;
      with dm.ADOQuery5 do
      begin
        dm.adoquery5.Close ;
        dm.adoquery5.Open ;
        while not dm.adoquery5.Eof do
        begin
          ComboBox1.Items.Add(dm.adoquery5.FieldByName('支出项目').AsString);
          dm.adoquery5.Next
        end;
      end;
    end;
end;

end.