unit7.pas

此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcwxgl 说明：汽车维修管理 SQL服务器名:yangfeng 默认数据库名:qcwxgl

unit Unit7;

interface

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

type
  Tljkcgl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Bevel2: TBevel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Label9: TLabel;
    Edit8: TEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Bevel3: TBevel;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    SpeedButton1: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ljkcgl: Tljkcgl;

implementation

{$R *.dfm}

procedure Tljkcgl.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;

procedure Tljkcgl.BitBtn1Click(Sender: TObject);
begin
 Table1.Active:=false;
 Table1.Active:=true;
 Table1.Filtered:=false;
 if Table1.Locate('零件号',edit1.Text,[locaseinsensitive])  then
  begin
  with Table1 do
  begin
  open;
  if fieldbyname('零件号').AsString=edit1.Text  then
    begin
    edit;
    fieldvalues['价格']:=Trim(edit3.Text);
    fieldvalues['库存量']:=strToint(Trim(edit5.Text))+fieldvalues['库存量'];
    fieldvalues['成本']:=Trim(edit6.Text);
    fieldvalues['订货量']:=Trim(edit5.Text);
    post;
    Table1.Filtered:=false;
    Table1.Filter:='零件号'+'='+''''+edit1.Text+'''';
    Table1.Filtered:=true;
    messagebeep(0);
    showmessage('成功入库!');
    end;
  end;
  end
 else
  begin
  Table1.Active:=false;
  Table1.Active:=true;
  Table1.AppendRecord([Edit1.Text,Edit2.Text,edit6.Text,edit3.text,Edit5.text,
  Edit4.text,Edit5.text]);
  Table1.Filtered:=false;
  Table1.Filter:='零件号'+'='+''''+edit1.Text+'''';
  Table1.Filtered:=true;
  messagebeep(0);
  showmessage('成功入库');
  end;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;

procedure Tljkcgl.BitBtn6Click(Sender: TObject);
begin
edit8.Clear;
end;

procedure Tljkcgl.BitBtn5Click(Sender: TObject);
begin
 Table1.Active:=false;
 Table1.Active:=true;
if edit8.Text='' then
begin
edit8.SetFocus;
messagebeep(0);
showmessage('请输入查询值');
exit;
end;
Table1.Filtered:=false;
if Table1.Locate(ComboBox1.Text,edit8.Text,[locaseinsensitive]) then
   begin
   Table1.Filter:=ComboBox1.Text+'='+''''+edit8.Text+'''';
   Table1.Filtered:=true;
   showmessage('查找成功');
   edit8.SetFocus;
   exit;
   end
  else
   begin
   messagebeep(0);
   showmessage('没有此记录');
   edit8.SetFocus;
   exit;
   end;
end;

procedure Tljkcgl.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
BitBtn5.Click;
end;

procedure Tljkcgl.SpeedButton1Click(Sender: TObject);
begin
 Table1.Active:=false;
 Table1.Active:=true;
 Table1.Filtered:=false;
end;

procedure Tljkcgl.FormCreate(Sender: TObject);
begin
Table1.Active:=false;
Table1.Active:=true;
end;

end.