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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 教育系统应用 > 查看源码
Unit12.pas
资源名称：毕业设计(带论文)—试卷生成系统.rar　[点击查看]
上传用户：szyozho
上传日期：2013-04-13
资源大小：3688k
文件大小：3k
源码类别：

教育系统应用

开发平台：

Delphi

Unit12.pas：源码内容
  1. unit Unit12;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, jpeg, Mask,
  8.   DB, DBTables;
  10. type
  11.   Tusermanage = class(TForm)
  12.     Panel1: TPanel;
  13.     BitBtn1: TBitBtn;
  14.     Image1: TImage;
  15.     Bevel1: TBevel;
  16.     Label1: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     DBEdit1: TDBEdit;
  20.     DBEdit2: TDBEdit;
  21.     DBComboBox1: TDBComboBox;
  22.     Label2: TLabel;
  23.     Label5: TLabel;
  24.     Label6: TLabel;
  25.     Label7: TLabel;
  26.     DBNavigator1: TDBNavigator;
  27.     DBGrid1: TDBGrid;
  28.     Query1: TQuery;
  29.     Query1ID: TStringField;
  30.     Query1mi: TStringField;
  31.     Query1qx: TStringField;
  32.     BitBtn2: TBitBtn;
  33.     BitBtn3: TBitBtn;
  34.     DataSource1: TDataSource;
  35.   //  procedure BitBtn2Click(Sender: TObject);
  36.   //  procedure BitBtn3Click(Sender: TObject);
  37.     procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  38.     procedure FormCreate(Sender: TObject);
  39.     procedure BitBtn1Click(Sender: TObject);
  40.     procedure DBEdit1Change(Sender: TObject);
  41.     procedure BitBtn2Click(Sender: TObject);
  42.     procedure DBEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  43.       Shift: TShiftState; X, Y: Integer);
  44.   //  procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  52. var
  53.   usermanage: Tusermanage;
  54.  // havechange:boolean;
  55. implementation
  57. uses Unit4, Unit3;
  59. {$R *.dfm}
  62. procedure Tusermanage.DBNavigator1Click(Sender: TObject;
  63.   Button: TNavigateBtn);
  64. begin
  66. case button of
  67. nbInsert :
  68. begin
  70. DBGrid1.Enabled:=false;
  72.  end;
  73.  end;
  74.  case button of
  75.  nbPost:
  76.  begin
  78.  DataModule4.Table_u.Close;
  79.  DataModule4.Table_u.Open;
  80.  end;
  81.  end;
  84.  case button of
  85.  nbFirst,nbPrior,nbNext,nbLast,nbDelete,nbPost,nbCancel: DBGrid1.Enabled:=true;
  86. end;
  87.    end;
  88. procedure Tusermanage.FormCreate(Sender: TObject);
  89. begin
  90. //havechange:=false;
  91. //Form3.Active:=false;
  92. end;
  94. procedure Tusermanage.BitBtn1Click(Sender: TObject);
  95. begin
  96. //form3.Active:=true;
  97. //usermanage.Close;
  98. end;
  100. procedure Tusermanage.DBEdit1Change(Sender: TObject);
  101. begin
  102. //havechange:=true;
  103. end;
  105. procedure Tusermanage.BitBtn2Click(Sender: TObject);
  106. begin
  107. if DBEdit1.Text='' then
  108. showmessage('用户名不能为空！')
  109. else if DBEdit2.Text='' then
  110. showmessage('密码不能为空！')
  111. else if  DBComboBox1.Text='' then
  112. showmessage('请选择用户权限：管理员用a表示，一般用户用b表示！')
  113. else
  114. begin
  118. query1.Close;
  119. query1.SQL.Clear;
  120. query1.SQL.Add('select * from u where ID='''+DBEdit1.Text+'''') ;
  121. query1.Open;
  122. if query1.RecordCount<1 then
  123. begin
  124. DataModule4.Table_u.Post;
  125. DataModule4.Table_u.Close;
  126.  DataModule4.Table_u.Open;
  127.  showmessage('新用户添加成功！');
  128.  end
  129.  else
  130.  begin
  132.  showmessage('该用户已经存在！');
  134.    DataModule4.Table_u.Close;
  135.  DataModule4.Table_u.Open;
  136. end;
  137. end;
  138. end;
  139. procedure Tusermanage.DBEdit1MouseDown(Sender: TObject;
  140.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  141. begin
  142. //DBEdit1.DataSource.Enabled:=false;
  143. // DBEdit2.DataSource.Enabled:=false;
  144.  //DBComboBox1.DataSource.Enabled:=false;
  145. end;
  147. end.