ujtqk_input.~pas

青年文明号管理系统

unit Ujtqk_input;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrlsEh, Mask, XPMenu, DBLookupEh;

type
  Tjtqk_input = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBEditEh1: TDBEditEh;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    XPMenu1: TXPMenu;
    DBLookupComboboxEh2: TDBLookupComboboxEh;
    DBLookupComboboxEh3: TDBLookupComboboxEh;
    DBLookupComboboxEh4: TDBLookupComboboxEh;
    DBComboBoxEh1: TDBComboBoxEh;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jtqk_input: Tjtqk_input;

implementation

uses Udm, u_vardef;

{$R *.dfm}

procedure Tjtqk_input.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tjtqk_input.FormShow(Sender: TObject);
var
vdwbh:string;
vdwmc:string;
begin
dm.t_jtqk.Open;
dm.mz.Open;
dm.whcd.Open;
dm.zzmm.Open;
vdwbh:=dm.v_sbb.FieldValues['dwbh'];
vdwmc:=dm.v_sbb.FieldValues['dwmc'];
if visadd=1 then
   begin
     dm.t_jtqk.Append;
     dm.t_jtqk.FieldValues['dwbh']:=vdwbh;
     dm.t_jtqk.FieldValues['dwmc']:=vdwmc;
     dm.t_jtqk.FieldValues['xh']:=getryxh(vdwbh);
   end;
end;

procedure Tjtqk_input.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.t_jtqk.Cancel;
end;

procedure Tjtqk_input.BitBtn1Click(Sender: TObject);
begin
saveQ(dm.t_jtqk);
dm.t_jtqk.Close;
dm.t_jtqk.Open;
if (Application.MessageBox(Pchar('数据成功添加！您是否要添加下一条？'),'提示',MB_YESNO+MB_ICONQUESTION))=ID_Yes then
    onshow(ck_input)
else
   close;
end;

end.