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.
