umain.~pas

青年文明号管理系统

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMenu, ImgList, ExtCtrls, ComCtrls, ToolWin,ComObj,
  StdCtrls, Buttons, OleCtnrs, dxCntner, dxEditor, dxExEdtr, dxEdLib,
  dxDBELib, dxTL, dxDBCtrl, dxDBGrid, DBCtrls, dxDBTLCl, dxGrClms,
  mxOutlookBarPro, jpeg;
procedure ShowWord(oname:string;vt:string);
type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    XPMenu1: TXPMenu;
    sdfsdf1: TMenuItem;
    N100: TMenuItem;
    N101: TMenuItem;
    ImageList1: TImageList;
    N1: TMenuItem;
    w3: TMenuItem;
    w2: TMenuItem;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    N8: TMenuItem;
    N301: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    w5: TMenuItem;
    w6: TMenuItem;
    w7: TMenuItem;
    w8: TMenuItem;
    w10: TMenuItem;
    P2: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    N302: TMenuItem;
    OB: TmxOutlookBarPro;
    Image1: TImage;
    Panel3: TPanel;
    w1: TMenuItem;
    w9: TMenuItem;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1dwbh: TdxDBGridColumn;
    dxDBGrid1dwmc: TdxDBGridColumn;
    dxDBGrid1jb: TdxDBGridColumn;
    dxDBGrid1zrs: TdxDBGridMaskColumn;
    dxDBGrid1fzrxm: TdxDBGridColumn;
    dxDBGrid1pjnl: TdxDBGridMaskColumn;
    dxDBGrid1lxfs: TdxDBGridColumn;
    dxDBGrid1fzrnl: TdxDBGridMaskColumn;
    dxDBGrid1txdz: TdxDBGridColumn;
    N102: TMenuItem;
    N22: TMenuItem;
    w4: TMenuItem;
    N3: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure ToolButton5Click(Sender: TObject);
    procedure N100Click(Sender: TObject);
    procedure N101Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure mxOutlookBarPro1Headers0Buttons0Click(Sender: TObject);
    procedure mxOutlookBarPro1Headers0Buttons7Click(Sender: TObject);
    procedure mxOutlookBarPro1Headers1Buttons0Click(Sender: TObject);
    procedure w3Click(Sender: TObject);
    procedure w2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure w5Click(Sender: TObject);
    procedure N102Click(Sender: TObject);
    procedure N302Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure w1Click(Sender: TObject);
    procedure w6Click(Sender: TObject);
    procedure w7Click(Sender: TObject);
    procedure w8Click(Sender: TObject);
    procedure w9Click(Sender: TObject);
    procedure w10Click(Sender: TObject);
    procedure w4Click(Sender: TObject);
    procedure OBHeaders2Buttons1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N301Click(Sender: TObject);
    procedure OBHeaders2Buttons0Click(Sender: TObject);
    procedure OBHeaders0Buttons4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses Uword, Usbb, Uvsbb, Udm, u_vardef,  Ujtqk,
  U_jobProcessJM, Uxzqh, Uexp, Uimp, Uabout, Ucx;

{$R *.dfm}
procedure ShowWord(oname:string;vt:string);
begin
if dm.v_sbb.Active=false then  begin
   
   showmsg('请打开[申报单位]');
   exit;
end;
jobprocessjm.ShowMe();
jobprocessjm.SetHint('正在处理数据');
olename:=oname;//领导小组
vtitle:=vt;//标题
  try
  word:=tword.Create(word);
  word.ShowModal;
  finally
  word.Free;
  word:=nil;
  end;
jobprocessjm.HideMe;
end;

procedure Tmain.ToolButton5Click(Sender: TObject);
//var MSWord: Variant;
begin
application.Terminate;
{
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:\xfh\1.doc', ReadOnly:=false);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
 }
end;

procedure Tmain.N100Click(Sender: TObject);
begin
if dm.v_sbb.Active=false then  begin
   
   showmsg('请打开[申报单位]');
   exit;
end;
if dm.v_sbb.RecordCount=0 then exit;
dm.t_sbb.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
dm.t_sbb.Close;
dm.t_sbb.Open;
showrep('sbb.frf',dm.t_sbb)
//word.showmodal;
end;

procedure Tmain.N101Click(Sender: TObject);
begin
if dm.v_sbb.Active=false then  begin
   
   showmsg('请打开[申报单位]');
   exit;
end;
if (dm.v_sbb.RecordCount=0) or (not dm.v_sbb.active) then exit;
try
    jtqk:=tjtqk.Create(jtqk);
    jtqk.showmodal;
finally
    jtqk.Free;
    jtqk:=nil;
end;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
n1.Enabled:=true;
//p2.Align:=alclient;
p2.Visible:=true;
dm.tmp.close;
dm.tmp.SQL.Text:='select bz from lk where bh=''1''';
dm.tmp.open;
if dm.tmp['bz']='1' then exit;//如果为1则过期
dm.v_sbb.Open;

end;

procedure Tmain.BitBtn3Click(Sender: TObject);
begin
p2.Visible:=false;
n1.Enabled:=false;
dm.v_sbb.Close;
end;

procedure Tmain.BitBtn1Click(Sender: TObject);
begin
visadd:=1;
try
    sbb:=tsbb.Create(sbb);
    sbb.showmodal;

finally
    sbb.Free;
    sbb:=nil;
end;
end;

procedure Tmain.BitBtn4Click(Sender: TObject);
begin
if dm.v_sbb.RecordCount=0 then exit;
dm.t_sbb.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
dm.t_sbb.Close;
dm.t_sbb.Open;
showrep('sbb.frf',dm.t_sbb)
end;

procedure Tmain.dxDBGrid1DblClick(Sender: TObject);
begin
visadd:=0;
try
    sbb:=tsbb.Create(sbb);
    sbb.showmodal;

finally
    sbb.Free;
    sbb:=nil;
end;
end;

procedure Tmain.mxOutlookBarPro1Headers0Buttons0Click(Sender: TObject);
begin
//ShowWord('mbcs');
end;

procedure Tmain.mxOutlookBarPro1Headers0Buttons7Click(Sender: TObject);
begin
//n17.Click;
end;

procedure Tmain.mxOutlookBarPro1Headers1Buttons0Click(Sender: TObject);
begin
{olename:='ldxz';//领导小组
try
word:=tword.Create(word);
word.ShowModal;
finally
word.Free;
word:=nil;
end;
end;}
//showmsg(OB.Headers[1].Buttons[0].name);

end;
procedure Tmain.w3Click(Sender: TObject);
begin
{application.ProcessMessages;
Panel4.Visible:=true;
application.ProcessMessages;}

ShowWord('mbcs','目标措施');

end;

procedure Tmain.w2Click(Sender: TObject);
begin
ShowWord('gkcn','公开承诺');
end;

procedure Tmain.N4Click(Sender: TObject);
begin
//ShowWord('cknr','参考内容');

try
    imp:=timp.Create(imp);
    imp.showmodal;

finally
    imp.Free;
    imp:=nil;
end;
end;

procedure Tmain.w5Click(Sender: TObject);
begin
ShowWord('sjcl','事迹材料');
end;

procedure Tmain.N102Click(Sender: TObject);
begin
if dm.v_sbb.Active=false then  begin
   showmsg('请打开[申报单位]');
   exit;
end;
if (dm.v_sbb.RecordCount=0) or (not dm.v_sbb.active) then exit;
dm.v_jtqk.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
showrep('jtqk.frf',dm.v_jtqk);
end;

procedure Tmain.N302Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tmain.BitBtn2Click(Sender: TObject);
var
vdwbh,s:string;
begin
if dm.v_sbb.RecordCount=0 then exit;
vdwbh:=dm.v_sbb.fieldbyname('dwbh').asstring;

  s:=dm.v_sbb.Fields[1].AsString;
  if (Application.MessageBox(Pchar('确定删除？'+s),'提示',MB_YESNO+MB_ICONQUESTION))=ID_Yes then
    begin
      dm.v_sbb.Edit;
      dm.v_sbb.Delete;
      dm.tmp.SQL.Text:='delete from t_jtqk where dwbh='''+vdwbh+'''';
      dm.tmp.ExecSQL;
      dm.tmp.Close;
    end;

end;

procedure Tmain.w1Click(Sender: TObject);
begin
ShowWord('ldxz','领导小组');
end;

procedure Tmain.w6Click(Sender: TObject);
begin
ShowWord('ssfa','实施方案');
end;

procedure Tmain.w7Click(Sender: TObject);
begin
ShowWord('tsgz','特色工作');
end;

procedure Tmain.w8Click(Sender: TObject);
begin
ShowWord('khxz','考核细则');
end;

procedure Tmain.w9Click(Sender: TObject);
begin
ShowWord('cjjy','创建经验');
end;

procedure Tmain.w10Click(Sender: TObject);
begin
ShowWord('hdtp','活动图片');
end;

procedure Tmain.w4Click(Sender: TObject);
begin
ShowWord('ckmr','参考内容');
end;

procedure Tmain.OBHeaders2Buttons1Click(Sender: TObject);
begin
try
    xzqh:=txzqh.Create(xzqh);
    xzqh.showmodal;

finally
    xzqh.Free;
    xzqh:=nil;
end;
end;

procedure Tmain.FormShow(Sender: TObject);
begin
dm.tmp.SQL.Text:='update lk set rq2='''+formatdatetime('yyyymm',now)+'''';
dm.tmp.ExecSQL;
dm.tmp.Close;
dm.tmp.SQL.Clear;
dm.tmp.SQL.Text:='update lk set bz=''1'' where rq2>rq1 and bz=''0''';
dm.tmp.ExecSQL;
end;

procedure Tmain.N2Click(Sender: TObject);
begin
try
    exp1:=texp1.Create(exp1);
    exp1.showmodal;

finally
    exp1.Free;
    exp1:=nil;
end;

end;

procedure Tmain.N301Click(Sender: TObject);
begin
try
    about:=tabout.Create(about);
    about.showmodal;

finally
    about.Free;
    about:=nil;
end;
end;

procedure Tmain.OBHeaders2Buttons0Click(Sender: TObject);
begin
try
    cx:=tcx.Create(cx);
    cx.showmodal;

finally
    cx.Free;
    cx:=nil;
end;
end;

procedure Tmain.OBHeaders0Buttons4Click(Sender: TObject);
begin
if dm.v_sbb.Active=false then  begin
   showmsg('请打开[申报单位]');
   exit;
end;
if (dm.v_sbb.RecordCount=0) or (not dm.v_sbb.active) then exit;
dm.v_jtqk.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
showrep('jtmc.frf',dm.v_jtqk);
end;

end.