CSDN 寻找最后一个Delphi犀利哥
百度知道真垃圾，那么大的一个企业，就给那么点空间，提个问1500字限制了。想想来csdn，挂了一个星期都没人理，不知道是我分太少，还是真的高手都不来这里？？？期待一个英雄的到来，菜鸟我在这里拜谢了！！其实这根本不是生命难题，我才刚刚学，问不出生命高深的题目来：
rT;
delphi7 ,DB:oracle
问题运行工程文件exe不报错，出现了登入界面却，无法进入基本界面，调出任务管理器看不到EXE的进程，生命这个系统已经退出了。
主界面的代码：login.pass ，name 属性frmLogin
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TfrmMain = class(TForm)
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
uses GoodsInfo, Vendor, InHouse, OutHouse, Stocks, AlterPWD;
{$R *.dfm}
procedure TfrmMain.SpeedButton2Click(Sender: TObject);
begin
frmGoodsinfo:=TfrmGoodsinfo.Create(self);
frmGoodsinfo.Showmodal;
frmGoodsinfo.Free;
end;
procedure TfrmMain.SpeedButton3Click(Sender: TObject);
begin
frmVendor:=TfrmVendor.Create(self);
frmVendor.Showmodal;
frmVendor.Free;
end;
procedure TfrmMain.SpeedButton4Click(Se
相关文档：
//定义全局变量
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//创建打开outlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.app ......
用VC++6.0编写了一个简单的dll，里面包含一个减法函数subtract(int a,int b)，Dll命名为ff.Dll
代码如下：
1.ff.cpp:
// ff.cpp : Defines the entry point for the DLL application.
//
#include "StdAfx.h"
#include "ff.h"
BOOL APIENTRY DllMain( HANDLE hModule,
......
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(Dat ......
淘宝开放平台的开发例子大多都是c#，php，java等，缺少Pascal的例子。
现用delphi写了一个示例，
关键点是签名的生成，签名需按key字母顺序排序，并去掉等于号后首尾相连。
关键代码：
memstr:= TMemoryStream.Create;
//用授权码获取 session
IdHTTP1.Get('http://container.api.tbsandbox.com/c ......
所在单元： DateUtils
Day 开头的函数
1、DayOf()
描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述： Da ......
