cjxxpas.pas

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

unit cjxxpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, Mask, DBCtrls, ADODB;

type
  Tw_zccjxx = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    jyrq: TDateTimePicker;
    lhrq: TDateTimePicker;
    jyr: TEdit;
    jydd: TEdit;
    bz: TMemo;
    Button1: TButton;
    Button2: TButton;
    jsr: TComboBox;
    lscx: TADOQuery;
    procedure jsrKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_zccjxx: Tw_zccjxx;

implementation

uses datapas;

{$R *.dfm}

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


procedure Tw_zccjxx.FormShow(Sender: TObject);
begin
jyr.text:='';
jydd.Text:='';
bz.Text:='';
jsr.items.Clear;
with lscx do
begin
close;
sql.clear;
sql.add('select 职员姓名 from 职员编码表');
prepared;
open;
while not eof do
begin
jsr.items.add(fields[0].value);
next;
end;
end;
end;

procedure Tw_zccjxx.Button1Click(Sender: TObject);
var zybm,maxbm:integer;
begin
if (jsr.text='') or (jyr.text='') then
begin
messagedlg('输入数据错误，请检查!',mterror,[mbok],0);
exit;
end;
if messagedlg('确认保存数据吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin  //保存
//查找经手人编码
with lscx do
begin
close;
sql.clear;
sql.add('select 职员编码 from 职员编码表 where 职员姓名=:zyxm');
parameters.ParamByName('zyxm').value:=jsr.Text;
prepared;
open;
zybm:=fields[0].value;
//查询最大编码
close;
sql.clear;
sql.add('select max(资产借出编码) from 固定资产借用表');
prepared;
open;
if not isempty then
maxbm:=fields[0].asinteger+1 else
maxbm:=1;
//更新固定资产信息表为已借出
close;
sql.clear;
sql.add('update 固定资产信息表 set 是否借出=true where 固定资产编码=:gdzcbm');
parameters.ParamByName('gdzcbm').Value:=hjzcdata.wcjzccx.fieldbyname('固定资产编码').asinteger;
prepared;
execsql;
end;
//保存固定资产借出表
with hjzcdata.gdzcjyb do
begin
close;
open;
append;
edit;
fieldbyname('资产借出编码').asinteger:=maxbm;
fieldbyname('固定资产编码').asinteger:=hjzcdata.wcjzccx.fieldbyname('固定资产编码').asinteger;
fieldbyname('经手人编码').asinteger:=zybm;
fieldbyname('借用人姓名').asstring:=jyr.text;
fieldbyname('借用日期').asdatetime:=jyrq.datetime;
fieldbyname('拟还日期').asdatetime:=lhrq.datetime;
if jydd.text<>'' then
fieldbyname('借用地点').asstring:=jydd.text;
if bz.text<>'' then
fieldbyname('备注').Value:=bz.Text;
post;
end;
modalresult:=mrok;
end;
end;
end.