开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
UnitUserList.pas
资源名称：东之源.rar　[点击查看]
上传用户：zexin0769
上传日期：2010-01-19
资源大小：443k
文件大小：4k
源码类别：

百货/超市行业

开发平台：

Delphi

UnitUserList.pas：源码内容
  1. unit UnitUserList;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  7.   Dialogs, ExtCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, Mask,
  8.   DBCtrls;
  10. type
  11.   TFrameUserList = class(TFrame)
  12.     Image1: TImage;
  13.     DBGrid1: TDBGrid;
  14.     DataSource1: TDataSource;
  15.     GroupBox1: TGroupBox;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Image2: TImage;
  19.     Image3: TImage;
  20.     Image4: TImage;
  21.     DBEdit1: TDBEdit;
  22.     DBEdit2: TDBEdit;
  23.     Label3: TLabel;
  24.     Image5: TImage;
  25.     DBComboBox1: TDBComboBox;
  26.     ADOQuery1: TADOQuery;
  27.     Image6: TImage;
  28.     procedure Image4Click(Sender: TObject);
  29.     procedure Image5Click(Sender: TObject);
  30.     procedure Image3Click(Sender: TObject);
  31.     procedure Image2Click(Sender: TObject);
  32.     procedure Image6Click(Sender: TObject);
  33.     procedure GoEditState();
  34.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  35.     procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  42. implementation
  44. uses UnitLogin, UnitMain;
  46. {$R *.dfm}
  48. procedure TFrameUserList.Image4Click(Sender: TObject);
  49. begin
  50.   {修改用户}
  51.   GoEditState();
  52.   ADOQuery1.Edit;
  53. end;
  55. procedure TFrameUserList.Image5Click(Sender: TObject);
  56. var
  57.   i:  integer;
  58. begin
  59.   {提交数据}
  60.   if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBComboBox1.Text<>'') then
  61.     ADOQuery1.Post
  62.   else
  63.     if messagebox(handle,'您的输入不正确（空值），放弃输入？','检查输入',mb_iconquestion+mb_yesno)=IDyes then
  64.       ADOQuery1.Cancel
  65.     else
  66.       exit;
  67.   Image2.Enabled := True;
  68.   Image3.Enabled := True;
  69.   Image4.Enabled := True;
  70.   DBEdit1.Color := $00FFF0DC;
  71.   DBEdit2.Color := $00FFF0DC;
  72.   DBComboBox1.Color := $00FFF0DC;
  73.   DBEdit1.Enabled := False;
  74.   DBEdit2.Enabled := False;
  75.   DBComboBox1.Enabled := False;
  76.   Image5.Visible := False;
  77.   Image6.Visible := False;
  78. end;
  80. procedure TFrameUserList.Image3Click(Sender: TObject);
  81. begin
  82.   if ADOQuery1.FieldByName('user_name').AsString=UserName then
  83.   begin
  84.     messagebox(handle,'自己不能删除自己！','删除错误',mb_iconwarning+mb_ok);
  85.     exit;
  86.   end;
  87.   if messagebox(handle,'删除的用户不能被恢复，是否删除？','确认删除',mb_iconquestion+mb_yesno)=IDyes then ADOQuery1.Delete;
  88. end;
  90. procedure TFrameUserList.Image2Click(Sender: TObject);
  91. var
  92.   i: integer;
  93. begin
  94.   {添加用户}
  95.   GoEditState();
  96.   ADOQuery1.Append;
  97. end;
  99. procedure TFrameUserList.Image6Click(Sender: TObject);
  100. begin
  101.   {放弃提交}
  102.   ADOQuery1.Cancel;
  103.   Image2.Enabled := True;
  104.   Image3.Enabled := True;
  105.   Image4.Enabled := True;
  106.   DBEdit1.Color := $00FFF0DC;
  107.   DBEdit2.Color := $00FFF0DC;
  108.   DBComboBox1.Color := $00FFF0DC;
  109.   DBEdit1.Enabled := False;
  110.   DBEdit2.Enabled := False;
  111.   DBComboBox1.Enabled := False;
  112.   Image5.Visible := False;
  113.   Image6.Visible := False;
  114. end;
  116. procedure TFrameUserList.GoEditState();
  117. begin
  118.   {进入编辑状态}
  119.   Image2.Enabled := False;
  120.   Image3.Enabled := False;
  121.   Image4.Enabled := False;
  122.   DBEdit1.Color := clWhite;
  123.   DBEdit2.Color := clWhite;
  124.   DBComboBox1.Color := clWhite;
  125.   DBEdit1.Enabled := True;
  126.   DBEdit2.Enabled := True;
  127.   DBComboBox1.Enabled := True;
  128.   Image5.Visible := True;
  129.   Image6.Visible := True;
  130.   DBEdit1.SetFocus;
  131. end;
  133. procedure TFrameUserList.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  134. begin
  135.   if Key=#13 then DBEdit2.SetFocus;
  136. end;
  138. procedure TFrameUserList.DBEdit2KeyPress(Sender: TObject; var Key: Char);
  139. begin
  140.   if Key=#13 then DBComboBox1.SetFocus;
  141. end;
  143. end.