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);
  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;

end.