亚洲天堂2016,欧美亚洲精品一区二区,亚洲一级在线观看

Dushengjun — Tue, 17 Oct 2006 10:42:00 GMT

　Hibernate　的　一对一因映��关�p�，one-to-one的配�|�，有一些疑�?br />　举例说明
   Person.java
class Person{
  private Mark mark;
private int personId;
  private name;
//get 和　set �Ҏ��q��?br />
}

Mark.java
class Mark{
private int markid;
private Person;
//get和　set�Ҏ��省略
}
//映射文�g
Person.hbm.xml

Mark.hbm.xml

我的需求是�Q?br />�?strong>增加或�?strong>修改表person表时�Q�同时更新表mark表内�?而且不��用共享主键，每个表都有独立的主键,我这样配�|�时�Q�始�l�报错，希望高手指点～在�U�等

Dushengjun 2006-10-17 18:42 发表评论

Dushengjun — Wed, 20 Sep 2006 14:00:00 GMT

在��用windows�pȝ��Ӟ��我们会发玎ͼ�一�U�类型的文�g��L��可以用指定的应用�E�序打开�Q�如:doc文�g�Q�双��d��以打开文�g�Q�在使用delphi开发应用程序时�Q�同样需要实��C��边的功能�Q�其核心��p��取系�l�当前的文�g�Q�而ParamStr函数起到了非帔R��要的作用�Q�先面我们简单用 Delphi开发以个应用程序来说明问题:
首先�Q�用 delphi新徏立一个工�E?然后分别创徏�H�体MainFrm,MyMDIChildForm,��d��相应的控�?如下�?/p>

                                           MainFrm


                                          MyMDIChildForm

代码如下:
Unit1.pas(对应于MainFrm�H�体)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,Unit2, ComCtrls;

type
TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    ItemNew: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    procedure ItemNewClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    function CreateMDI():TMyMDIChildForm;
private
    { Private declarations }
public
    { Public declarations }
end;

var
MainFrm: TMainFrm;

implementation

{$R *.dfm}

procedure TMainFrm.ItemNewClick(Sender: TObject);
var
child: TMyMDIChildForm;
begin
child:= TMyMDIChildForm.create(Self);
end;

procedure TMainFrm.N3Click(Sender: TObject);

begin
if opendialog1.Execute then
begin

      CreateMDI.RichEdit1.Lines.LoadFromFile(opendialog1.FileName);
      Self.StatusBar1.Panels[1].Text:=opendialog1.FileName;
   end;

end;

procedure TMainFrm.FormShow(Sender: TObject);
var
FileName:String;
begin
   FileName:=ParamStr(1);
   if FileExists(FileName) then
    begin
      CreateMDI.RichEdit1.Lines.LoadFromFile(FileName);
    end;
end;

function TMainFrm.CreateMDI: TMyMDIChildForm;
var
child: TMyMDIChildForm;
begin
child:= TMyMDIChildForm.create(Self);
Result:=child;
end;

end.
unit2.pas(对应于MyMDIChildForm�H�体)
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TMyMDIChildForm = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
public
    { Public declarations }
end;

var
MyMDIChildForm: TMyMDIChildForm;

implementation

{$R *.dfm}

procedure TMyMDIChildForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;

end.
�q�样我们实现了一个简单的��C��本程�?�q�行�l�果如下�?

然后,我们��工�E�保�?�q�生成最�l�的EXE文�g,然后我们在Windows�pȝ��目录��L��创徏一个文�?
如下图ResumeAction.java文�g



然后��它的打开方式讄��成我们自��q��可执行程�?br />

然后再双��L��文�g,�E�序正确�q�行,�q�将它打开�?


�E�序的核心就�?font color="#ff0000">paramStr函数,它获得了�pȝ��接口,得到了当前的文�g名称!

点击下蝲

Dushengjun 2006-09-20 22:00 发表评论

��谈Spring(一)

Dushengjun — Mon, 11 Sep 2006 05:16:00 GMT

       Spring是当前比较流行的��Z��Java语言的MVC框架,所谓框架也��是它已�l�实现好了诸多东�?使java开发�h员能把精力尽量放在业务逻辑�?
       Spring技术的特点是IOC, 卛_��向注�?主要应用的是XML技术和POJO(��单Java对象),Spring要达到的目的其实很简�?��是��量��化原来Java中的地层数据讉K��的问�?众所周知,传统的��用Java讉K��地层数据库的�Ҏ��是��用JDBC,如下的代�?
   try{
       }catch(SQLException e){
                   Class.forName("com.microsoft.jdbc.sqlserver.SQLServerDriver");/以MS SQL SERVER��Z��
                   Connection conn=DriverManager.getConnection(connurl,username,password);
                 Statement stmt=conn.createStatement();
                ResultSet rs=stmt.executeQuery(sql);
         //实现业务逻辑的代�?br />                   System.out.println("产生异常:"+e);
          }
可以看到��Z��讉K��数据�?我们需要这么多多余的模式的代码,而且又要抛出不同的异�?代码可维护性比较差,而且不利于开发�h员把�_�֊�投放到最�l�的业务逻辑�?上边的功能如果选择使用Spring实现,那就变得的非常简单了:






我们只需要培植上文的XML文�g,然后在真正��用数据库�?�?br />      ApplicationContext   ctx=new   FileSystemXmlApplicationContext("beans.xml");
        DriverManagerDataSource ds=(DriverManagerDataSource)ctx.getBean("datasource");
两条语句完成数据源的获得,�q�就��化掉了相当多的模式代�?让我们更加关心业务逻辑的实��C��~

Dushengjun 2006-09-11 13:16 发表评论

Dushengjun — Thu, 07 Sep 2006 04:39:00 GMT

最�q�两天，很��y,又写delphi的电子邮件客��L��,�q�写了Java的电子邮件发送的��程�?一个是工作需�?另一个则是帮朋友的忙,有点�?

1.Java的电子有件发送程�?/div>

SendMailBean.java

package adu.com.kingsoft;

import java.util.Date;
import java.util.Properties;

import javax.mail.Message;
import javax.mail.Session;
import javax.mail.Transport;
import javax.mail.internet.InternetAddress;
import javax.mail.internet.MimeMessage;

public class SendMailBean {

    private String form;
    private String to;
    private String hostName;
    private String port;
    private String userName;
    private String password;
    private String subject;
    private String body;
    public String getBody() {
        return body;
    }
    public void setBody(String body) {
        this.body = body;
    }
    public String getSubject() {
        return subject;
    }
    public void setSubject(String subject) {
        this.subject = subject;
    }
    public String getForm() {
        return form;
    }
    public void setForm(String form) {
        this.form = form;
    }
    public String getHostName() {
        return hostName;
    }
    public void setHostName(String hostName) {
        this.hostName = hostName;
    }
    public String getPassword() {
        return password;
    }
    public void setPassword(String password) {
        this.password = password;
    }
    public String getPort() {
        return port;
    }
    public void setPort(String port) {
        this.port = port;
    }
    public String getTo() {
        return to;
    }
    public void setTo(String to) {
        this.to = to;
    }
    public String getUserName() {
        return userName;
    }
    public void setUserName(String userName) {
        this.userName = userName;
    }

    public boolean sendMail(){
          Properties props=new Properties();
        // props.put("mail.smtp.protocol","smtp");
          props.put("mail.smtp.host",hostName);
          props.put("mail.smtp.auth","true");
          props.put("mail.smpt.port",port);
          Session mailsession=Session.getInstance(props,null); //得到一个发送邮件的会话

          Message msg=new MimeMessage(mailsession);
          try{
           msg.setFrom(new InternetAddress(this.getForm()));
           msg.setRecipients(Message.RecipientType.TO,InternetAddress.parse(this.getTo()));
           msg.setSubject(this.getSubject());
           msg.setSentDate(new Date());
           msg.setText(this.getBody());
           Transport transport = mailsession.getTransport("smtp");
           transport.connect(this.getHostName(),this.getUserName(),this.getPassword());
           transport.sendMessage(msg,msg.getRecipients(Message.RecipientType.TO));
          // System.out.println("邮�g以成功发送到dushengjun@gmail.com");
           transport.close();
           return true;
          }catch(Exception e)
          {
              System.out.println("产生异常:"+e);
              return false;
          }
    }

}

JavaMailApp .java

package adu.com.kingsoft;
import java.util.Date;
import java.util.Properties;
public class JavaMailApp {

    /**
     * @param args
     */
    public static void main(String[] args) {
       System.out.println("正在准备发�?....");
       SendMailBean smb=new SendMailBean();
       smb.setUserName("dushengjun");
       smb.setForm("dushengjun@kingsoft.net");
       smb.setHostName("mail.kingsoft.net");
       smb.setPassword("***************");
       smb.setPort("25");
       smb.setTo("dushengjun@gmail.com");
       smb.setSubject("你好");
       smb.setBody("你好 Java");
       if(smb.sendMail())
       System.out.println("发送成�?);
       else
           System.out.println("发送失�?);
    }
}

同时��如下的包加到classpath�?

activation.jar,dsn.jar,imap.jar,mailapi.jar,pop3.jar,smtp.jar

可以��试�?�q�行一下JavaMailApp �?/div>

2.Delphi的电子邮件客��L��实现

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, IdMessage, ComCtrls;

type
TForm1 = class(TForm)
    idSMTP: TIdSMTP;
    Button1: TButton;
    idMessage: TIdMessage;
    letter_subject: TEdit;
    me_content: TRichEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    receiver_address: TEdit;
    Label4: TLabel;
    me_address: TEdit;
    me_pwd: TLabel;
    mypassword: TEdit;
    Label5: TLabel;
    me_port: TEdit;
    myHostName: TEdit;
    Label6: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure   TForm1.Button1Click(Sender:   TObject);
var
subject           :String;
rec_address       :String;
self_address      :String;
password          :String;
content           :String;
port              :Integer;
hostName          :String;

begin

subject:=letter_subject.Text;
rec_address:=receiver_address.Text;
self_address:=me_address.Text;
port:=StrToInt(me_port.Text);
password:=mypassword.text;
hostName:=myHostName.Text;
content:=me_content.text;
      if idMessage   =   NIL    then
          idMessage.Create(Form1);
      if idSMTP=NIL   then
          idSMTP.Create(Form1);

TIdAttachment.Create(IdMessage.MessageParts,edit1.Text);

       IdMessage.Body.Assign(me_content.lines);
       IdMessage.From.Text := self_address;
       IdMessage.ReplyTo.EMailAddresses := self_address;
       IdMessage.Recipients.EMailAddresses := rec_address;
       IdMessage.Subject := subject;

      idSMTP.AuthenticationType   :=   atLogin;
     // idSMTP.AuthenticationType:=atNone;
      idSMTP.Username   :=   self_address;
      idSMTP.Password   :=   password;
      idSMTP.Host           :=hostName;
      idSMTP.Port           :=   port;

try
idSMTP.Connect;

          idSMTP.Send(idMessage);
         //idSMTP.DisconnectSocket;
          idSMTP.Disconnect;
          //idSMTP.Destroy;
          showmessage('send   mail   ok');
      except
          //idSMTP.Destroy;
          //idMessage.Destroy;
          showmessage('mail   send   false');
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if(openDialog1.Execute) then
begin
Edit1.Text:=opendialog1.FileName;
end;
end;

end.

Dushengjun 2006-09-07 12:39 发表评论

亚洲天堂2016,欧美亚洲精品一区二区,亚洲一级在线观看

���谈Spring(一)

��谈Spring(一)