unit3.pas

进行图纸的资料归档及管理

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, DBGridEh, DBCtrls, DBNavPlus, Db, Buttons;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    Panel3: TPanel;
    Splitter1: TSplitter;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBNavPlus1: TDBNavPlus;
    Panel5: TPanel;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses data;

{$R *.DFM}

procedure TForm3.FormCreate(Sender: TObject);
begin
maindata.tzquery.close;
maindata.tzquery.sql.clear;
maindata.tzquery.sql.add('select distinct 图纸名称 from 图纸');
maindata.tzquery.open;
ComboBox1.items.clear;
with maindata.tzquery do
  begin
     while not eof do
     begin
     ComboBox1.items.add(fieldbyname('图纸名称').asstring);
     next;
     end;
  end;
maindata.tzquery.close;
end;


procedure TForm3.ListBox1Click(Sender: TObject);
var s:string;
begin
s:=listbox1.items[listbox1.itemindex];
maindata.tzquery.close;
maindata.tzquery.sql.clear;
maindata.tzquery.sql.add('select * from 图纸 where 图号=:p_name');
maindata.tzquery.parameters.parambyname('p_name').value:=s;
maindata.tzquery.open;
datasource1.dataset:=maindata.tzquery;
end;

procedure TForm3.ComboBox1Change(Sender: TObject);
begin
datasource1.dataset:=nil;
maindata.tzquery.close;
maindata.tzquery.sql.clear;
maindata.tzquery.sql.add('select distinct 图号 from 图纸 where 图纸名称=:p_name');
maindata.tzquery.parameters.parambyname('p_name').value:=combobox1.text;
maindata.tzquery.open;
listbox1.items.clear;
with maindata.tzquery do
  begin
     while not eof do
     begin
     listbox1.items.add(fieldbyname('图号').asstring);
     next;
     end;
  end;


end;

procedure TForm3.RadioButton1Click(Sender: TObject);
var s:string;
begin
s:=listbox1.items[listbox1.itemindex];
RadioButton1.checked:=true;
maindata.tzquery.close;
maindata.tzquery.sql.clear;
maindata.tzquery.sql.add('select * from 图纸 where 图号=:p_name');
maindata.tzquery.parameters.parambyname('p_name').value:=s;
maindata.tzquery.open;
datasource1.dataset:=maindata.tzquery;
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
var s:string;
begin
s:=listbox1.items[listbox1.itemindex];
maindata.tzquery.close;
maindata.tzquery.sql.clear;
maindata.tzquery.sql.add('select * from 借阅 where 图号=:p_name');
maindata.tzquery.parameters.parambyname('p_name').value:=s;
maindata.tzquery.open;
datasource1.dataset:=maindata.tzquery;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if length(EDIT1.TEXT)=0 then
   begin
   MessageDlg('请输入对应内容，不能为空！', mtWarning,[mbYes], 0 );
   abort;
   end;
maindata.tzquery.close;
maindata.tzquery.sql.clear;
maindata.tzquery.sql.add('select * from 借阅 where 图号 like :p_name');
maindata.tzquery.parameters.parambyname('p_name').value:='%'+edit1.text+'%';
maindata.tzquery.open;
listbox1.items.clear;
with maindata.tzquery do
  begin
     while not eof do
     begin
     listbox1.items.add(fieldbyname('图号').asstring);
     next;
     end;
  end;
end;

end.