insert.pas

一个小型的酒店管理系统

unit Insert;

interface

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

type
  TInsertFrm = class(TForm)
    GroupBox1: TGroupBox;
    ConnTime: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    StaPerson: TPanel;
    PName: TEdit;
    PPosition: TEdit;
    Tel: TEdit;
    News: TEdit;
    Note: TComboBox;
    ADOQuery1: TADOQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DBGrid1: TDBGrid;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InsertFrm: TInsertFrm;

implementation

uses Login;

{$R *.dfm}

procedure TInsertFrm.SpeedButton1Click(Sender: TObject);
var
  sql: string;
begin
  if trim(PName.Text)='' then
  begin
    ShowMessage('姓名一栏不得为空请输入！');
    PName.Text := '';
    PName.SetFocus;
  end
  else
  begin
    sql := 'insert into HHMain values(:ConnTime,:PName,:PPosition,:Tel,:News,:Note,:StaPerson)';
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(sql);
    ADOQuery1.Parameters.ParamByName('ConnTime').Value := DateToStr(Date());
    ADOQuery1.Parameters.ParamByName('PName').Value := PName.Text;
    ADOQuery1.Parameters.ParamByName('PPosition').Value := PPosition.Text;
    ADOQuery1.Parameters.ParamByName('Tel').Value := Tel.Text;
    ADOQuery1.Parameters.ParamByName('News').Value := News.Text;
    ADOQuery1.Parameters.ParamByName('Note').Value := Note.Text;
    ADOQuery1.Parameters.ParamByName('StaPerson').Value := LoginFrm.User;
    ADOQuery1.ExecSQL;
    ShowMessage('数据插入成功，您可以继续录入！');
    PName.Text := '';
    PPosition.Text := '';
    Tel.Text := '';
    News.Text := '';
    Note.Text := '';
    PName.SetFocus;
    ADOQuery2.Close;
    ADOQuery2.SQL.Clear;
    ADOQuery2.SQL.Add('select ConnTime as 联系时间,PName as 姓名,PPosition as 职务,Tel as 电话,News as 动态,Note as 批注,StaPerson as 统计人 from HHMain order by ConnTime desc');
    ADOQuery2.Open;
  end;
end;

procedure TInsertFrm.SpeedButton2Click(Sender: TObject);
begin
  InsertFrm.Close;
end;

procedure TInsertFrm.SpeedButton3Click(Sender: TObject);
begin
{
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select ConnTime as 联系时间,PName as 姓名,PPosition as 职务,Tel as 电话,News as 动态,Note as 批注,StaPerson as 统计人 from HHMain');
  ADOQuery2.Open;
}
end;

procedure TInsertFrm.DBGrid1TitleClick(Column: TColumn);
var
  AscOrDesc: Boolean;
begin
  AscOrDesc := True;
  if AscOrDesc then
    ADOQuery2.Sort := Column.FieldName + ' ASC'
  else
    ADOQuery2.Sort := Column.FieldName + ' DESC';
  AscOrDesc := not AscOrDesc;
end;

end.