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

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

Delphi控件源码

开发平台：

Delphi

Unit3.pas：源码内容
  1. unit Unit3;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;
  9. type
  10.   TForm3 = class(TForm)
  11.     Label1: TLabel;
  12.     Edit1: TEdit;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Edit2: TEdit;
  16.     Edit3: TEdit;
  17.     Label4: TLabel;
  18.     Edit4: TEdit;
  19.     Label5: TLabel;
  20.     Edit5: TEdit;
  21.     Label6: TLabel;
  22.     Button1: TButton;
  23.     Button2: TButton;
  24.     Label7: TLabel;
  25.     Edit7: TEdit;
  26.     Label8: TLabel;
  27.     Edit8: TEdit;
  28.     Label9: TLabel;
  29.     Edit9: TEdit;
  30.     Label10: TLabel;
  31.     Label11: TLabel;
  32.     Label12: TLabel;
  33.     Button3: TButton;
  34.     Button4: TButton;
  35.     DBGrid1: TDBGrid;
  36.     DataSource1: TDataSource;
  37.     ADOConnection1: TADOConnection;
  38.     ADOQuery1: TADOQuery;
  39.     ComboBox1: TComboBox;
  40.     procedure Button1Click(Sender: TObject);
  41.     procedure Button2Click(Sender: TObject);
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure Button3Click(Sender: TObject);
  44.     procedure Button4Click(Sender: TObject);
  45.   private
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.   end;
  51. var
  52.   Form3: TForm3;
  53.   Chano,Patno,Pat,Doc,Chaitem,Chasum:Char;
  54. implementation
  56. {$R *.dfm}
  58. procedure TForm3.Button1Click(Sender: TObject);
  59. begin
  60. if (Edit1.Text<>'') and (Edit2.text<>'')  then
  61.  begin
  62. //  adoquery1.Open;
  63.   adoquery1.SQL.Clear;
  64.   adoquery1.SQL.Add('insert  into  shoufeidan(Chano,Patno,Pat,Doc,Chaitem,Chasum)  values(:Chano,:Patno,:Pat,:Doc,:Chaitem,:Chasum)');
  65.   adoquery1.Parameters.ParamByName('Chano').Value:=Edit1.Text;
  66.   adoquery1.Parameters.ParamByName('Patno').Value:=Edit2.Text;
  67.   adoquery1.Parameters.ParamByName('Pat').Value:=Edit3.Text;
  68.   adoquery1.Parameters.ParamByName('Doc').Value:=Edit4.Text;
  69.   adoquery1.Parameters.ParamByName('Chaitem').Value:=ComboBox1.Text;
  70.   adoquery1.Parameters.ParamByName('Chasum').Value:=strtoint(Edit5.Text);
  71.   adoquery1.ExecSQL;
  73.   adoquery1.Close;
  74.   adoquery1.SQL.Clear;
  75.   adoquery1.SQL.Add('select  Chaitem,Chasum  from  shoufeidan  where Chano='''+edit1.Text+'''');
  76.   adoquery1.Open;
  78.   ComboBox1.Text:='';
  79.   showmessage('数据已经添加成功！');
  80.  end
  81. else
  82.   if (Edit1.Text='') then
  83.    showmessage('请输入收费单编号！')
  84. else
  85.   if (Edit2.Text='') then
  86.    showmessage('请输入病人编号！');
  87. end;
  89. procedure TForm3.Button2Click(Sender: TObject);
  90. begin
  91. edit5.Clear;
  92. end;
  94. procedure TForm3.FormCreate(Sender: TObject);
  95. begin
  96.    combobox1.Items.Add('中药费');
  97.    combobox1.Items.Add('西药费');
  98.    combobox1.Items.Add('材料费');
  99.    combobox1.Items.Add('化验费');
  100.    combobox1.Items.Add('检查费');
  101.    combobox1.Items.Add('治疗费');
  102.    combobox1.Items.Add('手术费');
  103.    combobox1.Items.Add('输血费');
  104.    combobox1.Items.Add('输氧费');
  105.    combobox1.Items.Add('B超费');
  106.    combobox1.Items.Add('CT费');
  107.    combobox1.Items.Add('其他');
  110. end;
  112. procedure TForm3.Button3Click(Sender: TObject);
  113. begin
  114.   if (Edit7.Text='') then
  115.    showmessage('请输入收费金额！')
  116. else
  117. edit7.Clear;  edit8.Clear;  edit9.Clear;
  118. end;
  120. procedure TForm3.Button4Click(Sender: TObject);
  121. begin
  122. form3.Close;
  123. end;
  125. end.