ghdjform.pas

地址档案管理系统

unit GHDJForm;

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, StrUtils;

type
  TFormGHDJ = class(TForm)
    Label1: TLabel;
    lkcbDZBH: TwwDBLookupCombo;
    qryDZ: TADOQuery;
    btnCommit: TButton;
    tblJYK: TADOTable;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label14: TLabel;
    qryDAH: TADOQuery;
    edtTH: TEdit;
    edtBZ: TEdit;
    dpGHRQ: TDateTimePicker;
    lkcbDAH: TwwDBLookupCombo;
    edtKL: TEdit;
    qryDZDSDesigner: TWideStringField;
    qryDZDSDesigner2: TWideStringField;
    qryDZDSDesigner3: TWideStringField;
    qryDZDSDesigner4: TWideStringField;
    qryDZDSDesigner5: TWideStringField;
    edtJYDATE: TEdit;
    Label3: TLabel;
    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;
    edtXJDate: TEdit;
    Label7: TLabel;
    qryDAHdah: TWideStringField;
    qryDAHjydate: TDateTimeField;
    qryDAHxjdate: TDateTimeField;
    qryDAHth: TWideStringField;
    qryDAHkl: TWideStringField;
    qryDAHfz: 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 lkcbDAHBeforeDropDown(Sender: TObject);
    procedure lkcbDAHChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormGHDJ: TFormGHDJ;

implementation

uses DataModule;

{$R *.dfm}

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

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

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

procedure TFormGHDJ.btnCommitClick(Sender: TObject);
begin

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

  if not tblJYK.Locate('id;dah;ghdate',VarArrayOf([lkcbDZBH.Text,lkcbDAH.Text,null]),[]) then
  begin
    ShowMessage('无法找到相关的借阅记录！不能进行归还登记。');
    Exit;
  end;


try
  tblJYK.Edit;
  tblJYK.FieldByName('ghdate').Value:=dpGHRQ.Date;
  tblJYK.FieldByName('fz').Value:=edtBZ.Text;
  tblJYK.Post;
  ShowMessage('登记完成');
  lkcbDZBH.Text:='';
  lkcbDAH.Text:='';
  qryDZ.Requery([eoAsyncFetch]);
  lkcbDZBH.SetFocus;
except
  MessageDlg('提交数据失败!',mtError,[mbOK],0);
end;

end;

procedure TFormGHDJ.lkcbDAHBeforeDropDown(Sender: TObject);
begin
  qryDAH.Close;
  qryDAH.Parameters[0].Value:=lkcbDZBH.Value;
  qryDAH.Open;
end;

procedure TFormGHDJ.lkcbDAHChange(Sender: TObject);
begin
//
//  showmessage('changed');
  edtJYDATE.Text:=qryDAH.FieldValues['jydate'];
  edtJYDATE.Text:=LeftStr(edtJYDATE.Text,10);
  if  qryDAH.FieldByName('xjdate').IsNull then
        edtXJDate.Text:=''
  else
  begin
    edtXJDate.Text:=qryDAH.FieldValues['xjdate'];
    edtXJDate.Text:=LeftStr(edtXJDate.Text,10);
  end;
  edtKL.Text:=qryDAH.FieldValues['kl'];
  edtTH.Text:=qryDAH.FieldValues['th'];
  edtBZ.Text:=qryDAH.FieldValues['fz'];
end;

procedure TFormGHDJ.FormCreate(Sender: TObject);
begin
  dpGHRQ.DateTime:=Now;
  qryDZ.Open;
  qryDAH.Open;
  tblJYK.Open;
end;

end.