Kết luận của Bác sỹ thực hiện Siêuâm

. catch (Exception ex)

Kết luận của Bác sỹ thực hiện Siêuâm

+ Ảnh Siêu âm của bệnh nhân (tối đa 02 ảnh - do Bác sỹ chọn) Code chương trình:

private void butTnKetQua, -_£11ek (object sender, EventArgs e)

{

string ngay, thang, nam, BSCD, BSSA, TenBN, Phai, Tuoi, Dchi, khoa, Cdoan, - kiemTra, tonThuong, ketLuan;

DateTime d = this.dateTB.Value;

ngay = d.Day.ToString(); if (ngay. Length == 1) ngay = "0" + ngay;

thang.= d.Month.ToString(); i£ (thang. Length == 1) thang = 707 + thang; nam = d.Year.ToString(); :

BSCD = là: :

BSSA = "nà.

TenBN = this, textBoxHoTen. Text .ToUÚpper () ;

Phai = this.textBoxSex.Text; Tuoi = this. textBoxTuoi. Text;

Dch1ủ = “

khoa = this. textBozErom. Text;

Cdoan = this.richTextBoxbamSang. Text; kiemTra = this.labelTenVungS5A.Text/;

tonThuong = this. richTextBoxKetOua.Text.Trim() ;- - ketbuan = this.richTextBoxKetLuan.Text.Trim() ;

DataTable dt =: new DataTable(); /⁄⁄ object of data row

dt.TableName = "dtBenhNhan”;

dt.Columns. Add ("Image1", System.Type.GetTvpe ("5ystem. Byte[]")); dt .Columns . Add ("Tmage2"”, 5ystem, Typẻ. 'GetType (8y5Lem. Byte[]")); try.

{ ~ CC .

Reports.RP rp = new Phong8i.euAm. Reports.. RP () ;

rp.DataDefinition. Formu1aFie1ds ["ngay"].Text = "\"" + ngay + "\ "7;

+p.DataDefinition. FormulaFields["thang”] .Text = !"\"" + thang + "\HH; rp.DataDefinition.EormulaFields[ "narm”].TexL = An" + nam + "NHH;

rp.DataDefinition. FormalaEFie1ds [ "hoten”}.Text = "\"?” + TenBN + "\"H;

rp.DataDefinition. FormulaFields["Phai”].Text = Hé" + Phai + PÉNHH;

rp.DataDefinition. FormulaFields["Tuoi”],Text = HH + Tuoi + HNHH;

rp.DataDefinition. FormulaFie1ds ["diachi”] .ext = n"éN#H"h + Dchị + ĐÉNUH;

rp.DataDefinition. FormulaFields[“"khoa"].Text = HH" + khoa + DÉNHH;

rp.DataDefinition. FormulaFie1ds ["Cdoan"”] .Text = n"‹ \HH + Cdoan + n"NHH,

_zp.DataDefinition. FormulaFields["ktra”].Text = tt" + kiemTra + ĐNHH;

rp.DataDefinition. FormulaFie1ds[ "tonThuong”] .Text = H"!IH + tonThuong. Replace ("\nm, mm? + chr(10) + !") + H1";

rp.DataDefinition. FormulaFields ["ketLuan"].Text = "1H +

ketLuan. Replace ("\n", "? + chr(10) + '") + HE,

//lay danh sach 2 hình duoc check dau "tien de in int i1 = -1, 12.= -1;

for (int i = 0; 1< this. 14{stViewANH. IEems ,Count; i++)

1£ (this. 1istViewANH. Ttems[i]. Checked == true) .

Viện Cơ học và Tin học ứng dụng Báo cáo đề tài Sở KH&CN Bình Dương 07/2010

1£. (11 == =1) i1 = ải;

-else i£ (12 = =1) 12 = 1;

1£ (11 != T1 &§ i2 != -1) break;

} .

_DataRow drow = dt.NewRow();

1£ (11 != -1)drow["Tmagel1"]=this. imageToByteArray ( (Image) imgs[11]);

1f (12 != -1)drow["Image2"]=this. imageToByteArray((Tmage) imgs[i2]);

dt.Rows. Add (drow) ;

rp.SetDataSource (đdC) ; .

frmPrintPreview frm = new £rmPrintPreview (rp);

£rm. ShowDialog () ; , . rp.Dispose() ;

} .

catch (Exception ex)

{

string s = ex.Messadge; :

if (ex.Message.StartsWith("The RPC")) s = "Lỗi kết nối với máy in";

MessageBox. Show (s, "Thông báo! ");

}

-l|private byte[] imageToByteArray (System.Drawing.Image imageTn)

( :

MemoryStream ms = new MemoryStream(};

imageIn.Save (ms, System.Drawing. Imaging. ImageFormat . BmÐ) ;

return ms.ToArray();

Trang "+

Viện Cơ học và Tin học ứng dụng Báo cáo đề tài Sở KH&CN Bình Dương 07/2010