modidzxx.pas

我的本科毕业代码,基本功能都出来了.不是特别好,请指教

unit modidzxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DB, DBTables,
  System.ComponentModel;

type
  Tmodidzxx_Form = class(TForm)
    cmdok: TButton;
    cmdclose: TButton;
    zh_LEdit: TLabeledEdit;
    xm_LEdit: TLabeledEdit;
    bm_LEdit: TLabeledEdit;
    rq_DTP: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    lxdm_CBox: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modidzxx_Form: Tmodidzxx_Form;

implementation

uses dzgl, main;

{$R *.dfm}

procedure Tmodidzxx_Form.FormCreate(Sender: TObject);
begin
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add('select * from td_lxdm order by lxdm');
        Open;
        while not Eof do
        begin
            lxdm_CBox.Items.Add(fieldbyname('lxmc').AsString);
            Next;
        end;
        finally
        Free;
        end;
    end;
    Caption:=dzgl_Form.xcaption;
    rq_DTP.DateTime:=strtodatetime(mainform.getnettime);
    if dzgl_form.modi then
    begin
        xm_LEdit.Text:=dzgl_form.Query1.fieldbyname('xm').AsString;
        zh_LEdit.Text:=dzgl_form.Query1.fieldbyname('zh').AsString;
        bm_LEdit.Text:=dzgl_form.Query1.fieldbyname('bm').AsString;
        lxdm_cbox.ItemIndex:=dzgl_form.Query1.fieldbyname('lxdm').AsInteger;
        rq_dtp.DateTime:=dzgl_form.Query1.fieldbyname('rq').AsDateTime;
    end;
end;

procedure Tmodidzxx_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tmodidzxx_Form.cmdokClick(Sender: TObject);
var
    czdz,czsj,id,xm,bm,rq,lxdm,zh,sqlstr1,sqlstr:string;
begin
    xm:=trim(xm_ledit.Text);
    if length(xm)<1 then
    begin
        ShowMessage('读者姓名不能为空');
        exit;
    end;
    bm:=trim(bm_ledit.Text);
    if length(bm)<1 then
    begin
        ShowMessage('读者部门不能为空');
        exit;
    end;
    zh:=trim(zh_ledit.Text);
    if length(zh)<1 then
    begin
        ShowMessage('读者证号不能为空');
        exit;
    end;
    lxdm:=inttostr(lxdm_cbox.ItemIndex);
    rq:=datetostr(rq_dtp.DateTime);
    if dzgl_form.modi then
    begin
        id:=dzgl_form.Query1.fieldbyname('id').AsString;
        czdz:='修改读者信息:'+xm+','+zh;
        sqlstr:='update t_dzb set xm='''+xm+''',zh='''+zh;
        sqlstr:=sqlstr+''',bm='''+bm+''',lxdm='''+lxdm;
        sqlstr:=sqlstr+''',rq='''+rq+''' where(id='''+id+''')';
        sqlstr1:='select * from t_dzb where(zh='''+zh+''')and(id<>'''+id+''')';
    end
    else
    begin
        czdz:='添加读者信息:'+xm+','+zh;
        sqlstr:='insert into t_dzb(xm,zh,lxdm,bm,rq)values('''+xm;
        sqlstr:=sqlstr+''','''+zh+''','''+lxdm+''','''+bm+''','''+rq+''')';
        sqlstr1:='select * from t_dzb where(zh='''+zh+''')';
    end;
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr1);
        Open;
        if recordcount > 0 then
        begin
            ShowMessage('输入的证号有重复，请重新输入');
            exit;
        end;
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
    czsj:=mainform.getnettime;
    mainForm.addlog(mainform.dlname,czsj,czdz);
    dzgl_form.cmdok.Click;
    close;
end;

end.