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

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

Delphi控件源码

开发平台：

Delphi

Unit16.~pas：源码内容
  1. unit Unit16;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, DB, ADODB;
  9. type
  10.   TForm16 = 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.     Label4: TLabel;
  21.     Edit4: TEdit;
  22.     Label5: TLabel;
  23.     Edit5: TEdit;
  24.     Label6: TLabel;
  25.     Edit6: TEdit;
  26.     Label7: TLabel;
  27.     Edit7: TEdit;
  28.     Button1: TButton;
  29.     Button2: TButton;
  30.     DBGrid1: TDBGrid;
  31.     Label8: TLabel;
  32.     Edit8: TEdit;
  33.     Label9: TLabel;
  34.     Edit9: TEdit;
  35.     Button3: TButton;
  36.     Button4: TButton;
  37.     Button5: TButton;
  38.     Button6: TButton;
  39.     ADOConnection1: TADOConnection;
  40.     ADOQuery1: TADOQuery;
  41.     ADOQuery2: TADOQuery;
  42.     DataSource1: TDataSource;
  43.     DataSource2: TDataSource;
  44.     DBGrid2: TDBGrid;
  45.     procedure FormCreate(Sender: TObject);
  46.     procedure Button1Click(Sender: TObject);
  47.     procedure Button3Click(Sender: TObject);
  48.     procedure Button4Click(Sender: TObject);
  49.     procedure Button5Click(Sender: TObject);
  50.     procedure Button2Click(Sender: TObject);
  51.     procedure Button6Click(Sender: TObject);
  52.   private
  53.     { Private declarations }
  54.   public
  55.     { Public declarations }
  56.   end;
  58. var
  59.   Form16: TForm16;
  60.   Medno,Med,Byname,Price,Func,Dat,Valid:Char;
  61. implementation
  63. {$R *.dfm}
  65. procedure TForm16.FormCreate(Sender: TObject);
  66. begin
  67.   adoquery1.Close;
  68.   adoquery1.SQL.Clear;
  69.   adoquery1.SQL.Add('select  *  from yaopin');
  70.   adoquery1.Open;
  72. end;
  74. procedure TForm16.Button1Click(Sender: TObject);
  75. begin
  76. if (Edit1.Text<>'') and (Edit2.text<>'') and(Edit4.Text<>'')  then
  77.  begin
  78.   adoquery1.Open;
  79.   adoquery1.SQL.Clear;
  80.   adoquery1.SQL.Add('insert  into  yaopin(Medno,Med,Byname,Price,Func,Dat,Valid)  values(:Medno,:Med,:Byname,:Price,:Func,:Dat,:Valid)');
  81.   adoquery1.Parameters.ParamByName('Medno').Value:=Edit1.Text;
  82.   adoquery1.Parameters.ParamByName('Med').Value:=Edit2.Text;
  83.   adoquery1.Parameters.ParamByName('Byname').Value:=Edit3.Text;
  84.   adoquery1.Parameters.ParamByName('Price').Value:=strtoint(Edit4.Text);
  85.   adoquery1.Parameters.ParamByName('Func').Value:=Edit5.Text;
  86.   adoquery1.Parameters.ParamByName('Dat').Value:=Edit6.Text;
  87.   adoquery1.Parameters.ParamByName('Valid').Value:=Edit7.Text;
  88.   adoquery1.ExecSQL;
  90.   adoquery1.Close;
  91.   adoquery1.SQL.Clear;
  92.   adoquery1.SQL.Add('select  *  from  yaopin');
  93.   adoquery1.Open;
  95.   edit1.Clear;edit2.Clear;edit3.clear;edit4.clear;edit5.clear;edit6.clear;edit7.clear;
  96.   showmessage('数据已经添加成功！');
  97.  end
  98. else
  99.   if (Edit1.Text='') then
  100.    showmessage('请输入药品编号！')
  101. else
  102.   if (Edit2.Text='') then
  103.    showmessage('请输入药品姓名！')
  104. else
  105.   if (Edit4.Text='') then
  106.    showmessage('请输入药品价格！');
  107. end;
  109. procedure TForm16.Button3Click(Sender: TObject);
  110. begin
  111. if (Edit8.Text<>'') then
  112.   begin
  113.   adoquery2.Close;
  114.   adoquery2.SQL.Clear;
  115.   adoquery2.SQL.Add('select  *  from yaopin where Medno='''+edit8.Text+'''');
  116.   adoquery2.Open;
  117.   end
  118. else
  119. if(Edit9.Text<>'') then
  120.   begin
  121.   adoquery2.Close;
  122.   adoquery2.SQL.Clear;
  123.   adoquery2.SQL.Add('select  *  from  yaopin where Med='''+edit9.Text+'''');
  124.   adoquery2.Open;
  125.   end
  126. else
  127.    showmessage('请输入药品编号或姓名！');
  128. end;
  130. procedure TForm16.Button4Click(Sender: TObject);
  131. begin
  132. if (edit8.Text<>'') then
  133.   begin
  134.   adoquery2.Close;
  135.   adoquery2.SQL.Clear;
  136.   adoquery2.SQL.Add('delete   from  yaopin where Medno='''+edit8.Text+'''');
  137.   adoquery2.ExecSQL;
  139.   adoquery1.Close;
  140.   adoquery1.SQL.Clear;
  141.   adoquery1.SQL.Add('select  *  from  yaopin');
  142.   adoquery1.Open;
  144.   showmessage('数据已经删除成功！');
  145.   end
  146. else
  147. if(Edit9.Text<>'') then
  148.  begin
  149.   adoquery2.Close;
  150.   adoquery2.SQL.Clear;
  151.   adoquery2.SQL.Add('delete   from  yaopin where Med='''+edit9.Text+'''');
  152.   adoquery2.ExecSQL;
  154.   adoquery1.Close;
  155.   adoquery1.SQL.Clear;
  156.   adoquery1.SQL.Add('select  *  from  yaopin');
  157.   adoquery1.Open;
  159.   showmessage('数据已经删除成功！');
  160.  end
  161. end;
  163. procedure TForm16.Button5Click(Sender: TObject);
  164. begin
  165.   adoquery2.Post;
  167.   adoquery1.Close;
  168.   adoquery1.SQL.Clear;
  169.   adoquery1.SQL.Add('select  *  from  yaopin');
  170.   adoquery1.Open;
  172.   showmessage('数据已经修改成功！');
  173. end;
  175. procedure TForm16.Button2Click(Sender: TObject);
  176. begin
  177. form16.Close;
  178. end;
  180. procedure TForm16.Button6Click(Sender: TObject);
  181. begin
  182. form16.Close;
  183. end;
  185. end.