unitserchnerveruse.pas

delphi+sql server 我是delphi的初学者

unit Unitserchnerveruse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,main;

type
  TFormserchnerveruse = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Edid: TEdit;
    Clx: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure EdidKeyPress(Sender: TObject; var Key: Char);
    procedure EdidKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ClxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formserchnerveruse: TFormserchnerveruse;

implementation
uses UDM;
{$R *.dfm}

procedure TFormserchnerveruse.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TFormserchnerveruse.FormShow(Sender: TObject);
begin
  Edid.Text:='';
  Clx.Text:='';
   WITH DM.ADOZTDJ DO
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from meun_zt');
    Prepared;
    Open;
  end;
  Clx.Items.Clear;
  while not dm.ADOZTDJ.Eof do
  begin
    Clx.Items.Append(dm.ADOZTDJ.fieldbyname('djzt').AsString);
    DM.ADOZTDJ.Next;
  end;

end;

procedure TFormserchnerveruse.Button1Click(Sender: TObject);
begin
  if DM.HDM='01'  then
    begin
      with dm.ADOTEMP do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from libnumber');
          SQL.Add('where libnumberplace=''前台'' and numberid=:id and numbertype like :type');
          Parameters.ParamByName('id').Value:=Edid.Text;
          Parameters.ParamByName('type').Value:='%'+clx.Text+'%';
          Prepared;
          Open;
        end;
    end
    else
  if DM.HDM='02'  then
    begin
      with dm.ADOTEMP do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from libnumber');
          SQL.Add('where libnumberplace=''大堂吧'' and numberid=:id and numbertype like :type');
          Parameters.ParamByName('id').Value:=Edid.Text;
          Parameters.ParamByName('type').Value:='%'+clx.Text+'%';
          Prepared;
          Open;
        end;
    end
    else
  if DM.HDM='03'  then
    begin
      with dm.ADOTEMP do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from libnumber');
          SQL.Add('where libnumberplace=''西餐厅'' and numberid=:id and numbertype like :type');
          Parameters.ParamByName('id').Value:=Edid.Text;
          Parameters.ParamByName('type').Value:='%'+clx.Text+'%';
          Prepared;
          Open;
        end;
    end
    else
  if DM.HDM='04'  then
    begin
      with dm.ADOTEMP do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from libnumber');
          SQL.Add('where libnumberplace=''康乐部'' and numberid=:id and numbertype like :type');
          Parameters.ParamByName('id').Value:=Edid.Text;
          Parameters.ParamByName('type').Value:='%'+clx.Text+'%';
          Prepared;
          Open;
        end;
    end;
     frmmain.dxDBGrid2.FullExpand;
end;

procedure TFormserchnerveruse.EdidKeyPress(Sender: TObject; var Key: Char);
begin
  IF not (Key in ['0'..'9',#8]) then
   key:=#0;
end;

procedure TFormserchnerveruse.EdidKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=$0D then
    Clx.SetFocus;
end;

procedure TFormserchnerveruse.ClxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=13 then
  Button1Click(Sender);
end;

end.