modibx.pas.~1~

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

unit modibx;

interface

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

type
  Tmodibx_Form = class(TForm)
    Label1: TLabel;
    name_LEdit: TLabeledEdit;
    wxr_LEdit: TLabeledEdit;
    bz_LEdit: TLabeledEdit;
    rq_DTP: TDateTimePicker;
    cmdok: TButton;
    cmdclose: TButton;
    wxf_c: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modibx_Form: Tmodibx_Form;

implementation

uses bxgl;

{$R *.dfm}

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

procedure Tmodibx_Form.cmdokClick(Sender: TObject);
var
    id,name,bz,rq,wxr,wxf,sqlstr:string;
begin
    if MessageDlg('确认要'+bxgl_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);
        wxr:=trim(wxr_LEdit.Text);
        if wxf_c.Checked then
            wxf:='True'
        else
            wxf:='False';
        if bxgl_form.modi then
        begin
            id:=bxgl_form.Query1.fieldbyname('id').AsString;
            sqlstr:='update t_bxb set name='''+name+''',bz='''+bz+''',wxf='''+wxf;
            sqlstr:=sqlstr+''',rq='''+rq+''',wxr='''+wxr+''' where(id='''+id+''')';
        end
        else
        begin
            sqlstr:='insert into t_bxb(name,bz,wxf,rq,wxr) values('''+name+''',''';
            sqlstr:=sqlstr+bz+''','''+wxf+''','''+rq+''','''+wxr+''')''';
        end;
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            finally
            Free;
            end;
        end;
        Close;
        bxgl_form.cmdok.Click;
    end;
end;

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

end.