【delphi开源代码栏目提醒】:本文主要为网学会员提供MC_WDCX.pas,希望对需要MC_WDCX.pas网友有所帮助,学习一下!
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.
上一篇:
MC_User.pas
下一篇:
最新参考文献中的标点符号