用Delphi的random函数在数据库中建表
来源:互联网 发布:mac管理员密码是什么 编辑:程序博客网 时间:2024/06/01 07:22
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzButton, DB, ADODB, StdCtrls, RzLabel, ComCtrls, ExtCtrls,DateUtils;
type
TForm1 = class(TForm)
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
RzLabel1: TRzLabel;
RzLabel2: TRzLabel;
ADODataSet1: TADODataSet;
que1: TADOQuery;
ADOConn: TADOConnection;
RzButton1: TRzButton;
RzLabel3: TRzLabel;
procedure RzButton1Click(Sender: TObject);
Function SecondToTime(I:integer):string;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Year,Month,Day : word;
i:integer;
j,n,k:variant;
Num:array[ 1 ..10000000] of integer;//66043
implementation
{$R *.dfm}
Function TForm1.SecondToTime(I: integer): string; //将秒数转化成hh:mm:ss
begin
Result := TimeToStr(I/86400);
end;
procedure TForm1.RzButton1Click(Sender: TObject);
begin
j :=IntToStr(DaysBetWeen(DateTimePicker1.Date,DateTimePicker2.Date));//计算两日期之间相差的天数
k :=86400*j;
ADOConn.Close;
// ADOConn.ConnectionString :=
// 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyData;Data Source=7F119C8C20DE4DB';
ADOConn.Open;
ADODataSet1.Active := false;
ADODataSet1.Active := true;
Randomize;
i:= 1;
while I<k do
begin
RzLabel3.Caption:='正在写数,请稍等!';
ADODataSet1.Append;
Num[I]:=50+Random(10);
que1.SQL.clear;
que1.SQL.Add('insert into JSJG06(ID,Times,Data,JsjgCode)');
que1.SQL.Add('values(:ID,:Times,:Data,:JsjgCode)');
Year:=StrToInt( FormatDateTime('yyyy',DateTimePicker1.Date));
Month :=StrToInt(FormatDateTime('mm',DateTimePicker1.Date));
Day :=StrToInt( FormatDateTime('dd',DateTimePicker1.Date));
with ADODataSet1 do
begin
FieldByName('ID').value:=I;
if I>=86400 then
begin
n :=I/86400;
decodedate(DateTimePicker1.Date,Year,Month,Day);
Day:=Day+n;
FieldByName('Times').value:=IntToStr(Year)+'-'
+IntToStr(Month)+'-'
+IntToStr(Day)+' '+SecondToTime(I);
end
else
begin
decodedate(DateTimePicker1.Date,Year,Month,Day);
FieldByName('Times').value:=IntToStr(Year)+'-'
+IntToStr(Month)+'-'
+IntToStr(Day+n)+' '+SecondToTime(I);
end;
FieldByName('Data').value:=Num[I];
FieldByName('JsjgCode').value:='06';
end;
ADODataSet1.Requery();
i:=i+1;
end;
RzLabel3.Caption:='写数完成!';
ShowMessage('数据保存成功');
RzLabel3.Caption:='';
end;
end.
- 用Delphi的random函数在数据库中建表
- delphi Random()函数
- Pascal 代码实现 Delphi 随机数函数: Random
- $random函数的应用
- random函数的用法
- Delphi数据库操作函数的封装(转)
- 在Delphi中巧用WINDOWS 的API函数
- 在Delphi中FormatDateTime函数的用法
- 随机播放音效 在音频组件中添加好元素 Random.Range在自定义的函数中可以用整形
- Delphi中随机函数Random应用两则
- Delphi中随机函数Random应用两则
- random()函数的使用介绍
- Erlang的random:uniform()函数
- Erlang的random:uniform()函数
- numpy的random.choice函数
- delphi 中操作access数据库的几个函数。
- rand函数和random函数的区别
- tips:Java的Random类和Random函数
- 使用 decimal、float ,numeric,money和 real 数据类型
- sql连接类型:内连接、外连接和交叉连接
- AC 经典多模式匹配算法
- char、varchar、text和nchar、nvarchar、ntext
- 补3.11作业:书上P135的SET协议工作流程与老师课堂笔记的区别
- 用Delphi的random函数在数据库中建表
- 面试题精选(66):整数的素数和分解问题
- 数据库设计多对多关系的几种形态
- 难念的经
- 图@ 最短路径
- 老师编写的读取propertites文件的类
- Log4j 学习日记 - 手工加载配置文件
- Java编程那些事儿98——多线程问题及处理1
- 模拟键盘、鼠标输入---玩转keybd_event