tj.pas

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

unit tj;

interface

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

type
  Ttjfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit3DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjfm: Ttjfm;

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

procedure Ttjfm.BitBtn1Click(Sender: TObject);
var
  s1, s2, s3, s4, s5, sqltxt: string;
  nl1, nl2: string;
  date1, date2: string;
begin
  s1 := 'select * from xdata where 1=1 ';
  s3 := 'select sum(zs) as zzs from xdata where 1=1 ';
  if (checkbox1.Checked = true) and (combobox1.Text <> '') then
    s2 := s2 + ' and zy=''' + combobox1.Text + '''';
  if (checkbox2.Checked = true) and (combobox2.Text <> '') then
    s2 := s2 + ' and xb=''' + combobox2.Text + '''';
  if (checkbox3.Checked = true) and (combobox3.Text <> '') then
    s2 := s2 + ' and yx=''' + combobox3.Text + '''';
  if (checkbox4.Checked = true) and (combobox4.Text <> '') then
    s2 := s2 + ' and fh=''' + combobox4.Text + '''';
  if (checkbox5.Checked = true) and (trim(edit3.Text) <> '') then
    s2 := s2 + ' and bz=''' + trim(edit3.Text) + '''';
  if (checkbox6.Checked = true) and (edit1.text <> '') and (edit2.text <> '') then
  begin
    nl1 := (edit1.Text);
    nl2 := (edit2.Text);
//  s2 := s2 + ' and nl>=nl1 and nl<=nl2';
    s2 := s2 + ' and nl>=' + nl1 + ' and nl<=' + nl2
  end;
  if (checkbox7.Checked = true) then
  begin
    date1 := '#' + datetostr(DateTimePicker1.Date) + '#';
    date2 := '#' + datetostr(DateTimePicker2.Date) + '#';
    s2 := s2 + ' and rq>=' + date1 + ' and rq<=' + date2;
  end;
  StatusBar1.Panels[0].text := '';
  StatusBar1.Panels[1].text := '符合条件的总曝光光次为：0';
  sqltxt := s1 + s2;
  openadoquery(dmfm.ADOQuery8, sqltxt);
  sqltxt := s3 + s2;
  openadoquery(dmfm.ADOQuery1, sqltxt);
  s4 := '符合条件的记录数为：' + inttostr(dmfm.ADOQuery8.recordcount);
  StatusBar1.Panels[0].text := s4;
  if not varisnull(dmfm.ADOQuery1.FieldValues['zzs']) then
  begin
    s5 := '符合条件的总曝光光次为：' + inttostr(dmfm.ADOQuery1.FieldValues['zzs']);
    StatusBar1.Panels[1].text := s5;
  end;


end;

procedure Ttjfm.BitBtn3Click(Sender: TObject);
begin
  checkbox1.Checked := false;
  checkbox2.Checked := false;
  checkbox3.Checked := false;
  checkbox4.Checked := false;
  checkbox5.Checked := false;
  checkbox6.Checked := false;
  checkbox7.Checked := false;
end;

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

procedure Ttjfm.Edit3DblClick(Sender: TObject);
begin
  ysfm.Tag := 2;
  openadoquery(dmfm.ADOQuery5, 'select ysxm from ys order by ysxm');
  ysfm.ShowModal;
end;

procedure Ttjfm.FormShow(Sender: TObject);
begin
  addcombox(dmfm.ADOQuery1, 'zy', 'xdata', combobox1);
DateTimePicker2.Date:=date; 
end;

procedure Ttjfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dmfm.ADOQuery1.Close;
  dmfm.ADOQuery8.Close;
  Action := caFree;
end;

end.