unitin.pas

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

unit UnitIn;

interface

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

type
  Tstockmana = class(TForm)
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBCombobox2: TDBComboBox;
    DBCombobox1: TDBComboBox;
    DBEdit4: TDBEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    Label11: TLabel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    DBEdit8: TDBEdit;
    Splitter1: TSplitter;

    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
    procedure state(sta:boolean);
  public
    { Public declarations }
  
  end;

var
  stockmana: Tstockmana;

implementation
uses unit1, Unitsale, UnitPriSch, UnitMerSch, UnitCusSch;

{$R *.dfm}

procedure Tstockmana.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 Tstockmana.ToolButton1Click(Sender: TObject);
  var
    serial:integer;
begin
  state(false);
  serial:=datamodule1.ADOQryIn.RecordCount;
  datamodule1.ADOQryIn.Append;
  datamodule1.ADOQryIn['进货信息编号']:=serial+1;
  datamodule1.ADOQryIn.Insert;
  toolbutton1.Enabled:=false;
  toolbutton2.Enabled:=false;
  toolbutton3.Enabled:=false;
  toolbutton5.Enabled:=true;
  toolbutton6.Enabled:=true;
end;

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

procedure Tstockmana.ToolButton2Click(Sender: TObject);
begin
  datamodule1.ADOQryIn.Edit;
  state(false);
  toolbutton1.Enabled:=false;
  toolbutton2.Enabled:=false;
  toolbutton3.Enabled:=false;
  toolbutton5.Enabled:=true;
  toolbutton6.Enabled:=true;
  datamodule1.ADOQryIn.Post;
  datamodule1.ADOQryIn.Refresh;
end;

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

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

procedure Tstockmana.ToolButton8Click(Sender: TObject);
begin
   stockmana.Close;
end;

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



end.