uvsbb.pas

青年文明号管理系统

unit Uvsbb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms,
  XPMenu, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;

type
  Tvsbb = class(TForm)
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1dwbh: TdxDBGridColumn;
    dxDBGrid1dwmc: TdxDBGridColumn;
    dxDBGrid1jb: TdxDBGridColumn;
    dxDBGrid1zrs: TdxDBGridMaskColumn;
    dxDBGrid1fzrxm: TdxDBGridColumn;
    dxDBGrid1pjnl: TdxDBGridMaskColumn;
    dxDBGrid1lxfs: TdxDBGridColumn;
    dxDBGrid1fzrnl: TdxDBGridMaskColumn;
    dxDBGrid1txdz: TdxDBGridColumn;
    dxDBGrid1hjqk: TdxDBGridMemoColumn;
    dxDBGrid1jysj: TdxDBGridMemoColumn;
    XPMenu1: TXPMenu;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vsbb: Tvsbb;

implementation

uses Udm, Usbb, Umain, u_vardef;

{$R *.dfm}

procedure Tvsbb.FormShow(Sender: TObject);
begin
dm.v_sbb.Open;
end;

procedure Tvsbb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.v_sbb.Close;
end;

procedure Tvsbb.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tvsbb.BitBtn1Click(Sender: TObject);
begin
visadd:=1;
try
    sbb:=tsbb.Create(sbb);
    sbb.showmodal;

finally
    sbb.Free;
    sbb:=nil;
end;
end;

procedure Tvsbb.dxDBGrid1DblClick(Sender: TObject);
begin
visadd:=0;
try
    sbb:=tsbb.Create(sbb);
    sbb.showmodal;

finally
    sbb.Free;
    sbb:=nil;
end;
end;

procedure Tvsbb.BitBtn4Click(Sender: TObject);
begin
if dm.v_sbb.RecordCount=0 then exit;
dm.t_sbb.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
dm.t_sbb.Close;
dm.t_sbb.Open;
showrep('sbb.frf',dm.t_sbb)
end;

end.