dmwh.pas

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

unit dmwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;

type
  Tdmwhfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmwhfm: Tdmwhfm;

implementation
uses dm, mylib;
{$R *.dfm}

procedure Tdmwhfm.FormShow(Sender: TObject);
begin
  openadoquery(dmfm.ADOQuery10, 'select * from ys order by ysxm');
  openadoquery(dmfm.ADOQuery11, 'select * from bwmc order by bw');
  openadoquery(dmfm.ADOQuery12, 'select * from lzd order by lzd');
  openadoquery(dmfm.ADOQuery13, 'select * from xzd order by xzd');
end;

procedure Tdmwhfm.BitBtn1Click(Sender: TObject);
begin
  DelMsgADOQuery(handle,dmfm.ADOQuery10);
end;

procedure Tdmwhfm.BitBtn2Click(Sender: TObject);
begin
  DelMsgADOQuery(handle,dmfm.ADOQuery11);
end;

procedure Tdmwhfm.BitBtn3Click(Sender: TObject);
begin
  DelMsgADOQuery(handle,dmfm.ADOQuery12);
end;

procedure Tdmwhfm.BitBtn4Click(Sender: TObject);
begin
  DelMsgADOQuery(handle,dmfm.ADOQuery13);
end;

procedure Tdmwhfm.BitBtn5Click(Sender: TObject);
var s1:string;
begin
s1:='说明：1、在需要修改的内容上直接修改，修改后按一下向下的方向键自动保存!';
s1:=s1+' 2、若修改姓名后汉字读音发生变化，请同时修改拼音！';
s1:=s1+' 3、若要增加记录，按一下insert键，可添加新记录，请注意姓名和拼音';
s1:=s1+'两项内容都必须填写,添加后按一下向下的方向键自动保存!';
showmessage(s1);
end;

procedure Tdmwhfm.BitBtn9Click(Sender: TObject);
begin
dmfm.ADOQuery11.Append;
end;

procedure Tdmwhfm.BitBtn6Click(Sender: TObject);
var s1:string;
begin
s1:='说明：1、在需要修改的内容上直接修改，修改后按一下向下的方向键自动保存!';
s1:=s1+' 2、若修改部位名称后汉字读音发生变化，请同时修改拼音（汉字拼音首字母）！';
s1:=s1+' 3、若要增加记录，按一下insert键，可添加新记录，请注意部位和拼音';
s1:=s1+'两项内容都必须填写,添加后按一下向下的方向键自动保存!';
showmessage(s1);
end;

procedure Tdmwhfm.BitBtn7Click(Sender: TObject);
var s1:string;
begin
s1:='说明：1 在需要修改的内容上直接修改，修改后按一下向下的方向键自动保存!';
s1:=s1+' 2 若要增加记录，按一下insert键，可添加新记录，';
s1:=s1+'添加后按一下向下的方向键自动保存!';
showmessage(s1);
end;

procedure Tdmwhfm.BitBtn8Click(Sender: TObject);
var s1:string;
begin
s1:='说明：1 在需要修改的内容上直接修改，修改后按一下向下的方向键自动保存!';
s1:=s1+' 2 若要增加记录，按一下insert键，可添加新记录，';
s1:=s1+'添加后按一下向下的方向键自动保存!';
showmessage(s1);
end;

procedure Tdmwhfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dmfm.ADOQuery10.Close;
dmfm.ADOQuery11.Close;
dmfm.ADOQuery12.Close;
dmfm.ADOQuery13.Close;
Action := caFree;
end;

end.