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

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

Delphi控件源码

开发平台：

Delphi

Unit17.~pas：源码内容
  1. unit Unit17;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, DB, ADODB;
  9. type
  10.   TForm17 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Edit2: TEdit;
  19.     Edit3: TEdit;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     DBGrid1: TDBGrid;
  23.     Label4: TLabel;
  24.     Edit4: TEdit;
  25.     Label5: TLabel;
  26.     Edit5: TEdit;
  27.     Button3: TButton;
  28.     Button4: TButton;
  29.     Button5: TButton;
  30.     Button6: TButton;
  31.     DataSource1: TDataSource;
  32.     DataSource2: TDataSource;
  33.     ADOConnection1: TADOConnection;
  34.     ADOQuery1: TADOQuery;
  35.     ADOQuery2: TADOQuery;
  36.     DBGrid2: TDBGrid;
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure Button1Click(Sender: TObject);
  39.     procedure Button3Click(Sender: TObject);
  40.     procedure Button4Click(Sender: TObject);
  41.     procedure Button5Click(Sender: TObject);
  42.     procedure Button6Click(Sender: TObject);
  43.     procedure Button2Click(Sender: TObject);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  50. var
  51.   Form17: TForm17;
  52.   Druno,Dru,Sort:Char;
  53. implementation
  55. {$R *.dfm}
  57. procedure TForm17.FormCreate(Sender: TObject);
  58. begin
  59.   adoquery1.Close;
  60.   adoquery1.SQL.Clear;
  61.   adoquery1.SQL.Add('select  *  from  yaofang');
  62.   adoquery1.Open;
  63. end;
  65. procedure TForm17.Button1Click(Sender: TObject);
  66. begin
  67. if (Edit1.Text<>'') and (Edit2.text<>'')  then
  68.  begin
  69.   adoquery1.Open;
  70.   adoquery1.SQL.Clear;
  71.   adoquery1.SQL.Add('insert  into  yaofang(Druno,Dru,Sort)  values(:Druno,:Dru,:Sort)');
  72.   adoquery1.Parameters.ParamByName('Druno').Value:=Edit1.Text;
  73.   adoquery1.Parameters.ParamByName('Dru').Value:=Edit2.Text;
  74.   adoquery1.Parameters.ParamByName('Sort').Value:=Edit3.Text;
  75.   adoquery1.ExecSQL;
  77.   adoquery1.Close;
  78.   adoquery1.SQL.Clear;
  79.   adoquery1.SQL.Add('select  *  from  yaofang');
  80.   adoquery1.Open;
  82.   edit1.Clear;edit2.Clear;edit3.clear;
  83.   showmessage('数据已经添加成功！');
  84.  end
  85. else
  86.   if (Edit1.Text='') then
  87.    showmessage('请输入药房编号！')
  88. else
  89.   if (Edit2.Text='') then
  90.    showmessage('请输入药房姓名！');
  91. end;
  93. procedure TForm17.Button3Click(Sender: TObject);
  94. begin
  95. if (Edit4.Text<>'') then
  96.   begin
  97.   adoquery2.Close;
  98.   adoquery2.SQL.Clear;
  99.   adoquery2.SQL.Add('select  *  from  yaofang where Druno='''+edit4.Text+'''');
  100.   adoquery2.Open;
  101.   end
  102. else
  103. if(Edit5.Text<>'') then
  104.   begin
  105.   adoquery2.Close;
  106.   adoquery2.SQL.Clear;
  107.   adoquery2.SQL.Add('select  *  from  yaofang where Dru='''+edit5.Text+'''');
  108.   adoquery2.Open;
  109.   end
  110. else
  111.    showmessage('请输入药房编号或姓名！');
  112. end;
  114. procedure TForm17.Button4Click(Sender: TObject);
  115. begin
  116. if (edit4.Text<>'') then
  117.   begin
  118.   adoquery2.Close;
  119.   adoquery2.SQL.Clear;
  120.   adoquery2.SQL.Add('delete   from  yaofang where Druno='''+edit4.Text+'''');
  121.   adoquery2.ExecSQL;
  123.   adoquery1.Close;
  124.   adoquery1.SQL.Clear;
  125.   adoquery1.SQL.Add('select  *  from  yaofang');
  126.   adoquery1.Open;
  128.   showmessage('数据已经删除成功！');
  129.   end
  130. else
  131. if(Edit5.Text<>'') then
  132.  begin
  133.   adoquery2.Close;
  134.   adoquery2.SQL.Clear;
  135.   adoquery2.SQL.Add('delete   from  yaofang where Dru='''+edit5.Text+'''');
  136.   adoquery2.ExecSQL;
  138.   adoquery1.Close;
  139.   adoquery1.SQL.Clear;
  140.   adoquery1.SQL.Add('select  *  from  yaofang');
  141.   adoquery1.Open;
  143.   showmessage('数据已经删除成功！');
  144.  end
  145. end;
  147. procedure TForm17.Button5Click(Sender: TObject);
  148. begin
  149.   adoquery2.Post;
  151.   adoquery1.Close;
  152.   adoquery1.SQL.Clear;
  153.   adoquery1.SQL.Add('select  *  from  yaofang');
  154.   adoquery1.Open;
  156.   showmessage('数据已经修改成功！');
  157. end;
  159. procedure TForm17.Button6Click(Sender: TObject);
  160. begin
  161. form17.Close;
  162. end;
  164. procedure TForm17.Button2Click(Sender: TObject);
  165. begin
  166. form17.Close;
  167. end;
  169. end.