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
Ïà¹ØÎĵµ£º
ÓÃDelphi¿ª·¢Êý¾Ý¿âÓ¦Óã¬Ò»°ã»áÉæ¼°µ½ÉÁÆÁ£¨Splash£©¡¢µÇ¼´°¿Ú¡¢Ö÷Êý¾ÝÄ£¿é£¨»òÖ÷Êý¾Ý¿âÁ¬½Ó£©ÒÔ¼°Ö÷´°¿Ú¡£Í¨³£ÔÚÏîÄ¿ÎļþÖУ¬splash´°¿ÚÏÔʾ¹ý£¬Ò»Ð©ÐèÒª¼ÓÔصÄ×ÊÔ´¡¢´°¿Ú¼ÓÔعýºó£¬Application.Run֮ǰ£¬½øÐÐÓû§µÇ¼¡£
//²âÊÔCSDN²©¿Í¶ÔDELPHI´úÂëµÄÖ§³Ö
program TEST;
uses
Forms,
Windows,
MainF in 'Ma ......
32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æȡע²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏ󡣶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£
¡¡¡¡¶þ ......
Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øʹÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......
ÒÔÏÂÊÇÔÚÍøÉÏÊÕ¼¯µÄһЩ¶ÔÎÞÀàÐͲÎÊýµÄ˵Ã÷.¸öÈËÀí½âÎÞÀàÐͱäÁ¿¾ÍÊÇÒ»¸öÖ¸Õë.
ÏóDelphiÖÐfunction Read(var Buffer; Count: Longint): Longint; override;ÏóBufferÕâÑùûÓÐÀàÐ͵IJÎÊý¾¿¾¹Ó¦¸ÃÔõô¸ø²ÎÊý£¿£¿£¿£¿
Õâ˵Ã÷BufferÊÇͨ¹ýµØÖ··½Ê½´«µÝµÄ£¬Ò»°ã˵À´Ö» ......
±Ï¾¹Win32³ÌÐòµÄ¿ª·¢£¬Delphi»¹ÊÇÓÐÍçÇ¿µÄÉúÃüÁ¦µÄ¡£
²Ù×÷²½ÖèÈçÏ£º
1.½¨Á¢ res Îļþ
½¨Á¢Ò»¸öÎı¾Îļþ£¬Ãû×Ö¿ÉÒÔ×Ô¼ºÆð£¬ÎÒÕâÀï½Ð£ºUAC.manifest£¬ÄÚÈÝ£º
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
......