input.pas

医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家医院做的

unit input;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, DBTables;

type
  Tinputfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit7: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox8KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7DblClick(Sender: TObject);
    procedure Edit9DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inputfm: Tinputfm;
  flag: integer;
//combobox设定为droplist，不可添加修改！
implementation
{$R *.DFM}
uses mylib, dm, bw, ys;

procedure Tinputfm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tinputfm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then edit2.setfocus;
end;

procedure Tinputfm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edit3.setfocus;
end;

procedure Tinputfm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edit4.setfocus;
end;

procedure Tinputfm.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    combobox1.setfocus;
    combobox1.DroppedDown := true;
  end;
end;

procedure Tinputfm.ComboBox6KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then edit7.setfocus;
end;

procedure Tinputfm.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
//去掉非法字符
  if not (key in ['0'..'9', #8, #13, #46]) then key := #0;
  if key = #13 then
  begin
    combobox5.setfocus;
    combobox5.DroppedDown := true;
  end;
end;

procedure Tinputfm.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edit6.setfocus;
end;

procedure Tinputfm.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    combobox7.setfocus;
    combobox7.DroppedDown := true;
  end;
end;

procedure Tinputfm.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    combobox4.setfocus;
    combobox4.DroppedDown := true;
  end;
end;

procedure Tinputfm.ComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then edit10.setfocus;
end;

procedure Tinputfm.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    bitbtn1.setfocus;
end;


procedure Tinputfm.Edit6Exit(Sender: TObject);
begin
//if editisyear(edit6)=false then exit;
//if isdate((sender as TEDIT).Text)=false then
//   begin
//    MessageDlg('您输入的日期格式不对，正确格式例如2000-11-21,年份用四位！' , mtWarning, [mbOk], 0);
//    //  (sender as TEDIT).setfocus;
//    exit;
//   end;
//上面代码值得学习
end;

procedure Tinputfm.FormShow(Sender: TObject);
var i: integer;
begin
  dmfm.ADOTable1.Open;
  edit6.text := datetostr(date);
  Combobox7.Clear;
  Combobox8.Clear;
  addcombox(dmfm.ADOQuery1, 'xzd', 'xzd', combobox7);
  addcombox(dmfm.ADOQuery1, 'lzd', 'lzd', combobox8);
end;

procedure Tinputfm.BitBtn1Click(Sender: TObject);
begin
  with dmfm.ADOTable1 do
  begin
    if editisempty(edit1, '片号必须输入！') = false then exit;
    if editisempty(edit4, '这个人没有姓名吗！') = false then exit;
    if editisempty(edit7, '拍片部位必须输入！') = false then exit;
    if comboboxisempty(combobox1, '性别必须输入！') = false then exit;
    if editisyear(edit6) = false then exit;
    append; //保存记录
    FieldValues['xph'] := trim(Edit1.text);
    FieldValues['mzh'] := trim(Edit2.text);
    FieldValues['zyh'] := trim(Edit3.text);
    FieldValues['xm'] := trim(edit4.text);
    FieldValues['xb'] := combobox1.text;
    FieldValues['nl'] := strtoint(Edit5.text);
    FieldValues['bw'] := trim(edit7.text); //combobox2.text;
    FieldValues['rq'] := strtodate(edit6.text);
    FieldValues['xzd'] := trim(combobox7.text);
    FieldValues['lzd'] := trim(combobox8.text);
    FieldValues['yx'] := combobox3.text;
    FieldValues['fh'] := combobox4.text;
    FieldValues['bz'] := trim(edit9.text);
    FieldValues['zs'] := strtoint(edit10.text);
    FieldValues['zy'] := combobox5.text;
    FieldValues['xg'] := combobox6.text;
    FieldValues['xmpy'] := getpy1(trim(edit4.text));
    post;
  end;
//增加部位
  adddatapy(dmfm.ADOQuery1, 'bwmc', 'bw', 'py', edit7);
//增加医师
  adddatapy(dmfm.ADOQuery1, 'ys', 'ysxm', 'xmpy', edit9);
//增加XZD
//  addnewdata(dmfm.ADOQuery1, 'xzd', 'xzd', combobox7);
//增加LZD
//  addnewdata(dmfm.ADOQuery1, 'lzd', 'lzd', combobox8);
//清理数据
  edit1.text := '';
  edit2.text := '';
  edit3.text := '';
  edit4.text := '';
  edit5.text := '0';
  combobox7.text := '';
  combobox8.text := '';
  edit9.text := '';
  edit10.text := '0';
  combobox1.Text := '男';
  edit7.Text := '';
  combobox3.Text := '否';
  combobox4.Text := '是';
  edit1.setfocus;
  //返回家庭输入框
end;

procedure Tinputfm.Edit1Exit(Sender: TObject);
var s, sqltxt: string;
begin
  s := trim(edit1.Text);
  if s = '' then exit;
  sqltxt := 'select xph,xm,xb from xdata where xph=''' + s + '''';
  with dmfm.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add(sqltxt);
    sql.add(' group by xph,xm,xb');
    open;
  end;
  if dmfm.ADOQuery1.RecordCount = 1 then
  begin
    edit4.Text := dmfm.ADOQuery1.FieldValues['xm'];
    combobox1.Text := dmfm.ADOQuery1.FieldValues['xb'];
  end;
end;

procedure Tinputfm.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then edit9.setfocus;
end;


procedure Tinputfm.ComboBox5KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    combobox6.setfocus;
    combobox6.DroppedDown := true;
  end;
end;


procedure Tinputfm.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then edit5.setfocus;
end;

procedure Tinputfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dmfm.ADOTable1.Close;
  dmfm.ADOQuery1.close;
  Action := caFree;
end;


procedure Tinputfm.ComboBox7KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    combobox8.setfocus;
    combobox8.DroppedDown := true;
  end;
end;

procedure Tinputfm.ComboBox8KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    combobox3.setfocus;
    combobox3.DroppedDown := true;
  end;
end;

procedure Tinputfm.Button1Click(Sender: TObject);
begin
  if editisempty(edit1, '必须输入内容') = false then exit;
end;

procedure Tinputfm.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then edit6.setfocus;
end;

procedure Tinputfm.Edit7DblClick(Sender: TObject);
begin
//用来打开部位输入窗体
  openadoquery(dmfm.ADOQuery4, 'select bw from bwmc order by bw');
  bwfm.showmodal;
end;

procedure Tinputfm.Edit9DblClick(Sender: TObject);
begin
  ysfm.Tag := 1;
  openadoquery(dmfm.ADOQuery5, 'select ysxm from ys order by ysxm');
  ysfm.showmodal;
end;

end.