unit14.pas

仓库管理系统

unit Unit14;

interface

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

type
  TForm14 = class(TForm)
    GroupBox1: TGroupBox;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ListView1: TListView;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);
begin
  try
    with ADOQuery1 do
begin
      ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from Table7 order by kindnum');
      ADOQuery1.Open;
      ListView1.Items.Clear;
      while not Eof do
      begin
        with ListView1.Items.Add do
        begin
Caption:=FieldByName('kindnum').AsString;
    SubItems.Add(FieldByName('kindname').AsString);
        end;
   Next;
    end;  Close;
    end;
  except
    ListView1.Items.Clear;
    MessageDlg('刷新出错',mtError,[mbok],0);
  end; end;


procedure TForm14.Button2Click(Sender: TObject);
begin
if RadioButton1.Checked  then
  begin
    if Length(Edit1.Text)<> 2 then
    begin
MessageDlg('类别号不正确',mtError,[mbok],0);
   Exit;
end;
  with ADOQuery1 do
begin
      ADOQuery1.SQL.Clear;
ADOQuery1.SQl.Add('select kindnum from Table7 where kindnum=:kindnum');
Parameters.ParamByName('kindnum').Value :=Edit1.Text;
Open;


 if  RecordCount <> 0 then
begin
MessageDlg('类别号<'+Edit1.Text+'>已经存在',mtError,[mbok],0);
  Exit;
   end;
Close;
end;


try
with ADOQuery1 do
      begin
        ADOQuery1.SQL.Clear;
SQl.Add('insert  into Table7(kindnum,kindname) values(:kindnum,:kindname)');
Parameters.ParamByName('kindnum').Value :=Edit1.Text;
Parameters.ParamByName('kindname').Value :=Edit2.Text;
   ADOQuery1.ExecSQL;
  end;

except
MessageDlg('添加<'+Edit1.Text+'>失败',mtError,[mbok],0);
Exit;
 end;
  end;


if RadioButton2.Checked then
begin
try
with ADOQuery1 do
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('delete from Table7 where kindnum='''+edit1.text+'''');
ADOQuery1.ExecSQL;
end;
except
MessageDlg('删除<'+Edit1.Text+'>失败',mtError,[mbok],0);
Exit;
 end;
  end;





if RadioButton3.Checked then
begin
if Length(Edit1.Text)<> 10 then
    begin
    MessageDlg('类别号不正确',mtError,[mbok],0);
    Exit;
end;
   try
      with ADOQuery1 do
begin
   ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('update Table7 set kindname=:kindname where kindnum= :kindnum');
  Parameters.ParamByName('kindnum').Value :=Edit1.Text;
  Parameters.ParamByName('kindname').Value :=Edit2.Text;
  ADOQuery1.ExecSQL;
   end;
 except
MessageDlg('修改<'+Edit1.Text+'>失败',mtError,[mbok],0);
 Exit;
    end;
  end;
  Edit1.Text := '';
  Edit2.Text := '';

end;


procedure TForm14.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm14.ListView1Click(Sender: TObject);
var
  i : integer;
begin
 for i :=0 to ListView1.Items.Count-1 do
   
if ListView1.Items[ i ].Selected   then
 begin
  RadioButton3.Checked:=True;
  Edit1.Text:=ListView1.Items[i].Caption;
  Edit2.Text:=ListView1.Items[i].SubItems.Strings[0];
   end;
end;
procedure TForm14.RadioButton1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

end.