zjbmpas.~pas

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

unit zjbmpas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls, Db, DBTables;

type
  Tzjbmform = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label4: TLabel;
    bmlxstr: TComboBox;
    bmbmb: TDataSource;
      procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure bmlxstrKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
  sjjdbh,jdbhz:integer;
   bz:boolean;
    { Public declarations }
  end;

var
  zjbmform: Tzjbmform;

implementation

uses datapas;



{$R *.DFM}

procedure Tzjbmform.FormShow(Sender: TObject);
var maxwljdbh:integer;
bmlx:integer;
begin
if not hjzcdata.sjbmbmb.active then
hjzcdata.sjbmbmb.active:=true;
if bz then
begin
with hjzcdata.bmbmb do
begin
close;
open;
last;
maxwljdbh:=fieldbyname('部门编码').asinteger+1;;
append;
edit;
fieldbyname('部门编码').asinteger:=maxwljdbh;
fieldbyname('上级部门编码').asinteger:=sjjdbh;
DBLookupComboBox1.ReadOnly:=true;
dbedit2.setfocus;
end;
end else
begin
hjzcdata.bmbmb.close;
hjzcdata.bmbmb.open;
if hjzcdata.bmbmb.Locate('部门编码',jdbhz,[lopartialkey]) then
hjzcdata.bmbmb.edit;
end;
bmlx:=hjzcdata.bmbmb.fieldbyname('部门类型').asinteger;
case bmlx of
10:
bmlxstr.itemindex:=0;
20:
bmlxstr.itemindex:=1;
30:
bmlxstr.itemindex:=2;
else
bmlxstr.itemindex:=0;
end;
dbedit2.setfocus;
end;

procedure Tzjbmform.BitBtn1Click(Sender: TObject);
var i:integer;
begin
if dbedit2.text='' then
begin
messagedlg('请输入部门名称!',mterror,[mbok],0);
dbedit2.setfocus;
end
 else
begin
if Pos(' ', dbedit2.text) > 0 then
begin
messagedlg('请不要输入空格,请重新输入!',mterror,[mbok],0);
dbedit2.setfocus;
end else
begin
i:=bmlxstr.itemindex;
case i of
0:
hjzcdata.bmbmb.fieldbyname('部门类型').asinteger:=10;
1:
hjzcdata.bmbmb.fieldbyname('部门类型').asinteger:=20;
2:
hjzcdata.bmbmb.fieldbyname('部门类型').asinteger:=30;
end;
hjzcdata.bmbmb.post;
modalresult:=mrok;
end;
end;
end;

procedure Tzjbmform.BitBtn2Click(Sender: TObject);
begin
hjzcdata.bmbmb.cancel;
end;



procedure Tzjbmform.FormActivate(Sender: TObject);
begin
if bz then
caption:='增加部门 (若上级部门为组织结构,则上级部门中为空)' else
caption:='修改部门';
end;

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

procedure Tzjbmform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
hjzcdata.sjbmbmb.active:=false;
end;

end.