求助vb高手！！！！！急~！！！！这些代码怎样才能在VB上实现啊？

显示全部楼层 · 2011-10-30 10:38:05

1.procedureTfrmMain.SpeedButton1Click(Sender:TObject);beginfrmAdm.Show;end;procedureTfrmMain.SpeedButton2Click(Sender:TObject);beginfrmReaderSer.Show;end;procedureTfrmMain.SpeedButton3Click(Sender:TObject);beginfrmLookBook.Show;end;procedureTfrmMain.SpeedButton4Click(Sender:TObject);varStr:string;beginStr:=\'图书管理系统\'#13;Str:=Str\'作者：李丽丽(L3)\'#13;Str:=Str\'这是我的第一次编程,请大家多多指教!\';ShowMessage(Str);end;procedureTfrmMain.SpeedButton5Click(Sender:TObject);beginifmessagedlg(\'确定要退出本系统吗?\',mtinformation,[mbyes,mbno],0)=mryesthenbeginShowMessage(\'谢谢你的使用\');//form1.DestroyWnd;frmMain.Close;end;end;procedureTfrmMain.Timer1Timer(Sender:TObject);beginStatusBar1.Panels[2].Text:=\'日期:\'DateToStr(Date);StatusBar1.Panels[3].Text:=\'时间:\'TimeToStr(Time);end;procedureTfrmMain.SkinData1FormSkin(Sender:TObject;aName:String;varDoSkin:Boolean);beginskindata1.Active:=true;end;end.2.procedureTfrmAdm.Button1Click(Sender:TObject);beginwithDM.ADOQuery1dobeginClose;SQL.Clear;SQL.Add(\'select*from用户where姓名=:usernameand密码=:passand类型=:GLY\');Parameters.ParamByName(\'username\').Value:=Edit1.Text;Parameters.ParamByName(\'pass\').Value:=Edit2.Text;Parameters.ParamByName(\'GLY\').Value:=\'管理员\';Open;ifRecordCount1thenbeginShowMessage(\'用户名、密码错误或您不是管理员，请重新输入!\');Edit2.Text:=\'\';Exit;endelsebeginfrmAdmin.ShowModal;end;end;end;

千问 · 2011-10-30 10:38:05

procedureTfrmMain.SpeedButton1Click(Sender:TObject);beginfrmAdm.Show;end;procedureTfrmMain.SpeedButton2Click(Sender:TObject);beginfrmReaderSer.Show;end;procedureTfrmMain.SpeedButton3Click(Sender:TObject);beginfrmLookBook.Show;end;....以上无非是点击多文档窗口（父窗体）上的按键，显示相应的子窗体。procedureTfrmMain.SpeedButton4Click(Sender:TObject);varStr:string;beginStr:=\'图书管理系统\'#13;Str:=Str\'作者：李丽丽(L3)\'#13;Str:=Str\'这是我的第一次编程,请大家多多指教!\';ShowMessage(Str);end;procedureTfrmMain.SpeedButton5Click(Sender:TObject);beginifmessagedlg(\'确定要退出本系统吗?\',mtinformation,[mbyes,mbno],0)=mryesthenbeginShowMessage(\'谢谢你的使用\');//form1.DestroyWnd;frmMain.Close;end;end;......以上是点击按钮后，弹出消息procedureTfrmMain.Timer1Timer(Sender:TObject);beginStatusBar1.Panels[2].Text:=\'日期:\'DateToStr(Date);StatusBar1.Panels[3].Text:=\'时间:\'TimeToStr(Time);end;...在窗体下边的状态栏里显示当前时间procedureTfrmAdm.Button1Click(Sender:TObject);beginwithDM.ADOQuery1dobeginClose;SQL.Clear;SQL.Add(\'select*from用户where姓名=:usernameand密码=:passand类型=:GLY\');Parameters.ParamByName(\'username\').Value:=Edit1.Text;Parameters.ParamByName(\'pass\').Value:=Edit2.Text;Parameters.ParamByName(\'GLY\').Value:=\'管理员\';Open;ifRecordCount1thenbeginShowMessage(\'用户名、密码错误或您不是管理员，请重新输入!\');Edit2.Text:=\'\';Exit;endelsebeginfrmAdmin.ShowModal;end;end;end;.......连接并打开数据库...校对信息以便登陆.............张志晨：可以实现。其它要详谈。

千问 · 2011-10-30 10:38:05

看来你的基础太差了，没办法教你赞同

千问 · 2011-10-30 10:38:05

pascal语言代码，需要编译后，在vb里调用才能使用，直接拿到vb里运行有点难了，除非两个语言你都熟悉，然后把它用vb重写一次。追问能说的详细点么？

千问 · 2011-10-30 10:38:05

pascal计算机语言和vb计算机语言都是用来编写计算机程序的，两种语言间的语法不同，所以基本上是不可能直接互换代码来运行的。你要是熟悉这两门语言，就可以相当于翻译一样，把它用vb语言再编一次程序。

千问 · 2011-10-30 10:38:05

我还有些问题，184426228，这是我Q，谢谢，我还想问你些问题~麻烦你了~

千问 · 2011-10-30 10:38:05

貌似要数据库参考资料：assInputUsername0