main.pas

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

query1.sql.add(' cczxjh int NULL,');
query1.sql.add(' cczxjk int NULL,');
query1.sql.add(' cczxsj int NULL,');
query1.sql.add(' cxzxxl float NULL,');
query1.sql.add(' ljcczxjh int NULL,');
query1.sql.add(' ljcczxjk int NULL,');
query1.sql.add(' ljcczxsj int NULL,');
query1.sql.add(' ljcxzxxl float NULL,');

query1.sql.add(' cxzx_gz1 int NULL,');
query1.sql.add(' cxzx_gz2 int NULL,');
query1.sql.add(' cxzx_gz3 int NULL,');
query1.sql.add(' cxzx_gz4 int NULL,');
query1.sql.add(' cxzx_gz5 int NULL,');
query1.sql.add(' cxzx_gz6 int NULL,');
query1.sql.add(' cxzx_gz7 int NULL,');
query1.sql.add(' cxzx_gz8 int NULL,');
query1.sql.add(' cxzx_gz9 int NULL,');
query1.sql.add(' cxzx_gz10 int NULL,');
query1.sql.add(' cxzx_gz11 int NULL,');
query1.sql.add(' cxzx_gz12 int NULL,');
query1.sql.add(' ljcxzx_gz1 int NULL,');
query1.sql.add(' ljcxzx_gz2 int NULL,');
query1.sql.add(' ljcxzx_gz3 int NULL,');
query1.sql.add(' ljcxzx_gz4 int NULL,');
query1.sql.add(' ljcxzx_gz5 int NULL,');
query1.sql.add(' ljcxzx_gz6 int NULL,');
query1.sql.add(' ljcxzx_gz7 int NULL,');
query1.sql.add(' ljcxzx_gz8 int NULL,');
query1.sql.add(' ljcxzx_gz9 int NULL,');
query1.sql.add(' ljcxzx_gz10 int NULL,');
query1.sql.add(' ljcxzx_gz11 int NULL,');
query1.sql.add(' ljcxzx_gz12 int NULL,');
query1.sql.add(' zdcx int NULL,');
query1.sql.add(' zdl float NULL,');
query1.sql.add(' ljzdcx int NULL,');
query1.sql.add(' ljzdl float NULL,');

query1.sql.add(' xslcjh int NULL,');
query1.sql.add(' ljxslcjh int NULL,');
query1.sql.add(' xslcsj float NULL,');
query1.sql.add(' xslcsj_cx1 float NULL,');
query1.sql.add(' xslcsj_cx2 float NULL,');
query1.sql.add(' xslcsj_cx3 float NULL,');
query1.sql.add(' xslcsj_cx4 float NULL,');
query1.sql.add(' xslcsj_cx5 float NULL,');
query1.sql.add(' xslcsj_cx6 float NULL,');
query1.sql.add(' xslcsj_cx7 float NULL,');
query1.sql.add(' xslcsj_cx8 float NULL,');
query1.sql.add(' xslcsj_cx9 float NULL,');
query1.sql.add(' xslcsj_cx10 float NULL,');
query1.sql.add(' ljxslcsj float NULL,');
query1.sql.add(' ljxslcsj_cx1 float NULL,');
query1.sql.add(' ljxslcsj_cx2 float NULL,');
query1.sql.add(' ljxslcsj_cx3 float NULL,');
query1.sql.add(' ljxslcsj_cx4 float NULL,');
query1.sql.add(' ljxslcsj_cx5 float NULL,');
query1.sql.add(' ljxslcsj_cx6 float NULL,');
query1.sql.add(' ljxslcsj_cx7 float NULL,');
query1.sql.add(' ljxslcsj_cx8 float NULL,');
query1.sql.add(' ljxslcsj_cx9 float NULL,');
query1.sql.add(' ljxslcsj_cx10 float NULL,');
query1.sql.add(' xlzklcjh float NULL,');
query1.sql.add(' ljxlzklcjh float NULL,');
query1.sql.add(' xlzklcsj_cx1 float NULL,');
query1.sql.add(' xlzklcsj_cx2 float NULL,');
query1.sql.add(' xlzklcsj_cx3 float NULL,');
query1.sql.add(' xlzklcsj_cx4 float NULL,');
query1.sql.add(' xlzklcsj_cx5 float NULL,');
query1.sql.add(' xlzklcsj_cx6 float NULL,');
query1.sql.add(' xlzklcsj_cx7 float NULL,');
query1.sql.add(' xlzklcsj_cx8 float NULL,');
query1.sql.add(' xlzklcsj_cx9 float NULL,');
query1.sql.add(' xlzklcsj_cx10 float NULL,');
query1.sql.add(' ljxlzklcsj_cx1 float NULL,');
query1.sql.add(' ljxlzklcsj_cx2 float NULL,');
query1.sql.add(' ljxlzklcsj_cx3 float NULL,');
query1.sql.add(' ljxlzklcsj_cx4 float NULL,');
query1.sql.add(' ljxlzklcsj_cx5 float NULL,');
query1.sql.add(' ljxlzklcsj_cx6 float NULL,');
query1.sql.add(' ljxlzklcsj_cx7 float NULL,');
query1.sql.add(' ljxlzklcsj_cx8 float NULL,');
query1.sql.add(' ljxlzklcsj_cx9 float NULL,');
query1.sql.add(' ljxlzklcsj_cx10 float NULL,');
query1.sql.add(' qcgl money NULL,');
query1.sql.add(' ljqcgl money NULL,');

query1.sql.add(' gzcs int NULL,');
query1.sql.add(' ljgzcs int NULL,');
query1.sql.add(' yycs int NULL,');
query1.sql.add(' ljyycs int NULL,');
query1.sql.add(' gzhcs int NULL,');
query1.sql.add(' ljgzhcs int NULL,');
query1.sql.add(' gzhsj int NULL,');
query1.sql.add(' ljgzhsj int NULL');
query1.sql.add(')');
// query1.sql.add('CREATE CLUSTERED   INDEX b01_index ON baobiao01_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY ');
// query1.sql.add('CREATE CLUSTERED INDEX b20_index ON baobiao02_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY');
//query1.sql.add('CREATE CLUSTERED INDEX b21_index ON baobiao21_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY');
//query1.sql.add('CREATE CLUSTERED   INDEX b20_index ON baobiao20_'+Syear+' (rq, hx) WITH DROP_EXISTING  ');

end;
end;

procedure createbaobiao22(Syear:string);
begin
 with frmmain do
 begin
query1.sql.add('CREATE TABLE baobiao22_'+syear);
query1.sql.add ('  ( ');
query1.sql.add(' rq datetime NULL,');
query1.sql.add(' xlm char(20) NULL,');
query1.sql.add(' hx smallint NULL,');
query1.sql.add(' jhcc int NULL,');
query1.sql.add(' sjcc int NULL,');
query1.sql.add(' ljjhcc int NULL,');
query1.sql.add(' ljsjcc int NULL,');
query1.sql.add(' xslc float NULL,');
query1.sql.add(' xslc_cx1 float NULL,');
query1.sql.add(' xslc_cx2 float NULL,');
query1.sql.add(' xslc_cx3 float NULL,');
query1.sql.add(' xslc_cx4 float NULL,');
query1.sql.add(' xslc_cx5 float NULL,');
query1.sql.add(' xslc_cx6 float NULL,');
query1.sql.add(' xslc_cx7 float NULL,');
query1.sql.add(' xslc_cx8 float NULL,');
query1.sql.add(' ljxslc float NULL,');
query1.sql.add(' ljxslc_cx1 float NULL,');
query1.sql.add(' ljxslc_cx2 float NULL,');
query1.sql.add(' ljxslc_cx3 float NULL,');
query1.sql.add(' ljxslc_cx4 float NULL,');
query1.sql.add(' ljxslc_cx5 float NULL,');
query1.sql.add(' ljxslc_cx6 float NULL,');
query1.sql.add(' ljxslc_cx7 float NULL,');
query1.sql.add(' ljxslc_cx8 float NULL,');
query1.sql.add(' yylc float NULL,');
query1.sql.add(' yylc_cx1 float NULL,');
query1.sql.add(' yylc_cx2 float NULL,');
query1.sql.add(' yylc_cx3 float NULL,');
query1.sql.add(' yylc_cx4 float NULL,');
query1.sql.add(' yylc_cx5 float NULL,');
query1.sql.add(' yylc_cx6 float NULL,');
query1.sql.add(' yylc_cx7 float NULL,');
query1.sql.add(' yylc_cx8 float NULL,');
query1.sql.add(' ljyylc float NULL,');
query1.sql.add(' ljyylc_cx1 float NULL,');
query1.sql.add(' ljyylc_cx2 float NULL,');
query1.sql.add(' ljyylc_cx3 float NULL,');
query1.sql.add(' ljyylc_cx4 float NULL,');
query1.sql.add(' ljyylc_cx5 float NULL,');
query1.sql.add(' ljyylc_cx6 float NULL,');
query1.sql.add(' ljyylc_cx7 float NULL,');
query1.sql.add(' ljyylc_cx8 float NULL,');

query1.sql.add(' ys money NULL,');
query1.sql.add(' ljys money NULL,');

query1.sql.add(' qs money NULL,');
query1.sql.add(' ljqs money NULL,');

query1.sql.add(' gzcs int NULL,');
query1.sql.add(' ljgzcs int NULL,');
query1.sql.add(' yycs int NULL,');
query1.sql.add(' ljyycs int NULL');
query1.sql.add(')');
end;
end;

procedure createbc(Syear:string);
begin
 with frmmain do
 begin
query1.sql.add('CREATE TABLE bc_'+Syear);
query1.sql.add ('  ( ');
query1.sql.add('rq datetime NULL,');
query1.sql.add('ygs money NULL,');
query1.sql.add('ygs1 money NULL,');
query1.sql.add('ygsyl int NULL,');
query1.sql.add('ygsyl1 int NULL,');
query1.sql.add('egs money NULL,');
query1.sql.add('egs1 money NULL,');
query1.sql.add('egsyl int NULL,');
query1.sql.add('egsyl1 int NULL,');
query1.sql.add('sgs money NULL,');
query1.sql.add('sgs1 money NULL,');
query1.sql.add('sgsyl int NULL,');
query1.sql.add('sgsyl1 int NULL,');
query1.sql.add('sigs money NULL,');
query1.sql.add('sigs1 money NULL,');
query1.sql.add('sigsyl int NULL,');
query1.sql.add('sigsyl1 int NULL,');
query1.sql.add('wgs money NULL,');
query1.sql.add('wgs1 money NULL,');
query1.sql.add('wgsyl int NULL,');
query1.sql.add('wgsyl1 int NULL,');
query1.sql.add('lgs money NULL,');
query1.sql.add('lgs1 money NULL,');
query1.sql.add('lgsyl int NULL,');
query1.sql.add('lgsyl1 int NULL,');
query1.sql.add('name char(10) NULL');
query1.sql.add(')');
end;
end;

procedure createchuzu(Syear:string);
begin
 with frmmain do
 begin

query1.sql.add('CREATE TABLE chuzu_'+Syear);
query1.sql.add ('  ( ');
query1.sql.add('rq datetime NULL,');
query1.sql.add('bmmc char(10) NULL,');
query1.sql.add('bcsr money NULL,');
query1.sql.add('bcsr1 money NULL,');
query1.sql.add('grcb money NULL,');
query1.sql.add('ctcz money NULL,');
query1.sql.add('kyl int NULL,');
query1.sql.add('name char(8) NULL');
query1.sql.add(')');
end;
end;
procedure createld_lcjh(Syear:string);
begin
 with frmmain do
 begin

query1.sql.add('CREATE TABLE ld_lcjh_'+Syear);
query1.sql.add ('  ( ');
query1.sql.add('hx int NULL,');
query1.sql.add('rq datetime NULL,');
query1.sql.add('xianlu char(10) NULL,');
query1.sql.add('lcjh int NULL,');
query1.sql.add('name char(10) NULL');
query1.sql.add(')');
end;
end;
procedure createyjh(Syear:string);
begin
 with frmmain do
 begin

query1.sql.add('CREATE TABLE yjh_'+syear);
query1.sql.add ('  ( ');
query1.sql.add('hx int NULL,');
query1.sql.add('rq datetime NULL,');
query1.sql.add('xianlu char(10) NULL,');
query1.sql.add('yjh money NULL,');
query1.sql.add('name char(10) NULL');
query1.sql.add(')');
end;
end;

procedure createyp(syear:string);
begin
 with frmmain do
 begin
query1.sql.add('CREATE TABLE yp_'+syear);
query1.sql.add ('  ( ');
query1.sql.add('rq datetime NULL,');
query1.sql.add('pm char(10) NULL,');
query1.sql.add('pj money NULL,');
query1.sql.add('zs int NULL,');
query1.sql.add('qt money NULL,');
query1.sql.add('name char(10) NULL,');
query1.sql.add('ypxh int not NULL');
query1.sql.add(')');
end;
end;


procedure createcwy_jhsj(Syear:string;Smonth:string);
begin
 with frmmain do
 begin
query1.sql.add('CREATE TABLE cwy_jhsj_'+Syear+Smonth);
query1.sql.add(' ( ');
query1.sql.add('rq datetime NULL,');
query1.sql.add('xm char(10) NULL,');
query1.sql.add('gh char(6) NULL,');
query1.sql.add('sbh char(6) NULL,');
query1.sql.add('spjh money NULL,');
query1.sql.add('xlm char(10) NULL,');
query1.sql.add('name char(10) NULL,');
query1.sql.add('cx char(10) NULL');
query1.sql.add(')');

end;
end;

procedure createldf(Syear:string;Smonth:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE ldf_'+Syear+Smonth);
  query1.sql.add('(');
  query1.sql.add('papernumber char(12),');
  query1.sql.add('xuhao smallint NULL,');
  query1.sql.add('sjgh char(6) NULL,');
  query1.sql.add('tk1 int NULL,');
  query1.sql.add('tk2 int NULL,');
  query1.sql.add('tk3 int NULL,');
  query1.sql.add('tk4 int NULL,');
  query1.sql.add('tk5 int NULL,');
  query1.sql.add('tk6 int NULL,');
  query1.sql.add('tk7 int NULL,');
  query1.sql.add('tk8 int NULL,');
  query1.sql.add('tk9 int NULL,');
  query1.sql.add('tk10 int NULL,');
  query1.sql.add('tk11 int NULL,');
  query1.sql.add('tk12 int NULL');
  query1.sql.add(')');
 end;
end;

{procedure createldz(Syear:string;Smonth:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE ldz_'+Syear+sMonth);
  query1.sql.add('(');
  query1.sql.add('xcrq datetime NULL,');
  query1.sql.add('lb char(10) NULL,');
  query1.sql.add('cx char(6) NULL,');
  query1.sql.add('ch char(6) NULL,');
  query1.sql.add('ph char(8) NULL,');
  query1.sql.add('sbh char(8) NULL,');
  query1.sql.add('lp char(6) NULL,');
  query1.sql.add('ccsj char(8) NULL,');
  query1.sql.add('zw smallint NULL,');
  query1.sql.add('papernumber char(12) NULL,');
  query1.sql.add('bb1 char(8) NULL,');
  query1.sql.add('sjgh1 char(6) NULL,');
  query1.sql.add('sjsbh1 char(6) NULL,');
  query1.sql.add('jhcc1 smallint NULL,');
  query1.sql.add('sjcc1 smallint NULL,');
  query1.sql.add('zdcc1 smallint NULL,');
  query1.sql.add('cdcc1 smallint NULL,');
  query1.sql.add('yylc1 float NULL,');
  query1.sql.add('kslc1 float NULL,');
  query1.sql.add('gzcs int NULL,');
  query1.sql.add('yycs int NULL,');
  query1.sql.add('xscs int NULL,');
  query1.sql.add('gzhsj int NULL,');    //故障时间
  query1.sql.add('gzhcs int NULL,');  // 故障次数
  query1.sql.add('ifbc char(1) NULL,');
  query1.sql.add('name char(10) NULL,');
  query1.sql.add('zgfsjcc1 int NULL,');
  query1.sql.add('wgfsjcc1 int NULL');
  query1.sql.add(')');
 end;
end;}

procedure createsjsr(Syear:string;Smonth:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE sjsr_'+Syear+Smonth);
  query1.sql.add('(');
  query1.sql.add('rq datetime NULL,');
  query1.sql.add('sjgh char(6) NULL,');
  query1.sql.add('lb char(8) NULL,');
  query1.sql.add('cx char(8) NULL,');
  query1.sql.add('ch char(8) NULL,');
//  query1.sql.add('ph char(8) NULL,');
  query1.sql.add('wrsp_je money NULL');
  query1.sql.add(')');
 end;
end;

procedure createsjsrjh(Syear:string;Smonth:string);
begin
 with frmmain do
 begin
 query1.sql.add('CREATE TABLE sjsrjh_'+Syear+Smonth);
 query1.sql.add('(');
 query1.sql.add('rq datetime,');
 query1.sql.add('sjgh char(6),');
 query1.sql.add('jhsr money,');
 query1.sql.add('name char(10) NULL');
 query1.sql.add(')');

 end;
end;


procedure createwrsp_income(Syear:string);
begin
 with frmmain do
 begin
  query1.sql.add('CREATE TABLE wrsp_income_'+Syear);
  query1.sql.add('(');
  query1.sql.add('w_skrq datetime NULL,');
  query1.sql.add('w_lb char(10) NULL,');
  query1.sql.add('w_ch char(6) NULL,');
  query1.sql.add('w_cx char(4) NULL,');
  query1.sql.add('w_cxbh char(4) NULL,');
  query1.sql.add('w_ph char(8) NULL,');
  query1.sql.add('w_skje money NULL,');
  query1.sql.add('w_jkrq datetime NULL,');
  query1.sql.add('w_zhyl float NULL,');
  query1.sql.add('w_name char(8) NULL,');
  query1.sql.add('w_qtsr money NULL,');
  query1.sql.add('w_papernumber char(12) NULL,');
  query1.sql.add('w_xuhao smallint NULL');
  query1.sql.add(')');

 end;