cx_mxunit.pas

使用delphi语言

unit cx_mxunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Buttons, DBCtrls, ExtCtrls, Mask;

type
  Tcx_mxform = class(TForm)
    Label1: TLabel;
    Label9: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label10: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Label11: TLabel;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  account:string;
    { Public declarations }
  end;

var
  cx_mxform: Tcx_mxform;

implementation
  uses dmunit,code_seleunit;
{$R *.dfm}

procedure Tcx_mxform.BitBtn2Click(Sender: TObject);
begin
  dm.bm.Active:=false;
  dm.person.Active:=false;
  close;
end;

procedure Tcx_mxform.Edit1DblClick(Sender: TObject);
begin
  if self.DBLookupComboBox1.Text='' then
  begin
    messagebox(self.Handle,'请选择部门编号','提示信息',mb_iconinformation);
    exit;
  end;
  dm.person.Close;
  dm.person.CommandText:='select * from 职工 where 部门编号=:id';
  dm.person.Parameters.ParamByName('id').Value:=self.DBLookupComboBox1.Text ;
  dm.person.Open ;
  application.CreateForm(tcode_seleform,code_seleform);
  if code_seleform.ShowModal=mrok then
  begin
    edit1.Text:=dm.person.FieldValues['职工编号'];
    account:=dm.person.FieldValues['账号'];
  end;
  code_seleform.Free;
end;

procedure Tcx_mxform.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn3.SetFocus ;
end;

procedure Tcx_mxform.BitBtn3Click(Sender: TObject);
begin
  if edit1.Text ='' then
  begin
    messagebox(self.Handle,'请选择职工编号','提示信息',mb_iconinformation);
    exit;
  end
  else
    if edit1.Text<>'' then
      bitbtn1.Click ;
end;

procedure Tcx_mxform.DBLookupComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then
    edit1.SetFocus ;
end;

procedure Tcx_mxform.FormCreate(Sender: TObject);
begin
  dm.bm.Open ;
end;

end.