unit2.pas

利用Acess数据库

     if edit1.text<>'' then
     paramByName('name').asstring:='*'+edit1.Text+'*'
     else
     paramByName('name').asstring:='*';
     if edit2.Text<>'' then
     paramByName('address').asstring:='*'+edit2.Text+'*'
     else
     paramByName('address').asstring:='*';
     if edit3.Text<>'' then
     paramByName('service1').asstring:='*'+edit3.Text+'*'
     else
     paramByName('service1').asstring:='*';
     if edit15.Text<>'' then
     paramByName('service2').asstring:='*'+edit15.Text+'*'
     else
     paramByName('service2').asstring:='*';
     if combobox1.Text<> '' then
     paramByName('industry').asstring:='*'+combobox1.Text+'*'
     else
     paramByName('industry').asstring:='*';
     open;
     end;
  label6.Caption:='共返回'+inttostr(query1.RecordCount)+'条查询记录';
  normal.DBGrid1.Columns[0].Fieldname:=normal.Query1.Fields[0].FieldName;
  normal.DBGrid1.Columns[1].FieldName:=normal.Query1.Fields[1].FieldName;
  normal.DBGrid1.Columns[2].FieldName:=normal.Query1.Fields[2].FieldName;
  normal.DBGrid1.Columns[3].FieldName:=normal.Query1.Fields[3].FieldName;
  normal.DBMemo1.DataField:=normal.Query1.Fields[4].FieldName;
  {normal.DBGrid1.Columns[0].Width:=250;
  normal.DBGrid1.Columns[1].Width:=100;
  normal.DBGrid1.Columns[2].Width:=200;
  normal.DBGrid1.Columns[3].Width:=64;}
  normal.checkedflag:=true;//
  end;

procedure TNormal.FormCreate(Sender: TObject);
begin
  //normal.Table1.Active:=true;
  //table1.ReadOnly:=true;
  TABLE1.open;
  display:=3;
  normal.DBMemo1.Clear;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  combobox1.Text:='';
  normal.TabSheet1.show;
  normal.TabSheet3.Show;
  normal.checkedflag:=false; //?????
end;

procedure TNormal.BitBtn5Click(Sender: TObject);
begin
   with normal.Query1 do
     begin
     close;
     sql.Clear;
     sql.Add('select 单位名称,联系电话,地址,行业分类,产品与服务 from company ');
     sql.Add('where  单位名称 like :name  And 联系人 like :lxr');
     sql.Add('and 联系电话 like :phone');
     sql.Add('and 法人代表 like :Fax and 网址 like :Web');
     sql.Add('and  所属行政区 like :area');
     sql.Add('and  关键词 like :keyword and 产品与服务 like :account');
     if edit4.text<>'' then
     paramByName('name').asstring:='*'+edit4.Text+'*'  //邮编：）
     else
     paramByName('name').asstring:='*';
     if edit5.Text<>'' then
     paramByName('lxr').asstring:='*'+edit5.Text+'*'
     else

     paramByName('lxr').asstring:='*';
     if edit6.Text<>'' then
     paramByName('phone').asstring:='*'+edit6.Text+'*'
     else
     paramByName('phone').asstring:='*';
     if edit7.Text<> '' then
     paramByName('Fax').asstring:='*'+edit7.Text+'*'
     else
     paramByName('Fax').asstring:='*';
     if edit8.Text<> '' then
     paramByName('Web').asstring:='*'+edit8.Text+'*'
     else
     paramByName('Web').asstring:='*';
     if edit10.Text<> '' then
     paramByName('area').asstring:='*'+edit10.Text+'*'
     else
     paramByName('area').asstring:='*';
     if edit11.Text<> '' then
     paramByName('keyword').asstring:='*'+edit11.Text+'*'
     else
     paramByName('keyword').asstring:='*';
     if edit12.Text<> '' then
     paramByName('account').asstring:='*'+edit12.Text+'*'
     else
     paramByName('account').asstring:='*';
     open;
     end;
    label6.Caption:='共返回'+inttostr(query1.RecordCount)+'条查询记录';
    normal.DBGrid1.Columns[0].Fieldname:=normal.Query1.Fields[0].FieldName;
    normal.DBGrid1.Columns[1].FieldName:=normal.Query1.Fields[1].FieldName;
    normal.DBGrid1.Columns[2].FieldName:=normal.Query1.Fields[2].FieldName;
    normal.DBGrid1.Columns[3].FieldName:=normal.Query1.Fields[3].FieldName;
    normal.DBMemo1.DataField:=normal.Query1.Fields[4].FieldName;
    normal.DBGrid1.Columns[0].Width:=250;
    normal.DBGrid1.Columns[1].Width:=100;
    normal.DBGrid1.Columns[2].Width:=200;
    normal.DBGrid1.Columns[3].Width:=64;
    checkedflag:=true;

end;
procedure TNormal.BitBtn2Click(Sender: TObject);
begin
  edit15.text:='';
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  combobox1.Text:='';
 // if  not checkedflag then showmessage('请先做浏览查询');
end;

procedure TNormal.BitBtn4Click(Sender: TObject);
begin
  edit4.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit10.Text:='';
  edit11.Text:='';
  edit12.Text:='';

end;

procedure TNormal.TabSheet2Show(Sender: TObject);
begin
 if not checkedflag  then
  begin
  // normal.TabSheet1.show;
   showmessage('请先做浏览查询');
  // normal.TabSheet1.Show;
  end
 else if query1.RecordCount=0 then
  begin
   // normal.TabSheet1.show;
   showmessage('零记录无法查询');
   // normal.TabSheet1.show;
  end
 else
   with normal.Querydetail do
   begin
    close;
    sql.Clear;
    sql.Add('select * from company  where 单位名称=:namedtl');
    parambyname('namedtl').asstring:=query1.Fields[0].AsString;
    open;
   end;
end;

procedure TNormal.BitBtn3Click(Sender: TObject);
begin
  normal.TabSheet2.Show;
end;

procedure TNormal.N3Click(Sender: TObject);
begin
  login.Close;   //退出系统
end;

procedure TNormal.N11Click(Sender: TObject);
begin
 // TabSheet2Show(self);
  //printform.QRDBText1.DataField:=query1.Fields[0].FieldName;
  //printform.QRDBText2.DataField:=query1.Fields[1].FieldName;
  //printform.QRDBText3.DataField:=query1.Fields[2].FieldName;
  //printform.QRDBText4.DataField:=query1.Fields[3].FieldName;
  //printform.QRDBRichText5.DataField:=query1.Fields[4].FieldName;
  //printform.qrdbtext1.datafield:=normal.query1.fields[0].FieldName;
  printform.quickrep1.preview;
end;

procedure TNormal.BitBtn6Click(Sender: TObject);
begin
  printform.QRDBText1.DataField:=query1.Fields[0].FieldName;
  printform.QRDBText2.DataField:=query1.Fields[1].FieldName;
  printform.QRDBText3.DataField:=query1.Fields[2].FieldName;
 // printform.QRDBText4.DataField:=query1.Fields[3].FieldName;
  printform.QRDBRichText5.DataField:=query1.Fields[4].FieldName;
  printform.QuickRep1.Print;
end;

procedure TNormal.BitBtn7Click(Sender: TObject);
begin
  Normal.N11Click(sender);
end;

procedure TNormal.N9Click(Sender: TObject);
begin
   inputform.Show;
end;

procedure TNormal.N10Click(Sender: TObject);
begin
  superform.Show;
end;

procedure TNormal.BitBtn8Click(Sender: TObject);
begin
  bus.show;
end;

procedure TNormal.N2Click(Sender: TObject);
begin
 inputform.close;
  superform.Close;
  normal.Close;
  login.Show;

end;

procedure TNormal.BitBtn9Click(Sender: TObject);
begin
if normal.Querydetail.CanModify=true then
   begin
   normal.Querydetail.Edit;
   dbedit19.Text:=datetimetostr(now);
   dbedit20.text:=login.logname;
   normal.Querydetail.Post;
   normal.Query1.Refresh;
   showmessage('修改完毕！');
   end;
end;

procedure TNormal.BitBtn10Click(Sender: TObject);
begin
  if messageDlg ('确定要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   if normal.Querydetail.CanModify=true then
   begin
   normal.Querydetail.Edit;
   normal.Querydetail.Delete;
   showmessage('删除完毕！');
   end;
   end;
end;

procedure TNormal.N16Click(Sender: TObject);
begin
  display:=1;
  normal.N16.Checked:=true;
end;

procedure TNormal.N14Click(Sender: TObject);
begin
  display:=2;
   normal.N14.Checked:=true;
end;

procedure TNormal.N15Click(Sender: TObject);
begin
  display:=3;
 normal.N15.Checked:=true;
end;

end.