求大神们帮忙弄一下代码
求大神帮帮忙，把下面的delphi转成java的代码，我已经弄好几天了实在是弄不明白了，我把我所有的积分全拿出来了，我快不行了
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DB, DBAccess, Ora, MemDS, ExtCtrls,DateUtils;
type
TForm1 = class(TForm)
Button1: TButton;
OraQuery1: TOraQuery;
OraQuery2: TOraQuery;
OraSession1: TOraSession;
Label1: TLabel;
MaskEdit1: TMaskEdit;
Timer1: TTimer;
Timer2: TTimer;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Synchronous_Datetime(Sender: TObject); //用于与服务器通讯 同步时间
function Custom_Timer_Format(f_time:Tdatetime):string;//用于规范时间格式
procedure Do_For_Timer2(Sender: TObject);//用于timer2的执行
private
{ Private declarations }
public
{ Public declarations }
global_time:TDatetime;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
/// ///
/// 用于与服务器通讯 同步时间 ///
/// ///
procedure TForm1.Synchronous_Datetime(Sender: TObject);
var
sql:string;
begin
sql:='select sysdate from dual';
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.SQL.Add(sql);
oraquery1.Open;
global_time:=oraquery1.Fields[0].AsDateTime;
end;
/// ///
/// 用于timer2的执行 时间自动累加 程序自动判断///
/// ///
procedure TForm1.Do_For_Timer2(Sender: TObject);
var
the_time:string;
begin
global_time:=IncMinute(global_time);
the_time:=Custom_Timer_Format(global_time);
label3.Caption:=the_time;
if (the_time='11:10') or (the_time='11:30')
or (the_time='12:00')or (the_time='12:30')
or (the_time='13:00')or (the_time='13:30') then
begin
Button1Click(Sender);
end;
end;
/// ///
/// 拆分时间格式为11:10 ///
/// 避免客户端机器时间格 ///
/// 式差异引起的异常 ///
/// ///
function TForm1.Custom_Timer_Format(f_time:Tdatetime):string;
var
Hour, Min, Sec, MSec: Word;
s_hour,s_min:string;
h,m:string;
begin
DecodeTime(f_time,Hour, Min, Sec, MSec);
s_hour:=inttostr(hour);
s_min:=inttostr(min);
if length(s_hour)=1 then h:='0'+s_hour else h:=s_hour;
if length(s_min)=1 then m:='0'+s_min else m:=s_min;
Result:=h+':'+m;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
path,xxrq:string;
s,uid,uname,upsw:string;
i,j:integer;
MyTextFile: TextFile;
textf:TextFile; //定义文件变量textf
begin
//xxrq:=datetostr(now,'YYYY-MM-DD');
//首先删除已存在的scqk.txt文件
DeleteFile('scqk.txt');
//删除完毕
MaskEdit1.Text:=datetostr(now) ;
with OraQuery1 do
begin
close;
Session := OraSession1;
SQL.Clear;
SQL.Add('select * from username where user_ID='001'') ;
OraQuery1.Open;
end;
uid:=OraQuery1.Fields[0].AsString;
uname:=OraQuery1.Fields[1].AsString;
upsw:=OraQuery1.Fields[2].AsString;
s:='时间：' +MaskEdit1.Text+'；ID：'+ uid + '；姓名'+ uname +'；密码：'+ upsw' ;
label1.Caption:=s;
MaskEdit1.Text:=datetostr(now) ;
//MaskEdit2.Text:=datetimetostr(now) ;
AssignFile(textf,'scqk.txt'); //将文件变量textf与当前目录中的“file．txt"文件关联
Rewrite(textf); //创建文件或打开已存在的文件进行覆盖
writeln(textf,s);
CloseFile(textf); //关闭已打开的文件textf
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
{---------------------------------------------
作用：每小时触发一次，用来同步服务器时间，避免
本地时钟与服务器时钟差异导致异常
---------------------------------------------}
Synchronous_Datetime(Sender);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
{---------------------------------------------
作用：每分钟触发一次
全局时间增加一分钟（本地计时，避免服务器负载）
当时间分别为
11:10 11:30 12:00 12:30 13:00 13:30
六个特殊时间点时触发指定按钮任务
---------------------------------------------}
Do_For_Timer2(Sender);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Synchronous_Datetime(Sender);
Do_For_Timer2(Sender);
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var
NetShTxt:string;
begin
NetShTxt :='netsh interface set interface name='+'"'+'本地连接'+'"'+' admin=disable' ;
label1.Caption:=NetShTxt;
winexec(pchar(NetShTxt), sw_hide);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
NetShTxt:string;
begin
NetShTxt :='netsh interface set interface name='+'"'+'本地连接'+'"'+' admin=enable' ;
label1.Caption:=NetShTxt;
winexec(pchar(NetShTxt), sw_hide);
end;
end.
java delphi --------------------编程问答-------------------- 没有文档么，看功能需求直接重新用Java写啊，从其他语言一句句改过来是谁都得疯吧。。 --------------------编程问答--------------------
没有啊，只有这段代码，我都快哭了，我还不怎么会 --------------------编程问答--------------------
没用过delphi，你这是要做什么，非得从delphi改到java...
--------------------编程问答--------------------
我擦，我不会delphi啊。。你把这段代码读懂了，知道做什么功能，到时候再翻译过来。不要照着代码一句一句翻译
--------------------编程问答--------------------
老师让的，我基本不会啊 --------------------编程问答--------------------
我老师说代码好像是俩用户导表什么的，但是我读不懂这段啊，我也不会delphi --------------------编程问答-------------------- delphi课总逃课
只有点印象拖动图标加事件
--------------------编程问答--------------------
--------------------编程问答--------------------
不会呀 不过顶一下
补充：Java , Java相关
