yudingquery.pas

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

unit yudingquery;

interface

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

type
  TFrmaddyuding = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    usedate: TDateTimePicker;
    usetime: TDateTimePicker;
    Label4: TLabel;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SaveQuery: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SaveQueryPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmaddyuding: TFrmaddyuding;

implementation
  uses dbmodule;
{$R *.dfm}

procedure TFrmaddyuding.SpeedButton1Click(Sender: TObject);
begin
  if trim(edit1.Text)='' then
     begin
       application.MessageBox('顾客姓名不能为空！','提示',mb_ok);
       edit1.SetFocus;
       exit;
     end;
  if trim(edit2.Text)='' then
     begin
       application.MessageBox('顾客联系方式不能为空！','提示',mb_ok);
       edit2.SetFocus;
       exit;
     end;
  if savequery.Active then
    savequery.Close;
  savequery.SQL.Clear;
  savequery.SQL.Add('select * from Q_guestyuding where id=null');
  savequery.Open;
  savequery.Append;
  savequery.FieldByName('guestname').AsString:=edit1.Text;
  savequery.FieldByName('guesttele').AsString:=edit2.Text;
  savequery.FieldByName('guestdate').AsDateTime:=strtodatetime(datetostr(usedate.Date)+' '+timetostr(usetime.Time));
  savequery.FieldByName('guestmemo').AsString:=edit3.Text;
  savequery.Post;
  application.MessageBox('数据保存成功！','提示',mb_ok);
  self.Close;
end;

procedure TFrmaddyuding.SaveQueryPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  dm.errormsgdlg(dataset);
end;

procedure TFrmaddyuding.SpeedButton2Click(Sender: TObject);
begin
 self.Close;
end;

procedure TFrmaddyuding.FormShow(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  usedate.Date:=date();
  usetime.Time:=time();
  edit1.SetFocus;
end;

end.