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

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

Delphi控件源码

开发平台：

Delphi

Unit13.pas：源码内容
  1. unit Unit13;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, DB, ADODB, Mask, DBCtrls;
  9. type
  10.   TForm13 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     Label5: TLabel;
  19.     Label6: TLabel;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     DBGrid1: TDBGrid;
  23.     Label7: TLabel;
  24.     Edit7: TEdit;
  25.     Label8: TLabel;
  26.     Edit8: TEdit;
  27.     Button3: TButton;
  28.     Button4: TButton;
  29.     Button5: TButton;
  30.     Button6: TButton;
  31.     ADOConnection1: TADOConnection;
  32.     ADOQuery1: TADOQuery;
  33.     DataSource1: TDataSource;
  34.     Edit1: TEdit;
  35.     Edit2: TEdit;
  36.     Edit3: TEdit;
  37.     Edit4: TEdit;
  38.     Edit5: TEdit;
  39.     Edit6: TEdit;
  40.     DBGrid2: TDBGrid;
  41.     ADOQuery2: TADOQuery;
  42.     DataSource2: TDataSource;
  43.     procedure FormCreate(Sender: TObject);
  44.     procedure Button1Click(Sender: TObject);
  45.     procedure Button3Click(Sender: TObject);
  46.     procedure Button4Click(Sender: TObject);
  47.     procedure Button5Click(Sender: TObject);
  48.     procedure Button6Click(Sender: TObject);
  49.     procedure Button2Click(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  56. var
  57.   Form13: TForm13;
  58.   HushiNo,Name,Sex,Born,Zhicheng,Isfree:Char;
  60. implementation
  62. {$R *.dfm}
  64. procedure TForm13.FormCreate(Sender: TObject);
  65. begin
  66.   adoquery1.Close;
  67.   adoquery1.SQL.Clear;
  68.   adoquery1.SQL.Add('select  *  from  hushi');
  69.   adoquery1.Open;
  70. end;
  72. procedure TForm13.Button1Click(Sender: TObject);
  73. begin
  74. if (Edit1.Text<>'') and (Edit2.text<>'')  then
  75.  begin
  76.   adoquery1.Open;
  77.   adoquery1.SQL.Clear;
  78.   adoquery1.SQL.Add('insert  into  hushi(HushiNo,Name,Sex,Born,Zhicheng,Isfree)  values(:HushiNo,:Name,:Sex,:Born,:Zhicheng,:Isfree)');
  79.   adoquery1.Parameters.ParamByName('HushiNo').Value:=Edit1.Text;
  80.   adoquery1.Parameters.ParamByName('Name').Value:=Edit2.Text;
  81.   adoquery1.Parameters.ParamByName('Sex').Value:=Edit3.Text;
  82.   adoquery1.Parameters.ParamByName('Born').Value:=Edit4.Text;
  83.   adoquery1.Parameters.ParamByName('Zhicheng').Value:=Edit5.Text;
  84.   adoquery1.Parameters.ParamByName('Isfree').Value:=Edit6.Text;
  85.   adoquery1.ExecSQL;
  87.   adoquery1.Close;
  88.   adoquery1.SQL.Clear;
  89.   adoquery1.SQL.Add('select  *  from  hushi');
  90.   adoquery1.Open;
  92.   edit1.Clear;edit2.Clear;edit3.clear;edit4.clear;edit5.clear;edit6.clear;
  93.   showmessage('数据已经添加成功！');
  94.  end
  95. else
  96.   if (Edit1.Text='') then
  97.    showmessage('请输入护士编号！')
  98. else
  99.   if (Edit2.Text='') then
  100.    showmessage('请输入护士姓名！');
  101. end;
  103. procedure TForm13.Button3Click(Sender: TObject);
  104. begin
  105. if (Edit7.Text<>'') then
  106.   begin
  107.   adoquery2.Close;
  108.   adoquery2.SQL.Clear;
  109.   adoquery2.SQL.Add('select  *  from  hushi where HushiNo='''+edit7.Text+'''');
  110.   adoquery2.Open;
  111.   end
  112. else
  113. if(Edit8.Text<>'') then
  114.   begin
  115.   adoquery2.Close;
  116.   adoquery2.SQL.Clear;
  117.   adoquery2.SQL.Add('select  *  from  hushi where Name='''+edit8.Text+'''');
  118.   adoquery2.Open;
  119.   end
  120. else
  121.    showmessage('请输入护士编号或姓名！');
  122. end;
  124. procedure TForm13.Button4Click(Sender: TObject);
  125. begin
  126. if (edit7.Text<>'') then
  127.   begin
  128.   adoquery2.Close;
  129.   adoquery2.SQL.Clear;
  130.   adoquery2.SQL.Add('delete   from  hushi where HushiNo='''+edit7.Text+'''');
  131.   adoquery2.ExecSQL;
  133.   adoquery1.Close;
  134.   adoquery1.SQL.Clear;
  135.   adoquery1.SQL.Add('select  *  from  hushi');
  136.   adoquery1.Open;
  138.   showmessage('数据已经删除成功！');
  139.   end
  140. else
  141. if(Edit8.Text<>'') then
  142.  begin
  143.   adoquery2.Close;
  144.   adoquery2.SQL.Clear;
  145.   adoquery2.SQL.Add('delete   from  hushi where Name='''+edit8.Text+'''');
  146.   adoquery2.ExecSQL;
  148.   adoquery1.Close;
  149.   adoquery1.SQL.Clear;
  150.   adoquery1.SQL.Add('select  *  from  hushi');
  151.   adoquery1.Open;
  153.   showmessage('数据已经删除成功！');
  154.  end
  155. end;
  157. procedure TForm13.Button5Click(Sender: TObject);
  158. begin
  159.   adoquery2.Post;
  161.   adoquery1.Close;
  162.   adoquery1.SQL.Clear;
  163.   adoquery1.SQL.Add('select  *  from  hushi');
  164.   adoquery1.Open;
  166.   showmessage('数据已经修改成功！');
  167. end;
  169. procedure TForm13.Button6Click(Sender: TObject);
  170. begin
  171. form13.Close;
  172. end;
  174. procedure TForm13.Button2Click(Sender: TObject);
  175. begin
  176. form13.Close;
  177. end;
  179. end.