本人从事计算机编程2年(2000年毕业),想找一份关于DELPHI编程的工作。工作地点:上海市内;
解决方案 »
- 能否让dbgrid显示sqlite中的数据,或者有别的什么控件可以使用?
- 服务程序 ShellExecute Delphi
- 怎么用代码点击按钮???
- 怎样在 dxDBTreeList 中添加节点和子节点?
- 我把函数名存在一个字符串里,怎样动态地去执行它.
- 有一个热健CRTRL+P,我想在一个事件里用SendMessage模拟此热键,即该怎么发送此消息?
- 寫過這個程序以後再也不用ado了
- 请问delphi菜单上的add to projet按钮有什么用的。我比较少用那按钮,我一般只用open按钮
- 请问哪里有比较详细的firedac中文资料
- 怎样使opendialog中只显示以制表符号分隔的文本文件。
- case 语句的问题,在线啊
- 怎样在系统进程中隐藏我的应用程序
我也想
name01:string;
ste01:integer;
lnfen1:integer;
lnfen2:integer;
lx1:string;
kzb01:string;
kzb02:string;
ktk01:integer;
ktk02:integer;
kzb701:string;
kzb702:string;
kzb703:string;
kzb704:string;
ktk701:integer;
ktk702:integer;
begin begin
adotable2.First;
while not adotable2.eof do begin
lx1:=adotable2.fieldbyname('leixin').AsString;
adotable2.edit;
adotable2.Post;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.add('select count(t11) as lnfen2 from tk where t11 like ''%'+lx1+'%''');
adoquery2.Open;
lnfen2:=adoquery2.fieldbyname('lnfen2').asinteger;
adotable2.Edit;
adotable2.fieldbyname('yti').asinteger:=lnfen2;
adotable2.Next;
end;
end; begin
adotable3.First;
while not adotable3.Eof do begin
adotable3.open;
adotable3.edit;
kzb01:=adotable3.fieldbyname('zhibiao').asstring;
kzb02:=adotable3.fieldbyname('leixin').asstring;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.add('select count(t13) as ktk01 from tk where t13 like ''%'+kzb01+'%''and t11 like ''%'+kzb02+'%''');
adoquery2.Open;
ktk01:=adoquery2.fieldbyname('ktk01').asinteger;
adotable3.Edit;
adotable3.FieldByName('yts').asinteger:=ktk01;
adotable3.Next;
end;
end;
begin
adotable4.First;
while not adotable4.Eof do begin
adotable4.open;
adotable4.edit;
kzb701:=adotable4.fieldbyname('zhibiao').asstring;
kzb702:=adotable4.fieldbyname('leixin').asstring;
kzb703:=adotable4.fieldbyname('nandu').asstring;
kzb704:=pchar(kzb703);
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.add('select count(t13) as ktk701 from tk where t13 like ''%'+kzb701+'%''and t11 like ''%'+kzb702+'%'' and t12 like ''%'+kzb704+'%'' ');
adoquery2.Open;
ktk701:=adoquery2.fieldbyname('ktk701').asinteger;
adotable4.Edit;
adotable4.FieldByName('yts').asinteger:=ktk701;
adotable4.Next;
end;
end;end;
工作2年Delphi经验,合同即将到期,不准备续签