zfrm_addcustomeru.pas

一个很不错的评标系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_addcustomerU.pas 《添加用户模块》                 *│
'│*** 功能描述：此摸块是- 向部门中添加用户，对                         *│
'│*             《用户部门交叉表"ef_customerdepartment"》              *│
'│*              执行相应的处理 — （增）                              *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-04-26　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_addcustomerU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, ComCtrls;

type
  Tzfrm_addcustomer = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ListView1: TListView;
    Button3: TButton;
    Button6: TButton;
    Button2: TButton;
    Button1: TButton;
    Label2: TLabel;
    ListView2: TListView;
    Query1: TQuery;
    Label3: TLabel;
    StaticText1: TStaticText;
    Query2: TQuery;
    Query3: TQuery;
    Button5: TButton;
    Button4: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure z_resetArrayP();
  public
    { Public declarations }
    procedure z_deletecustomerdepartmentTempTable();
  end;

var
  zfrm_addcustomer: Tzfrm_addcustomer;

  z_count :array[0..10000] of integer;

implementation

uses zfrm_newcustomerU, zmod_commonDateU, zfrm_customermanagerU;

{$R *.DFM}

procedure Tzfrm_addcustomer.z_deletecustomerdepartmentTempTable();
begin
  // 删除customerdepartmentTemp临时表
  try  {try <2> S}
    zh_Delete_SQL := 'delete from ef_customerdepartmentTEMP';
    //showmessage(zh_Insert_SQL);
    Query2.Close;
    Query2.SQL.Clear ;
    Query2.SQL.Add(zh_Delete_SQL);
    Query2.Prepare ;
    Query2.ExecSQL ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查',
      '数据库错',
      MB_OK+MB_ICONError);
      Exit ;
  end; {try <2> E}
  //
end;

procedure Tzfrm_addcustomer.z_resetArrayP();
var
  I :integer;
begin
  //
  for I:=0 to 300 do
  begin
    z_count[I] := -1 ;
  end;
  //
end;

procedure Tzfrm_addcustomer.Button3Click(Sender: TObject);
begin
  // 新建用户
  zh_flashFlag := True ;
  zfrm_newcustomer.z_ResetEditP() ; //*****//
  zfrm_newcustomer.ShowModal ;
  //
end;

procedure Tzfrm_addcustomer.Button5Click(Sender: TObject);
begin
  // 关闭窗口
  Close ;
  //
end;

procedure Tzfrm_addcustomer.FormActivate(Sender: TObject);
var
  NewItem: TListItem;
begin
  //
  ListView1.Items.Clear;
  ListView2.Items.Clear;
  z_deletecustomerdepartmentTempTable(); //***//
  try  {try <1> S}
    zh_Select_SQL := 'select cu_name,cu_gender,cu_loginname from ef_customerinfo order by g_cu_id' ;
    //showmessage(zh_Insert_SQL);
    Query1.Close ;
    Query1.SQL.Clear ;
    Query1.SQL.Add(zh_Select_SQL) ;
    Query1.Prepare ;
    Query1.Open ;
    Query1.First ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  while not Query1.Eof do
  begin {while <1> S}
    NewItem:=ListView1.Items.add ;
    NewItem.Caption :=Query1.Fields[0].AsString ;
    NewItem.SubItems.Add(Query1.Fields[1].AsString) ;
    NewItem.SubItems.Add(Query1.Fields[2].AsString) ;
    Query1.Next ;
  end; {while <1> E}
  //
end;

procedure Tzfrm_addcustomer.Button1Click(Sender: TObject);
var
  I,J :integer ;
  NewItem: TListItem;
begin
  // 向新增加用户表添加
  J := ListView1.Items.Count-1 ;
  for I:=0 to J do
  begin
    if ListView1.Items.Item[I].Selected then
    begin
      // 象临时表中插入记录
      try  {try <1> S}
        zh_Insert_SQL := 'insert into ef_customerdepartmentTEMP values(:cu_loginname,:cu_name)' ;
        //showmessage(zh_Insert_SQL);
        Query1.Close;
        Query1.SQL.Clear ;
        Query1.SQL.Add(zh_Insert_SQL);
          Query1.ParamByName('cu_loginname').AsString  := ListView1.Items.Item[I].SubItems[1] ;
          Query1.ParamByName('cu_name').AsString       := ListView1.Items.Item[I].Caption ;
        Query1.Prepare ;
        Query1.ExecSQL ;
      except
        // 数据库错
        {
        Application.MessageBox(
          '同一部门不能添加相同人员或数据库连接错误，请您检查，谢谢！',
          '数据库错',
          MB_OK+MB_ICONError);
        }
        continue ;
      end; {try <1> E}
      // 准备添加用户
      NewItem:=ListView2.Items.add ;
      NewItem.Caption :=ListView1.Items.Item[I].Caption ;
      NewItem.SubItems.Add(ListView1.Items.Item[I].SubItems[1]) ;
      NewItem.SubItems.Add(ListView1.Items.Item[I].SubItems[0]) ;
      //ListView1.Items.Item[I].Delete ;
    end;
  end;
  //
end;

procedure Tzfrm_addcustomer.Button2Click(Sender: TObject);
var
  I,J :integer ;
begin
  // 向新增加用户表添加
  J := ListView2.Items.Count-1 ;

  // 数组初始化
  z_resetArrayP(); //***//

  for I:=0 to J do
  begin
    if ListView2.Items.Item[I].Selected then
    begin
      z_count[I] := I ;
    end;
  end;

  for I:=0 to 300 do
  begin
    if z_count[I]<>-1 then
    begin
      // 删除临时表中记录
      try  {try <1> S}
        zh_Delete_SQL := 'delete from ef_customerdepartmentTEMP where cu_loginname=:cu_loginname' ;
        //showmessage(zh_Insert_SQL);
        Query3.Close;
        Query3.SQL.Clear ;
        Query3.SQL.Add(zh_Delete_SQL);
          Query3.ParamByName('cu_loginname').AsString  := ListView2.Items.Item[I].SubItems[0] ;
        Query3.Prepare ;
        Query3.ExecSQL ;
        ListView2.Items.Item[I].Delete ;
      except
        // 数据库错
        Application.MessageBox(
          '同一部门不能添加相同人员或数据库连接错误，请您检查',
          '数据库错',
          MB_OK+MB_ICONError);
        continue ;
      end; {try <1> E}
    end; {if <1> E}
  end; {for <1> E}


  // 数组初始化
  z_resetArrayP(); //***//


  //
end;

procedure Tzfrm_addcustomer.Button6Click(Sender: TObject);
var
  I,J :integer ;
begin
  // 得到用户ID
  J := ListView1.Items.Count-1 ;
  for I:=0 to J do
  begin
    if ListView1.Items.Item[I].Selected then
    begin
      zh_cu_loginnameS := ListView1.Items.Item[I].SubItems[1] ;
      break ;
    end;
  end;
  // 用户属性
  if zh_cu_loginnameS='' then Exit;
  zh_updateFlag := True ;
  zh_flashFlag := True ;
  zfrm_newcustomer.ShowModal ;
  //
end;

procedure Tzfrm_addcustomer.Button4Click(Sender: TObject);
var
  I,J :integer ;
  g_de_idI      :integer;
  de_nameS      :string;
  cu_loginnameS :string;
  cu_nameS      :string;
begin
  // 添加用户
  if ListView2.Items.Count=0 then
  begin
    Self.Close ;
    Exit ;
   end;

  g_de_idI := z_de_id ;    //*****//
  de_nameS := z_de_nameS ; //*****//
  J := ListView2.Items.Count-1 ;
  for I:=0 to J do
  begin
    cu_nameS      := ListView2.Items.Item[I].Caption ;
    cu_loginnameS := ListView2.Items.Item[I].SubItems[0] ;
    //
    //showmessage(inttostr(g_de_idi));
    //showmessage(de_nameS);
    //showmessage(cu_loginnameS);
    //showmessage(cu_nameS);
    //
    // 保存数据
    try  {try <1> S}
      zh_Insert_SQL := 'insert into ef_customerdepartment values(:g_de_id,:de_name,:cu_loginname,:cu_name)' ;
      //showmessage(zh_Insert_SQL);
      Query1.Close;
      Query1.SQL.Clear ;
      Query1.SQL.Add(zh_Insert_SQL);
        Query1.ParamByName('g_de_id').AsInteger      := g_de_idI ;
        Query1.ParamByName('de_name').AsString       := de_nameS ;
        Query1.ParamByName('cu_loginname').AsString  := cu_loginnameS ;
        Query1.ParamByName('cu_name').AsString       := cu_nameS ;
      Query1.Prepare ;
      Query1.ExecSQL ;
    except
      // 数据库错
      {Application.MessageBox(
        '用户ID不唯一或数据库连接错误，请您检查，谢谢！',
        '数据库错',
        MB_OK+MB_ICONError); }
       continue ;
    end; {try <1> E}
  end; {for <1> E}

  z_deletecustomerdepartmentTempTable(); //***//

  // 保存成功
  Application.MessageBox(
        '用户已添加成功',
        '添加成功',
        MB_Ok+MB_ICONINFORMATION );

  zfrm_customerM.z_flashFormP() ; //*****//
  Self.Close ;
  //
end;

procedure Tzfrm_addcustomer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //
  z_deletecustomerdepartmentTempTable(); //***//
  //
end;

end.