unitsysuser.pas

来自「自己做过的工程」· PAS 代码 · 共 96 行

unit unitsysuser;

interface

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

type
  Tformsysuser = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    but_add: TButton;
    but_delete: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGr_sys_user: TDBGrid;
    but_exit: TButton;
    procedure DBGr_sys_userCellClick(Column: TColumn);
    procedure but_addClick(Sender: TObject);
    procedure but_deleteClick(Sender: TObject);
    procedure but_exitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsysuser: Tformsysuser;

  //AddorModify:integer;        //添加还是修改标志
  
implementation
      uses unitDMHotel,unitsysuser_data;
{$R *.dfm}

procedure Tformsysuser.DBGr_sys_userCellClick(Column: TColumn);
begin

   DBGr_sys_user.SetFocus;
end;

//添加用户记录
procedure Tformsysuser.but_addClick(Sender: TObject);
begin
    //打开录入窗口
    formsysuser_data.ShowModal;
    formsysuser_data.Caption:='用户录入';
end;


//删除用户记录
procedure Tformsysuser.but_deleteClick(Sender: TObject);
var
    ls_username:string;
begin
    //没有选择纪录
    DMHotel.ds_sys_user.Open;
    if DMHotel.ds_sys_user.FieldByName('username').AsString='' then
       begin
         showmessage('请先选择要删除的纪录!');
         exit;
       end;

    if   MessageDlg('您确定要删除该记录吗？',mtConfirmation,[mbYes,mbNo],0)= mrNO then
         exit;

    ls_username:=DMHotel.ds_sys_user.FieldByName('username').AsString; //取用户名
    //删除操作
    SQL:='delete from sys_user '+'where username='+''''+ls_username+'''';
    DMHotel.ADOQuery1.SQL.Text:=SQL;
    try
         DMHotel.ADOQuery1.ExecSQL;
    except
         showmessage('删除失败！');
         exit;
    end;
    DMHotel.ds_sys_user.Requery;

end;

procedure Tformsysuser.but_exitClick(Sender: TObject);
begin
    close;
end;

procedure Tformsysuser.FormShow(Sender: TObject);
begin
   DMHotel.ds_sys_user.Close;
   DMHotel.ds_sys_user.Open;
end;

end.