bas_initsortinfo.pas

这是一个为友人所写的小程序, 实现了分段模糊查询, 网页生成等小功能!

unit Bas_InitSortInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, MemDS, DBAccess, MSAccess, Grids, DBGridEh, cxControls,
  cxContainer, cxEdit, cxTextEdit, StdCtrls, ComCtrls, RzPanel, RzButton,
  ExtCtrls, ToolWin;

type
  TBas_InitSortInfoForm = class(TForm)
    CoolBar1: TCoolBar;
    RzToolbar1: TRzToolbar;
    ToolButton1: TRzToolButton;
    ToolButton2: TRzToolButton;
    ToolButton3: TRzToolButton;
    ToolButton4: TRzToolButton;
    ToolButton6: TRzToolButton;
    ToolButton7: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzSpacer6: TRzSpacer;
    RzSpacer7: TRzSpacer;
    RzSpacer8: TRzSpacer;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TcxTextEdit;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    DataQuery: TMSQuery;
    WorkQuery: TMSQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    NewFlag: Boolean;
    EditFlag: Boolean;
  public
    { Public declarations }
  end;

var
  Bas_InitSortInfoForm: TBas_InitSortInfoForm;

implementation

{$R *.dfm}

procedure TBas_InitSortInfoForm.FormCreate(Sender: TObject);
begin
  NewFlag := False;
  EditFlag := False;
end;

procedure TBas_InitSortInfoForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree;
end;

procedure TBas_InitSortInfoForm.ToolButton1Click(Sender: TObject);
begin
  if (NewFlag) then
  begin
    Showmessage('您已经新建了一条记录，先完成保存后再进行新建！');
    Abort;
  end;
  if (EditFlag) then
  begin
    Showmessage('您正在修改一条记录，请先完成保存后再进行新建！');
    Abort;
  end;
  Edit1.Clear;
  GroupBox1.Enabled := True;
  NewFlag := True;
  Edit1.SetFocus;
end;

procedure TBas_InitSortInfoForm.ToolButton2Click(Sender: TObject);
begin
  if (NewFlag) then
  begin
    Showmessage('您已经新建了一条记录，先完成保存后再进行修改！');
    Abort;
  end;
  if (EditFlag) then
  begin
    Showmessage('您正在修改一条记录，请先完成保存后再进行修改！');
    Abort;
  end;
  Edit1.Clear;
  Edit1.Text := DataQuery.fieldbyname('SortName').AsString;
  GroupBox1.Enabled := True;
  NewFlag := False;
  EditFlag := True;
  Edit1.SetFocus;
end;

procedure TBas_InitSortInfoForm.Edit1Exit(Sender: TObject);
var
  SQL_Str : string;
begin
  if (NewFlag) and (Edit1.Text <> '') then
  begin
    SQL_Str := 'Select * From Bas_SortTable Where (SortName=' + #39 + Edit1.Text + #39 + ')';
    WorkQuery.Active := False;
    WorkQuery.SQL.Clear;
    WorkQuery.SQL.Add(SQL_Str);
    WorkQuery.Open;
    if (WorkQuery.RecordCount > 0) then
    begin
      Showmessage('该类别名称已经设置过，无需重复设置！');
      Edit1.Clear;
      Edit1.SetFocus;
    end;
  end;
end;

procedure TBas_InitSortInfoForm.ToolButton3Click(Sender: TObject);
begin
  if (DataQuery.RecordCount > 0) then
  begin
    if (Application.MessageBox('真的要删除选中的记录吗？', '系统提示', MB_YESNO + MB_ICONWARNING) = 6) then
    begin
      DataQuery.Edit;
      DataQuery.Delete;
      DataQuery.Active := False;
      DataQuery.Active := True;
    end
    else
    begin
      Abort;
    end;
  end
  else
  begin
    Showmessage('没有可以删除的记录, 请重新选择!');
  end;
end;

procedure TBas_InitSortInfoForm.ToolButton4Click(Sender: TObject);
var
  SQL_Str : string;
begin
  DBGridEh1.SetFocus;
  if (NewFlag) then
  begin
    if (Edit1.Text = '') then
    begin
      Showmessage('该项为必填项，请填入相关内容再进行保存！');
      Edit1.SetFocus;
      Abort;
    end;

    SQL_Str := 'Select TOP 1 * From Bas_SortTable';
    WorkQuery.Active := False;
    WorkQuery.SQL.Clear;
    WorkQuery.SQL.Add(SQL_Str);
    WorkQuery.Open;
    WorkQuery.Append;
    WorkQuery.fieldbyname('SortName').AsString := Edit1.Text;
    WorkQuery.Post;
    DataQuery.Active := False;
    DataQuery.Active := True;
    NewFlag := False;
    EditFlag := False;
    Showmessage('类型信息保存成功！');
    GroupBox1.Enabled := False;
  end;
  if (EditFlag) then
  begin
    if (Edit1.Text = '') then
    begin
      Showmessage('该项为必填项，请填入相关内容再进行保存！');
      Edit1.SetFocus;
      Abort;
    end;
    SQL_Str := 'Select TOP 1 * From Bas_SortTable Where (SortName=' + #39 + Edit1.Text + #39 + ')';
    WorkQuery.Active := False;
    WorkQuery.SQL.Clear;
    WorkQuery.SQL.Add(SQL_Str);
    WorkQuery.Open;
    WorkQuery.Edit;
    WorkQuery.fieldbyname('SortName').AsString := Edit1.Text;
    WorkQuery.Post;
    DataQuery.Active := False;
    DataQuery.Active := True;
    NewFlag := False;
    EditFlag := False;
    Showmessage('修改的类型信息已经保存成功！');
    GroupBox1.Enabled := False;
  end;
end;

procedure TBas_InitSortInfoForm.ToolButton6Click(Sender: TObject);
begin
  NewFlag := False;
  EditFlag := False;
  GroupBox1.Enabled := False;
  Edit1.Clear;
end;

procedure TBas_InitSortInfoForm.ToolButton7Click(Sender: TObject);
begin
  Close;
end;

end.