sysflag.pas

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

unit SysFlag;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, ADODB, ComCtrls;

type
  TForm_SysFlag = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    saveBtn: TBitBtn;
    CancelBtn: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure saveBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_SysFlag: TForm_SysFlag;

implementation
uses data;

{$R *.dfm}

procedure TForm_SysFlag.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ADOQuery1.Close;
  action:=cafree;
end;

procedure TForm_SysFlag.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
end;

procedure TForm_SysFlag.saveBtnClick(Sender: TObject);
begin
  if not (adoquery1.State in [dsinsert, dsedit]) then exit;
  if MessageBox(handle,'确定保存当前参数设置吗？','提示',mb_yesno or mb_iconquestion)=idno then exit;
  if dbedit1.Text ='' then
  begin MessageBox(handle,'单位名称不能为空！','提示',mb_ok or mb_iconquestion); DBEdit1.SetFocus; exit; end;
  if dbedit2.Text ='' then
  begin MessageBox(handle,'单位标识不能为空！','提示',mb_ok or mb_iconquestion); DBEdit2.SetFocus; exit; end;
  adoquery1.Post;
  close;
end;

procedure TForm_SysFlag.CancelBtnClick(Sender: TObject);
begin
  adoquery1.Cancel;
  close;
end;

procedure TForm_SysFlag.FormDblClick(Sender: TObject);
begin
  DBEdit1.ReadOnly:=false;
  DBEdit2.ReadOnly:=false;
  DBEdit1.Color:= clWindow;
  dbedit2.Color:=clwindow;
  if ADOQuery1.RecordCount=0 then ADOQuery1.Append
  else adoquery1.Edit;
  DBEdit1.SetFocus;
end;

procedure TForm_SysFlag.FormShow(Sender: TObject);
begin
  saveBtn.SetFocus;
end;

end.