faddx.pas

一个很好的例子

unit faddx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, ExtDlgs;

type
  TF_addx = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Panel2: TPanel;
    Image1: TImage;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label8: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    change:boolean;
    { Public declarations }
  end;

var
  F_addx: TF_addx;
  ins_bio:string;

implementation
   uses fdbc,fdata;
{$R *.dfm}

procedure TF_addx.SpeedButton3Click(Sender: TObject);
begin
if (trim(memo1.Text)<>'') and (trim(combobox1.Text)<>'') then
begin
  if (change=true)then
  begin
      datamodule3.carqy.Edit;
      datamodule3.carse.DataSet.Fields[1].AsString:=f_addx.Memo1.Text;
      datamodule3.carse.DataSet.Fields[2].AsString:=f_addx.Edit1.Text;
      datamodule3.carse.DataSet.Fields[3].AsString:=f_addx.Edit2.Text;
      datamodule3.carse.DataSet.Fields[4].AsString:=f_addx.Edit3.Text;
      datamodule3.carse.DataSet.Fields[5].AsString:=f_addx.Edit4.Text;
      datamodule3.carse.DataSet.Fields[6].Assign(image1.Picture.Bitmap);
      image1.Picture:=nil;
      datamodule3.carse.DataSet.Fields[7].AsString:=f_addx.ComboBox1.Text;
      datamodule3.carse.DataSet.post;
      f_dbc.order(sender);//符编号
  end
  else
  begin
    with  datamodule3.carqy do
    begin
      close;
      with SQL do
      begin
        clear;
        add('insert into'+' '+f_dbc.con_bio+' '+'values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8)');
      end;
      parameters[1].Value:=memo1.Text;
      parameters[2].Value:=edit1.Text;
      parameters[3].Value:=edit2.Text;
      parameters[4].Value:=edit3.Text;
      parameters[5].Value:=edit4.Text;
      parameters[6].Assign(image1.picture.Bitmap);
      parameters[7].Value:=combobox1.Text;
      execsql;
      image1.Picture:=nil;
      Close;
      sql.clear;
      SQL.Add('select*from'+' '+F_dbc.con_bio);
      Open;
      F_dbc.dbgrid1.Columns[0].Title.caption:='编号';
       F_dbc.dbgrid1.Columns[1].Title.caption:='题目';
       F_dbc.dbgrid1.Columns[2].Title.caption:='选项A';
       F_dbc.dbgrid1.Columns[3].Title.caption:='选项B';
       F_dbc.dbgrid1.Columns[4].Title.caption:='选项C';
       F_dbc.dbgrid1.Columns[5].Title.caption:='选项D';
      //dbgrid1.Columns[6].Title.caption:='图片';
       F_dbc.DBGrid1.Columns[6].Visible := False;
       F_dbc.dbgrid1.Columns[7].Title.caption:='答案';
      //dbgrid1.Columns[8].Title.caption:='熟知程度';
       F_dbc.Dbgrid1.Columns[8].Visible:=false;
       F_dbc.dbgrid1.Columns[1].Width:=100;
       F_dbc.dbgrid1.Columns[2].Width:=100;
       F_dbc.dbgrid1.Columns[3].Width:=100;
       F_dbc.dbgrid1.Columns[4].Width:=100;
       F_dbc.dbgrid1.Columns[5].Width:=100;
       F_dbc.order(sender);
    end;
  end;
  memo1.Clear;
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  image1.Picture:=nil;

end
else
  application.MessageBox('输入必要信息。','提示',mb_ok);
  if change=true then
    change:=true
  else
    change:=false;
end;

procedure TF_addx.SpeedButton4Click(Sender: TObject);
begin
  memo1.Clear;
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  image1.Picture:=nil;
  close;
end;

procedure TF_addx.FormCreate(Sender: TObject);
begin
  change:=false;
end;

procedure TF_addx.SpeedButton1Click(Sender: TObject);
begin
  openpicturedialog1.Title:='请选择文件。';
  if openpicturedialog1.Execute then
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
  edit5.Text:=openpicturedialog1.FileName;

end;

procedure TF_addx.SpeedButton2Click(Sender: TObject);
begin
  datamodule3.carqy.Edit;
  datamodule3.carse.DataSet.Fields[6].Clear;
  datamodule3.carqy.Post;
  Image1.Picture := Nil;
  edit5.Clear;
end;

procedure TF_addx.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Releasecapture;
  Perform(wm_syscommand,$f012,0);
end;

end.