modits.pas.~1~

Delphi数据库开发毕业设计指导及实例 一书的源码

unit modits;

interface

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

type
  Tmodits_Form = class(TForm)
    Label1: TLabel;
    name_LEdit: TLabeledEdit;
    fzr_LEdit: TLabeledEdit;
    bz_LEdit: TLabeledEdit;
    rq_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
  modits_Form: Tmodits_Form;

implementation

uses tsgl;

{$R *.dfm}

procedure Tmodits_Form.FormCreate(Sender: TObject);
begin
    Caption:=tsgl_form.xcaption;
    //如果此时为修改窗体，则将选择的信息赋予对应的控件显示
    if tsgl_form.modi then
    begin
        name_ledit.Text:=tsgl_form.Query1.fieldbyname('name').AsString;
        fzr_ledit.Text:=tsgl_form.Query1.fieldbyname('fzr').AsString;
        bz_ledit.Text:=tsgl_form.Query1.fieldbyname('bz').AsString;
        rq_dtp.DateTime:=tsgl_form.Query1.fieldbyname('rq').AsDateTime;
    end;
end;

procedure Tmodits_Form.cmdokClick(Sender: TObject);
var
    id,name,bz,rq,fzr,sqlstr:string;
begin
    if MessageDlg('确认要'+tsgl_form.xcaption+'记录码?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        name:=trim(name_LEdit.Text);
        if length(name)<1 then
        begin
            ShowMessage('请输入投诉人');
            exit;
        end;
        bz:=trim(bz_LEdit.Text);
        if length(bz)<1 then
        begin
            ShowMessage('请输入投诉内容');
            exit;
        end;
        rq:=datetostr(rq_DTP.Date);
        fzr:=trim(fzr_LEdit.Text);
        if length(fzr)<1 then
        begin
            ShowMessage('请输入负责人');
            exit;
        end;
        if tsgl_form.modi then
        begin
            id:=tsgl_form.Query1.fieldbyname('id').AsString;
            sqlstr:='update t_tsb set name='''+name+''',bz='''+bz+''',fzr='''+fzr;
            sqlstr:=sqlstr+''',rq='''+rq+''' where(id='''+id+''')';
        end
        else
        begin
            sqlstr:='insert into t_tsb(name,bz,rq,fzr) values('''+name+''',''';
            sqlstr:=sqlstr+bz+''','''+rq+''','''+fzr+''')''';
        end;
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            finally
            Free;
            end;
        end;
        Close;
        tsgl_form.cmdok.Click;
    end;
end;

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

end.