jydjform.pas

地址档案管理系统

unit JYDJForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls, DbNav97, Mask, wwidlg, Wwlocate,
  wwDialog, wwfltdlg, wwSpeedButton, wwDBNavigator, wwclearpanel, DB,
  ADODB, wwdblook, ComCtrls;

type
  TFormJYDJ = class(TForm)
    Label1: TLabel;
    lkcbDZBH: TwwDBLookupCombo;
    qryDZ: TADOQuery;
    btnCommit: TButton;
    tblJYK: TADOTable;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    qryDZDSDesigner: TWideStringField;
    qryDZDSDesigner2: TWideStringField;
    qryDZDSDesigner3: TWideStringField;
    qryDZDSDesigner4: TWideStringField;
    qryDZDSDesigner5: TWideStringField;
    edtDAH: TEdit;
    lkcbKL: TwwDBLookupCombo;
    qryKL: TADOQuery;
    qryKLdetail_code: TWideStringField;
    qryKLcaption: TWideStringField;
    qryKLnote: TWideStringField;
    edtTH: TEdit;
    mskBG: TMaskEdit;
    edtBZ: TEdit;
    dpJYRQ: TDateTimePicker;
    mskFT: TMaskEdit;
    mskFJ: TMaskEdit;
    mskFB: TMaskEdit;
    mskJC: TMaskEdit;
    mskJP: TMaskEdit;
    tblJYKid: TWideStringField;
    tblJYKjydate: TDateTimeField;
    tblJYKDAH: TWideStringField;
    tblJYKTH: TWideStringField;
    tblJYKKL: TWideStringField;
    tblJYKGHDATE: TDateTimeField;
    tblJYKXJDATE: TDateTimeField;
    tblJYKBG: TIntegerField;
    tblJYKFT: TIntegerField;
    tblJYKFJ: TIntegerField;
    tblJYKFB: TIntegerField;
    tblJYKJC: TIntegerField;
    tblJYKJP: TIntegerField;
    tblJYKFZ: TWideStringField;
    procedure lkcbDZBHNotInList(Sender: TObject;
      LookupTable: TDataSet; NewValue: String; var Accept: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnTodayClick(Sender: TObject);
    procedure btnCommitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormJYDJ: TFormJYDJ;

implementation

uses DataModule;

{$R *.dfm}

procedure TFormJYDJ.lkcbDZBHNotInList(Sender: TObject;
  LookupTable: TDataSet; NewValue: String; var Accept: Boolean);
begin
  Accept:=False;
end;

procedure TFormJYDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Free;
end;

procedure TFormJYDJ.btnTodayClick(Sender: TObject);
begin
//  mskJYDate.EditText:=DateTimeToStr(Now);//DateToStr(Date(Now));
end;

procedure TFormJYDJ.btnCommitClick(Sender: TObject);
begin

  if lkcbDZBH.Text='' then
  begin
    ShowMessage('请确定读者编号');
    Exit;
  end;

  if lkcbKL.Text='' then
  begin
    ShowMessage('请确定库类别');
    Exit;
  end;

  if edtDAH.Text='' then
  begin
    ShowMessage('请确定档案号');
    Exit;
  end;

  if edtTH.Text='' then
  begin
    ShowMessage('请确定套号');
    Exit;
  end;

try
  tblJYK.AppendRecord([lkcbDZBH.Text,dpJYRQ.Date,'',edtDAH.Text,edtTH.Text,lkcbKL.Text,'',null,'',null,mskBG.Text,mskFT.Text,mskFJ.Text,mskFB.Text,mskJC.Text,mskJP.Text,edtBZ.Text]);
  tblJYK.Post;
  ShowMessage('登记完成');
  lkcbDZBH.Text:='';
  lkcbKL.Text:='';
  edtDAH.Text:='';
  lkcbDZBH.SetFocus;
except
  MessageDlg('提交数据失败!',mtError,[mbOK],0);
end;

end;

procedure TFormJYDJ.FormCreate(Sender: TObject);
begin
  dpJYRQ.DateTime:=Now;
  qryDZ.Open;
  qryKL.Open;
  tblJYK.Open;
end;

end.