谁能提交成功立即给分,(在线等候)

laoli 2002-05-24 10:53:08
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Psock, NMHttp;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
Label8: TLabel;
Edit7: TEdit;
Label9: TLabel;
Edit8: TEdit;
Label10: TLabel;
Edit9: TEdit;
GroupBox2: TGroupBox;
Memo1: TMemo;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
NMHTTP1: TNMHTTP;
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
mpasteman,mtitle,maddress,mzipcode,mcontact:string;
mtal,mfax,memail,mhomepage,mo:string;
lm:string;
lm2:string;
zstring:string;
url:string;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
begin
if form1.ComboBox1.text='房地产类' then
begin
lm:='renter';
end;
if form1.ComboBox1.text='流动市话跳蚤市场专栏' then
begin
lm:='mobile';
end;
if form1.ComboBox1.text='交通运输类' then
begin
lm:='traffi';
end;
if form1.ComboBox1.text='机械设备类' then
begin
lm:='engine';
end;
if form1.ComboBox1.text='医药、化工类' then
begin
lm:='medcin';
end;
if form1.ComboBox1.text='求职、招聘、招生、培训类' then
begin
lm:='humans';
end;
if form1.ComboBox1.text='建材、五矿类' then
begin
lm:='archit';
end;
if form1.ComboBox1.text='服装、纺织类' then
begin
lm:='cloths';
end;
if form1.ComboBox1.text='文教、体育、娱乐用品类' then
begin
lm:='entert';
end;
if form1.ComboBox1.text='农副、土畜、粮油食品类' then
begin
lm:='agricu';
end;
if form1.ComboBox1.text='电脑、电子类' then
begin
lm:='comput';
end;
if form1.ComboBox1.text='轻工、日用杂品类' then
begin
lm:='lights';
end;
if form1.ComboBox1.text='专利技术、新成果' then
begin
lm:='patent';
end;
if form1.ComboBox1.text='招标合资合作、二手市场' then
begin
lm:='bidder';
end;
if form1.ComboBox1.text='其它综合类' then
begin
lm:='others';
end;





end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
mtitle:='&title='+Edit1.text;
mpasteman:='&pasteman='+Edit2.text;
maddress:='&address='+Edit3.text;
mzipcode:='&zipcode='+Edit4.text;
mcontact:='&contact='+Edit5.text;
mtal:='&tal='+Edit6.text;
mfax:='&fax='+Edit7.text;
memail:='&email='+Edit8.text;
mhomepage:='&email='+Edit9.text;
mo:='&content'+Memo1.Text;
lm2:='?kind='+lm;
zstring:=lm2+mpasteman+maddress+mzipcode+mcontact+mtal+mfax+memail+mtitle+mo;

NMHTTP1.Post('http://www.zhaoqing.gd.cn/market/insert.php',zstring);



end;

procedure TForm1.FormActivate(Sender: TObject);
begin
lm:='humans';
end;

end.
...全文
60 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
laoli 2002-05-25
  • 打赏
  • 举报
回复
一个自由市场
netlib 2002-05-25
  • 打赏
  • 举报
回复
'http://www.zhaoqing.gd.cn/market/insert.php'
这个网址是什么?
laoli 2002-05-24
  • 打赏
  • 举报
回复
我就是不知道哪里不行,所以才把整编源代码贴出来?????????
knock 2002-05-24
  • 打赏
  • 举报
回复
那么长代码,哪有那么多时间看,你问的时候拣主要的疑点来问就行咯,难道还要别人给你写代码?
delphi0302 2002-05-24
  • 打赏
  • 举报
回复
关注
netlib 2002-05-24
  • 打赏
  • 举报
回复
得回家了,明天在看吧。

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧