messageform.~pas

家庭理财系统.rar

unit MessageForm;

interface

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

type
  TMessage = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Message: TMessage;

implementation

uses DMForm;

{$R *.dfm}

procedure TMessage.Button2Click(Sender: TObject);
begin
  postmessage(handle,wm_close,0,0);
end;

procedure TMessage.Button1Click(Sender: TObject);
begin
  //showmessage(FormatDatetime('yy-mm-dd',Datetimepicker1.Date)) ;
  if edit1.Text = '' then
    messagebox(getactivewindow(),'事件名不能为空,请重新添入！','错误!' ,MB_OK + MB_ICONINFORMATION)
  else if  FormatDatetime('yy-mm-dd',Datetimepicker1.Date) < FormatDatetime('yy-mm-dd',now) then
    messagebox(getactivewindow(),'请确认日期的正确性！','错误!' ,MB_OK + MB_ICONINFORMATION)
  else
  begin
    DM.ADOQuery2.Close;
    DM.ADOQuery2.SQL.Clear;
    DM.ADOQuery2.SQL.Add('INSERT INTO message (事件名称,事件日期,事件备注) VALUES (:name,:date,:memo)');
    DM.ADOQuery2.Parameters.ParamByName('name').Value := edit1.text;
    DM.ADOQuery2.Parameters.ParamByName('date').Value := FormatDatetime('yy-mm-dd',Datetimepicker1.Date);
    DM.ADOQuery2.Parameters.ParamByName('memo').Value := memo1.Lines.Text;
    DM.ADOQuery2.Prepared;
    DM.ADOQuery2.ExecSql;
    messagebox(getactivewindow(),'添加成功,请按确定返回！','成功!' ,MB_OK + MB_ICONINFORMATION);
    edit1.Text := '';
    Datetimepicker1.Date := now ;
    memo1.Lines.Text := '请填写备注，不多于50个字！' ;
    dm.adotable2.active:=false;
    dm.adotable2.active:=true;
  end;
end;

end.