zfrm_setcustomeru.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_setcustomerU                                      *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_setcustomerU;

interface

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

type
  Tzfrm_setcustomer = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ListView1: TListView;
    Button3: TButton;
    Button6: TButton;
    Button2: TButton;
    Button1: TButton;
    ListView2: TListView;
    Button4: TButton;
    Button5: TButton;
    Image1: TImage;
    Label3: TLabel;
    Query4: TQuery;
    Query2: TQuery;
    Query1: TQuery;
    Query3: TQuery;
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
    procedure z_resetArrayP();
  public
    { Public declarations }
    procedure z_FlashListView1P();
    procedure z_Delete_tm_customerprojectTEMP_Table();
    procedure z_FlashCustomerListView2P(z_pi_code:string);
  end;

var
  zfrm_setcustomer: Tzfrm_setcustomer;

  // 自定义变量
  z_pi_code: string;   // 声明-<工程代码>-变量
  z_pi_name: string;   // 声明-<工程名称>-变量
  z_count :array[0..10000] of integer;

implementation

uses zmod_commonDateU, zfrm_newcustomerU;

{$R *.DFM}

////////////////////// 用户自定义- <开始> //////////////////////

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

procedure Tzfrm_setcustomer.z_FlashCustomerListView2P(z_pi_code:string);
var
  NewItem: TListItem;
begin
  //
  ListView2.Items.Clear;

  zh_Select_SQL := 'select ci_name, ci_gender, ci_loginname from tm_customerprojectinfoV where pi_code=' + '''' + z_pi_code + '''' ;

  try  {try <1> S}
    Query4.Close ;
    Query4.SQL.Clear ;
    Query4.SQL.Add(zh_Select_SQL) ;
    Query4.Prepare ;
    Query4.Open ;
    Query4.First ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  while not Query4.Eof do
  begin {while <1> S}
    NewItem:=ListView2.Items.add ;
    NewItem.Caption :=Query4.Fields[0].AsString ;
    NewItem.SubItems.Add(Query4.Fields[1].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[2].AsString) ;
    try  {try <1> S}
      zh_Insert_SQL := 'insert into tm_customerprojectTEMP values(:cu_loginname)' ;
      //showmessage(zh_Insert_SQL);
      Query1.Close;
      Query1.SQL.Clear ;
      Query1.SQL.Add(zh_Insert_SQL);
        Query1.ParamByName('cu_loginname').AsString  := Query4.Fields[2].AsString ;
      Query1.Prepare ;
      Query1.ExecSQL ;
    except
      // 数据库错
      {
      Application.MessageBox(
        '同一部门不能添加相同人员或数据库连接错误，请您检查，谢谢！',
        '数据库错',
        MB_OK+MB_ICONError);
      }
    end; {try <1> E}
    //NewItem.ImageIndex := 4 ;
    Query4.Next ;
  end; {while <1> E}
  //
end;

procedure Tzfrm_setcustomer.z_Delete_tm_customerprojectTEMP_Table();
begin
  // 删除customerprojectTemp临时表
  try  {try <2> S}
    zh_Delete_SQL := 'delete from tm_customerprojectTEMP';
    //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_setcustomer.z_FlashListView1P();
var
  NewItem: TListItem;
begin
  //
  ListView1.Items.Clear;

  zh_Select_SQL := 'select * from tm_customerinfo ' ;

  try  {try <1> S}
    Query4.Close ;
    Query4.SQL.Clear ;
    Query4.SQL.Add(zh_Select_SQL) ;
    Query4.Prepare ;
    Query4.Open ;
    Query4.First ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

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

////////////////////// 用户自定义- <结束> //////////////////////


procedure Tzfrm_setcustomer.Button5Click(Sender: TObject);
begin
  // 取消
  Close ;
  //
end;

procedure Tzfrm_setcustomer.FormActivate(Sender: TObject);
begin
  // 刷新 初始化
  z_Delete_tm_customerprojectTEMP_Table ; //***//
  z_FlashListView1P ; //***//
  z_FlashCustomerListView2P(z_pi_code) ; //***//
  Label3.Caption := z_pi_name ;
  //
end;

procedure Tzfrm_setcustomer.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 tm_customerprojectTEMP values(:cu_loginname)' ;
        //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.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[0]) ;
      NewItem.SubItems.Add(ListView1.Items.Item[I].SubItems[1]) ;
    end;
  end;
  //
end;

procedure Tzfrm_setcustomer.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 tm_customerprojectTEMP where ci_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[1] ;
        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_setcustomer.Button4Click(Sender: TObject);
var
  I,J :integer ;
begin
  // 添加用户
  if ListView2.Items.Count=0 then
  begin
    Self.Close ;
    Exit ;
  end;

  J := ListView2.Items.Count-1 ;
  // 删除原数据
  zh_Delete_SQL := 'delete from tm_customerproject where pi_code=' + '''' + z_pi_code + '''' ;
  Query1.Close;
  Query1.SQL.Clear ;
  Query1.SQL.Add(zh_Delete_SQL);
  Query1.Prepare ;
  Query1.ExecSQL ;

  for I:=0 to J do
  begin
    // 保存数据
    try  {try <1> S}
      zh_Insert_SQL := 'insert into tm_customerproject values(:pi_code, :ci_loginname)' ;
      //showmessage(zh_Insert_SQL);
      Query1.Close;
      Query1.SQL.Clear ;
      Query1.SQL.Add(zh_Insert_SQL);
        Query1.ParamByName('pi_code').AsString       := z_pi_code ;
        Query1.ParamByName('ci_loginname').AsString  := ListView2.Items.Item[I].SubItems[1] ;
      Query1.Prepare ;
      Query1.ExecSQL ;
    except
      // 数据库错
      {Application.MessageBox(
        '用户ID不唯一或数据库连接错误，请您检查，谢谢！',
        '数据库错',
        MB_OK+MB_ICONError); }
       continue ;
    end; {try <1> E}
  end; {for <1> E}

  // 保存成功
  {Application.MessageBox(
        '用户已设置成功',
        '设置成功',
        MB_Ok+MB_ICONINFORMATION );
  }
  Self.Close ;
  //
end;
procedure Tzfrm_setcustomer.Button3Click(Sender: TObject);
begin
  // 新建用户
  with zfrm_newcustomer do
  begin
    Caption := '新建用户' ;
    BitBtn1.Visible := True ;
    Image1.BringToFront ;
    Edit1.Enabled := True ;
    ShowModal ;
  end;
  //
end;

procedure Tzfrm_setcustomer.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;

  //
  with zfrm_newcustomer do
  begin
    Caption := '用户属性' ;
    BitBtn1.Visible := False ;
    Image2.BringToFront ;
    Edit1.Enabled := False ;
    ShowModal ;
  end;
  //
end;

end.