ugysxg.pas

我的毕业设计

unit Ugysxg;

interface

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

type
  Tfrmgysxg = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    sbtxiugai: TSpeedButton;
    sbtdel: TSpeedButton;
    sbtexit: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edtgyh: TEdit;
    edtgym: TEdit;
    edttele: TEdit;
    edtadr: TEdit;
    Table1: TTable;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure sbtxiugaiClick(Sender: TObject);
    procedure sbtdelClick(Sender: TObject);
    procedure sbtexitClick(Sender: TObject);
    procedure edtgyhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtgymKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtteleKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtadrKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgysxg: Tfrmgysxg;

implementation

uses ugysxiugai;

{$R *.dfm}

procedure Tfrmgysxg.DBGrid1CellClick(Column: TColumn);
var
 h:string;
 begin
 h:=dbgrid1.Fields[0].AsString;
 query1.Close;
query1.SQL.Clear;
 query1.SQL.Add('select * from gysb where 供应商号='+#39+h+#39+ '');
query1.Open;
edtgyh.Text:=table1.Fieldbyname('供应商号').asstring;
edtgym.Text:=table1.Fieldbyname('供应商名').AsString;
edttele.Text:=table1.Fieldbyname('联系电话').AsString;
edtadr.Text:=table1.Fieldbyname('地址').AsString;
query1.Close;
end;

procedure Tfrmgysxg.sbtxiugaiClick(Sender: TObject);
var
gyh:string;
begin
gyh:=dbgrid1.Fields[0].AsString;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from gysb where 供应商号='+#39+gyh+#39+ '');
query1.Open;
frmgysxiugai.edtgyh.Text:=query1.Fieldbyname('供应商号').asstring;
frmgysxiugai.edtgym.Text:=query1.Fieldbyname('供应商名').AsString;
frmgysxiugai.edttele.Text:=query1.Fieldbyname('联系电话').AsString;
frmgysxiugai.edtadr.Text:=query1.Fieldbyname('地址').AsString;
query1.Close;
frmgysxiugai.showmodal;
end;


procedure Tfrmgysxg.sbtdelClick(Sender: TObject);
begin
query1.Open;
if application.messagebox(Pchar('确实要删除供应商号为  '+table1.fieldbyname('供应商号').asstring+#13
         +'供应商名:'+table1.fieldbyname('供应商名').asstring+#13+'的信息吗？'), '系统提示',mb_okcancel+mb_iconexclamation)=idok then
table1.Delete;
end;

procedure Tfrmgysxg.sbtexitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmgysxg.edtgyhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edtgym.SetFocus; edtgym.SelectAll;
     if key=39 then
  begin
    edttele.SetFocus;
    edttele.SelectAll;
    abort;
  end;
     if key=40 then
  begin
    edtgym.SetFocus;
    edtgym.SelectAll;
    abort;
  end;
end;

procedure Tfrmgysxg.edtgymKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edttele.SetFocus; edttele.SelectAll;
     if key=39 then
  begin
    edtadr.SetFocus;
    edtadr.SelectAll;
    abort;
  end;
     if key=38then
  begin
    edtgyh.SetFocus;
    edtgyh.SelectAll;
    abort;
  end;
end;

procedure Tfrmgysxg.edtteleKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edtadr.SetFocus; edtadr.SelectAll;
     if key=40 then
  begin
    edtadr.SetFocus;
    edtadr.SelectAll;
    abort;
  end;
     if key=37 then
  begin
    edtgyh.SetFocus;
    edtgyh.SelectAll;
    abort;
  end;
end;

procedure Tfrmgysxg.edtadrKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=38then
  begin
    edttele.SetFocus;
    edttele.SelectAll;
    abort;
  end;
     if key=37 then
  begin
    edtgym.SetFocus;
    edtgym.SelectAll;
    abort;
  end;
end;

end.