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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit27.~pas
资源名称：HIS.rar　[点击查看]
上传用户：fjdqny
上传日期：2016-10-26
资源大小：6299k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit27.~pas：源码内容
  1. unit Unit27;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls;
  9. type
  10.   TForm27 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     Label2: TLabel;
  17.     Edit2: TEdit;
  18.     Button1: TButton;
  19.     Button2: TButton;
  20.     DataSource1: TDataSource;
  21.     DBGrid1: TDBGrid;
  22.     ADOConnection1: TADOConnection;
  23.     ADOQuery1: TADOQuery;
  24.     ADOQuery2: TADOQuery;
  25.     DataSource2: TDataSource;
  26.     Label3: TLabel;
  27.     Edit3: TEdit;
  28.     Button3: TButton;
  29.     DBGrid2: TDBGrid;
  30.     Button4: TButton;
  31.     Button5: TButton;
  32.     Button6: TButton;
  33.     procedure Button1Click(Sender: TObject);
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure Button3Click(Sender: TObject);
  36.     procedure Button4Click(Sender: TObject);
  37.     procedure Button5Click(Sender: TObject);
  38.     procedure Button2Click(Sender: TObject);
  39.     procedure Button6Click(Sender: TObject);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  46. var
  47.   Form27: TForm27;
  48.   Query : TADOQuery;
  49.   aaa,yonghu,mima:Char;
  50. implementation
  52. {$R *.dfm}
  54. procedure TForm27.FormCreate(Sender: TObject);
  55. begin
  56.     adoquery1.Close;
  57.     adoquery1.SQL.Clear;
  58.     adoquery1.SQL.Add('select  *  from  denglu');
  59.     adoquery1.Open;
  60. end;
  63. procedure TForm27.Button1Click(Sender: TObject);
  64. begin
  65. if (Edit1.Text<>'') and (Edit2.text<>'')  then
  66.  begin
  68.    Query := TADOQuery.Create(nil);
  69.    Query.Connection :=ADOConnection1;
  70.    Query.SQL.Add('select yonghu from denglu  where yonghu =:aaa');
  71.    Query.Parameters.ParamByName('aaa').Value :=edit1.Text;
  72.    Query.Open;
  73.    if Query.RecordCount <>0 then
  74.    showmessage('此用户信息已存在！')
  75.    else
  76.    begin
  77.     adoquery1.Open;
  78.     adoquery1.SQL.Clear;
  79.     adoquery1.SQL.Add('insert  into  denglu(yonghu,mima)  values(:yonghu,:mima)');
  80.     adoquery1.Parameters.ParamByName('yonghu').Value:=Edit1.Text;
  81.     adoquery1.Parameters.ParamByName('mima').Value:=Edit2.Text;
  83.     adoquery1.ExecSQL;
  85.     adoquery1.Close;
  86.     adoquery1.SQL.Clear;
  87.     adoquery1.SQL.Add('select  *  from  denglu');
  88.     adoquery1.Open;
  90.     edit1.Clear;edit2.Clear;
  91.     showmessage('数据已经添加成功！');
  92.    end
  93.  end
  94. else
  95.   if (Edit1.Text='') then
  96.    showmessage('请输入用户！')
  97. else
  98.   if (Edit2.Text='') then
  99.    showmessage('请输入密码！');
  100. end;
  103. procedure TForm27.Button3Click(Sender: TObject);
  104. begin
  105. if (Edit3.Text<>'') then
  106. begin
  107.    Query := TADOQuery.Create(nil);
  108.    Query.Connection :=ADOConnection1;
  109.    Query.SQL.Add('select yonghu from denglu  where yonghu =:aaa');
  110.    Query.Parameters.ParamByName('aaa').Value :=edit3.Text;
  111.    Query.Open;
  112.    if Query.RecordCount =0 then  //非0表示存在，0表示不存在
  113.    showmessage('此用户信息不存在！')
  114.    else
  116.   begin
  117.   adoquery2.Close;
  118.   adoquery2.SQL.Clear;
  119.   adoquery2.SQL.Add('select  *  from denglu where yonghu='''+edit3.Text+'''');
  120.   adoquery2.Open;
  121.   end
  122. end
  124. else
  125.    showmessage('请输入用户名！');
  126. end;
  128. procedure TForm27.Button4Click(Sender: TObject);
  129. begin
  130. if (edit3.Text<>'') then
  131.   begin
  132.   adoquery2.Close;
  133.   adoquery2.SQL.Clear;
  134.   adoquery2.SQL.Add('delete   from  denglu where yonghu='''+edit3.Text+'''');
  135.   adoquery2.ExecSQL;
  137.   adoquery1.Close;
  138.   adoquery1.SQL.Clear;
  139.   adoquery1.SQL.Add('select  *  from  denglu');
  140.   adoquery1.Open;
  142.   showmessage('数据已经删除成功！');
  143.   end
  145. end;
  147. procedure TForm27.Button5Click(Sender: TObject);
  148. begin
  149.   adoquery2.Post;
  151.   adoquery1.Close;
  152.   adoquery1.SQL.Clear;
  153.   adoquery1.SQL.Add('select  *  from  denglu');
  154.   adoquery1.Open;
  156.   showmessage('数据已经修改成功！');
  157. end;
  159. procedure TForm27.Button2Click(Sender: TObject);
  160. begin
  161. form27.Close;
  162. end;
  164. procedure TForm27.Button6Click(Sender: TObject);
  165. begin
  166. form27.Close;
  167. end;
  169. end.