unit3.pas

来自「实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添」· PAS 代码 · 共 131 行

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Label9: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Edit5: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit6: TMaskEdit;
    Edit7: TMaskEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  //User1:TUser;
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 uses Control_UserU,Config,Control_OperatorU;
{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
 var
   User:TUser;Op:Toperator;
begin
Config.ADOCon:=TADOConnection.Create(nil);
  Config.ADOCon.LoginPrompt:=false;
  Config.ADOCon.KeepConnection:=true;
  begin
   Config.ADOCon.ConnectionString:=Config.connectinStr;
    Config.ADOCon.Open;
 end;
   User:=TUser.Create;
   Op:=Toperator.Create;
   if(Edit6.Text <>Edit7.Text) then
  begin
    MessageBox(Handle, '密码不统一！', '信息', MB_ICONEXCLAMATION);
    exit;
  end;

  User.name:=trim(Edit1.Text);
  User.p_no:=trim(Edit2.Text);
  User.leixing:=trim(self.ComboBox1.Text);
  User.address:=trim(Edit3.Text);
  //User.kaiku:=trim(Edit4.Text);
  User.kaiku:=DateToStr(Date);
  User.beizhu:=trim(Edit5.Text);
  if(User.p_no='')   then
  begin
     MessageBox(Handle, '手机号码不能为空！', '信息', MB_ICONEXCLAMATION);
     exit;
     end;
     if(User.name='')   then
  begin
     MessageBox(Handle, '姓名不能为空！', '信息', MB_ICONEXCLAMATION);
     exit;
     end;
     if(User.leixing='')   then
  begin
     MessageBox(Handle, '类型不能为空！', '信息', MB_ICONEXCLAMATION);
     exit;
     end;

  if (Control_UserU.GetUserBypno(User.p_no)<>nil)  then
   begin
    MessageBox(Handle, '用户已存在！', '信息', MB_ICONEXCLAMATION);
    exit;
  end;
  Op.Operid:=User.p_no;
  Op.pwd:=trim(Edit6.Text);
  Op.privilege:='普通';

  //*Query2.Close;
 //Query2.SQL.Clear;
 // Query2.SQL.Add(Control_UserU.AddUser(User));
 //QUery2.ExecSQL;
 // Query1.Close;
 //Query1.SQL.Clear;
 // Query1.SQL.Add(Control_OperatorU.AddOperator(Op));
 //QUery1.ExecSQL;
  if Control_UserU.AddUser(User) then
  begin
   // self.Close;
 end
   else
  begin
 MessageBox(Handle, '添加失败', '信息', MB_ICONEXCLAMATION);
  self.Close;
  end;
   if Control_OperatorU.AddOperator(Op)  then
     begin
   MessageBox(Handle, '添加成功', '信息', MB_ICONEXCLAMATION);
    self.Close;
    end
     else
  begin
   MessageBox(Handle, '添加失败', '信息', MB_ICONEXCLAMATION);
   self.Close;
   end;
end;

end.