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);    //判斷操作員操作權(quán)限
begin
  if MainForm.Query1.Locate('使用選項(xiàng)','辦公室文檔查詢',[loCaseInsensitive]) then
  begin
    if MainForm.Query1.FieldByname('讀寫').AsString='讀' then
    begin
      BitBtn2.Enabled:=False;
      BitBtn3.Enabled:=False;
    end;
  end;
end;
procedure TWDCX.FormCreate(Sender: TObject);    //系統(tǒng)初始化
begin
  ComBoBox1.ItemIndex:=0;
  ComBoBox2.ItemIndex:=0;
  Edit1.Text:='*';
end;

procedure TWDCX.BitBtn3Click(Sender: TObject);   //刪除文檔操作或取消文檔操作
begin
  If Query1.Active Then
  if BitBtn3.Caption='刪除當(dāng)前文檔[&D]' then
  begin
    If Query1.RecordCount <> 0 Then
       if MessageDLG('是否刪除['+Query1.FieldbyName('文檔標(biāo)題').AsString+']的信息?'
          ,mtCustom,[mbYes,mbNo],0)=mrYes then Query1.Delete;
  End
  Else   //取消文檔操作
  begin
    GroupBox1.Visible:=True;
    GroupBox2.Visible:=True;
    GroupBox3.Visible:=False;
    BitBtn2.Caption:='編輯當(dāng)前文檔[&E]';
    BitBtn3.Caption:='刪除當(dāng)前文檔[&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='編輯當(dāng)前文檔[&E]' then
  begin
    Query1.Edit;
    GroupBox1.Visible:=False;
    GroupBox2.Visible:=False;
    GroupBox3.Visible:=True;
    BitBtn2.Caption:='保存當(dāng)前文檔[&S]';
    BitBtn3.Caption:='放棄當(dāng)前文檔[&U]';
    DateTimePicker1.DateTime:=Query1.FieldByName('起草日期').AsDatetime;
    DBEdit1.SetFocus;
  End
  Else       //保存文檔操作
  begin
    if Length(Query1.FieldByName('文檔標(biāo)題').AsString)=0 then
    begin
      ShowMessage('請輸入文檔標(biāo)題.');
      DBEdit1.SetFocus;
    End
    Else
    begin
      GroupBox1.Visible:=True;
      GroupBox2.Visible:=True;
      GroupBox3.Visible:=False;
      BitBtn2.Caption:='編輯當(dāng)前文檔[&E]';
      BitBtn3.Caption:='刪除當(dāng)前文檔[&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='文檔標(biāo)題' then
               Query1.SQL.Add('where 文檔標(biāo)題 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='文檔標(biāo)題' then
            Query1.SQL.Add('Where 文檔標(biāo)題=: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.