unitsale.pas

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

unit Unitsale;

interface

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

type
  Tsalemana = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBCombobox1: TDBComboBox;
    DBEdit4: TDBEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBCombobox2: TDBComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit8: TDBEdit;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
   // procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
     procedure state(sta:boolean);
  public
    { Public declarations }
  end;

var
  salemana: Tsalemana;

implementation
  uses unit1, UnitMerSch;
{$R *.dfm}

procedure Tsalemana.state(sta: boolean);
begin
  if  sta then
    begin
      toolbutton5.Enabled:=false;
      toolbutton6.Enabled:=false;
      dbcombobox1.Items.Add(dbcombobox1.Text);
      dbcombobox1.ReadOnly:=true;
      dbcombobox2.ReadOnly:=true;
      dbedit4.ReadOnly:=true;
      dbedit5.ReadOnly:=true;
      dbedit6.ReadOnly:=true;
      dbedit7.ReadOnly:=true;
      dbedit8.ReadOnly:=true;
      dbedit1.ReadOnly:=true;
      dbedit2.ReadOnly:=true;
      dbedit3.ReadOnly:=true;
      dbmemo1.ReadOnly:=true;
    end
  else
   begin
    dbcombobox1.ReadOnly:=false;
    dbcombobox2.ReadOnly:=false;
    dbedit4.ReadOnly:=false;
    dbedit5.ReadOnly:=false;
    dbedit6.ReadOnly:=false;
    dbedit7.ReadOnly:=false;
    dbedit8.ReadOnly:=false;
    dbedit1.ReadOnly:=false;
    dbedit2.ReadOnly:=false;
    dbedit3.ReadOnly:=false;
    dbmemo1.ReadOnly:=false;
    toolbutton5.Enabled:=true;
    toolbutton6.Enabled:=true;
  end;
end;

procedure Tsalemana.ToolButton1Click(Sender: TObject);
  var
    serial:integer;
begin
  state(false);
  serial:=datamodule1.ADOQrySale.RecordCount;
  datamodule1.ADOQrySale.Append;
  datamodule1.ADOQrySale['销售信息编号']:=serial+1;
  datamodule1.ADOQrySale.Insert;
  toolbutton1.Enabled:=false;
  toolbutton2.Enabled:=false;
  toolbutton3.Enabled:=false;
  toolbutton5.Enabled:=true;
  toolbutton6.Enabled:=true;

end;

procedure Tsalemana.FormCreate(Sender: TObject);
var sta:boolean;
begin
   sta:=true;
   state(sta);

end;

procedure Tsalemana.ToolButton2Click(Sender: TObject);
begin
  datamodule1.ADOQrySale.Edit;
  state(false);
  toolbutton1.Enabled:=false;
  toolbutton2.Enabled:=false;
  toolbutton3.Enabled:=false;
  toolbutton5.Enabled:=true;
  toolbutton6.Enabled:=true;
end;

procedure Tsalemana.ToolButton3Click(Sender: TObject);

begin
  toolbutton1.Enabled:=true;
  toolbutton2.Enabled:=true;
  toolbutton3.Enabled:=true;
  toolbutton5.Enabled:=false;
  toolbutton6.Enabled:=false;
  if MessageDlg('Do you realy want to delete the record?', mtInformation,
      [mbOk,mbCancel], 0)=mrok then
     begin
       datamodule1.ADOQrySale.Delete;
       datamodule1.ADOQrySale.Post;
     end
  else
    state(true);
    

 
end;

procedure Tsalemana.ToolButton5Click(Sender: TObject);
begin
  datamodule1.ADOQrySale.Post;
  toolbutton1.Enabled:=true;
  toolbutton2.Enabled:=true;
  toolbutton3.Enabled:=true;
  toolbutton5.Enabled:=false;
  toolbutton6.Enabled:=false;
end;

procedure Tsalemana.ToolButton6Click(Sender: TObject);
begin
  datamodule1.ADOQrySale.Cancel;
  state(true);
  toolbutton1.Enabled:=true;
  toolbutton2.Enabled:=true;
  toolbutton3.Enabled:=true;
  toolbutton5.Enabled:=false;
  toolbutton6.Enabled:=false;
end;

procedure Tsalemana.ToolButton8Click(Sender: TObject);
begin
   salemana.Close;
end;



end.