unitpermitset.pas

一套宾馆管理系统

unit UnitPermitSet;

interface

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

type
  TfrmPermitSet = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tbnAdd: TToolButton;
    tbnDelete: TToolButton;
    tbnUpdate: TToolButton;
    ToolButton4: TToolButton;
    tbnExit: TToolButton;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DataSource: TDataSource;
    DBGrid: TDBGrid;
    ADOQuery: TADOQuery;
    ADOCmd: TADOCommand;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure tbnExitClick(Sender: TObject);
    procedure tbnAddClick(Sender: TObject);
    procedure tbnDeleteClick(Sender: TObject);
    procedure tbnUpdateClick(Sender: TObject);
  private
     strCon:string;
     procedure AddPermit(name:string;memo:string);
     procedure DeletePermit(id:string);
     procedure UpdatePermit(id:string;name:string;memo:string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPermitSet: TfrmPermitSet;

implementation

uses UnitMain, UnitPermitAdd;

{$R *.dfm}
procedure TfrmPermitSet.AddPermit(name:string;memo:string);
var
 smt:string;
begin
 smt:='insert into permitlist(permission,memo) values('''+name+''','''+memo+''')' ;
 adocmd.ConnectionString:=strCon;
 adocmd.CommandType:=cmdtext;
 adocmd.CommandText:=smt;
 adocmd.Execute;
 adoquery.Requery(); 
end;
procedure TfrmPermitSet.DeletePermit(id:string);
var
  Smt:string;
begin
  Smt:='delete from permitlist where permitid='+id;
  adocmd.ConnectionString:=strCon;
  adocmd.CommandType:=cmdtext;
  adocmd.CommandText:=Smt;
  adocmd.Execute;
  adoQuery.Requery(); 
end;
procedure TfrmPermitSet.UpdatePermit(id:string;name:string;memo:string);
var
 Smt:string;
begin
 Smt:='update permitlist set permission='''+name+''',memo='''+memo+''' where permitid='+id;
 Adocmd.ConnectionString:=strCon;
 adoCmd.CommandType:=cmdText;
 adoCmd.CommandText:=Smt;
 adocmd.Execute;
 adoQuery.Requery(); 
end;
procedure TfrmPermitSet.FormCreate(Sender: TObject);
begin
 frmMain.ReadINI;
 strCon:=frmMain.strCon;
end;

procedure TfrmPermitSet.FormShow(Sender: TObject);
var
 Smt:string;
 xx:Tcolumn;
begin
 //gain the datasource
 Smt:='select * from permitlist order by permitid asc';
 adoQuery.Close;
 adoQuery.SQL.Clear;
 adoquery.SQL.add(Smt);
 adoQuery.ConnectionString:=strCon;
 adoQuery.Open;
 //init the grid columns
  //--------
  xx:=dbgrid.Columns.Add ;
  xx.Title.Caption:='权限编号';
  xx.FieldName:=adoquery.Fields[0].DisplayName;
  xx.Width:=100;
  //--------
  xx:=dbgrid.Columns.add;
  xx.Title.Caption:='权限名称';
  xx.FieldName:=adoquery.Fields[1].DisplayName;
  xx.Width:=100;
  //---------
  xx:=dbgrid.Columns.add;
  xx.Title.Caption:='备注';
  xx.FieldName:=adoQuery.Fields[2].displayname;
  xx.Width:=100;
  //display data in the dbgrid 
  datasource.DataSet:=adoQuery;
  dbgrid.DataSource:=datasource;
end;

procedure TfrmPermitSet.tbnExitClick(Sender: TObject);
begin
 frmpermitSet.Close;
end;

procedure TfrmPermitSet.tbnAddClick(Sender: TObject);
begin
 application.CreateForm(TfrmPermitAdd,frmPermitAdd);
 frmPermitAdd.ShowModal;
 //judge information
 if frmPermitAdd.ModalResult=mrOK then
    if frmPermitAdd.edtName.text='' then
        showmessage('权限名称不能为空,请检查')
    else
        frmPermitSet.AddPermit(frmPermitAdd.edtName.Text,frmPermitAdd.edtMemo.Text)
 end;

procedure TfrmPermitSet.tbnDeleteClick(Sender: TObject);
var
 id:string;
begin
 if adoquery.recno<>0 then
    id:=adoquery.Fields[0].AsString
 else
    exit;
 frmPermitSet.DeletePermit(id); 

end;

procedure TfrmPermitSet.tbnUpdateClick(Sender: TObject);
var
 id:string;
begin
if Adoquery.RecordCount<> 0 then
   id:=adoQuery.Fields[0].AsString ;
   application.CreateForm(TfrmPermitAdd,frmPermitAdd);
   frmPermitAdd.edtName.Text:=adoQuery.Fields[1].AsString;
   frmPermitAdd.edtMemo.Text:=adoQuery.Fields[2].AsString;
   frmPermitAdd.ShowModal;
   //whether or not to update the data
   if frmPermitAdd.ModalResult=mrOk then
      if frmPermitAdd.edtName.text='' then
         showmessage('权限名称不能为空')
      else
         frmPermitSet.UpdatePermit(id,frmPermitAdd.edtName.Text,frmPermitAdd.edtMemo.text); 
   
end;

end.