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

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

Delphi控件源码

开发平台：

Delphi

Unit4.~pas：源码内容
  1. unit Unit4;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;
  9. type
  10.   TForm4 = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     Label5: TLabel;
  16.     Label7: TLabel;
  17.     Edit1: TEdit;
  18.     Edit2: TEdit;
  19.     Edit3: TEdit;
  20.     Edit4: TEdit;
  21.     Edit5: TEdit;
  22.     Edit7: TEdit;
  23.     Label8: TLabel;
  24.     Edit8: TEdit;
  25.     Label9: TLabel;
  26.     Edit9: TEdit;
  27.     Button1: TButton;
  28.     Button2: TButton;
  29.     DBGrid1: TDBGrid;
  30.     Button3: TButton;
  31.     Button4: TButton;
  32.     Label6: TLabel;
  33.     Edit6: TEdit;
  34.     ADOConnection1: TADOConnection;
  35.     ADOQuery1: TADOQuery;
  36.     DataSource1: TDataSource;
  37.     procedure Button1Click(Sender: TObject);
  38.     procedure Button2Click(Sender: TObject);
  39.     procedure Button3Click(Sender: TObject);
  40.     procedure Button4Click(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  47. var
  48.   Form4: TForm4;
  49.   Senno,Chano,Patno,Pat,Docno,Doc,Med,Su,Uprice:Char;
  50. implementation
  52. {$R *.dfm}
  54. procedure TForm4.Button1Click(Sender: TObject);
  55. begin
  56. if (Edit1.Text<>'') and (Edit2.text<>'') and (Edit3.text<>'')and (Edit5.text<>'')and (Edit7.text<>'') then
  57.  begin
  58. //  adoquery1.Open;
  59.   adoquery1.SQL.Clear;
  60.   adoquery1.SQL.Add('insert  into  fayaodan(Senno,Chano,Patno,Pat,Docno,Doc,Med,Su,Uprice)  values(:Senno,:Chano,:Patno,:Pat,:Docno,:Doc,:Med,:Su,:Uprice)');
  61.   adoquery1.Parameters.ParamByName('Senno').Value:=Edit1.Text;
  62.   adoquery1.Parameters.ParamByName('Chano').Value:=Edit2.Text;
  63.   adoquery1.Parameters.ParamByName('Patno').Value:=Edit3.Text;
  64.   adoquery1.Parameters.ParamByName('Pat').Value:=Edit4.Text;
  65.   adoquery1.Parameters.ParamByName('Docno').Value:=Edit5.Text;
  66.   adoquery1.Parameters.ParamByName('Doc').Value:=Edit6.Text;
  67.   adoquery1.Parameters.ParamByName('Med').Value:=Edit7.Text;
  68.   adoquery1.Parameters.ParamByName('Su').Value:=strtoint(Edit8.Text);
  69.   adoquery1.Parameters.ParamByName('Uprice').Value:=strtoint(Edit9.Text);
  71.   adoquery1.ExecSQL;
  73.   adoquery1.Close;
  74.   adoquery1.SQL.Clear;
  75.   adoquery1.SQL.Add('select  Med,Su,Uprice  from  fayaodan  where Senno='''+edit1.Text+'''');
  76.   adoquery1.Open;
  78.   Edit7.Clear; Edit8.Clear;Edit9.Clear;
  79.   showmessage('数据已经添加成功！');
  80.  end
  81. else
  82.   if (Edit1.Text='') then
  83.    showmessage('请输入发药单编号！')
  84. else
  85.   if (Edit2.Text='') then
  86.    showmessage('请输入收费单编号！')
  87. else
  88.   if (Edit3.Text='') then
  89.    showmessage('请输入病人编号！')
  90. else
  91.   if (Edit5.Text='') then
  92.    showmessage('请输入医生编号！')
  93. else
  94.   if (Edit7.Text='') then
  95.    showmessage('请输入药品名！');
  96. end;
  98. procedure TForm4.Button2Click(Sender: TObject);
  99. begin
  100.  Edit1.Clear; Edit2.Clear;Edit3.Clear;Edit4.Clear; Edit5.Clear;Edit6.Clear;Edit7.Clear; Edit8.Clear;Edit9.Clear;
  101. end;
  103. procedure TForm4.Button3Click(Sender: TObject);
  104. begin
  105.   if (Edit1.Text='') then
  106.    showmessage('没有药单号，发药失败！')
  107. else
  108.    showmessage('发药成功！')
  109. end;
  111. procedure TForm4.Button4Click(Sender: TObject);
  112. begin
  113. form4.Close;
  114. end;
  116. end.