⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 uaddresslist.~pas

📁 自己写的一个用于管理通讯录、记事、计划管理等的小程序。
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where name like '+QuotedStr('%'+EditSName.Text+'%'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.ComboBoxSClaseeChange(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  if ComboBoxSClasee.Text<>'' then
    DataModuleAssistant.ADOQueryAddressList.SQL.Add('where class like '+QuotedStr('%'+ComboBoxSClasee.Text+'%'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.BitBtnSearchClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  if ComboBoxSClasee.Text<>'' then begin
    DataModuleAssistant.ADOQueryAddressList.SQL.Add('where class like '+QuotedStr('%'+ComboBoxSClasee.Text+'%'));
    if EditSName.Text<>'' then
      DataModuleAssistant.ADOQueryAddressList.SQL.Add('and name like '+QuotedStr('%'+EditSName.Text+'%'));
  end else if EditSName.Text<>'' then
    DataModuleAssistant.ADOQueryAddressList.SQL.Add('where name like '+QuotedStr('%'+EditSName.Text+'%'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;


procedure TFormAddressList.aClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('啊')+' and left(name,1)<='+QuotedStr('澳'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.bClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('芭')+' and left(name,1)<='+QuotedStr('怖'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.cClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('擦')+' and left(name,1)<='+QuotedStr('错'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.dClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('搭')+' and left(name,1)<='+QuotedStr('堕'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.eClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('蛾')+' and left(name,1)<='+QuotedStr('贰'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.fClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('发')+' and left(name,1)<='+QuotedStr('咐'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.gClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('噶')+' and left(name,1)<='+QuotedStr('过'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.hClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('哈')+' and left(name,1)<='+QuotedStr('祸'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.jClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('击')+' and left(name,1)<='+QuotedStr('骏'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.kClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('喀')+' and left(name,1)<='+QuotedStr('阔'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.lClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('垃')+' and left(name,1)<='+QuotedStr('络'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.mClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('妈')+' and left(name,1)<='+QuotedStr('穆'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.nClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('拿')+' and left(name,1)<='+QuotedStr('诺'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.oClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('哦')+' and left(name,1)<='+QuotedStr('沤'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.pClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('啪')+' and left(name,1)<='+QuotedStr('瀑'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.qClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('期')+' and left(name,1)<='+QuotedStr('群'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.rClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('然')+' and left(name,1)<='+QuotedStr('弱'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.sClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('撒')+' and left(name,1)<='+QuotedStr('所'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.tClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('塌')+' and left(name,1)<='+QuotedStr('唾'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.wClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('挖')+' and left(name,1)<='+QuotedStr('误'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.xClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('昔')+' and left(name,1)<='+QuotedStr('迅'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.yClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('压')+' and left(name,1)<='+QuotedStr('孕'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

procedure TFormAddressList.zClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQueryAddressList.Close;
  DataModuleAssistant.ADOQueryAddressList.SQL.Clear;
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('select * from addresslist');
  DataModuleAssistant.ADOQueryAddressList.SQL.Add('where left(name,1)>='+QuotedStr('匝')+' and left(name,1)<='+QuotedStr('座'));
  DataModuleAssistant.ADOQueryAddressList.Open;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -