di_khzl.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit DI_KHZL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;

type
  TFrmDI_KHZL = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Memo1: TMemo;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    GroupBox3: TGroupBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses main;

{$R *.dfm}

procedure TFrmDI_KHZL.FormShow(Sender: TObject);
begin
  ADOConnection1.ConnectionString :=
    'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + FrmMain.Dbuser
    +
    ';Password=' + FrmMain.DBPass + ';Initial Catalog=' + FrmMain.DbName +
    ';Data Source=' + FrmMain.ServerName;
  try
    ADOConnection1.Connected := True;
  except ShowMessage('无法连接数据库，请与系统维护员联系！');
  end;
end;

procedure TFrmDI_KHZL.Edit1Change(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Select 消费嗜好');
    Sql.Add('From GLXX_DKHXX');
    Sql.Add('Where 联系电话=''' + Edit1.Text + '''');
    try
      Open;
    except
      Memo1.Lines.Clear;
      Exit;
    end;
    if RecordCount <> 0 then
      Memo1.Lines.Text := ADOQuery1.FieldByName('消费嗜好').AsString;
  end;
end;

procedure TFrmDI_KHZL.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
  Memo1.Lines.Text := ADOQuery1.FieldByName('消费嗜好').AsString;
end;

procedure TFrmDI_KHZL.Button1Click(Sender: TObject);
begin
  Close;
end;

end.