colorsetup.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit ColorSetup;

interface

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

type
  TFrmColorSetup = class(TForm)
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    AddBtn: TBitBtn;
    DelBtn: TBitBtn;
    SaveBtn: TBitBtn;
    CancelBtn: TBitBtn;
    ExtBtn: TBitBtn;
    ADOQuery1id: TIntegerField;
    ADOQuery1color: TStringField;
    procedure ExtBtnClick(Sender: TObject);
    procedure AddBtnClick(Sender: TObject);
    procedure DelBtnClick(Sender: TObject);
    procedure SaveBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmColorSetup: TFrmColorSetup;

implementation
uses sharevar,sharefun,data;

{$R *.dfm}

procedure TFrmColorSetup.ExtBtnClick(Sender: TObject);
begin
  close;
end;

procedure TFrmColorSetup.AddBtnClick(Sender: TObject);
begin
  ADOQuery1.Append;
  DBGrid1.SetFocus;
end;

procedure TFrmColorSetup.DelBtnClick(Sender: TObject);
begin
    if MsgQst(handle,'确定删除当前记录码?') =IDNO then  exit;
    try
        ADOQuery1.Delete;
    except
        abort;
    end;
end;

procedure TFrmColorSetup.SaveBtnClick(Sender: TObject);
begin
     ADOQuery1.Post;
end;

procedure TFrmColorSetup.CancelBtnClick(Sender: TObject);
begin
     ADOQuery1.cancel;
end;

procedure TFrmColorSetup.DataSource1StateChange(Sender: TObject);
begin
  if (Sender as TDataSource).DataSet.State in [dsedit,dsinsert] then
  Begin
        AddBtn.Enabled :=False;
        DelBtn.Enabled :=False;
        CancelBtn.Enabled :=True;
        SaveBtn.Enabled :=True;
        ExtBtn.Enabled :=False;
  end;

  if (Sender as TDataSource).DataSet.State in [dsBrowse] then
  Begin
        AddBtn.Enabled :=True;
        DelBtn.Enabled :=True;
        CancelBtn.Enabled :=False;
        SaveBtn.Enabled :=False;
        ExtBtn.Enabled :=True;
  end;
end;

procedure TFrmColorSetup.ADOQuery1AfterInsert(DataSet: TDataSet);
var maxid:integer;
begin
   getmaxid(datamod.ADOCon,'color','id',maxid);
   Dataset.FieldValues['id']:=maxid;
   Dataset.FieldValues['color']:='';
end;

procedure TFrmColorSetup.ADOQuery1BeforePost(DataSet: TDataSet);
begin
      if not (Dataset.State in[dsedit,dsinsert]) then exit;
      if Dataset.FieldValues['color']='' then
      begin
                MsgErr(handle,'颜色名称不能为空!'); abort; exit;
      end;
      Dataset.FieldValues['color']:=trim(Dataset.FieldValues['color']);

      if Dataset.State in[dsedit] then
      if FindOtherRecord(datamod.ADOCon,'color','color',Dataset.FieldValues['id'],'color',Dataset.FieldValues['color']) then
      begin
                MsgErr(handle,'颜色名称:['+trim(Dataset.FieldValues['color'])+']已存在,不能重名!');
                abort;exit;
      end;

      if Dataset.State in [dsinsert] then
      if FindValue(datamod.ADOCon,'color','color',Dataset.FieldValues['color']) then
      begin
                MsgErr(handle,'颜色名称:['+trim(Dataset.FieldValues['color'])+']已存在,不能重名!');
                abort;exit;
      end;
end;

procedure TFrmColorSetup.FormShow(Sender: TObject);
begin
  if not adoquery1.Active then adoquery1.Open; 
end;

procedure TFrmColorSetup.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=Cafree;
end;

end.