a4.pas

这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin

unit a4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, EhLibADO, IniFiles;

type
  Tfa4 = class(TForm)
    dg_view: TDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure dg_viewKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fa4: Tfa4;

implementation
uses dm,vks;

{$R *.dfm}

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

procedure Tfa4.FormShow(Sender: TObject);
begin
  if not fdm.qkc.Active then fdm.qkc.Open;
  if not fdm.qvlist.Active then fdm.qvlist.Active := true;
  if not fdm.qslist.Active then fdm.qslist.Active := true;
  if not fdm.qslist1.Active then fdm.qslist1.Active := true;
end;

procedure Tfa4.dg_viewKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_f5 then
  begin
    fdm.qkc.Close;
    fdm.qkc.Open;
  end;
  if key=vk_delete then
  begin
    if (dg_view.Fields[5].AsString<>'') and (dg_view.Fields[5].asinteger=0) and (vks.box('确定要删除本库存数据吗?'#13#10'如果删除,将不能恢复,请不要删除本窗口数据.','库存数据删除窗口')) then
    begin
      with fdm.q do
      begin
        close;
        sql.Text := 'delete from [kc] where gid='+dg_view.Fields[12].AsString;
        try
          execsql;
          close;
          fdm.qkc.Close;
          fdm.qkc.Open;
        except
          close;
          vks.info(1008);
        end;
      end;
    end;
  end;
end;

end.