constructunit.pas

书籍类别（种类编号

unit ConstructUnit;

interface

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

type
  Tconstruct = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Button3: TButton;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    QX_DG: TDBGrid;
    Label8: TLabel;
    Memo1: TMemo;
    Edit6: TEdit;
    Button4: TButton;
    Label2: TLabel;
    GroupBox3: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure QX_DGCellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  construct: Tconstruct;

implementation

uses DBM;

{$R *.dfm}

procedure Tconstruct.RadioButton3Click(Sender: TObject);
begin
if radiobutton3.Checked=true then begin
 Button3.Caption:='添加';
 end else begin
 Button3.Caption:='修改';
 end;
end;

procedure Tconstruct.RadioButton4Click(Sender: TObject);
begin
if radiobutton3.Checked=true then begin
 Button3.Caption:='添加';
 end else begin
 Button3.Caption:='修改';
 end;
end;

procedure Tconstruct.Button3Click(Sender: TObject);
var
dd:integer;
begin
if RadioButton3.Checked=true   then begin
if Edit1.Text ='' then begin
    ShowMessage('    请填写单位名称！！！');
    Exit;
  end;

   if Edit2.Text ='' then begin
    ShowMessage('    请填写单位地址！！！');
    Exit;
  end;
   if Edit3.Text ='' then begin
    ShowMessage('    请填写单位电话！！！');
    Exit;
  end;
   if Edit4.Text ='' then begin
    ShowMessage('    请填写单位传真！！！');
    Exit;
  end;
   if Edit5.Text ='' then begin
    ShowMessage('    请填写单位联系人！！！');
    Exit;
  end;
  if Memo1.Text ='' then begin
    ShowMessage('    请填写单位简介！！！');
    Exit;
  end;
  DM.ADOQuery2.Close;
  DM.ADOQuery2.SQL.Clear;
  DM.ADOQuery2.SQL.Add('select * from ConstructUnit') ;
  DM.ADOQuery2.Open;
         DM.ADOQuery2.Append;
         DM.ADOQuery2.Edit;
         DM.ADOQuery2.FieldValues['DepName']:=Edit1.Text;
         DM.ADOQuery2.FieldValues['address']:=Edit2.Text;
         DM.ADOQuery2.FieldValues['Tel']:=Edit3.Text;
         DM.ADOQuery2.FieldValues['faxNum']:=Edit4.Text;
         DM.ADOQuery2.FieldValues['ConPerson']:=Edit5.Text;
         DM.ADOQuery2.FieldValues['brief']:=trim(Memo1.Text);
         DM.ADOQuery2.Post;
         ShowMessage('资料添加成功！！！');
         Edit1.Text:='';
         Edit5.Text:='';
  DM.StructADOQuery.Close;
  DM.StructADOQuery.Open;
  label8.Caption:='共计 '+inttostr(DM.StructADOQuery.RecordCount)+' 条记录  ';
end else begin
 DD:=QX_DG.SelectedField.DataSet.FieldValues['ID'];
 if Edit1.Text ='' then begin
    ShowMessage('    请选择列表！！！');
    Exit;
  end;

   if Edit2.Text ='' then begin
    ShowMessage('    请选择列表！！！');
    Exit;
  end;
    if Edit5.Text ='' then begin
    ShowMessage('    请选择列表！！！');
    Exit;
  end;
  DM.ADOQuery2.Close;
  DM.ADOQuery2.SQL.Clear;
  DM.ADOQuery2.SQL.Add('update ConstructUnit set DepName='''+Edit1.Text+''',address='''+Edit2.Text+''',Tel='''+Edit3.Text+
  ''',faxNum='''+Edit4.Text+''',ConPerson='''+Edit5.Text+''',brief='''+trim(Memo1.Text)+''' where id='+inttostr(DD)) ;
  DM.ADOQuery2.ExecSQL;
  ShowMessage('修改成功！！！');
  Edit1.Text:='';
  Edit5.Text:='';
  DM.StructADOQuery.Close;
  DM.StructADOQuery.Open;
  end;

end;
procedure Tconstruct.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure Tconstruct.FormShow(Sender: TObject);
begin
 DM.StructADOQuery.Close;
 DM.StructADOQuery.SQL.Clear;
DM.StructADOQuery.SQL.Add('select * from ConstructUnit') ;
 DM.StructADOQuery.Open;
 DM.DataSource3.DataSet :=DM.StructADOQuery;
 QX_DG.DataSource :=DM.DataSource3;
 QX_DG.Columns.Items[0].FieldName :='DepName';
 QX_DG.Columns.Items[1].FieldName :='ConPerson';
 label8.Caption:='共计 '+inttostr(DM.StructADOQuery.RecordCount)+' 条记录  ';
end;

procedure Tconstruct.QX_DGCellClick(Column: TColumn);
begin
if RadioButton4.Checked=true   then begin
try
    if QX_DG.SelectedField.DataSet.FieldValues['depname']<>null then begin
        //RID:=DBGrid1.SelectedField.DataSet.FieldValues['ID'];

        Edit1.Text:=QX_DG.SelectedField.DataSet.FieldValues['DepName'];
        Edit2.Text:=QX_DG.SelectedField.DataSet.FieldValues['address'];
        Edit3.Text:=QX_DG.SelectedField.DataSet.FieldValues['Tel'];
        Edit4.Text:=QX_DG.SelectedField.DataSet.FieldValues['faxNum'];
        Edit5.Text:=QX_DG.SelectedField.DataSet.FieldValues['ConPerson'];
        Memo1.Text:=QX_DG.SelectedField.DataSet.FieldValues['brief'];
    end;
  except
  end;
end;
end;

procedure Tconstruct.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tconstruct.Button2Click(Sender: TObject);
var
BIDD :integer;
begin
 if QX_DG.SelectedField.DataSet.FieldValues['ID']<>null  then begin
    BIDD:=QX_DG.SelectedField.DataSet.FieldValues['ID'];
    with DM do
    begin
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('delete ConstructUnit where ID='+IntToStr(BIDD));
      if MessageDlg('确定要删除吗？',mtConfirmation, [mbYes, mbNo], 0)= mrYes then begin
        ADOQuery3.ExecSQL;
        ShowMessage('数据删除成功！！！');
        StructADOQuery.Close;
        StructADOQuery.Open;
        label8.Caption:='共计 '+inttostr(StructADOQuery.RecordCount)+' 条记录  ';
      end
      else
        Exit;
    end;
end;
end;

procedure Tconstruct.Button4Click(Sender: TObject);
begin
 DM.StructADOQuery.Close;
 DM.StructADOQuery.SQL.Clear;
 DM.StructADOQuery.SQL.Add('select * from ConstructUnit where depname like ''%'+Edit6.Text+'%'' ') ;
 DM.StructADOQuery.Open;
 DM.DataSource3.DataSet :=DM.StructADOQuery;
 QX_DG.DataSource :=DM.DataSource3;
 QX_DG.Columns.Items[0].FieldName :='DepName';
 QX_DG.Columns.Items[1].FieldName :='ConPerson';
 label8.Caption:='共计 '+inttostr(DM.StructADOQuery.RecordCount)+' 条记录  ';

end;

end.