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 ......
Delphi的方法类型有：
1.静态方法 (Static) 默认类型，可以省略关键字
2.虚拟方法 (Virtual)
3.动态方法 (Dynamic)
4.消息方法 (Message)
5.抽象法方 (Abstract)
=======================================================
1）静态方法[static]
静态方法类似于通常的过程和函数，编译器在编译时就已指定了输出该方� ......
====================================================
Delphi操作文件的一般步骤：
1）关联文件：
AssignFile(var F; FileName :string)；
2）初始化文件：
Append(var F :Text);
//只写，于文件最后追加数据
Reset(var F [; RecSize :Word]); ......
所在单元： DateUtils
Day 开头的函数
1、DayOf()
描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述： Da ......
ExpressQuantumGrid.Suite.v6.30 在Delphi 7中的安装
大名鼎鼎的Grid控件，没有找到打好包的，以下是手动安装步骤
=====================
1、必须配套安装如下7组控件，已经安装过的则跳过
XP Theme Manager
ExpressGDI+ Library
ExpressLibrary
ExpressExport Library
ExpressDataController
ExpressEditors Lib ......
