gysszpas.~pas

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

unit gysszpas;

interface

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

type
  Tw_gyssz = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormActivate(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure DataSetPost1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_gyssz: Tw_gyssz;

implementation

uses datapas;

{$R *.dfm}

procedure Tw_gyssz.DataSetInsert1Execute(Sender: TObject);
var maxbm:integer;
begin
with hjzcdata.lscx do
begin
close;
sql.clear;
sql.add('select max(供应商编码) from 供应商编码表');
prepared;
open;
end;
if not hjzcdata.lscx.isempty then
maxbm:=hjzcdata.lscx.fields[0].value+1 else
maxbm:=1;
with hjzcdata.gysbmb do
begin
append;
edit;
fieldbyname('供应商编码').value:=maxbm;
end;
dbedit2.setfocus;

end;



procedure Tw_gyssz.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=38) or (key=40) then
hjzcdata.gysbmb.locate('供应商编码',hjzcdata.gyscx.fieldbyname('供应商编码').value,[lopartialkey]);

end;

procedure Tw_gyssz.DBGrid1CellClick(Column: TColumn);
begin
hjzcdata.gysbmb.locate('供应商编码',hjzcdata.gyscx.fieldbyname('供应商编码').value,[lopartialkey]);

end;

procedure Tw_gyssz.FormActivate(Sender: TObject);
begin
if not hjzcdata.gyscx.active then
hjzcdata.gyscx.Active:=true;
if not hjzcdata.gysbmb.Active then
hjzcdata.gysbmb.active:=true;
end;

procedure Tw_gyssz.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(CM_DIALOGKEY,VK_TAB,0);
end;
end;

procedure Tw_gyssz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tw_gyssz.DataSetDelete1Execute(Sender: TObject);
begin
if messagedlg('确认删除当前记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
hjzcdata.gysbmb.delete;
hjzcdata.gyscx.close;
hjzcdata.gyscx.prepared;
hjzcdata.gyscx.open;
end;

end;

procedure Tw_gyssz.DataSetPost1Execute(Sender: TObject);
begin
hjzcdata.gysbmb.post;
hjzcdata.gyscx.close;
hjzcdata.gyscx.prepared;
hjzcdata.gyscx.open;

end;

end.