u_input.pas

报纸接运程序,对报纸分捆,打印,查询等,适用于各种报社

                        exit;
                end;
        end;
       end;
end ;










      {//检查数据库是否已经拥有该接发资料的信息
        havezl:=false;
        with DataModule1.ADODataSet1 do
        begin
                Active:=false;
                CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and bs='''+trim(E_bs.text)+''' and jfrq='''+Datetostr(DTP1.Date)+''''; //bm='''+trim(CB_bm.text)+''' and bs='''+trim(E_bs.text)+'''';
                //CommandText:='select bm from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and bm '''+like+'''+'''+trim(E_bm.text)+'''+'''+%+''' or  and jfrq='''+Datetostr(DTP1.Date)+'''';
                try
                        open;
                        if not eof then
                                havezl:=true
                        else
                                havezl:=false;
                        close;
                except
                        close;
                        exit;
                end;
        end;
        //检查数据库是否存在该接发资料
        if havezl then
            begin
              application.MessageBox('已存在该接发资料','错误提示',mb_ok);
              CB_bm.SetFocus;
              exit;
            end

        else
        begin
                sqlstr:='insert into jfzl(jh,jm,bm,bs,zfs,jfrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                sqlstr:=sqlstr+''''+ trim(CB_bm.Text)+''','''+trim(E_bs.Text)+''','''+trim(E_zfs.Text)+''','''+Datetostr(DTP1.Date)+''')'; //'''+DateTimetostr(DTP1.DateTime)+''')';
               // showmessage(sqlstr);
                if trim(E_bs.Text)='4' then
                begin
                        zksstr:=strtoint(trim(E_zfs.Text)) div 500 ;
                        zksstr1:=inttostr(zksstr);
                        wsstr:=strtoint(trim(E_zfs.Text)) mod 500;
                        wsstr1:=inttostr(wsstr);
                        zhksstr1:='0';
                        sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                        sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                        sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end
                else
                begin
                       zhksstr:=strtoint(trim(E_zfs.Text)) div 250;
                       zhksstr1:=inttostr(zhksstr);
                       wsstr:=strtoint(trim(E_zfs.Text)) mod 250;
                       wsstr1:=inttostr(wsstr);
                       zksstr1:='0';
                       sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                       sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                       sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end;
                {//zksstr1:=inttostr(zksstr);
                //wsstr1:=inttostr(wsstr);
                //zhksstr1:=inttostr(zhksstr);
                //sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                //sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                //sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';  //'''+DateTimetostr(DTP1.DateTime)+''')';}
                //showmessage(sqlstr1);
       { with DataModule1.ADOConnection1 do
        begin
                Connected:=false;
                try
                        Connected:=true;
                        Execute(sqlstr);
                        Execute(sqlstr1);
                        if errors.Count > 0 then
                        begin
                                Connected:=false;
                                application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                                exit;
                        end
                        else
                        begin
                                Connected:=false;
                        end;
                except
                        close;
                        application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                        exit;
                end;
        end;
       end;}
       begin
                Item:=LV1.Items.Add;
                Item.Caption:=trim(copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7));
                Item.SubItems.Add(trim(copy(CB_jm.Text,1,6)));
                Item.SubItems.Add(trim(CB_bm.Text));
                Item.SubItems.Add(trim(E_bs.Text));
                Item.SubItems.Add(trim(E_zfs.Text));
                Item.SubItems.Add(trim(zksstr1));
                Item.SubItems.Add(trim(wsstr1));
                Item.SubItems.Add(trim(zhksstr1));
                Item.SubItems.Add(Datetostr(DTP1.Date));

        end;
       
        initform(Sender);
        application.MessageBox('-------  恭喜！数据添加成功  ---------','正确提示',mb_ok);
        CB_bm.SetFocus;

end;



procedure TF_input.CB_bmKeyPress(Sender: TObject; var Key: Char);
begin
     if key=char(13) then
     begin
                with DataModule1.ADODataSet1 do
                begin
                try
                        Active:=false;
                        CommandText:='select bs from bsxxb where bm='''+trim(CB_bm.Text)+'''';
                        open;
                        E_bs.Text:=fieldbyname('bs').AsString;
                        close;
                        Active:=false;
                except
                        Close;
                        application.MessageBox('初始化版名错','数据库错误',mb_ok);
                        exit;
                end;
                end;

             // E_bs.SetFocus;
     end;
      E_bs.SetFocus;
end;

procedure TF_input.E_bsKeyPress(Sender: TObject; var Key: Char);
begin
     if key=char(13) then
             CB_jm.SetFocus;
end;
procedure TF_input.CB_jmKeyPress(Sender: TObject; var Key: Char);
var jhstr:string;
begin
 if key=char(13) then
 begin
      jhstr:=copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7);
                //showmessage(jhstr);
                with DataModule1.ADODataSet1 do
                begin
                try
                        Active:=false;
                        CommandText:='select xqzfs from xqzlb where jh='''+jhstr+'''';
                        open;

                        E_zfs.Text:=fieldbyname('xqzfs').AsString;
                        //showmessage(E_zfs.text);
                        close;
                        Active:=false;
                except
                        Close;
                        application.MessageBox('初始化总份数错','数据库错误',mb_ok);
                        exit;
                end;
                end;

                   //E_zfs.SetFocus;
                  BB_ok.SetFocus;
           end;
end;

{procedure TF_input.E_zfsKeyPress(Sender: TObject; var Key: Char);
begin
   if key=char(13) then
             BB_ok.SetFocus;
                //DTP1.SetFocus;
end;}

procedure TF_input.BB_delClick(Sender: TObject);
var sqlstr,sqlstr1:string;
begin
    //删除当前lv1选中的item
        if LV1.Selected <> nil then
        begin

               with DataModule1.ADOConnection1 do
               begin
                        Connected:=false;
                        sqlstr:='delete from  jfzl where jh='''+trim(LV1.Selected.Caption)+''' and bm='''+trim(LV1.selected.SubItems[1])+'''';
                        sqlstr1:='delete from fybq where jh='''+trim(LV1.Selected.Caption)+''' and bm='''+trim(LV1.selected.SubItems[1])+'''';
                        //showmessage(sqlstr);
                        //showmessage(sqlstr1);
                        Execute(sqlstr);
                        Execute(sqlstr1);
                        if errors.Count = 0 then
                        begin
                               Connected:=false;
                               application.MessageBox(pchar('  接发资料--'+trim(LV1.Selected.SubItems[1])+trim(LV1.Selected.SubItems[2])+'---删除成功  '),'成功提示',mb_ok);
                               LV1.Selected.Delete;
                               CB_bm.SetFocus;
                        end
                        else
                        begin
                               Connected:=false;
                               application.MessageBox('数据库错误，刚才提交的数据没有修改成功','错误信息',mb_ok);
                        end;
               end;
        end
        else
        begin
                application.MessageBox('请在列表框选择要删除的接发资料','提示',mb_ok);
                LV1.SetFocus;
        end;
end;

procedure TF_input.BitBtn1Click(Sender: TObject);
var Item:TListItem;
begin
        LV1.Clear;
        with DataModule1.ADODataSet1 do
        begin
                CommandText:='select a.jh,a.jm,a.bm,a.bs,a.zfs,b.zks,b.ws,b.zhks,a.jfrq from jfzl a,fybq b where a.jh=b.jh and a.jfrq=b.bqrq  and a.bm=b.bm and a.jfrq='''+Datetostr(DTP1.Date)+''' order by a.bm,a.jh';
                try
                        Active:=false;
                        open;
                        while not eof do
                        begin
                                Item:=LV1.Items.Add;
                                Item.Caption:=FieldByName('jh').AsString;
                                Item.SubItems.Add(FieldByName('jm').AsString);
                                Item.SubItems.Add(FieldByName('bm').AsString);
                                Item.SubItems.Add(FieldByName('bs').AsString);
                                Item.SubItems.Add(FieldByName('zfs').AsString);
                                Item.SubItems.Add(FieldByName('zks').AsString);
                                Item.SubItems.Add(FieldByName('ws').AsString);
                                Item.SubItems.Add(FieldByName('zhks').AsString);
                                Item.SubItems.Add(FieldByName('jfrq').AsString);
                                next;
                        end;
                        //LV1.Column[6].Width:=0;
                        //LV1.Column[7].Width:=0;
                        close;
                except
                        close;
                end;
        end;
end;

end.