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

📄 unitenquirie.pas

📁 Delphi与sqlserver应用。适用于初学者
💻 PAS
字号:
🔍 
unit UnitEnquirie;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB;
type
  TfrmEnquirie = class(TForm)
    GroupBox1: TGroupBox;
    btnEnquirie: TButton;
    btnCancel: TButton;
    btnToExcel: TButton;
    DBGridEnq: TDBGrid;
    btnUpdate: TButton;
    btnDelete: TButton;
    btnClose: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    btnEnq: TButton;
    btnDele: TButton;
    btnMulDelete: TButton;
    procedure btnEnquirieClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnEnqClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnUpdateClick(Sender: TObject);
    procedure btnDeleClick(Sender: TObject);
    procedure btnMulDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmEnquirie: TfrmEnquirie;
implementation
{$R *.dfm}
uses
    UnitData,UnitRegistration;
procedure TfrmEnquirie.FormCreate(Sender: TObject);
begin
    Edit1.Text:='';  Edit2.Text:='';  Edit3.Text:='';
    ComboBox2.Text :='';
    DateTimePicker1.Date:=now;  DateTimePicker2.Date:=now;
end;
procedure TfrmEnquirie.btnEnquirieClick(Sender: TObject);
begin
 if Edit1.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('select * from TabCompany where CompanyNo='''+Edit1.Text+'''');
    UnitData.DataModule1.ADOQEnq.Open ;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要的公司编号！','提示：',0+48);
  end else  if  Edit2.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('select * from TabCompany where CompanyName='''+Edit2.Text+'''');
    UnitData.DataModule1.ADOQEnq.Open ;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要的所在城市数据！','提示：',0+48);
  end else  if  Edit3.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('select * from TabCompany where Telephone='''+Edit3.Text+'''');
    UnitData.DataModule1.ADOQEnq.Open ;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要的客户电话！','提示：',0+48);
  end else  if  ComboBox2.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear;
    UnitData.DataModule1.ADOQEnq.SQl.Add('select * from TabCompany where Types='''+ComboBox2.Text+'''');
    UnitData.DataModule1.ADOQEnq.Open ;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要的客户类型！','提示：',0+48);
  end else
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('select * from TabCompany where InstallationTime<:date2 and InstallationTime>:date1');
    UnitData.DataModule1.ADOQEnq.Parameters.ParamByName('date1').Value := DateTimePicker1.date;
    UnitData.DataModule1.ADOQEnq.Parameters.ParamByName('date2').Value := DateTimePicker2.date;
    UnitData.DataModule1.ADOQEnq.Open ;
    Edit1.Text:='';  Edit2.Text:='';  Edit3.Text:='';
    ComboBox2.Text:='';
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，在这段时间内没有找到您想要的数据！','提示：',0+48);
  end; 
end;
procedure TfrmEnquirie.btnCancelClick(Sender: TObject);
begin
    Edit1.Text:='';  Edit2.Text:='';  Edit3.Text:='';
    ComboBox2.Text :='';
    DateTimePicker1.Date:=now;  DateTimePicker2.Date:=now;
end;

procedure TfrmEnquirie.btnCloseClick(Sender: TObject);
begin
     Close;
end;

procedure TfrmEnquirie.btnEnqClick(Sender: TObject);
begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('select * from TabCompany');
    UnitData.DataModule1.ADOQEnq.Open ;
end;
procedure TfrmEnquirie.btnDeleteClick(Sender: TObject);
begin
   DBGridEnq.SelectedRows.CurrentRowSelected:=true;
   UnitData.DataModule1.ADOQEnq.Delete;
end;
procedure TfrmEnquirie.btnUpdateClick(Sender: TObject);
begin
   // String   A=Query1->FiledByName("xxx")->AsString
   //dbgrid1.Datasource.DataSet.IsEmpty
   if  not  DBGridEnq.DataSource.DataSet.IsEmpty  then
   //如果DBGrid中的数据不为空，从查询中得到数据后，再选中修改数据
   begin
   frmRegistration.Show;
   frmRegistration.Edit1.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('CompanyNo').AsString;
   frmRegistration.Edit2.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('CompanyName').AsString;
   frmRegistration.Memo1.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Business').AsString;
   frmRegistration.DateTimePicker1.Date:=strtodate(UnitData.DataModule1.ADOQEnq.FieldByName('InstallationTime').AsString);
   frmRegistration.Edit5.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Address').AsString;
   frmRegistration.Edit6.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('City').AsString;
   frmRegistration.Edit7.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Telephone').AsString;
   frmRegistration.Edit8.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Fax').AsString;
   frmRegistration.Edit9.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Email').AsString;
   frmRegistration.ComboBox1.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Types').AsString;
   frmRegistration.Edit11.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Source').AsString;
   frmRegistration.Edit12.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('Status').AsString;
   end  else
   begin
   Application.MessageBox('对不起，请先选中您要修改的数据！','提示：',0+48);
   end;
end;
procedure TfrmEnquirie.btnDeleClick(Sender: TObject);
begin
  if Edit1.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('Delete from TabCompany where  CompanyNo='''+Edit1.Text+'''');
    UnitData.DataModule1.ADOQEnq.ExecSQL ;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要删除的公司编号！','提示：',0+48);
  end else if  Edit2.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('Delete from TabCompany where CompanyName='''+Edit2.Text+'''');
    UnitData.DataModule1.ADOQEnq.ExecSQL ;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要删除的所在城市的数据！','提示：',0+48);
  end else  if  Edit3.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('Delete from TabCompany where Telephone='''+Edit3.Text+'''');
    UnitData.DataModule1.ADOQEnq.ExecSQL;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要删除的客户电话信息！','提示：',0+48);
  end else  if  ComboBox2.Text <>'' then
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear;
    UnitData.DataModule1.ADOQEnq.SQl.Add('Delete from TabCompany where Types='''+ComboBox2.Text+'''');
    UnitData.DataModule1.ADOQEnq.ExecSQL;
    FormCreate(self);
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，找不到您想要删除的客户类型！','提示：',0+48);
  end else
  begin
    UnitData.DataModule1.ADOQEnq.Close ;
    UnitData.DataModule1.ADOQEnq.SQl.Clear ;
    UnitData.DataModule1.ADOQEnq.SQl.Add('Delete from TabCompany where InstallationTime<:date2 and InstallationTime>:date1');
    UnitData.DataModule1.ADOQEnq.Parameters.ParamByName('date1').Value := DateTimePicker1.date;
    UnitData.DataModule1.ADOQEnq.Parameters.ParamByName('date2').Value := DateTimePicker2.date;
    UnitData.DataModule1.ADOQEnq.ExecSQL;
    if  DBGridEnq.DataSource.DataSet.IsEmpty   then
    Application.MessageBox('对不起，在这段时间内没有您想要删除的数据！','提示：',0+48);
  end;
end;
procedure TfrmEnquirie.btnMulDeleteClick(Sender: TObject);
var
 i:integer;
begin
// DBGridEnq.SelectedRows.Create();
   for   i:=1   to   DBGridEnq.SelectedRows.Count   do
   begin//多行删除
   UnitData.DataModule1.ADOQEnq.GotoBookmark(Pointer(DBGridEnq.SelectedRows.Items[i-1]));
   UnitData.DataModule1.ADOQEnq.Delete;
   end;
   DBGridEnq.SelectedRows.Clear;
   DBGridEnq.SelectedRows.CurrentRowSelected:=true;
end;
end.

⌨️ 快捷键说明

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