mainunit.pas

一个票据管理系统

       dmdata.ADOTable_T_user.Post;
  close;
 end
 else
 begin
 //loginok:=false;
 showmessage('请确认登录的用户名和密码是否正确！');
 MQPathFile;
 exit;
 end;
 end;
 end;
  decodedate(jqform.datetimepicker1.Date,yy,mm,dd);
 with dmdata.qsjzADOQuery do
 begin
   close;
   sql.Clear;
   sql.Add('select * from g_period where ((iyear = :a) and (id = :b) and (iacc_id =:c))');
   parameters.ParamByName('a').Value :=yy;
   parameters.ParamByName('b').Value :=mm;
   parameters.ParamByName('c').Value :=ID_int;
   open;
 end;
 path:=trim(ExtractFileDir(Application.ExeName)+'\Zt'+cacc+'\'+inttostr(strtoint(stryear)-1)+'\pjdb.mdb');
 //Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\FPGLXT\Zt001\2007\Pjdb.mdb;Persist Security Info=False
 dmdata.qqjjADOQuery.Active :=false;
 dmdata.qqjjADOQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+';Persist Security Info=False';
 jqform.Close;
 ymjz;
  decodedate(dmdata.ADOTable_T_user.fieldbyname('date').AsDateTime,yy,mm,dd);
  statusbar1.Panels[1].Text:= dmdata.ADOTable_T_user.fieldbyname('dh').AsString;
  statusbar1.Panels[3].Text :=dmdata.ADOTable_T_user.fieldbyname('name').AsString;
  statusbar1.Panels[5].Text:=inttostr(yy)+'年'+inttostr(mm)+'月'+inttostr(dd)+'日';
  statusbar1.Panels[7].Text:=FormatDateTime('hh''时''nn''分''ss''秒''',Now);
end;
procedure Tmainform.WindowCloseAllExecute(Sender: TObject);
var
  i:integer;
begin
   for i:=0 to MDIChildCount-1 do
     MDIChildren[i].Close;
end;

procedure Tmainform.WinodwCloseAllUpdate(Sender: TObject);
begin
    if mdichildcount>0 then
    (sender as TAction).Enabled:=true
    else
    (sender as TAction).Enabled:=false;
end;
procedure TMainForm.M_CloseClick(Sender: TObject);
begin
  close;
end;

procedure TMainForm.formclose(Sender: TObject; var Action: TCloseAction);
begin
 application.Terminate;
end;

procedure TMainForm.formcreate(Sender: TObject);
var
 yy,mm,dd:word;
begin
   ymjz;
   decodedate(dmdata.ADOTable_T_user.fieldbyname('date').AsDateTime,yy,mm,dd);
   statusbar1.Panels[1].Text:= dmdata.ADOTable_T_user.fieldbyname('dh').AsString;
   statusbar1.Panels[3].Text :=dmdata.ADOTable_T_user.fieldbyname('name').AsString;
   statusbar1.Panels[5].Text:=inttostr(yy)+'年'+inttostr(mm)+'月'+inttostr(dd)+'日';
   statusbar1.Panels[7].Text:=FormatDateTime('hh''时''nn''分''ss''秒''',now);
end;

procedure TMainForm.formshow(Sender: TObject);
begin
  //Application.CreateForm(TcreatedataForm, createdataForm);
  //createdataform.ShowModal;
end;

procedure TMainForm.M_DelClick(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(createdataform) = false then
    begin
      createdataform := Tcreatedataform.Create(application);
      createdataform.ShowModal;
      createdataform.Free;
      if dmdata.ADOTable_T_user.Active=false then
      begin
          N9Click(Sender);
      end;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.ToolButton12Click(Sender: TObject);
begin
   M_CloseClick(Sender);
end;

procedure TMainForm.M_Help_infoClick(Sender: TObject);
begin
 try
      F_ABox := TF_ABox.Create(Application);    //动态创建关于窗体
      F_ABox.ShowModal;                         //显示关于窗口
 except
      on e: exception do
      Application.ShowException(e);    //弹出异常对话框
 end;
end;

procedure TMainForm.M_DataGlClick(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(grform) = false then
    begin
      grform := Tgrform.Create(application);
      grform.ShowModal;
      grform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_DataLeClick(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(bjllform) = false then
    begin
      bjllform := Tbjllform.Create(application);
      bjllform.ShowModal;
      bjllform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
    M_DataLeClick(Sender);
end;

procedure TMainForm.ToolButtonClick(Sender: TObject);
begin
   M_DataGlClick(Sender);
end;

procedure TMainForm.M_SetMmClick(Sender: TObject);
begin
   inherited;
  try
    if CreateForm(updataform) = false then
    begin
      updataform := Tupdataform.Create(application);
      updataform.ShowModal;
      updataform.Free;
      if dmdata.ADOTable_T_user.Active=false then
      begin
          N9Click(Sender);
      end;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_SetBmClick(Sender: TObject);
begin
 inherited;
  try
    if CreateForm(BMform) = false then
    begin
      bmform := TBmform.Create(application);
      bmform.ShowModal;
      bmform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_SetGlClick(Sender: TObject);
begin
   inherited;
  try
    if CreateForm(Bjqlform) = false then
    begin
      bjqlform := Tbjqlform.Create(application);
      bjqlform.ShowModal;
      bjqlform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(qckqform) = false then
    begin
      qckqform := Tqckqform.Create(application);
      qckqform.ShowModal;
      qckqform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_RepGlClick(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(grqxform) = false then
    begin
      grqxform := Tgrqxform.Create(application);
      grqxform.ShowModal;
      grqxform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_DataXhClick(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(Xhform) = false then
    begin
      Xhform := TXhform.Create(application);
      Xhform.ShowModal;
      Xhform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(Thform) = false then
    begin
      Thform := TThform.Create(application);
      Thform.ShowModal;
      Thform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_RepLeClick(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(leform) = false then
    begin
      leform := Tleform.Create(application);
      leform.ShowModal;
      leform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_RepKqClick(Sender: TObject);
begin
   inherited;
  try
    if CreateForm(kqform) = false then
    begin
      kqform := Tkqform.Create(application);
      kqform.ShowModal;
      kqform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_RepXhClick(Sender: TObject);
begin
   inherited;
  try
    if CreateForm(xhqyform) = false then
    begin
      xhqyform := Txhqyform.Create(application);
      xhqyform.ShowModal;
      xhqyform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.M_RepJcClick(Sender: TObject);
begin
    inherited;
  try
    if CreateForm(bmkqform) = false then
    begin
      bmkqform := Tbmkqform.Create(application);
      bmkqform.ShowModal;
      bmkqform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
    inherited;
  try
    if CreateForm(jzform) = false then
    begin
      jzform := Tjzform.Create(application);
      jzform.ShowModal;
      jzform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
  inherited;
  try
    if CreateForm(fzform) = false then
    begin
      fzform := Tfzform.Create(application);
      fzform.ShowModal;
      fzform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
  M_DataXhClick(Sender);
end;

procedure TMainForm.ToolButton15Click(Sender: TObject);
begin
   N10Click(Sender)
end;

procedure TMainForm.ToolButton13Click(Sender: TObject);
begin
   N2Click(Sender);
end;

procedure TMainForm.ToolButton7Click(Sender: TObject);
begin
   M_RepGlClick(Sender);
end;

procedure TMainForm.ToolButton8Click(Sender: TObject);
begin
   M_RepLeClick(Sender);
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);
begin
   M_RepKqClick(Sender);
end;

procedure TMainForm.ToolButton6Click(Sender: TObject);
begin
   M_RepXhClick(Sender);
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
  M_RepJcClick(Sender); 
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  inherited;
  DMData.ADOConnectiondata.Connected := false;
  pathfile:=trim(dmdata.ADOConnectiondata.ConnectionString);
  try
    if CreateForm(jqform) = false then
    begin
      jqform := Tjqform.Create(application);
      jqform.ShowModal;
      jqform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.N11Click(Sender: TObject);
var
  pathfile:String;
begin
  pathfile:=ExtractFileDir(Application.ExeName)+'\BJHelp.exe';
  Shellexecute(handle,'Open',pchar(pathfile),nil,pchar(ExtractFilePath(pathfile)),SW_SHOWNORMAL);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[7].Text:=FormatDateTime('hh''时''nn''分''ss''秒''',now);
  dmdata.ADOTable_Ver.Active:=true;
  if now()>= dmdata.ADOTable_Ver['iyear'] then
  begin
     showmessage('你的使用期已到，请升级系统！');
     application.Terminate;
  end;

end;

procedure TMainForm.N12Click(Sender: TObject);
begin
    inherited;
  try
    if CreateForm(thqsform) = false then
    begin
      thqsform := Tthqsform.Create(application);
      thqsform.ShowModal;
      thqsform.Free;
    end;
   except
    on e:Exception do
    application.ShowException(e);
   end;
end;

procedure TMainForm.ToolButton10Click(Sender: TObject);
begin
  N12Click(Sender);
end;

procedure TMainForm.Mxbutton6click(Sender: TObject);
begin
   N12Click(Sender);
end;

end.