zclbszpas.~pas

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

unit zclbszpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBActns, ActnList, Grids, DBGrids, ExtCtrls, DB,
  ComCtrls, ImgList;

type
  Tw_zclbsz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    ActionList2: TActionList;
    DataSetInsert2: TDataSetInsert;
    DataSetDelete2: TDataSetDelete;
    DataSetPost2: TDataSetPost;
    DataSetCancel2: TDataSetCancel;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    ActionList3: TActionList;
    DataSetInsert3: TDataSetInsert;
    DataSetDelete3: TDataSetDelete;
    DataSetPost3: TDataSetPost;
    DataSetCancel3: TDataSetCancel;
    ImageList1: TImageList;
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DataSetPost1Execute(Sender: TObject);
    procedure DataSetCancel1Execute(Sender: TObject);
    procedure DataSetInsert2Execute(Sender: TObject);
    procedure DataSetDelete2Execute(Sender: TObject);
    procedure DataSetPost2Execute(Sender: TObject);
    procedure DataSetCancel2Execute(Sender: TObject);
    procedure DataSetInsert3Execute(Sender: TObject);
    procedure DataSetDelete3Execute(Sender: TObject);
    procedure DataSetPost3Execute(Sender: TObject);
    procedure DataSetCancel3Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button9Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid3KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_zclbsz: Tw_zclbsz;

implementation

uses datapas;

{$R *.dfm}

procedure Tw_zclbsz.DataSetInsert1Execute(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.Append;
dbgrid1.DataSource.DataSet.edit;

end;

procedure Tw_zclbsz.DataSetDelete1Execute(Sender: TObject);
begin
if messagedlg('确认删除当前记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
dbgrid1.DataSource.DataSet.delete;
end;

procedure Tw_zclbsz.Button3Click(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.Post;
end;

procedure Tw_zclbsz.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
dbgrid1.SelectedIndex:=dbgrid1.SelectedIndex+1;
 
end;


procedure Tw_zclbsz.DataSetPost1Execute(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.post;
end;

procedure Tw_zclbsz.DataSetCancel1Execute(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.cancel;
end;

procedure Tw_zclbsz.DataSetInsert2Execute(Sender: TObject);
var
maxbm:integer;
begin
if hjzcdata.gdzclbb.IsEmpty then
begin
messagedlg('请先增加固定资产类别信息!',mtwarning,[mbok],0);
exit;
end;
hjzcdata.gdzcmcb.edit;
hjzcdata.gdzcmcb.Post;
with hjzcdata.zdbmcx do
begin
close;
sql.clear;
sql.add('select max(资产名称编码) from 固定资产名称表');
prepared;
open;
if not isempty then
maxbm:=fields[0].value+1 else
maxbm:=1;
end;   
with hjzcdata.gdzcmcb do
begin
append;
edit;
fields[0].value:=maxbm;
//fieldbyname('资产类别编码').value:=hjzcdata.gdzclbb.Fields[0].value;
end;
dbgrid2.SelectedIndex:=0;
end;

procedure Tw_zclbsz.DataSetDelete2Execute(Sender: TObject);
begin
if messagedlg('确认删除当前记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
hjzcdata.gdzcmcb.Delete;
end;

procedure Tw_zclbsz.DataSetPost2Execute(Sender: TObject);
begin
dbgrid2.DataSource.DataSet.Post;
end;

procedure Tw_zclbsz.DataSetCancel2Execute(Sender: TObject);
begin
hjzcdata.gdzcmcb.cancel;
end;

procedure Tw_zclbsz.DataSetInsert3Execute(Sender: TObject);
var maxbm:integer;
begin
if hjzcdata.gdzclbb.IsEmpty then
begin
messagedlg('请先增加固定资产类别信息!',mtwarning,[mbok],0);
exit;
end;
hjzcdata.gdzcytb.Edit;
hjzcdata.gdzcytb.Post;
with hjzcdata.zdbmcx do
begin
close;
sql.clear;
sql.add('select max(资产用途编码) from 固定资产用途表');
prepared;
open;
if not isempty then
maxbm:=fields[0].value+1 else
maxbm:=1;
end;

with hjzcdata.gdzcytb do
begin
append;
edit;
fields[0].value:=maxbm;
fieldbyname('资产类别编码').value:=hjzcdata.gdzclbb.Fields[0].value;
end;
dbgrid3.SelectedIndex:=0;
end;

procedure Tw_zclbsz.DataSetDelete3Execute(Sender: TObject);
begin
if messagedlg('确认删除当前记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
hjzcdata.gdzcytb.Delete;
end;

procedure Tw_zclbsz.DataSetPost3Execute(Sender: TObject);
begin
hjzcdata.gdzcytb.post;
end;

procedure Tw_zclbsz.DataSetCancel3Execute(Sender: TObject);
begin
hjzcdata.gdzcytb.cancel;
end;

procedure Tw_zclbsz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with hjzcdata.zdbmcx do
begin
close;
sql.clear;
sql.add('delete from 固定资产用途表 where 资产用途编码=0');
prepared;
execsql;
close;
sql.clear;
sql.add('delete from 固定资产名称表 where 资产名称编码=0');
prepared;
execsql;
end;
action:=cafree;
end;

procedure Tw_zclbsz.Button9Click(Sender: TObject);
begin
close;
end;

procedure Tw_zclbsz.Button14Click(Sender: TObject);
begin
close;

end;

procedure Tw_zclbsz.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if dbgrid2.SelectedIndex=dbgrid2.Columns.Count-1 then
begin
if dbgrid2.DataSource.DataSet.Eof then
DataSetInsert2Execute(self) else
dbgrid2.DataSource.DataSet.Next;
dbgrid2.selectedindex:=0;
end else
dbgrid2.SelectedIndex:=dbgrid2.SelectedIndex+1;

end;

procedure Tw_zclbsz.DBGrid3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if dbgrid3.SelectedIndex=dbgrid3.Columns.Count-1 then
begin
if dbgrid3.DataSource.DataSet.Eof then
DataSetInsert3Execute(self) else
dbgrid3.DataSource.DataSet.Next;
dbgrid3.selectedindex:=0;
end else
dbgrid3.SelectedIndex:=dbgrid3.SelectedIndex+1;

end;

procedure Tw_zclbsz.FormActivate(Sender: TObject);
begin
with hjzcdata do
begin
gdzclbb.Close;
gdzclbb.Open;
gdzcmcb.Close;
gdzcmcb.Open;
gdzcytb.Close;
gdzcytb.Open;
end;

end;

end.