摘要:VB源码,数据库应用,数据库
一个VB与SQLSERVER配合的小程序，附VB源码下载，一本书中的演示程序源代码：
1.用MySampleDB.mdb创建名叫“test_dsn”的ODBC数据源，详细的创建方法就不介绍了。
2.确保Data控件的Connect属性为“ODBC;UID=;PWD=; DSN=test_dsn;”。 信息来源:源他
一个VB与SQLSERVER配合的小程序，附VB源码下载，一本书中的演示程序源代码：
1.用MySampleDB.mdb创建名叫“test_dsn”的ODBC数据源，详细的创建方法就不介绍了。
2.确保Data控件的Connect属性为“ODBC;UID=;PWD=; DSN=test_dsn;”。 信息来源:源他
2024-01-29 11:53:39
35KB
1
遗传算法的理论是根据达尔文进化论而设计出来的算法: 人类是朝着好的方向（最优解）进化，进化过程中，会自动选择优良基因，淘汰劣等基因。
遗传算法（英语：genetic algorithm (GA) ）是计算数学中用于解决最佳化的搜索算法，是进化算法的一种。进化算法最初是借鉴了进化生物学中的一些现象而发展起来的，这些现象包括遗传、突变、自然选择、杂交等。
遗传算法的一般步骤
my_fitness函数 评估每条染色体所对应个体的适应度
升序排列适应度评估值，选出 前 parent_number 个 个体作为 待选 parent 种群（适应度函数的值越小越好）
从 待选 parent 种群 中随机选择 2 个个体作为父方和母方。
抽取父母双方的染色体，进行交叉，产生 2 个子代。（交叉概率）
对子代（parent + 生成的 child）的染色体进行变异。（变异概率）
重复3,4,5步骤，直到新种群（parent_number + child_number）的产生。
循环以上步骤直至找到满意的解。
本资源包含遗传算法+matlab+原理介绍+示例源码
2024-01-16 20:57:49
12KB
1
DELPHI动态创建删除FRAME
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,FM;
type
TForm2 = class(TForm)
Panel1: TPanel;
Button2: TButton;
ScrollBox1: TScrollBox;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TFM = Array Of TFrame1;
var
Form2: TForm2;
aFM: TFM;
procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall;
implementation
{$R *.dfm}
procedure DeleteArrItem(var arr: TFM ; Index: Integer);
var
Count: Cardinal;
i:integer;
begin
Count := Length(arr);
if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
SetLength(arr, Count - 1);
for I := 0 to Length(arr) - 1 do
begin
arr[i].Label1.Caption:=inttostr(i);
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
fram:TFrame1;
begin
SetLength(aFM,length(aFM)+1);
aFM[length(aFM)-1] :=TFrame1.Create(nil) ;
fram:=aFM[length(aFM)-1];
fram.Label1.Caption:=inttostr(length(aFM)-1);
fram.Parent:=ScrollBox1;
end;
end.
unit fm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame1 = class(TFrame)
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses unit2;
{$R *.dfm}
procedure TFrame1.Button1Click(Sender: TObject);
begin
DeleteArrItem(aFM,strtoint(label1.Caption));
( Sender as Tbutton ).Parent.Parent.Destroy;
end;
end.
2023-12-12 19:35:07
311KB
1
Delphi7+Indy10.5.8开发的一个通讯小软件示例源码，主要完成TidTCPServer 和 TIdTCPClient的通讯。可以做为一个聊天软件的雏形，里面解决通讯的问题，不过，有些情况下还是会有异常，可以一起探讨。
2023-11-09 13:57:34
40KB
1
现在的程序员，不再像以前一样，掌握一种编程语言就可以混得有模有样了，现实的情况是，真实的项目中，通常是涉及多种编程语言，举几个简单的例子，一个软件为了快速开发，可能是使用Delphi或VB作为界面开发首选语言，底层的指令或核心算法，会使用C/C++处理，涉及数据处理的时候，为了安全和快速开发，会使用Javascript或Python等脚本语言实现数据分析处理。因此，开发者应该学习或掌握语言混合编程。 C++和Java是主流的两种编程语言，但是现在整个网上对实现这两种语言混合编程的资料少之又少，却又说之不全，并且有时多种问题现在也含糊不清，对正在学习或使用这两种语言的朋友造成很大的困扰。本人的这篇拙作，希望对使用这两种语言混合编程学习的朋友可以抛砖引玉。
原文链接：http://blog.csdn.net/defonds/archive/2009/12/03/4932618.aspx
本源代码是该博客所需示例源代码。
2023-11-07 07:02:01
1.39MB
1