ujtqk.pas

青年文明号管理系统

unit Ujtqk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, XPMenu, Mask, DBCtrls, ComCtrls, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms;

type
  Tjtqk = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    dxDBGrid1: TdxDBGrid;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBMemo2: TDBMemo;
    dxDBGrid1xm: TdxDBGridColumn;
    dxDBGrid1xb: TdxDBGridColumn;
    dxDBGrid1mz: TdxDBGridColumn;
    dxDBGrid1csny: TdxDBGridDateColumn;
    dxDBGrid1zzmm: TdxDBGridColumn;
    dxDBGrid1whcd: TdxDBGridColumn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    dxDBGrid1dwbh: TdxDBGridColumn;
    dxDBGrid1dwmc: TdxDBGridColumn;
    dxDBGrid1xh: TdxDBGridMaskColumn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jtqk: Tjtqk;

implementation

uses Udm, u_vardef, Umain, Ujtqk_input;

{$R *.dfm}

procedure Tjtqk.BitBtn1Click(Sender: TObject);
begin
saveq(dm.t_sbb);
end;

procedure Tjtqk.BitBtn2Click(Sender: TObject);
begin
dm.t_sbb.Cancel;
close;
end;

procedure Tjtqk.BitBtn3Click(Sender: TObject);
begin
visadd:=1;
try
    jtqk_input:=tjtqk_input.Create(jtqk_input);
    jtqk_input.showmodal;

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

procedure Tjtqk.dxDBGrid1DblClick(Sender: TObject);
begin
if dm.t_jtqk.RecordCount=0 then exit;
visadd:=0;
try
    jtqk_input:=tjtqk_input.Create(jtqk_input);
    jtqk_input.showmodal;

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

procedure Tjtqk.FormShow(Sender: TObject);
begin
dm.t_jtqk.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
dm.t_jtqk.Open;
DM.t_sbb.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
DM.t_sbb.Open;
end;

procedure Tjtqk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.t_jtqk.close;
DM.t_sbb.Close;
end;

procedure Tjtqk.BitBtn4Click(Sender: TObject);
begin
delQ(dm.t_jtqk,3);
end;

procedure Tjtqk.PageControl1Change(Sender: TObject);
begin
if  PageControl1.TabIndex=0 then
   begin
     BitBtn3.Enabled:=false;
     BitBtn4.Enabled:=false;
     BitBtn1.Enabled:=TRUE;

   end;

if  PageControl1.TabIndex=1 then
   begin
     BitBtn3.Enabled:=TRUE;
     BitBtn4.Enabled:=TRUE;
     BitBtn1.Enabled:=false;

   end;
end;

end.