zcxhszpas.pas

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

unit zcxhszpas;

interface

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

type
  Tw_zcxhsz = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure DataSetPost1Execute(Sender: TObject);
    procedure DataSetCancel1Execute(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_zcxhsz: Tw_zcxhsz;

implementation

uses datapas;

{$R *.dfm}

procedure Tw_zcxhsz.FormActivate(Sender: TObject);
begin
if not hjzcdata.gdzclbb.active then
hjzcdata.gdzclbb.active:=true;
if not hjzcdata.gdzcmcb.Active then
hjzcdata.gdzcmcb.Active:=true;
if not hjzcdata.gdzcxhb.Active then
hjzcdata.gdzcxhb.Active:=true;
combobox1.items.clear;
with hjzcdata.gdzclbb do
begin
first;
while not eof do
begin
combobox1.items.add(fieldbyname('固定资产类别').value);
next;
end;
first;
end;
combobox1.ItemIndex:=0;
if not hjzcdata.gdzcxhb.Active then
hjzcdata.gdzcxhb.active:=true;
end;

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

procedure Tw_zcxhsz.ComboBox1Change(Sender: TObject);
begin
hjzcdata.gdzclbb.Locate('固定资产类别',combobox1.Text,[lopartialkey])
end;

procedure Tw_zcxhsz.DataSetInsert1Execute(Sender: TObject);
var maxbm:integer;
begin
with hjzcdata.gdzcxhb do
begin
if isempty then
maxbm:=1 else
begin
last;
maxbm:=fields[0].value+1;
end;
Append;
edit;
fields[0].value:=maxbm;
end;

end;

procedure Tw_zcxhsz.DataSetDelete1Execute(Sender: TObject);
begin
if messagedlg('是否确认删除当前记录内容?',mtconfirmation,[mbyes,mbno],0)=mryes then
hjzcdata.gdzcxhb.delete;
end;

procedure Tw_zcxhsz.DataSetPost1Execute(Sender: TObject);
begin
hjzcdata.gdzcxhb.post;
end;

procedure Tw_zcxhsz.DataSetCancel1Execute(Sender: TObject);
begin
hjzcdata.gdzcxhb.cancel;
end;

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

end;

end.