zfrm_customeru.pas

专业的评标管理系统

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

unit zfrm_customerU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ImgList, ToolWin, Menus, ActnList, Db, DBTables;

type
  Tzfrm_customer = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    D4: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    X1: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    ListView1: TListView;
    ActionList1: TActionList;
    z_new: TAction;
    z_property: TAction;
    z_delete: TAction;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Query4: TQuery;
    Query1: TQuery;
    procedure z_newExecute(Sender: TObject);
    procedure z_propertyExecute(Sender: TObject);
    procedure z_deleteExecute(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }

    {begin
       Inherited ;
       With Params Do
         exStyle := exStyle Or WS_EX_APPWINDOW;
     end;
    }

  public
    { Public declarations }
    Procedure CreateParams(Var Params: TCreateParams); Override;
    procedure z_FlashListView1P();        // 刷新ListView1
  end;

var
  zfrm_customer: Tzfrm_customer;

implementation

uses zfrm_newcustomerU, zmod_commonDateU;

{$R *.DFM}

Procedure Tzfrm_customer.CreateParams(Var Params: TCreateParams);
begin
  Inherited ;
  With Params Do
     exStyle := exStyle Or WS_EX_APPWINDOW;
end;

////////////////////// 用户自定义- <开始> //////////////////////
//
procedure Tzfrm_customer.z_FlashListView1P();
var
  NewItem: TListItem;
begin
  //
  ListView1.Items.Clear;

  zh_Select_SQL := 'select * from tm_customerinfo order by g_ci_id' ;

  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[1].AsString ;
    NewItem.SubItems.Add(Query4.Fields[3].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[4].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[5].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[6].AsString) ;
    NewItem.ImageIndex := 4 ;
    Query4.Next ;
  end; {while <1> E}
  //
end;

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

procedure Tzfrm_customer.z_newExecute(Sender: TObject);
begin
  // 新建用户
  with zfrm_newcustomer do
  begin
    Caption := '新建用户' ;
    BitBtn1.Visible := True ;
    Image1.BringToFront ;
    Edit1.Enabled := True ;
    ShowModal ;
  end;
  //
end;

procedure Tzfrm_customer.z_propertyExecute(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].Caption ;
      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;

procedure Tzfrm_customer.z_deleteExecute(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].Caption ;
      Break ;
    end;
  end;

  if zh_cu_loginnameS='' then Exit;

  if (zh_cu_loginnameS='ADMIN') then
  begin
    Application.MessageBox(
        '您不能删除管理员',
        '相关权限',
        MB_Ok+MB_ICONINFORMATION );
    Exit;
  end;

  zh_returnV:=Application.MessageBox(
      '您是否要从本系统删除此用户？',
      '删除用户',
       MB_YesNo++MB_ICONWARNING);
  if zh_returnV=IDNO then Exit;

  // 删除用户
  try  {try <1> S}
    zh_Delete_SQL := 'delete from tm_customerinfo where ci_loginname=:cu_loginname';
    //showmessage(zh_Insert_SQL);
    Query1.Close;
    Query1.SQL.Clear ;
    Query1.SQL.Add(zh_Delete_SQL);
      Query1.ParamByName('cu_loginname').AsString  := zh_cu_loginnameS ;
    Query1.Prepare ;
    Query1.ExecSQL ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查',
      '数据库错',
      MB_OK+MB_ICONError);
      Exit ;
  end; {try <1> E}
  z_FlashListView1P ; //***//
  //
end;

procedure Tzfrm_customer.X1Click(Sender: TObject);
begin
  // 关闭
  Close ;
  //
end;

procedure Tzfrm_customer.FormActivate(Sender: TObject);
begin
  //
  z_FlashListView1P ; //***//
  //
end;

procedure Tzfrm_customer.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //
  Case Key of
    VK_delete:
      z_deleteExecute(Self) ; //***//
  end;
  //
end;

end.