unit5.pas

这是一个简单Delphi应用开发实例

unit Unit5;

interface

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

type
  Taddtypes = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addtypes: Taddtypes;

implementation

uses Unit1, Unit2, Unit3, Unit4;

{$R *.dfm}

procedure Taddtypes.BitBtn1Click(Sender: TObject);
begin
  if Edit1.Text = '' then
  begin
    MessageDlg('类型不能为空，请重新输入！',mtwarning,[mbok],0);
    Edit1.SetFocus;
    Exit;
  end;
  if main.ADOQuery6.Locate('类型',edit1.Text,[]) then
  begin
    MessageDlg('输入的类型在数据库中已经存在！',mtError,[mbok],0);
    Edit1.SetFocus;
    Exit;
  end;
  with Main.ADOQuery6 do
  begin
    Main.ADOQuery6.Close;
    Main.ADOQuery6.SQL.Clear;
    Main.ADOQuery6.SQL.Add('insert into addtype values (:a)');
    Main.ADOQuery6.Parameters.ParamByName('a').Value := trim(Edit1.Text);
    Main.ADOQuery6.ExecSQL;
    MessageDlg('类型添加成功！',mtinformation,[mbok],0);
  end;
  with Main.ADOQuery6 do
  begin
    Main.ADOQuery6.Close;
    Main.ADOQuery6.SQL.Clear;
    Main.ADOQuery6.SQL.Add('select Distinct 类型 From addtype'); //选择在字段类型中不重复数据
    Main.ADOQuery6.Open;
  end;
  Main.ADOQuery6.Active:=False;
  Main.ADOQuery6.Active:=True;
  addmsn.ComboBox2.Clear;
  While not Main.ADOQuery6.Eof do
  begin
    addmsn.Combobox2.Items.Add(Main.ADOQuery6.Fields[0].value);//将不重复的数据加入到Combobox2(类型)中
    Main.ADOQuery6.Next;
  end;
  addtypes.Close;
end;

procedure Taddtypes.BitBtn2Click(Sender: TObject);
begin
  if main.ADOQuery1.Locate('类型',Main.ADOQuery6.FieldByName('类型').AsString,[]) then
  begin
    MessageDlg('在数据中存在此数据类型，不能够删除！',mtWarning,[mbok],0);
    Exit;
  end
  else
  if MessageDlg('您确定要删除此类型！',mtinformation,[mbyes,mbno],0)=mryes then
  begin
    Main.ADOQuery6.Delete;
    with Main.ADOQuery6 do
    begin
      Main.ADOQuery6.Close;
      Main.ADOQuery6.SQL.Clear;
      Main.ADOQuery6.SQL.Add('select Distinct 类型 From addtype'); //选择在字段类型中不重复数据
      Main.ADOQuery6.Open;
    end;
    Main.ADOQuery6.Active:=False;
    Main.ADOQuery6.Active:=True;
    addmsn.ComboBox2.Clear;
    While not Main.ADOQuery6.Eof do
    begin
      addmsn.ComboBox2.Text:='';
      addmsn.Combobox2.Items.Add(Main.ADOQuery6.Fields[0].value);//将不重复的数据加入到Combobox2(类型)中
      Main.ADOQuery6.Next;
    end;
  end;
end;

end.