main.pas

这是一个信息处理系统的功能选单,包括了基础信息录入处理输出的整个过程

tem:=Stable.fieldbyname(Sfield).asstring;
if i=1 then
 begin
  tem_i:=length(tem);
  if (copy(tem,tem_i,1)='W') or (copy(tem,tem_i-1,2)='WZ') then
      begin
        Scombobox.items.add(tem);
        stable.next;
      end
   else
        stable.next;
 end
else
if i=0 then
begin
  tem_i:=length(tem);
  if (copy(tem,tem_i,1)='W') or (copy(tem,tem_i-1,2)='WZ') then
      stable.next
  else
    begin
      Scombobox.items.add(tem);
      stable.next;
    end;
end;
if i=2 then
 begin
        Scombobox.items.add(tem);
        stable.next;
  end;
end;
end;



Function CleanBlank(sWantClean :String):String;
begin
 Result := trimLeft(TrimRight(sWantClean));
end;



Procedure AddS(Var sAdd:String;iAdd:integer);
var
i:integer;
 begin
   i:=Length(sAdd);

   sAdd:=IntTOStr(StrToInt(sAdd)+iAdd);
   while (Length(sAdd)<i) do
   sAdd:='0'+sAdd;

 end;


procedure TfrmMain.N6Click(Sender: TObject);
begin
close;
end;

procedure TfrmMain.N8Click(Sender: TObject);
begin
frm_ld:=Tfrm_ld.Create(self);
Frm_ld.ShowModal ;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
//frmD.Database1.StartTransaction ;
//frmD.database1.Commit ;
//frmD.database1.Rollback ;


end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
year,month,day:word;
now2:tdatetime;
begin

iPaperNumLen :=6;
sCWHead:='CWY_HEAD';
sCWItem:='CWY_ITEM';
now2:=date();
decodedate(now2,year,month,day);
statusbar1.panels[3].Text :='当前日期是：'+inttostr(year)+'年'+inttostr(month)
                              +'月'+inttostr(day)+'日';

end;

procedure TfrmMain.N12Click(Sender: TObject);
begin
Application.CreateForm(Tfrmpjdz, frmpjdz);
frmpjdz.showmodal;
end;

procedure TfrmMain.N13Click(Sender: TObject);
begin
frm_xtgl:=Tfrm_xtgl.Create(self);
frm_xtgl.ShowModal ;
end;

procedure TfrmMain.j1Click(Sender: TObject);
begin
// frmSJ.ShowModal ;
frm_xtgl:=Tfrm_xtgl.Create(self);
frm_xtgl.ShowModal ;
tabnumber:=2;

end;

procedure TfrmMain.N14Click(Sender: TObject);
begin
//frmCW.ShowModal ;
frm_xtgl:=Tfrm_xtgl.Create(self);
frm_xtgl.ShowModal ;
end;

procedure TfrmMain.N15Click(Sender: TObject);
begin
aboutbox:=Taboutbox.Create (self);
 aboutbox.showmodal;
end;

procedure TfrmMain.ToolButton6Click(Sender: TObject);
begin
application.Terminate ;
release;
end;

procedure TfrmMain.ToolButton3Click(Sender: TObject);
begin
frm_ld:=Tfrm_ld.Create(self);
Frm_ld.ShowModal ;
end;

procedure TfrmMain.N21Click(Sender: TObject);
begin
//  Application.CreateForm(TfrmJKD, frmJKD);
//   frmJKD.showmodal;
frm_wrsp:=Tfrm_wrsp.Create(self);
Frm_wrsp.ShowModal ;
end;

procedure TfrmMain.N18Click(Sender: TObject);
begin
frm_wrsp:=Tfrm_wrsp.Create(self);
Frm_wrsp.ShowModal ;
end;

procedure TfrmMain.N23Click(Sender: TObject);
begin
frm_yrsp:=Tfrm_yrsp.Create(self);
frm_yrsp.ShowModal ;
end;

procedure TfrmMain.N20Click(Sender: TObject);
begin
frm_yrsp:=Tfrm_yrsp.Create(self);
frm_yrsp.ShowModal ;
end;

procedure TfrmMain.N28Click(Sender: TObject);
begin
frm_xtgl:=Tfrm_xtgl.Create(self);
frm_xtgl.ShowModal ;
frm_xtgl.PageControl1.ActivePageIndex :=4;
end;

procedure TfrmMain.N26Click(Sender: TObject);
begin
frm_xtgl:=Tfrm_xtgl.Create(self);
frm_xtgl.ShowModal ;
frm_xtgl.PageControl1.ActivePageIndex :=5;
end;

procedure TfrmMain.ToolButton2Click(Sender: TObject);
begin
frm_xtgl:=Tfrm_xtgl.Create(self);
frm_xtgl.ShowModal ;
end;

procedure TfrmMain.N41Click(Sender: TObject);
begin
frm_bc:=Tfrm_bc.Create(self);
frm_bc.ShowModal ;

end;

procedure TfrmMain.N44Click(Sender: TObject);
begin
frm_bc:=Tfrm_bc.Create(self);
frm_bc.ShowModal ;

end;

procedure TfrmMain.N45Click(Sender: TObject);
begin
frm_yp:=Tfrm_yp.Create(self);
frm_yp.ShowModal ;
end;

procedure TfrmMain.N42Click(Sender: TObject);
begin
frm_yp:=Tfrm_yp.Create(self);
frm_yp.ShowModal ;
end;

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
frm_reg:=Tfrm_reg.Create(self);
Frm_reg.ShowModal ;
end;

procedure TfrmMain.N34Click(Sender: TObject);
begin
frm_reg:=Tfrm_reg.Create(self);
Frm_reg.ShowModal ;
end;

procedure TfrmMain.FormActivate(Sender: TObject);
var
y,m,d:word;
now:tdatetime;
begin
now:=workdate;
decodedate(now,y,m,d);
try
 try
   //frmd.tab_ldz.tablename:='ldz_'+systemyear+systemmonth;
   frmd.tab_ldz.open;
 except
   application.messagebox(pchar('文件打开错误!'+#10#13#10#13+'请检查是否已进行数据月末结转'+#10#13#10#13+'如没有,请由管理员进行月末数据结转'),'Hint',48);
 end;
finally
 frmd.tab_ldz.close;
end;
//在active中如下语句有些多余.

initable();


statusbar1.panels[1].Text :=' 当前工作日期：'+ inttostr(y)+'年'+inttostr(m)
                              +'月'+inttostr(d)+'日' +'/'+systemYear+'年'+systemmonth+'月';
statusbar1.panels[2].Text :='操作人：'+inputman;

testuser();  //权限分配


end;

procedure TfrmMain.N46Click(Sender: TObject);
begin
frm_yl:=Tfrm_yl.Create(self);
frm_yl.ShowModal ;
end;

procedure TfrmMain.ToolButton10Click(Sender: TObject);
begin
frm_yl:=Tfrm_yl.Create(self);
frm_yl.ShowModal ;

end;

procedure TfrmMain.N36Click(Sender: TObject);
begin
frm_total:=Tfrm_total.Create(self);
Frm_total.ShowModal ;
end;

procedure TfrmMain.N47Click(Sender: TObject);
begin
frm_chuzu:=Tfrm_chuzu.Create(self);
Frm_chuzu.ShowModal ;
end;

procedure TfrmMain.N48Click(Sender: TObject);
begin
frm_chuzu:=Tfrm_chuzu.Create(self);
Frm_chuzu.ShowModal ;
end;

procedure TfrmMain.ToolButton11Click(Sender: TObject);
begin
frm_total:=Tfrm_total.Create(self);
Frm_total.ShowModal ;
end;


procedure changweek(Sform:Tform;Spdt:TdatetimePicker;Lab:TLabel);
begin
with sform do
begin
case DayOfWeek(SPdt.Date) of
        1: Lab.Caption :='星期日';
        2: Lab.Caption :='星期一';
        3: Lab.Caption :='星期二';
        4: Lab.Caption :='星期三';
        5: Lab.Caption :='星期四';
        6: Lab.Caption :='星期五';
        7: Lab.Caption :='星期六';
  end;
end;
end;
procedure TfrmMain.N54Click(Sender: TObject);
begin
  frm_fm:=Tfrm_fm.create(application);
  frm_fm.Show;
  frm_fm.update;
  Frm_preface:=Tfrm_preface.create(application);
  frm_preface.ShowModal ;
end;

procedure TfrmMain.ToolButton12Click(Sender: TObject);
begin
frm_baobiao:=Tfrm_baobiao.Create(self);
Frm_baobiao.ShowModal ;
end;

procedure TfrmMain.ToolButton7Click(Sender: TObject);
begin
Frm_jhsj:=TFrm_jhsj.Create(self);
Frm_jhsj.ShowModal ;

end;

procedure TfrmMain.N011Click(Sender: TObject);
begin
frm_baobiao:=Tfrm_baobiao.Create(self);
Frm_baobiao.ShowModal ;
end;

procedure TfrmMain.N51Click(Sender: TObject);
begin

Frm_cwy:=TFrm_cwy.Create(self);
Frm_cwy.ShowModal ;
end;

procedure ClearTemptable(Stabtmp:TClientdataset);
begin
stabtmp.First ;
stabtmp.DisableControls ;
while not stabtmp.eof do
   stabtmp.Delete;
stabtmp.EnableControls ;
end;


procedure TfrmMain.N49Click(Sender: TObject);
begin
Frm_sjkh:=TFrm_sjkh.Create(self);
Frm_sjkh.ShowModal ;

end;

procedure TfrmMain.N29Click(Sender: TObject);
begin
Frm_cl:=TFrm_cl.Create(self);
Frm_cl.ShowModal ;
end;

procedure TfrmMain.N52Click(Sender: TObject);
begin
frm_clsjlc:=Tfrm_clsjlc.create(self);
frm_clsjlc.showmodal;
end;

procedure TfrmMain.ToolButton4Click(Sender: TObject);
begin
Frm_checkdata:=TFrm_checkdata.Create(self);
Frm_checkdata.ShowModal ;
end;

procedure TfrmMain.N59Click(Sender: TObject);
begin
frm_baobiao_cx:=Tfrm_baobiao_cx.create(self);
frm_baobiao_cx.showmodal;
end;

procedure TfrmMain.N58Click(Sender: TObject);
begin
Frm_jhsj:=TFrm_jhsj.Create(self);
Frm_jhsj.ShowModal ;
end;

procedure TfrmMain.N61Click(Sender: TObject);
VAR DM:string;
    y,m,d:word;
    now:tdatetime;
    label sss;
begin
now:=date()-1;
decodedate(now,y,m,d);
dm:='GJ_DATE_'+inttostr(y)+copy(inttostr(m+100),2,2)+copy(inttostr(d+100),2,2);
SaveDialog1.FileName:=dm;
if SaveDialog1.Execute then
begin
  dm:=SaveDialog1.FileName ;
  if FileSearch(dm, GetCurrentDir )<>'' then
    begin
      if  application.MessageBox ('当前目录下已有同名文件，需要覆盖吗？','Hint',1)=1 then
         begin
             try
               deletefile(dm);
              except
                 showmessage('更新错误，请检查文件是否在使用');
              end;