ghczy.pas

服务信息管理系统

unit ghczy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DB, DBTables;

type
  Tfrmghczy = class(TForm)
    BitBtn2: TBitBtn;
    czyQuery: TQuery;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Label4: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmghczy: Tfrmghczy;

implementation
uses mainform;
{$R *.dfm}

procedure Tfrmghczy.BitBtn1Click(Sender: TObject);
begin
  if Trim(Edit1.TEXT) = '' then
    begin
      MessageDlg('操作员代码为空，请输入操作员代码', mtInformation, [mbOk], 0);
      Edit1.setfocus;
      exit;
    end
  else
    begin
      CzyQuery.Close;
      CzyQuery.SQL.Clear;
      CzyQuery.SQL.Add('Select czyy_bh,czyy_xm,czyy_mm,czyy_qx from czyxxk');
      CzyQuery.SQL.Add('Where czyy_bh=''' + Trim(Edit1.Text) + '''');
      CzyQuery.SQL.Add('And czyy_mm=''' + Trim(Edit2.Text) + '''');
      CzyQuery.Open;

      if (CzyQuery.RecordCount <> 1) or (Trim(Edit2.Text) <> Trim(CzyQuery.FieldValues['czyy_mm'])) then
        begin
          MessageDlg('用户编号或口令不对', mtInformation, [mbOk], 0);
          Edit1.SetFocus;
        end
      else
        begin
          sys_czyqx := CzyQuery.FieldByName('czyy_qx').AsString;
          sys_czybh := CzyQuery.FieldByName('czyy_bh').AsString;
          sys_czyxm := CzyQuery.FieldByName('czyy_xm').AsString;
          sysform.mainstatusbar.Panels[1].text := '操作员：' + sys_czyxm;
          Close;
        end;
    end;
end;

procedure Tfrmghczy.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

end.