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

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

Delphi控件源码

开发平台：

Delphi

Unit2.~pas：源码内容
  1. unit Unit2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, DB, ADODB;
  9. type
  10.   TForm2 = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     Edit1: TEdit;
  16.     Edit2: TEdit;
  17.     Edit3: TEdit;
  18.     Edit4: TEdit;
  19.     Button1: TButton;
  20.     Button2: TButton;
  21.     ADOConnection1: TADOConnection;
  22.     ADOQuery1: TADOQuery;
  23.     DataSource1: TDataSource;
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure Button2Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form2: TForm2;
  34.   Patno,Pat,Sex,Birth,Nation,Dep,Gua:Char;
  35. implementation
  37. {$R *.dfm}
  39. procedure TForm2.Button1Click(Sender: TObject);
  40. begin
  41. if (Edit1.Text<>'') and (Edit2.text<>'')and (Edit4.text<>'') then
  42.  begin
  43. //  adoquery1.Open;
  44.   adoquery1.SQL.Clear;
  45.   adoquery1.SQL.Add('insert  into  bingren(Patno,Pat,Sex,Birth,Nation,Dep,Gua)  values(:Patno,:Pat,:Sex,:Birth,:Nation,:Dep,:Gua)');
  46.   adoquery1.Parameters.ParamByName('Patno').Value:=Edit1.Text;
  47.   adoquery1.Parameters.ParamByName('Pat').Value:=Edit2.Text;
  48.   adoquery1.Parameters.ParamByName('Sex').Value:='';
  49.   adoquery1.Parameters.ParamByName('Birth').Value:='';
  50.   adoquery1.Parameters.ParamByName('Nation').Value:='';
  51.   adoquery1.Parameters.ParamByName('Dep').Value:=Edit3.Text;
  52.   adoquery1.Parameters.ParamByName('Gua').Value:=strtoint(Edit4.Text);
  53.   adoquery1.ExecSQL;
  56.   edit1.Clear;edit2.Clear;edit3.clear;edit4.clear;
  57.   showmessage('已经挂号！');
  58.  end
  59. else
  60.   if (Edit1.Text='') then
  61.    showmessage('请输入病人编号！')
  62. else
  63.   if (Edit2.Text='') then
  64.    showmessage('请输入病人姓名！')
  65. else
  66.   if (Edit4.Text='') then
  67.    showmessage('请输入挂号费！');
  68. end;
  70. procedure TForm2.Button2Click(Sender: TObject);
  71. begin
  72. form2.Close;
  73. end;
  75. end.