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

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

Delphi控件源码

开发平台：

Delphi

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