unit2.pas

本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等

unit Unit2;

interface

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

type
  Tfrmuser = class(TForm)
    Labname: TLabel;
    Labpass: TLabel;
    Labqx: TLabel;
    DataSource1: TDataSource;
    Tableuser: TTable;
    Dacomname: TDBComboBox;
    Dacompass: TDBComboBox;
    Dacomqx: TDBComboBox;
    DBGrid1: TDBGrid;
    cmdadd: TButton;
    cmdmodi: TButton;
    cmdsearch: TButton;
    cmdpre: TButton;
    cmdnext: TButton;
    cmdstore: TButton;
    cmddel: TButton;
    cmdquit: TButton;
    Database1: TDatabase;
    Query1: TQuery;
    Tableuser2: TTable;
    cmddis: TButton;
    procedure cmdaddClick(Sender: TObject);
    procedure setbuttons(bval:boolean);
    function storeuser():boolean;
    procedure cmddelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdstoreClick(Sender: TObject);
    procedure cmdpreClick(Sender: TObject);
    procedure cmdnextClick(Sender: TObject);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmdquitClick(Sender: TObject);
    procedure cmdsearchClick(Sender: TObject);
    procedure cmddisClick(Sender: TObject);
    //procedure setbuttons(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmuser: Tfrmuser;
  addrecord:integer;
  m_yhmc:string;
implementation

{$R *.dfm}

procedure Tfrmuser.cmdaddClick(Sender: TObject);
begin
addrecord:=1;
setbuttons(false);
dacomname.SetFocus;
Tableuser.Append;
end;

procedure Tfrmuser.setbuttons(bval:boolean);
begin
cmdadd.Enabled:=bval;
cmdmodi.Enabled:=bval;
cmdsearch.Enabled:=bval;
cmddis.Enabled:=bval;
cmdpre.Enabled:=bval;
cmdnext.Enabled:=bval;
cmddel.Enabled:=bval;
cmdstore.Enabled:=not bval;
//cmddel.Enabled:=not bval;
if cmdquit.Caption='退出' then
  cmdquit.Caption:='取消'
else
cmdquit.Caption:='退出';
dacomname.Enabled:=not bval;
dacompass.Enabled:=not bval;
dacomqx.Enabled:=not bval;
end;
function Tfrmuser.storeuser():boolean;
var
note:array[1..5] of string;
begin
result:=false;
note[1]:='用户名不能为空！';
note[2]:='用户权限不能为空！';
note[3]:='用户权限选择不正确！';
note[4]:='此用户名已经存在！';
if dacomname.Text='' then
   begin
    showmessage(note[1]);
    dacomname.SetFocus;
    exit;
   end;
if dacomqx.Text='' then
   begin
    showmessage(note[2]);
    dacomqx.SetFocus;
    exit;
   end;
if (dacomqx.Text<>'管理员') and (dacomqx.Text<>'一般人员') then
   begin
    showmessage(note[3]);
    dacomqx.SetFocus;
    exit;
   end;
 if addrecord=1 then
   tableuser2.Filter:='yhmc='''+dacomname.Text+''''
   //tableuser2.Filter:='yhmc='''+'111'+''''
 else
   if m_yhmc=dacomname.Text then
     begin
       result:=true;
       exit;
     end
   else
     tableuser2.Filter:='yhmc='''+ dacomname.Text+'''';
if not tableuser2.Eof then
    begin
     showmessage(note[4]);
     dacomname.SetFocus;
     exit;
    end;
   //query1.close;
//query1.SQL.clear;

//if addrecord=1 then
 // begin
 //   query1.SQL.add('select * from companyuser where yhmc=:p1');
 //   query1.ParamByname('p1').AsString := dacomname.Text;
  //end
//else
 //  begin
  //  query1.SQL.add('select * from companyuser where yhmc=:p1 and password=:p2');
   // query1.ParamByname('p1').AsString := dacomname.Text;
    //query1.ParamByname('p2').AsString := dacompass.Text;
  //  end;
//Query1.Prepare;
//query1.open;
//if not query1.Eof then
//   begin
//     showmessage(note[4]);
 //    exit;
  // end;
result:=true;
end;

procedure Tfrmuser.cmddelClick(Sender: TObject);
begin
Tableuser.Delete
end;


procedure Tfrmuser.cmdstoreClick(Sender: TObject);
begin
if storeuser=true then
    begin
      tableuser.Post;
      setbuttons(true);
    end;
end;
procedure Tfrmuser.FormCreate(Sender: TObject);
begin
dacomqx.AddItem('管理员',sender);
dacomqx.AddItem('一般人员',sender);
//frmuser.Close
end;

procedure Tfrmuser.cmdpreClick(Sender: TObject);
begin
 tableuser.MoveBy(-1);
 if tableuser.Bof then
   begin
    showmessage('这是第一条记录！');
   // tableuser.MoveBy(1);
   end;
end;

procedure Tfrmuser.cmdnextClick(Sender: TObject);
begin
tableuser.MoveBy(1);
 if tableuser.Eof  then
   begin
    showmessage('这是最后一条记录！');
    //tableuser.MoveBy(-1);
   end;
end;

procedure Tfrmuser.cmdmodiClick(Sender: TObject);
begin
m_yhmc:=dacomname.Text;
setbuttons(false);
addrecord:=2;
tableuser.Edit;
end;

procedure Tfrmuser.cmdquitClick(Sender: TObject);
begin
if cmdquit.Caption='退出' then
  frmuser.Close
else
  begin
    setbuttons(true);
    tableuser.Cancel;
    cmdquit.Caption:='退出'
  end;
end ;
procedure Tfrmuser.cmdsearchClick(Sender: TObject);
var
inputstring:string;
begin
InputString:= InputBox('输入数据', '请输入要查询的用户名称', '');
if InputString='' then
   exit;
tableuser.Filter:='yhmc='''+inputstring+'''';
if tableuser.Eof then
 begin
  showmessage('没有该用户！');
  tableuser.Filter:='yhmc<>'' ''';
  exit;
 end;
end;
procedure Tfrmuser.cmddisClick(Sender: TObject);
begin
tableuser.Filter:='yhmc<>'' ''';
end;

end.