zyxxbpas.pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· PAS 代码 · 共 157 行

unit zyxxbpas;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, Mask, ExtCtrls, Grids, DBGrids, Buttons, ToolWin,
  ComCtrls;

type
  Tzyxxform = class(TForm)
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Panel2: TPanel;
    Label8: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label5: TLabel;
    Editsj: TDBEdit;
    Editteln: TDBEdit;
    Editzybm: TDBEdit;
    Editzyxm: TDBEdit;
    Editbp: TDBEdit;
    Editaddr: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DataSource1: TDataSource;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    Label10: TLabel;
    DBEdit2: TDBEdit;
    BitBtn4: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  zyxxform: Tzyxxform;

implementation

uses datapas;



{$R *.DFM}


procedure Tzyxxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin

hjzcdata.zybmb.close;
end;




procedure Tzyxxform.BitBtn2Click(Sender: TObject);
begin
  if DBLookupComboBox2.Text='' then
  begin
    showmessage('请选择职员职务!');
    DBLookupComboBox2.SetFocus;
    exit;
  end;
  hjzcdata.zybmb.post;
end;

procedure Tzyxxform.BitBtn3Click(Sender: TObject);
begin
hjzcdata.zybmb.cancel;

end;

procedure Tzyxxform.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
i:=combobox1.ItemIndex;
try
case i of
0:
hjzcdata.zybmb.Locate('职员姓名',edit2.text,[lopartialkey]);
1:
hjzcdata.zybmb.Locate('职员编码',strtoint(edit2.text),[lopartialkey]);
else
hjzcdata.zybmb.Locate('职员姓名',edit2.text,[lopartialkey]);
end;
except
messagedlg('查询值输入有误，职员编码只能为数字!',mterror,[mbok],0);
end;
end;

procedure Tzyxxform.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
beep;
end;

procedure Tzyxxform.FormShow(Sender: TObject);
begin
combobox1.itemindex:=0;
edit2.Text:='';
end;

procedure Tzyxxform.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
speedbutton1click(self);
end;

procedure Tzyxxform.BitBtn1Click(Sender: TObject);
VAR
  maxzybm:integer;
  bmbm:integer;
begin
  with hjzcdata.maxzybm do
  begin
    close;
    prepared;
    open;
    maxzybm:=hjzcdata.maxzybm.Fields[0].asinteger+1;
  end;
  hjzcdata.zybmb.close;
  hjzcdata.zybmb.open;
  hjzcdata.zybmb.last;
  bmbm:=hjzcdata.zybmb.fieldbyname('部门编码').asinteger;
  hjzcdata.zybmb.append;
  //hjzcdata.zybmb.edit;
  hjzcdata.zybmb.fieldbyname('职员编码').asinteger:=maxzybm;
  hjzcdata.zybmb.fieldbyname('部门编码').asinteger:=bmbm;
end;

end.