📄 zfrm_newcustomeru.pas

📁 专业的评标管理系统
💻 PAS
字号:
{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_newcustomerU                                      *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-16　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_newcustomerU;

interface

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

type
  Tzfrm_newcustomer = class(TForm)
    Button1: TButton;
    Button2: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Image2: TImage;
    Timer1: TTimer;
    Query1: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure z_ResetEditP();
  end;

var
  zfrm_newcustomer: Tzfrm_newcustomer;

implementation

uses zmod_commonDateU, zfrm_customerU, zfrm_setcustomerU;

{$R *.DFM}

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

procedure Tzfrm_newcustomer.z_ResetEditP();
begin
  // 清空所有数据
  Edit1.Text := '' ;
  Edit2.Text := '999999' ;
  Edit3.Text := '999999' ;
  Edit4.Text := '' ;
  Edit5.Text := '' ;
  //
end;

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

procedure Tzfrm_newcustomer.Button2Click(Sender: TObject);
begin
  // 取消
  Close ;
  //
end;

procedure Tzfrm_newcustomer.Timer1Timer(Sender: TObject);
begin
  //判断必输域是否为空
  if (Trim(Edit1.Text) ='') or (Trim(Edit2.Text) ='') or (Trim(Edit3.Text) ='') or
     (Trim(Edit4.Text) ='') or (Trim(Edit5.Text) ='') or
     (Trim(ComboBox1.Text) ='') or(Trim(ComboBox2.Text) ='')
  then
  begin
    Button1.Enabled :=False ;
  end;
  if (Trim(Edit1.Text) <>'') and (Trim(Edit2.Text) <>'') and (Trim(Edit3.Text) <>'') and
     (Trim(Edit4.Text) <>'') and (Trim(Edit5.Text) <>'') and
     (Trim(ComboBox1.Text) <>'') and (Trim(ComboBox2.Text) <>'')
  then
  begin
    Button1.Enabled :=True ;
  end;
  //
end;

procedure Tzfrm_newcustomer.BitBtn1Click(Sender: TObject);
begin
  // 清空所有数据
  Edit1.Text := '' ;
  Edit2.Text := '999999' ;
  Edit3.Text := '999999' ;
  Edit4.Text := '' ;
  Edit5.Text := '' ;
  Edit1.SetFocus ;
  //
end;

procedure Tzfrm_newcustomer.Button1Click(Sender: TObject);
var
  I :integer;
  temp :string;
begin
  // 判断数据是否输入正确
  if Edit2.Text <> Edit3.Text then
  begin
    Application.MessageBox(
        '用户密码和确认密码不一致，请您重新输入',
        '密码错误',
        MB_Ok+MB_ICONError);
    Edit2.Text :='';
    Edit3.Text :='';
    Edit2.SetFocus ;
    Exit;
  end;

  // 更新用户数据 - 开始
  if Caption = '用户属性' then
  begin
    // 更新数据
    try  {try <1> S}
      zh_Update_SQL := 'update tm_customerinfo set ci_password=:cu_password,ci_name=:cu_name,ci_telephone=:cu_telephone,ci_gender=:cu_gender,ci_level=:cu_level where ci_loginname=' + '''' + zh_cu_loginnameS + '''' ;
      Query1.Close;
      Query1.SQL.Clear ;
      Query1.SQL.Add(zh_Update_SQL);
        Query1.ParamByName('cu_password').AsString   := Edit2.Text ;
        Query1.ParamByName('cu_name').AsString       := Edit4.Text ;
        Query1.ParamByName('cu_gender').AsString     := ComboBox1.Text ;
        Query1.ParamByName('cu_telephone').AsString  := Edit5.Text ;
        Query1.ParamByName('cu_level').AsString      := ComboBox2.Text ;
      Query1.Prepare ;
      Query1.ExecSQL ;
    except
      // 数据库错
      Application.MessageBox(
        '数据库连接错误，请您检查或系统管理员联系',
        '数据库错',
        MB_OK+MB_ICONError) ;
        Exit ;
    end; {try <1> E}

    // 清空所有数据
    z_ResetEditP ; //***//

    try
    zfrm_customer.z_FlashListView1P ; //***//
    except
    end;

    try
    zfrm_setcustomer.z_FlashListView1P ; //***//
    except
    end;

    Self.Close ;
    Exit ;
  end;
  // 更新用户数据 - 结束

  // 得到，新的“部门ID”序列值
  temp := 'ge_ci_id' ;
  I := zh_GetNewIdF(temp) ; //*****//

  // 保存数据
  try  {try <1> S}
    zh_Insert_SQL := 'insert into tm_customerinfo values(:g_cu_id,:cu_loginname,:cu_password,:cu_name,:cu_gender,:cu_telephone,:cu_level)' ;
    //showmessage(zh_Insert_SQL);
    Query1.Close;
    Query1.SQL.Clear ;
    Query1.SQL.Add(zh_Insert_SQL);
      Query1.ParamByName('g_cu_id').AsInteger      := I ;
      Query1.ParamByName('cu_loginname').AsString  := Edit1.Text ;
      Query1.ParamByName('cu_password').AsString   := Edit2.Text ;
      Query1.ParamByName('cu_name').AsString       := Edit4.Text ;
      Query1.ParamByName('cu_gender').AsString     := ComboBox1.Text ;
      Query1.ParamByName('cu_telephone').AsString  := Edit5.Text ;
      Query1.ParamByName('cu_level').AsString      := ComboBox2.Text ;
    Query1.Prepare ;
    Query1.ExecSQL ;
  except
      // 数据库错
      Application.MessageBox(
      '用户代码不唯一或数据库连接错误，请您检查',
      '数据库错',
      MB_OK+MB_ICONError);
      Edit1.SetFocus ;
      Exit ;
  end; {try <1> E}

  try
  zfrm_customer.z_FlashListView1P ; //***//
  except
  end;

  try
  zfrm_setcustomer.z_FlashListView1P ; //***//
  except
  end;


  // 保存成功
  Application.MessageBox(
        '您刚刚输入的数据，已保存成功',
        '保存成功',
        MB_Ok+MB_ICONINFORMATION );

  // 清空所有数据
  BitBtn1Click(self) ; //***//
  //
end;

procedure Tzfrm_newcustomer.FormCreate(Sender: TObject);
begin
  // 清空所有数据
  z_ResetEditP ; //***//
  //
end;

procedure Tzfrm_newcustomer.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //
   if key=#13 then
     postmessage(Self.Handle,WM_KEYDOWN,VK_TAB,0);
  //
end;

procedure Tzfrm_newcustomer.ComboBox2KeyPress(Sender: TObject;
  var Key: Char);
begin
   // 判断回车键
  if Key =#13 then
  begin {if  <键入是回车键> B}
    if Button1.Enabled then //如果保存按钮激活
    begin {if <保存按钮激活> B}
      Button1.SetFocus ;
    end   {if <保存按钮激活> E}
    else  //如果保存按钮不可用
    begin {else <保存按钮不可用> B}
      Application.MessageBox(
        '请您检查前面的输入域，有空值域',
        '必输域为空',
        MB_Ok+MB_ICONWARNING );

      //判断哪个输入域为空*** <功能模块>开始 *** //
      if Trim(Edit1.Text) ='' then
      begin
        Edit1.SetFocus ;
        Exit ;
      end;
      if Trim(Edit2.Text) ='' then
      begin
        Edit2.SetFocus ;
        Exit ;
      end;
      if Trim(Edit3.Text) ='' then
      begin
        Edit3.SetFocus ;
        Exit ;
      end;
      if Trim(Edit4.Text) ='' then
      begin
        Edit4.SetFocus ;
        Exit ;
      end;
      if Trim(Edit5.Text) ='' then
      begin
        Edit5.SetFocus ;
        Exit ;
      end;
      //判断哪个输入域为空*** <功能模块>结束 *** //
    end;  {else <保存按钮不可用> E}
  end;  {if  <键入是回车键> E}
  Key := #0 ;
  //
end;

procedure Tzfrm_newcustomer.FormActivate(Sender: TObject);
begin
  //
  Timer1.Enabled := True ;

  if Caption = '新建用户' then
  begin
    BitBtn1Click(self) ; //***//
    ComboBox1.ItemIndex:=0;
    ComboBox2.ItemIndex:=1;
  end;

  // 如果为更新操作,初始化
  if Caption = '用户属性' then
  begin
    Edit2.SetFocus ;
    Edit1.Text := zh_cu_loginnameS ;
    try  {try <1> S}
      zh_Select_SQL := 'select * from tm_customerinfo where ci_loginname=:ci_loginname ' ;
      Query1.Close ;
      Query1.SQL.Clear ;
      Query1.SQL.Add(zh_Select_SQL) ;
          Query1.ParamByName('ci_loginname').AsString  := Edit1.Text ;
      Query1.Prepare ;
      Query1.Open ;
      Query1.First ;
      Edit2.Text := Query1.Fields[2].AsString ;
      Edit3.Text := Query1.Fields[2].AsString ;
      Edit4.Text := Query1.Fields[3].AsString ;
      if Query1.Fields[4].AsString='男' then
        ComboBox1.ItemIndex:=0
      else
        ComboBox1.ItemIndex:=1;
      Edit5.Text := Query1.Fields[5].AsString ;
      if Query1.Fields[6].AsString='管理员' then
        ComboBox2.ItemIndex:=0
      else
        ComboBox2.ItemIndex:=1;
      Query1.Close ;
    except
        // 数据库错
        Application.MessageBox(
        '数据库连接错误，请您检查或系统管理员联系',
        '数据库错',
        MB_OK+MB_ICONError) ;
        Exit ;
    end; {try <1> E}
  end;
  //
end;

procedure Tzfrm_newcustomer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //
  Timer1.Enabled := False ;
  //
end;

procedure Tzfrm_newcustomer.ComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
  //
  if Key = #13 then
     postmessage(Self.Handle,WM_KEYDOWN,VK_TAB,0);
  Key := #0 ;
  //
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -