supplyunit.~pas

贸易管理系统Delphi源代码（有开发文档） 采用access+delphi设计 软件实现功能：供应商信息的输入

unit supplyunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Mask, ExtCtrls, ImgList,
  ComCtrls, ToolWin;

type
  TsupplyFrm = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ImageList1: TImageList;
    Splitter1: TSplitter;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Memo1: TMemo;
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  supplyFrm: TsupplyFrm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure TsupplyFrm.ToolButton8Click(Sender: TObject);
begin
supplyfrm.Close;
end;

procedure TsupplyFrm.ToolButton1Click(Sender: TObject);
begin
  if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='') then
      showmessage('Data is not enough!')
  else
     begin
    with datamodule2.ADSsupplyms do
     begin
         insert;
         FieldByName('供应商编号').AsString:=edit1.Text;
         FieldByName('联系人姓名').AsString:=edit2.Text;
         FieldByName('电话号码').AsString:=edit3.Text;
         FieldByName('邮政编码').AsString:=edit4.Text;
         FieldByName('传真号码').AsString:=edit5.Text;
         FieldByName('公司名称').AsString:=edit6.Text;
         FieldByName('公司地址').AsString:=edit7.Text;
         FieldByName('公司主页').AsString:=edit8.Text;
         FieldByName('所在城市').AsString:=edit9.Text;
         FieldByName('所在地区').AsString:=edit10.Text;
         FieldByName('备注信息').AsString:=memo1.Lines.Text;
         post;
         refresh;
     end
    end;

end;

procedure TsupplyFrm.ToolButton2Click(Sender: TObject);
begin
 if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='') then
      showmessage('Data is not enough!')
  else
     begin
    with datamodule2.ADSsupplyms do
     begin
         edit;
         FieldByName('供应商编号').AsString:=edit1.Text;
         FieldByName('联系人姓名').AsString:=edit2.Text;
         FieldByName('电话号码').AsString:=edit3.Text;
         FieldByName('邮政编码').AsString:=edit4.Text;
         FieldByName('传真号码').AsString:=edit5.Text;
         FieldByName('公司名称').AsString:=edit6.Text;
         FieldByName('公司地址').AsString:=edit7.Text;
         FieldByName('公司主页').AsString:=edit8.Text;
         FieldByName('所在城市').AsString:=edit9.Text;
         FieldByName('所在地区').AsString:=edit10.Text;
         FieldByName('备注信息').AsString:=memo1.Lines.Text;
         post;
         refresh;
     end
    end;
    showmessage('修改成功！');
end;

procedure TsupplyFrm.ToolButton3Click(Sender: TObject);
begin
 datamodule2.ADSsupplyms.Delete;
end;

procedure TsupplyFrm.ToolButton5Click(Sender: TObject);
begin
datamodule2.ADSsupplyms.Edit;
datamodule2.ADSsupplyms.Post;
datamodule2.ADSsupplyms.Refresh;
end;

procedure TsupplyFrm.DBGrid1CellClick(Column: TColumn);
begin
 with datamodule2.ADSsupplyms do
     begin
         edit1.Text:=FieldByName('供应商编号').AsString;
         edit2.Text:=FieldByName('联系人姓名').AsString;
         edit3.Text:=FieldByName('电话号码').AsString;
         edit4.Text:=FieldByName('邮政编码').AsString;
         edit5.Text:=FieldByName('传真号码').AsString;
         edit6.Text:=FieldByName('公司名称').AsString;
         edit7.Text:=FieldByName('公司地址').AsString;
         edit8.Text:=FieldByName('公司主页').AsString;
         edit9.Text:=FieldByName('所在城市').AsString;
         edit10.Text:=FieldByName('所在地区').AsString;
         memo1.Lines.Text:=FieldByName('备注信息').AsString;
     end
end;

end.