fix.pas

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

unit fix;

interface

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

type
  Tfixfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    CheckBox1: TCheckBox;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Panel6: TPanel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    BitBtn4: TBitBtn;
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fixfm: Tfixfm;

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

procedure Tfixfm.LabeledEdit1Change(Sender: TObject);
var
  php, sqltxt: string;
begin
  php := trim(LabeledEdit1.text) + '%';
  sqltxt := 'select xph from xdata where xph like ''' + php + '''';
  sqltxt := sqltxt + ' group by xph';
  openadoquery(dmfm.adoquery6, sqltxt);
  dbgrid2.Tag := 1;
end;

procedure Tfixfm.LabeledEdit2Change(Sender: TObject);
var
  spy, sqltxt: string;
begin
  spy := trim(LabeledEdit2.text) + '%';
  sqltxt := 'select xm from xdata where xmpy like ''' + spy + '''';
  sqltxt := sqltxt + ' group by xm';
  openadoquery(dmfm.adoquery6, sqltxt);
  dbgrid2.Tag := 2;
end;

procedure Tfixfm.DBGrid2CellClick(Column: TColumn);
var
  s, sqltxt: string;
begin
  if dmfm.adoquery6.Active = false then exit;
  if dmfm.adoquery6.RecordCount = 0 then exit;
  if DBGrid2.Tag = 1 then
  begin
    s := dmfm.adoquery6.FieldValues['xph'];
    sqltxt := 'select * from xdata where xph=''' + s + '''';
    openadoquery(dmfm.ADOQuery9, sqltxt);
  end;
  if DBGrid2.Tag = 2 then
  begin
    s := dmfm.adoquery6.FieldValues['xm'];
    sqltxt := 'select * from xdata where xm=''' + s + '''';
    openadoquery(dmfm.ADOQuery9, sqltxt);
  end;
  StatusBar1.Panels[2].text := inttostr(dmfm.ADOQuery9.recordcount);
end;

procedure Tfixfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dmfm.ADOQuery6.Close;
  dmfm.ADOQuery9.Close;
  Action := caFree;
end;

procedure Tfixfm.FormShow(Sender: TObject);
begin
  LabeledEdit1.SetFocus;
end;

procedure Tfixfm.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure Tfixfm.BitBtn2Click(Sender: TObject);
var
  sMsgCaption, sMsgText: string;
  iMsgType, iUserResp: integer;
begin
  if checkbox1.Checked then
  begin
    sMsgCaption := '警告！';
    sMsgText := '你真的要删除选中资料吗？';
    iMsgType := MB_OKCANCEL + MB_ICONWARNING + MB_DEFBUTTON2;
    iUserResp := MessageBox(Handle, '你真的要删除选中资料吗？', '警告！',
      MB_OKCANCEL + MB_ICONWARNING + MB_DEFBUTTON2);
    case iUserResp of
      IDOK:
        begin
          dmfm.ADOQuery9.Delete
        end;
      IDCANCEL:
        begin
        end;
    end;
  end
  else
  begin
    dmfm.ADOQuery9.Delete;
  end;
end;



procedure Tfixfm.BitBtn1Click(Sender: TObject);
var s1: string;
begin
  s1 := '说明：1、在需要修改的内容上直接修改，修改后按一下向下的方向键自动保存!';
  s1 := s1 + ' 2、若修改姓名后汉字读音发生变化，请同时修改拼音！';
  showmessage(s1);
end;

procedure Tfixfm.BitBtn4Click(Sender: TObject);
var sqltxt: string;
begin
  sqltxt := 'select * from xdata ';
  openadoquery(dmfm.ADOQuery9, sqltxt);
  StatusBar1.Panels[2].text := inttostr(dmfm.ADOQuery9.recordcount);
end;

end.