main.pas

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

end;

{procedure createyh(Syear:string;Smonth:string);
begin
 with frmmain do
 begin
 query1.sql.add('CREATE TABLE yh_'+Syear+Smonth);
 query1.sql.add('(');
 query1.sql.add('rq datetime NULL,');
 query1.sql.add('cph char(8) NULL,');
 query1.sql.add('yh float NULL,');
 query1.sql.add('bmh char(2) NULL,');
 query1.sql.add('cx char(6) NULL,');
 query1.sql.add('zbh1 char(6) NULL,');
 query1.sql.add('name char(10) NULL,');
 query1.sql.add('sbh char(6) NULL');
 query1.sql.add(')');

 end;
end;}

procedure createyrsp_income(Syear:string);
begin
 with frmmain do
 begin
  query1.SQl.add('CREATE TABLE yrsp_income_'+Syear);
  query1.SQl.add('(');
  query1.SQl.add('y_papernumber char(12) NULL,');
  query1.SQl.add('y_xuhao smallint NULL,');
  query1.SQl.add('y_ps int NULL,');
  query1.SQl.add('y_pj int NULL,');
  query1.SQl.add('y_hjsr money NULL');
  query1.SQl.add(')');
//  query1.sql.add('CREATE  INDEX sjsr_index ON sjsr_'+Syear+Smonth+' (rq,lb,cx,ch,ph,sjgh) WITH DROP_EXISTING ON PRIMARY');

 end;
end;

procedure createyrsp_incomehead(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE yrsp_incomehead_'+Syear);
  query1.sql.add('(');
  query1.sql.add('y_papernumber char(12) NULL,');
  query1.sql.add('Y_skrq datetime NULL,');
  query1.sql.add('y_bm char(2) NULL,');
  query1.sql.add('y_lb char(10) NULL,');
  query1.sql.add('y_ch char(6) NULL,');
  query1.sql.add('y_cx char(4) NULL,');
  query1.sql.add('y_ph char(8) NULL,');
  query1.sql.add('y_cwgh char(6) NULL,');
  query1.sql.add('y_cwph char(6) NULL,');
  query1.sql.add('y_sjgh char(6) NULL,');
//  query1.sql.add('y_sjgh1 char(6) NULL,');
  query1.sql.add('y_skje money NULL,');
  query1.sql.add('y_qtsr money NULL,');
  query1.sql.add('y_yyrq datetime NULL,');
  query1.sql.add('y_name char(8) NULL');
  query1.sql.add(')');

 end;
end;


procedure createxljh(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE xljh_'+Syear);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('bm char(10) NULL,');
  query1.sql.add('tscr int NULL,');
  query1.sql.add('x_dx int NULL,');
  query1.sql.add('x_bx int NULL,');
  query1.sql.add('x_sg int NULL,');
  query1.sql.add('x_dax int NULL,');
  query1.sql.add('x_dal int NULL,');
  query1.sql.add('x_dbf int NULL,');
  query1.sql.add('x_xx int NULL,');
  query1.sql.add('name char(10) NULL');
  query1.sql.add(')');

 end;
end;

procedure createcw_ymdata(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE cw_ymdata_'+Syear);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('xm char(10) NULL,');
  query1.sql.add('gh char(10) NULL,');
  query1.sql.add('lb char(10) NULL,');
  query1.sql.add('cx char(10) NULL,');
  query1.sql.add('income money NULL,');
  query1.sql.add('jh money NULL,');
  query1.sql.add('ce money NULL,');
  query1.sql.add('gs char(10) NULL');
  query1.sql.add(')');
 end;
end;
//----
procedure createsj_ymxldata(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE sj_ymxldata_'+Syear);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('name char(10) NULL,');
  query1.sql.add('lb char(10) NULL,');
  query1.sql.add('sjgh1 char(10) NULL,');
  query1.sql.add('jhcc int NULL,');
  query1.sql.add('sjcc int NULL,');
   query1.sql.add('ywdate int NULL,');
  query1.sql.add('xslc float NULL,');
  query1.sql.add('yylc float NULL,');
  query1.sql.add('jhsr money NULL,');
  query1.sql.add('totalincome money NULL,');
  query1.sql.add('srce money NULL,');
  query1.sql.add('ccsr money NULL,');
  query1.sql.add('qcgl money NULL,');
  query1.sql.add('cx char(8) NULL,');
   query1.sql.add('stand char(10) NULL');
  query1.sql.add(')');

 end;
end;
//----
procedure createsj_ymbcdata(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE sj_ymbcdata_'+Syear);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('name char(10) NULL,');
  query1.sql.add('sjgh1 char(10) NULL,');
  query1.sql.add('lb char(10) NULL,');
   query1.sql.add('cx char(8) NULL,');
  query1.sql.add('jhcc int NULL,');
  query1.sql.add('sjcc int NULL,');
  query1.sql.add('xslc float NULL,');
  query1.sql.add('yylc float NULL');
  query1.sql.add(')');

 end;
end;
//----
{procedure createclyh_data(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE clyh_data_'+Syear);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('bmmc char(10) NULL,');
  query1.sql.add('cx char(10) NULL,');
  query1.sql.add('zbh1 char(10) NULL,');
  query1.sql.add('pzh char(10) NULL,');
  query1.sql.add('xslc float NULL,');
  query1.sql.add('yh float NULL,');
  query1.sql.add('glyh float NULL,');
  query1.sql.add('de float NULL,');
  query1.sql.add('jc float NULL');
  query1.sql.add(')');

 end;
end;}

{procedure createcllc_data(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE cllc_data_'+Syear);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('bmmc char(10) NULL,');
  query1.sql.add('cx char(10) NULL,');
  query1.sql.add('ch char(10) NULL,');
  query1.sql.add('name char(10) NULL,');
  query1.sql.add('gh char(10) NULL,');
  query1.sql.add('lc float NULL');
  query1.sql.add(')');

 end;
end;}

//----
procedure ymjz(Syear:string;Smonth:string);
begin
//
frmmain.Query1 .sql.clear;
frmmain.Query1 .sql.add('begin tran');
if strtoint(smonth)=1 then
begin
showmessage('程序将先自动进行年末数据结转！');
//createcllc_data(systemyear);
//createclyh_data(systemyear);
createsj_ymxldata(systemyear);
createsj_ymbcdata(systemyear);

createcw_ymdata(systemyear);
createbaobiao01(systemyear);
createbaobiao02(systemyear);
createbaobiao20(systemyear);
createbaobiao21(systemyear);
createbaobiao22(systemyear);
createbc(systemyear);
createchuzu(systemyear);
createld_lcjh(systemyear);
createyjh(systemyear);
createyp(systemyear);
createxljh(systemyear);
createwrsp_income(systemyear);
createyrsp_income(systemyear);
createyrsp_incomehead(systemyear);
end;
createcwy_jhsj(systemyear,systemMonth);
createldf(systemyear,systemMonth);
////createldz(systemyear,systemMonth);
createsjsr(systemyear,systemMonth);
createsjsrjh(systemyear,systemMonth);
//createyh(systemyear,systemMonth);

frmmain.Query1 .sql.add('commit');
//try
 frmmain.Query1.ExecSQL ;
//except
//    application.MessageBox ('数据结转错误,请关闭所有终端后重新运行！','严重错误',16);end;

//end;
end;


procedure initable();
begin
 with frmd do
  begin

    tab_sj_ymxldata.TableName :='sj_ymxldata_'+systemyear;
    tab_sj_ymbcdata.TableName :='sj_ymbcdata_'+systemyear;
    tab_clyh_data.TableName:='clyh_data';
    //+systemyear;
    tab_cllc_data.TableName:='cllc_data';
    //+ystemyear;
    tab_cw_ymdata.TableName :='cw_ymdata_'+systemyear;
    tab_xljh.TableName :='xljh_'+systemyear;
    tab_baobiao01.TableName :='baobiao01_'+systemyear;
    tab_baobiao02.TableName :='baobiao02_'+systemyear;
    tab_baobiao20.TableName :='baobiao20_'+systemyear;
    tab_baobiao21.TableName :='baobiao21_'+systemyear;
    tab_b22.TableName :='baobiao22_'+systemyear;
    tab_bc.TableName :='bc_'+systemyear;
    tab_chuzu.TableName :='chuzu_'+systemyear;
    tab_lcjh.TableName :='ld_lcjh_'+systemyear;
    tab_yjh.TableName :='yjh_'+systemyear;
    tab_yp.tablename:='yp_'+systemyear;
    tab_cwyjhsj.tablename:='cwy_jhsj_'+systemyear+systemmonth;
    tab_ldf.tablename:='ldf_'+systemyear+systemmonth;
    tab_ldz.tablename:='ldhzk';
    tab_sjsr.tablename:='sjsr_'+systemyear+systemmonth;
    tab_sjsrjh.tablename:='sjsrjh_'+systemyear+systemmonth;
    tab_wrsp.tablename:='wrsp_income_'+systemyear;
    tab_yrsp.tablename:='yrsp_income_'+systemyear;
    tab_yrsphead.tablename:='yrsp_incomehead_'+systemyear;
    tab_yh.tablename:='yhs';
    //+systemyear+systemmonth;

    strq:='_'+systemyear;
    strqYm:='_'+systemyear+systemmonth;
  end;
end;


procedure testuser();
begin
with frmd.Tab_reg do
  begin
   open;
    if frmd.tab_reg.Locate('xm',inputman,[]) then
      begin
         frmMain.N34 .Enabled :=fieldbyname('qx_yhgl').Value ;
         frmmain.ToolButton1 .Enabled :=fieldbyname('qx_yhgl').Value ;

         frmmain.N3.Enabled :=fieldbyname('qx_dmgl').value;
         frmmain.ToolButton2 .Enabled :=fieldbyname('qx_dmgl').Value ;

         frmMain.N17 .Enabled :=fieldbyname('qx_ymjz').Value ;

         frmmain.N37.Enabled :=False;
//         frmmain.N37.Enabled :=fieldbyname('qx_hf').Value;

         frmMain.N8 .Enabled :=fieldbyname('qx_ld').Value ;
         frmmain.ToolButton3 .Enabled :=fieldbyname('qx_ld').Value ;

         frmmain.N11.Enabled :=fieldbyname('qx_jkd').value;
         frmmain.ToolButton9 .Enabled :=fieldbyname('qx_jkd').Value ;

         frmMain.N46 .Enabled :=fieldbyname('qx_yh').Value ;
         frmmain.ToolButton10 .Enabled :=fieldbyname('qx_yh').Value ;

         frmmain.N58.Enabled :=fieldbyname('qx_jhsj').value;
         frmmain.ToolButton7 .Enabled :=fieldbyname('qx_jhsj').Value ;

         frmMain.N36 .Enabled :=fieldbyname('qx_sjhz').Value ;
         frmmain.ToolButton11 .Enabled :=fieldbyname('qx_sjhz').Value ;

         frmmain.N39.Enabled :=fieldbyname('qx_jc').value;
         frmmain.ToolButton4 .Enabled :=fieldbyname('qx_jc').Value ;

         frmMain.N29 .Enabled :=fieldbyname('qx_cl').Value ;

         frmMain.N52 .Enabled :=fieldbyname('qx_lc').Value ;

 //        frmMain.N31 .Enabled :=fieldbyname('qx_bm').Value ;

         frmMain.N33 .Enabled :=fieldbyname('qx_gr').Value ;

         frmMain.N59 .Enabled :=fieldbyname('qx_cx').Value ;

         frmMain.N011 .Enabled :=fieldbyname('qx_dy').Value ;
         frmmain.ToolButton12 .Enabled :=fieldbyname('qx_dy').Value ;

         frmMain.N61 .Enabled :=fieldbyname('qx_bf').Value ;

         canmodify_LD:=fieldbyname('xgld').value;





      end
    else
      showmessage('系统验证错误');
   end;
end;


procedure testcx(Scx:String;Scombobox:Tcombobox;query_cx:Tquery);
begin
try
strtoint(scx);
  if strtoint(scx) in [1..50] then
     begin
  query_cx.Active :=False;
  query_cx.SQL.Clear ;
  query_cx.SQL.add('select cxmc from cx2 where cxbh=:var1');
  query_cx.ParamByName ('var1').asstring:=scombobox.Text ;
  query_cx.Prepare ;
  query_cx.Open;
  Scombobox.text:=query_cx.Fields [0].asstring;
  query_cx.Active :=False;
  end;
except
on EconvertError do
end;
end;

procedure inittemptable(Stabtmp:TClientdataset;Vcishu:Integer);
var
i:integer;
begin
i:=0;
stabtmp.DisableControls ;
while i<vcishu-1 do
      begin
      stabtmp.append;
      inc(i);
      stabtmp.FieldByName ('xuhao').asinteger:=i;
//      stabtmp.FieldByName ('ps').asstring:='';


      stabtmp.post;
      end;
stabtmp.EnableControls ;
end;



Procedure AddErrorSQL();
begin
 with frmD do
  begin
{ sqlEdit.sql.add('if @@error != 0  begin');
 sqlEdit.sql.add(' rollback ');
 sqlEdit.sql.add(' return');
 sqlEdit.sql.add('end');
 }end;
end;


procedure Addcombobox(Scombobox:Tcombobox;Stable:TTable;Sfield:string;I:integer);
//i=1 是无人售票车     I=0 有人售票     i=2 is All append
var
Tem:string;
tem_i:integer;
begin
stable.Filtered :=False;
stable.open;
stable.first;
scombobox.Clear ;
while not stable.eof do
begin