modidgts.pas

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

unit modidgts;

interface

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

type
  Tmodidgts_Form = class(TForm)
    sm_LEdit: TLabeledEdit;
    zz_LEdit: TLabeledEdit;
    cbs_LEdit: TLabeledEdit;
    sl_LEdit: TLabeledEdit;
    Label1: TLabel;
    cbrq_DTP: TDateTimePicker;
    Label2: TLabel;
    dgrq_DTP: TDateTimePicker;
    cmdok: TButton;
    cmdclose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modidgts_Form: Tmodidgts_Form;

implementation

uses zdgl, main;

{$R *.dfm}

procedure Tmodidgts_Form.FormCreate(Sender: TObject);
begin
    dgrq_DTP.DateTime:=strtodatetime(mainform.getnettime);
    cbrq_DTP.DateTime:=strtodatetime(mainform.getnettime);
    if zdgl_form.modi then
    begin
        sm_LEdit.Text:=zdgl_form.Query1.fieldbyname('sm').AsString;
        cbs_LEdit.Text:=zdgl_form.Query1.fieldbyname('cbs').AsString;
        zz_LEdit.Text:=zdgl_form.Query1.fieldbyname('zz').AsString;
        sl_LEdit.Text:=zdgl_form.Query1.fieldbyname('sl').AsString;
        dgrq_DTP.DateTime:=zdgl_form.Query1.fieldbyname('dgrq').AsDateTime;
        cbrq_DTP.DateTime:=zdgl_form.Query1.fieldbyname('cbrq').AsDateTime;
    end;
end;

procedure Tmodidgts_Form.cmdokClick(Sender: TObject);
var
    czsj,czdz,ID,sqlstr1,sqlstr,sm,zz,cbs,sl,cbrq,dgrq:string;
begin
    sm:=trim(sm_LEdit.Text);
    if length(sm)<1 then
    begin
        ShowMessage('请输入定购图书书名');
        exit;
    end;
    zz:=trim(zz_LEdit.Text);
    if length(zz)<1 then
    begin
        ShowMessage('请输入定购图书作者');
        exit;
    end;
    cbs:=trim(cbs_LEdit.Text);
    if length(cbs)<1 then
    begin
        ShowMessage('请输入定购图书出版社');
        exit;
    end;
    sl:=trim(sl_LEdit.Text);
    if length(sl)<1 then
    begin
        ShowMessage('请输入定购图书数量');
        exit;
    end;
    cbrq:=DateToStr(cbrq_DTP.DateTime);
    dgrq:=DateToStr(dgrq_DTP.DateTime);
    if zdgl_form.modi then
    begin
        id:=zdgl_form.Query1.fieldbyname('id').AsString;
        czdz:='修改图书定购:'+sm+','+zz;
        sqlstr:='update t_dgb set sm='''+sm+''',zz='''+zz+''',cbs='''+cbs;
        sqlstr:=sqlstr+''',cbrq='''+cbrq+''',sl='''+sl+''',dgrq='''+dgrq;
        sqlstr:=sqlstr+' where (id='''+id+''')';
        sqlstr1:='select * from t_dgb where(sm='''+sm+''')and(zz='''+zz+''')and(id<>'''+id+''')';
    end
    else
    begin
        czdz:='添加图书定购:'+sm+','+zz;
        sqlstr:='insert into t_dgb(sm,zz,cbs,cbrq,sl,dgrq)values('''+sm+''',''';
        sqlstr:=sqlstr+zz+''','''+cbs+''','''+cbrq+''','''+sl+''','''+dgrq+''')';
        sqlstr1:='select * from t_dgb where(sm='''+sm+''')and(zz='''+zz+''')';
    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);
    zdgl_form.cmdok.Click;
    close;
end;

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

end.