userunit.pas

公交行业的管理系统

unit userUnit;

interface

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

type
  Tuserform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label2: TLabel;
    Editusername: TEdit;
    Editduty: TEdit;
    Editloginname: TEdit;
    Editpassword: TEdit;
    Edittelephone: TEdit;
    Editdepartment: TEdit;
    BitBtnok: TBitBtn;
    BitBtncancel: TBitBtn;
    editpasswordagain: TEdit;
    table: TADOTable;
    procedure FormShow(Sender: TObject);
    procedure BitBtncancelClick(Sender: TObject);
    procedure BitBtnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //打开方式：0：新建 1：修改
    OpenType:integer;
    //用户ID号
    UserID:string;
  end;

var
  userform: Tuserform;

implementation

uses SystemSetUnit, BusTradeDataModuleUnit;

{$R *.dfm}

procedure Tuserform.FormShow(Sender: TObject);
var
    i:integer;
begin
   //读取部门信息
    //getdept;
    //读取报表信息
   //// getrplist;
    //新建方式，清空各种值
    if OpenType=0 then
    begin
        editusername.Text :='';
        editloginname.Text :='';
        editpassword.Text :='';
        editpasswordagain.Text:='';
        editdepartment.Text :='';
        editduty.Text :='';
        edittelephone.Text :='';
    end;
    //修改方式，设计各种控件值
    if OpenType=1 then
    begin
        Table.Active :=false;
        ////Table.databasename:=getconnstr('sysdb','');
       //// Table.TableName:='users';
        Table.Filter:= 'loginname='''+userid+'''';
        Table.Active :=true;
        if Table.Eof then
        begin
            Messagebox(userform.handle,'此用户信息不存在！','提示',MB_OK+MB_ICONWARNING);
            exit;
        end;
        Editusername.Text:=trim(Table.FieldValues['username']);
        editloginname.Text :=trim(Table.FieldValues['loginname']);
        editpassword.Text :=trim(Table.FieldValues['password']);
        editpasswordagain.Text :=trim(Table.FieldValues['password']);
        editdepartment.Text:=trim(Table.FieldValues['department']);
        editduty.Text:=trim(Table.FieldValues['duty']);
        edittelephone.Text:=trim(Table.FieldValues['telephone']);
        ///////////////////////////
        end
    else
    begin
        Table.Active :=false;
        Table.TableName :='用户管理表';
        Table.Filter :='';
        Table.Active :=true;
    end;

end;

procedure Tuserform.BitBtncancelClick(Sender: TObject);
begin
    userform.Close;
end;

procedure Tuserform.BitBtnokClick(Sender: TObject);
var
    tmpstr:string;
    i:integer;
begin
    //判断输入是否合法
    if trim(editusername.Text) ='' then
    begin
        Messagebox(userform.handle,'用户名不能为空！','提示',MB_OK+MB_ICONWARNING);
        exit;
    end;
    if trim(editloginname.Text) ='' then
    begin
        Messagebox(userform.handle,'登录名不能为空！','提示',MB_OK+MB_ICONWARNING);
        exit;
    end;
    if (trim(editpassword.Text) ='') or (trim(editpassword.text)<>trim(editpasswordagain.text)) then
    begin
        Messagebox(userform.handle,'密码不能为空或不正确！','提示',MB_OK+MB_ICONWARNING);
        exit;
    end;
    //如果是新建，则加入一条记录
    try

        if OpenType=0 then
        begin
            table.Active :=false;
            table.Filter:='loginname='''+trim(editloginname.text)+'''';
            table.Active:=true;
            if table.Eof then
                Table.Insert
            else
            begin
                Messagebox(userform.handle,'用户已存在，请用其他登录名！','提示',MB_OK+MB_ICONWARNING);
                exit;
            end;
        end
        else
        begin
            table.Active :=false;
            table.Filter:='loginname='''+trim(editloginname.text)+'''';
            table.Active:=true;
            if not table.Eof then
                Table.edit
            else
            begin
                tmpstr:='无此用户信息：'+trim(editloginname.text)+'！';
                Messagebox(userform.handle,pchar(tmpstr),'提示',MB_OK+MB_ICONWARNING);
                exit;
            end;
         end;
        //

        //写入信息
        //生成所属部门字符串
        tmpstr:='';
        //获取所能操纵表的列表

        ////////////////////////////////
        Table.FieldByName('username').Value:=trim(editusername.text);
        Table.FieldByName('loginname').Value:=trim(editloginname.text);
        Table.FieldByName('password').Value:=trim(editpassword.text);
        Table.FieldByName('department').Value:=trim(editdepartment.text);
        Table.FieldByName('duty').Value:=trim(editduty.text);
        Table.FieldByName('telephone').Value:=trim(edittelephone.text);

        Table.Post;
        table.Active:=false;
        table.Active:=true;

       systemform.FillUsersList;
        userform.Close;
      //  systemform.FillUsersList;
    except
        Messagebox(userform.handle,'无法更新数据！','提示',MB_OK+MB_ICONWARNING)
    end;

end;

end.