招聘高级Delphi程序员（上海）(0分)

  • 主题发起人 主题发起人 xmodem
  • 开始时间 开始时间
to hnxyj_h
可以发个你的作品来看看嘛
 
我接受能力很强的，要我吧
 
我试试吧,不过我对对COM+、MIDAS、WEBSERVICE没有什么经验,Delphi到是用勒2年勒.
项目经验:
1 : Category_Analyzer数据分析系统,现应用于可口可乐,保洁,广州实力媒体有限公司,客户反映良好.同时在台湾,泰国也有客户在试运行中.
工具: Delphi,Access,Sql.
2 : 文王贡物流管理系统,现应用于安徽文王贡酿酒有限公司.主要业务包括:人员管理,生产管理,库存管理,销售管理,系统管理等.
工具: Delphi,Sql,PowerDesigner.
3 : 电力营销管理软件,现应用于福建省德化县电力公司.
工具: Delphi,Sql,PowerDesigner.
4 : 华新物流管理管理系统,现应用于安徽华新物流有限公司.
工具: Delphi,Sql,PowerDesigner.
这段时间正在搞导数据,贴段代码:
function TfmReach.CreateCommFormatText(SourceFileName: string;
ResultTxtFileNames: TStringList): Boolean;
var InputTextstringlist,inputTextRowstringlist : Tstringlist;
I,IText,IRow : integer;
TextName,BrandName,CategoryName,MarketName,IndexName,ProductName : string;
SignRow : integer;
OutPutTextStringlist : Tstringlist;
TitleArray,DataArray : TstringArray;
TitleString,DataString : String;
Indexstringlist : Tstringlist;
DirectoryName : string;
R1,R2,R3,R4,R5,R6,R7,R8,R9,R10 : string;
Year,DateCell,date,month : string;
CheckStringList : Tstringlist;
begin
Result := False;
if Source = 1 then
begin
InputTextstringlist := Tstringlist.Create;
InputTextRowstringlist := Tstringlist.Create;
OutPutTextStringlist := Tstringlist.Create;
Indexstringlist := Tstringlist.Create;
try
TextName := ExtractFileName(SourceFileName);
DirectoryName := Copy(TextName,1,Length(TextName)-4);
TextName := Copy(TextName,1,length(TextName)-4);
BrandName := Copy(TextName,1,Pos('_',TextName)-1);
TextName := Copy(TextName,Pos('_',TextName)+1,Length(TextName)-Length(BrandName)-1);
CategoryName := Copy(TextName,1,Pos('_',TextName)-1);
InputTextstringlist.LoadFromFile(SourceFileName);
Getstringlist(Indexstringlist,InputTextstringlist.Strings[1],#9);
+#9+ 'MarketName' +#9+ 'CategoryName'+#9+ 'DataValue');
//-->ÕÒ³ö²»Í¬µÄÈÕÆÚ,Ìí¼Ó
TitleString := 'IndexName' +#9+ 'MarketLevel' +#9+ 'MarketName' +#9+ 'CategoryName'
+#9+ 'BrandName' +#9+ 'ProductName';
for IText := 0 to InputTextstringlist.Count - 1do
begin
InputTextRowstringlist.Clear;
GetStringlist(InputTextRowstringlist,InputTextstringlist.Strings[IText],#9);
if InputTextRowstringlist.Count = 1 then
begin
//market
end else
if InputTextRowstringlist.Count = 0 then
begin
//¿ÕÐÐ
end else
if IText = SignRow + 4 then
begin
//Êý¾ÝÁÐ
if TrimRight(TrimLeft(InputTextRowstringlist.Strings[0])) <> '' then
begin
if GetIndex(@TitleArray,InputTextRowstringlist.Strings[0]) < 0 then
begin
AddArray(@TitleArray,InputTextRowstringlist.Strings[0]);
end;
end;
end;
end;

for I := low(TitleArray) to high(TitleArray)do
begin
TitleString := TitleString +#9+ TitleArray;
end;

OutPutTextStringlist.Add(TitleString);
//<--&amp;Otilde;&amp;Ograve;&amp;sup3;&amp;ouml;&amp;sup2;&amp;raquo;&amp;Iacute;&amp;not;&amp;micro;&amp;Auml;&amp;Egrave;&amp;Otilde;&amp;AElig;&amp;Uacute;,&amp;Igrave;í&amp;frac14;&amp;Oacute;
//-->&amp;Otilde;&amp;Ograve;&amp;sup3;&amp;ouml;&amp;Ecirc;&amp;yacute;&amp;frac34;&amp;Yacute;&amp;ETH;&amp;ETH;,&amp;Igrave;í&amp;frac14;&amp;Oacute;
for IText := 0 to InputTextstringlist.Count - 1do
begin
InputTextRowstringlist.Clear;
GetStringlist(InputTextRowstringlist,InputTextstringlist.Strings[IText],#9);
if InputTextRowstringlist.Count = 1 then
begin
//market
MarketName := Copy(InputTextRowstringlist.Strings[0],Pos('|',InputTextRowstringlist.Strings[0])+1,Length(InputTextRowstringlist.Strings[0])-Pos('|',InputTextRowstringlist.Strings[0])-1);
SignRow := IText;//±ê&amp;Ouml;&amp;frac34;&amp;Aacute;&amp;ETH;
if Marketname <> '' then
begin
R1 := '1+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R2 := '2+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R3 := '3+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R4 := '4+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R5 := '5+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R6 := '6+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R7 := '7+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R8 := '8+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R9 := '9+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
R10 := '10+' +#9+ '' +#9+ MarketName +#9+ CategoryName
+#9+ BrandName +#9+ 'ProductName';
end;
end else
if InputTextRowstringlist.Count = 0 then
begin
//&amp;iquest;&amp;Otilde;&amp;ETH;&amp;ETH;
MarketName := '';
SignRow := 0;
end else
if (IText >= SignRow + 4) and (MarketName <> '') then
begin
//&amp;Ecirc;&amp;yacute;&amp;frac34;&amp;Yacute;&amp;Aacute;&amp;ETH;
if InputTextRowstringlist.Count >= 5 then
begin
for IRow := 5 to InputTextRowstringlist.Count - 1do
begin
IndexName := Indexstringlist.Strings[IRow];
if IndexName = '1+ (%)' then
begin
//1+
if InputTextRowstringlist.Count - 1 >= IRow then
R1 := R1 +#9+ InputTextRowstringlist.Strings[IRow]
else
R1 := R1 +#9+ '';
Continue;
end;
if IndexName = '2+ (%)' then
begin
//2+
if InputTextRowstringlist.Count - 1 >= IRow then
R2 := R2 +#9+ InputTextRowstringlist.Strings[IRow]
else
R2 := R2 +#9+ '';
Continue;
end;
if IndexName = '3+ (%)' then
begin
//3+
if InputTextRowstringlist.Count - 1 >= IRow then
R3 := R3 +#9+ InputTextRowstringlist.Strings[IRow]
else
R3 := R3 +#9+ '';
Continue;
end;
if IndexName = '4+ (%)' then
begin
//4+
if InputTextRowstringlist.Count - 1 >= IRow then
R4 := R4 +#9+ InputTextRowstringlist.Strings[IRow]
else
R4 := R4 +#9+ '';
Continue;
end;
if IndexName = '5+ (%)' then
begin
//5+
if InputTextRowstringlist.Count - 1 >= IRow then
R5 := R5 +#9+ InputTextRowstringlist.Strings[IRow]
else
R5 := R5 +#9+ '';
Continue;
end;
if IndexName = '6+ (%)' then
begin
//6+
if InputTextRowstringlist.Count - 1 >= IRow then
R6 := R6 +#9+ InputTextRowstringlist.Strings[IRow]
else
R6 := R6 +#9+ '';
Continue;
end;
if IndexName = '7+ (%)' then
begin
//7+
if InputTextRowstringlist.Count - 1 >= IRow then
R7 := R7 +#9+ InputTextRowstringlist.Strings[IRow]
else
R7 := R7 +#9+ '';
Continue;
end;
if IndexName = '8+ (%)' then
begin
//8+
if InputTextRowstringlist.Count - 1 >= IRow then
R8 := R8 +#9+ InputTextRowstringlist.Strings[IRow]
else
R8 := R8 +#9+ '';
Continue;
end;
if IndexName = '9+ (%)' then
begin
//9+
if InputTextRowstringlist.Count - 1 >= IRow then
R9 := R9 +#9+ InputTextRowstringlist.Strings[IRow]
else
R9 := R9 +#9+ '';
Continue;
end;
if IndexName = '10+ (%)' then
begin
//10+
if InputTextRowstringlist.Count - 1 >= IRow then
R10 := R10 +#9+ InputTextRowstringlist.Strings[IRow]
else
R10 := R10 +#9+ '';
Continue;
end;
end;
OutPutTextStringlist.Add(R1);
OutPutTextStringlist.Add(R2);
OutPutTextStringlist.Add(R3);
OutPutTextStringlist.Add(R4);
OutPutTextStringlist.Add(R5);
OutPutTextStringlist.Add(R6);
OutPutTextStringlist.Add(R7);
OutPutTextStringlist.Add(R8);
OutPutTextStringlist.Add(R9);
OutPutTextStringlist.Add(R10);
end;
end;
end;
//<--&amp;Otilde;&amp;Ograve;&amp;sup3;&amp;ouml;&amp;Ecirc;&amp;yacute;&amp;frac34;&amp;Yacute;&amp;ETH;&amp;ETH;,&amp;Igrave;í&amp;frac14;&amp;Oacute;
if not DirectoryExists(GetAppPath + 'Temp/') then
CreateDir(GetAppPath + 'Temp/');
if FileExists(GetAppPath + 'Temp/'+ DirectoryName + '.txt')
then
DeleteFile(GetAppPath + 'Temp/'+ DirectoryName + '.txt');
OutPutTextStringlist.SaveToFile(GetAppPath + 'Temp/'+ DirectoryName + '.txt');
ResultTxtFileNames.Add(GetAppPath + 'Temp/'+ DirectoryName + '.txt');
Result := True;
finally
InputTextstringlist.Free;
inputTextRowstringlist.Free;
OutPutTextStringlist.Free;
Indexstringlist.Free;
end;
end else
if Source = 2 then
begin
TextName := ExtractFileName(SourceFileName);
DirectoryName := Copy(TextName,1,Length(TextName)-4);
InputTextstringlist := Tstringlist.Create;
InputTextRowstringlist := Tstringlist.Create;
OutPutTextStringlist := Tstringlist.Create;
Indexstringlist := Tstringlist.Create;
CheckStringList := Tstringlist.Create;
try
//-->Title
TitleString := 'IndexName' +#9+ 'MarketLevel' +#9+ 'MarketName' +#9+ 'CategoryName'
+#9+ 'BrandName' +#9+ 'ProductName';
InputTextstringlist.LoadFromFile(SourceFileName);
year := Copy(InputTextstringlist.Strings[3],Length(InputTextstringlist.Strings[3])-5,4);
inputTextRowstringlist.Clear;
GetStringList(inputTextRowstringlist,InputTextstringlist[15],#9);
SetLength(DataArray,0);
for I := 1 to inputTextRowstringlist.Count - 1do
begin
//2001/10/1 - 2001/20/31 31-10
DateCell := TrimLeft(TrimRight(inputTextRowstringlist.Strings));
Month := Copy(DateCell,Pos('-',DateCell)+1,(Length(DateCell)-Pos('-',DateCell)));
date := Copy(DateCell,1,Pos('-',DateCell)-1);
AddArray(@DataArray,(year+'/'+Month+'/1-'+year+'/'+Month+'/'+date));
end;
for I := Low(DataArray) to High(DataArray)do
begin
TitleString := TitleString +#9+ DataArray;
end;
OutPutTextStringlist.Add(TitleString);
//<--Title
//-->Data
SetLength(DataArray,0);
for IText := 0 to InputTextstringlist.Count - 1do
begin
GetStringList(inputTextRowstringlist,InputTextstringlist[IText],#9);
if (inputTextRowstringlist.Count = 1) then
begin
if Pos('Market',inputTextRowstringlist.Strings[0]) = 1 then
MarketName := Copy(inputTextRowstringlist.Strings[0],23,length(inputTextRowstringlist.Strings[0])-21)
else
if Pos('Product',inputTextRowstringlist.Strings[0]) = 1 then
ProductName := Copy(inputTextRowstringlist.Strings[0],23,length(inputTextRowstringlist.Strings[0])-21);
+#9+''+#9+MarketName+#9+''+#9+''+#9+ProductName;
end else
if (inputTextRowstringlist.Count = 0) then
begin
if (IText < inputTextRowstringlist.Count -2) then
begin
CheckStringlist.Clear;
GetStringlist(CheckStringlist,InputTextstringlist[IText+2],#9);
if CheckStringlist.Count <= 2 then
begin
MarketName := '';
ProductName := '';
SetLength(DataArray,0);
end;
end;
end else
if (inputTextRowstringlist.Count > 1)
and ((Pos('+',inputTextRowstringlist.Strings[0]) = 2)
or (Pos('+',inputTextRowstringlist.Strings[0]) = 3)) then
begin
SetLength(DataArray,0);
DataString := inputTextRowstringlist.Strings[0]+#9+''+#9+MarketName+#9+''+#9+''+#9+ProductName;
for IRow := 1 to inputTextRowstringlist.Count - 1do
begin
AddArray(@DataArray,inputTextRowstringlist.Strings[IRow]);
end;
for I := Low(DataArray) to high(DataArray)do
begin
DataString := DataString +#9+ DataArray;
end;
OutPutTextStringlist.Add(DataString);
end;
end;
//<--Data
if not DirectoryExists(GetAppPath + 'Temp/') then
CreateDir(GetAppPath + 'Temp/');
if FileExists(GetAppPath + 'Temp/'+ DirectoryName + '.txt')
then
DeleteFile(GetAppPath + 'Temp/'+ DirectoryName + '.txt');
OutPutTextStringlist.SaveToFile(GetAppPath + 'Temp/'+ DirectoryName + '.txt');
ResultTxtFileNames.Add(GetAppPath + 'Temp/'+ DirectoryName + '.txt');
Result := True;
finally
InputTextstringlist.Free;
InputTextRowstringlist.Free;
OutPutTextStringlist.Free;
Indexstringlist.Free;
CheckStringList.Free;
end;
end;
end;
 
忘勒mail勒,fanhl@hua-lan.com
 
俺是上海的,
做证券软件的，
sqlserver ok,
delphi midas ok ,
com+ ok,
mts ok
多少一个月啊？
薪水不错可以考虑蹦
 
to kiths
请发email联系，edata@csinfo.com.cn
 
用COM+、MIDAS、WEBSERVICE做过多个项目,3年工作经验!
在广州市，上海远了点，想去。。。
 
你的要求倒没问题,不过太远了一点.
 
尊敬的先生：
　 您好！今从网获悉贵公司的招聘信息，我对事证券方面的应用软件开发工作一职很感兴趣。　　
本人2000年毕业于河南南阳农业学院计算机及其应用专业(中专，现自考大专),曾通过国家级计算机二级认证.现服务于广东东莞一台资企业,主要负责部门软件的开发，硬件维护，系统维护(Computer Account Control，主要包括Sales order/Purchaser order/GRN.IQC/Invoice/System/ERP/MO).先后曾用Visual Foxpro,Delphi，ASP为企业开发过皮料样板开发申购/进度系统,物料交期系统,仓库进销存,部门财务(小型,服务于本部门),企业内部网等。熟悉windows各系统(Win98/me/advance server2000)，汇编,C,vfp,delphi语言熟练应用．从毕业至今，一直在服务于台资企业工作。四年以来，对IT工作已经有了相当的了解和熟悉。经过几年来的实践和理论知识的学习，我相信我有能力担当贵公司所要求的事证券方面的应用软件开发工作任务。
基于对软件开发的精通和喜好，以及我自身的客观条件和贵公司的要求，我相信贵公司能给我提供施展才能的另一片天空，而且我也相信我的努力能让贵公司的事业更上一层楼。
　　因邮件系统附件问题，未感附上我的简历，请见谅!即使贵公司认为我还不符合你们的条件，我也将一如既往地关注贵公司的发展，并在此致以最诚挚的祝愿。
　　顺祝
商祺
　　
师少辉
联系方式
个人电话:(0)13192026605
公司电话:(0769)5417003转556
地 址：广东东莞长安乌沙宝业皮具厂
邮 编：523859
　　　

 
应届毕业生要吗?明年毕业,可以在三月到岗
DELPHI摸了两年多,很熟了,VC摸了半年多了,C/C++差不多一年.
TCP/IP比较熟悉,可以直接用socket Api编程,最希望能从事网络程序员职务,
虽然做过DCOM,MIDAS的数据库软件和项目,但并没有对它的层次结构有深入的了解
只想做技术搞软件开发,但现在到学校招聘的纯软件企业太少了
我能投简历吗?
 
简历已发。注意查收。
phyyun@163.com
在上海。2002年毕业，一直在做MIS，从需求到设计到编码到维护。其间做过一些外包软件，现在在做通用报表开发平台，可自定义流程，权限，多数据库查询，由于是通用的，客户的需求变化不多。
对于前2个条件，都还可以。对于TCP/IP通讯，曾经做过一些局域网通讯软件和P2p软件。
目前薪水不高，所以想换个好点的工作。
由于违约金比较高，近2W，希望能够谈谈。
 
一直从事医疗软件的开发。99－至今。
熟悉Delphi.
13916105062
 
ok
在出差，周末回上海。
 
俺也正在做证券软件,不过VC,呵呵,非DELPHI
 
俺看着这些人们真是羡慕，只好再努把力！
 
公司有人到西安来吗？我简历发了，可以的话，请联系我。
 
--- *语音资讯 c++b ansi c unix
＊社会保险系统
C++Builder,Oracle,
Corba(三层)，UML(Rose) 时间一年，负责在职帐户，
需求及编码
三层人口管理
C++Builder,Oracle,
Corba(三层) 时间二个月，Corba服务器、
控件及编码
＊控件 Delphi C++Builder 编码
消防管理 Delphi Oralce 间时六个月，需求及编码 询问、讯问、勘查、打印、
交通事故管理 Delphi Oralce 间时六个月，需求及编码
＊＊音像出版系统 Delphi,SQLServer，COM(三层) 时间三个月，＊独立完成
进销存系统 Delphi,SQLServer 间时三个月，需求分析及编码
洗浴管理 Delphi SQLServer 时间二个月，需求分析及编码
库存管理 Delphi Access 时间二个月，＊独立完成
＊控件 Delphi CB 编码（多线程显示，批量录入，可配置显示表格）
＊＊友梅输入法 Delphi HOOK API 独立完成编码
CB +delphi 友梅五笔拼音7.0
Email: liu-deng@sohu.com
QQ: 261447111
 
to dafuweng2003，邮件已发
我刚刚出差回来
 
to dafuweng2003，邮件已发
我刚刚出差回来
 
可惜，经常炒股票，也挣了不少银子，可惜没有编写过证券方面的软件。
楼主如有兴趣，请参考以下帖子：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2243199
 
您必须登录或注册才可回复。

Similar threads

S
[原]Delphi2010中DataSnap高级技术(5)—建立稳定服务程序之TCP心跳包的使用
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(4)—TCP keepAlive和KeepAliveInterval参数详解
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(5)—建立稳定服务程序之TCP心跳包的使用
回复
0
查看
991
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(4)—TCP keepAlive和KeepAliveInterval参数详解
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(2)—DataSnap服务端和客户端发布分发方法
回复
0
查看
982
SUNSTONE的Delphi笔记
S
后退
顶部