mc_wdcx.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_WDCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, Db, DBTables, ComCtrls, DBCtrls, Mask,
  Word97, OleServer;

type
  TWDCX = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TDateTimeField;
    Query1BDEDesigner5: TMemoField;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBMemo1: TDBMemo;
    DateTimePicker1: TDateTimePicker;
    BitBtn5: TBitBtn;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WDCX: TWDCX;

implementation

uses MC_MainForm;

{$R *.DFM}
procedure TWDCX.FormShow(Sender: TObject);    //判断操作员操作权限
begin
  if MainForm.Query1.Locate('使用选项','办公室文档查询',[loCaseInsensitive]) then
  begin
    if MainForm.Query1.FieldByname('读写').AsString='读' then
    begin
      BitBtn2.Enabled:=False;
      BitBtn3.Enabled:=False;
    end;
  end;
end;
procedure TWDCX.FormCreate(Sender: TObject);    //系统初始化
begin
  ComBoBox1.ItemIndex:=0;
  ComBoBox2.ItemIndex:=0;
  Edit1.Text:='*';
end;

procedure TWDCX.BitBtn3Click(Sender: TObject);   //删除文档操作或取消文档操作
begin
  If Query1.Active Then
  if BitBtn3.Caption='删除当前文档[&D]' then
  begin
    If Query1.RecordCount <> 0 Then
       if MessageDLG('是否删除['+Query1.FieldbyName('文档标题').AsString+']的信息?'
          ,mtCustom,[mbYes,mbNo],0)=mrYes then Query1.Delete;
  End
  Else   //取消文档操作
  begin
    GroupBox1.Visible:=True;
    GroupBox2.Visible:=True;
    GroupBox3.Visible:=False;
    BitBtn2.Caption:='编辑当前文档[&E]';
    BitBtn3.Caption:='删除当前文档[&D]';
    Query1.FieldByName('起草日期').AsDateTime:=DateTimePicker1.Date;
    Query1.Cancel;
  end;
end;

procedure TWDCX.BitBtn2Click(Sender: TObject);   //编辑或保存文档操作
begin
  If Query1.Active Then
  If Query1.RecordCount <> 0 Then
  if BitBtn2.Caption='编辑当前文档[&E]' then
  begin
    Query1.Edit;
    GroupBox1.Visible:=False;
    GroupBox2.Visible:=False;
    GroupBox3.Visible:=True;
    BitBtn2.Caption:='保存当前文档[&S]';
    BitBtn3.Caption:='放弃当前文档[&U]';
    DateTimePicker1.DateTime:=Query1.FieldByName('起草日期').AsDatetime;
    DBEdit1.SetFocus;
  End
  Else       //保存文档操作
  begin
    if Length(Query1.FieldByName('文档标题').AsString)=0 then
    begin
      ShowMessage('请输入文档标题.');
      DBEdit1.SetFocus;
    End
    Else
    begin
      GroupBox1.Visible:=True;
      GroupBox2.Visible:=True;
      GroupBox3.Visible:=False;
      BitBtn2.Caption:='编辑当前文档[&E]';
      BitBtn3.Caption:='删除当前文档[&D]';
      Query1.FieldByName('起草日期').AsDateTime:=DateTimePicker1.Date;
      Query1.Post;
    end;
  end;
end;

procedure TWDCX.BitBtn1Click(Sender: TObject);      //查询文档
begin
  if ComboBox2.text='Like' then      //查询条件为“Like”
  begin
    if Edit1.Text='*' then
    begin
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('Select * From 办公室文挡');
       Query1.Open;
    End
    Else
    begin
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('Select * From 办公室文挡');
       if combobox1.Text='文档标题' then
               Query1.SQL.Add('where 文档标题 like :B')
       Else
               Query1.SQL.Add('where 起草人 like :B');
       //Query1.SQL.Add('Where '''+ComboBox1.text+''' Like '''+Edit1.Text+'%''');
       //Query1.ParamByName('a').AsString:=ComboBox1.Text;
       Query1.ParamByName('b').AsString:=Edit1.Text+'%';
       Query1.Open;
    end;
  end;
  if ComboBox2.Text='=' then   //查询条件为“=”
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('Select * From 办公室文挡');
    if combobox1.Text='文档标题' then
            Query1.SQL.Add('Where 文档标题=:B')
    Else
            Query1.SQL.Add('Where 起草人=:B');
    Query1.ParamByName('b').AsString:=Edit1.Text;
    Query1.Open;
  end;
  if ComboBox2.Text='>' then   //查询条件为“>”
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('Select * From 办公室文挡');
    Query1.SQL.Add('Where '''+ComboBox1.Text+''' > '''+Edit1.Text+'''');
    Query1.Open;
  end;
end;


procedure TWDCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  WDCX.Release;
  WDCX:=Nil;
end;

procedure TWDCX.BitBtn4Click(Sender: TObject);
begin
  Close;
end;
end.