main.pas.bak

delphi+sql server 我是delphi的初学者

 FRMNOTUSE:=TFRMNOTUSE.Create(SELF);
 FRMNOTUSE.Caption:='未使用单据';
 FRMNOTUSE.ShowModal;
 FreeAndNil(FRMNOTUSE);
end; }

{procedure Tfrmmain.N6Click(Sender: TObject);
begin
  SpeedButton6Click(Sender);
end;}

procedure Tfrmmain.dxDBGrid2CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  if dm.ADOCODE.FieldByName('zt').AsString='已结' then
  begin
   dxDBGrid2.Canvas.Font.Color:=clRed;
   dxDBGrid2.Canvas.Brush.Color:=clYellow;
  end
  else
  if DM.ADOCODE.FieldByName('zt').AsString='挂帐' then
  begin
   dxDBGrid2.Canvas.Font.Color:=clBlue;
   dxDBGrid2.Canvas.Brush.color:=clYellow;
  end;
end;

procedure Tfrmmain.RadioButton1Click(Sender: TObject);
begin
 if dm.HDM='01' then
 begin
   with dm.ADOCODE do
     begin
       close;
       SQL.Clear;
       SQL.Add('select * from libnumberls');
       SQL.Add('where zt=''未结'' and libnumberplace=''前台''');
       SQL.Add('order by numbertype');
       Prepared;
       Open;
     end;
 end
 else
 if DM.HDM='02' then
 begin
   with dm.ADOCODE do
     begin
       close;
       SQL.Clear;
       SQL.Add('select * from libnumberls');
       SQL.Add('where zt=''未结'' and libnumberplace=''大堂吧''');
       SQL.Add('order by numbertype');

       Prepared;
       Open;
     end;
 end
 else
 if dm.HDM='03' then
 begin
   with dm.ADOCODE do
     begin
       close;
       SQL.Clear;
       SQL.Add('select * from libnumberls');
       SQL.Add('where zt=''未结'' and libnumberplace=''西餐厅''');
       SQL.Add('order by numbertype');

       Prepared;
       Open;
     end;
 end
 else
 if DM.HDM='04' then
 begin
   with dm.ADOCODE do
     begin
       close;
       SQL.Clear;
       SQL.Add('select * from libnumberls');
       SQL.Add('where zt=''未结'' and libnumberplace=''康乐部''');
       SQL.Add('order by numbertype');

       Prepared;
       Open;
     end;
 end;

end;

procedure Tfrmmain.RadioButton2Click(Sender: TObject);
begin
 if dm.HDM='01' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where zt=''已结'' and libnumberplace=''前台''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end
 else
 if dm.HDM='02' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where zt=''已结'' and libnumberplace=''大堂吧''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end
 else
 if dm.HDM='03' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where zt=''已结'' and libnumberplace=''西餐厅''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end
 else
 if dm.HDM='04' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where zt=''已结'' and libnumberplace=''康乐部''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end;

end;

procedure Tfrmmain.RadioButton3Click(Sender: TObject);
begin
 if dm.HDM='01' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''前台''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end
 else
 if dm.HDM='02' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''大堂吧''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end
 else
 if dm.HDM='03' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''西餐厅''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end
 else
 if dm.HDM='04' then
 begin
  with dm.ADOCODE do
   begin
     close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''康乐部''');
     SQL.Add('order by numbertype');
     Prepared;
     Open;
   end;
 end;
end;

procedure Tfrmmain.SpeedButton7Click(Sender: TObject);
begin
 FRMNOTUSE:=TFRMNOTUSE.Create(SELF);
 FRMNOTUSE.Caption:='核销单据';
 FRMNOTUSE.ShowModal;
 FreeAndNil(FRMNOTUSE);
end;

procedure Tfrmmain.SpeedButton8Click(Sender: TObject);
begin
  DM.ADOTEMP.Close;
  DM.ADOTEMP.Open;
  DM.ADOCODE.Close;
  DM.ADOCODE.Open;
end;

procedure Tfrmmain.SpeedButton5Click(Sender: TObject);
begin
  frmsj:=Tfrmsj.Create(Self);
  frmsj.ShowModal;
  FreeAndNil(frmsj);
end;

procedure Tfrmmain.N7Click(Sender: TObject);
begin
    frmchangedj:=Tfrmchangedj.Create(Self);
    with frmchangedj do
     begin
       Label1.Caption:=DM.ADOCODE.fieldbyname('numberid').AsString;
       ComboBox1.Text:=dm.ADOCODE.fieldbyname('zt').AsString;
       ComboBox2.Text:=dm.ADOCODE.fieldbyname('numbertype').AsString;
       dxCurrencyEdit1.Value:=DM.ADOCODE.fieldbyname('jine').AsCurrency;
       DateTimePicker1.Date:=dm.ADOCODE.fieldbyname('rq').AsDateTime;
     end;
    frmchangedj.ShowModal;
    FreeAndNil(frmchangedj);
end;

procedure Tfrmmain.N8Click(Sender: TObject);
  begin
      dm.ADOCon1.BeginTrans;
      try
         with dm.ADOTP do          //把核销后的单据插入为核销的表中
           begin
             Close;
             SQL.Clear;
             SQL.Add('insert into libnumber');
             SQL.Add('(list,numberid,numbertype,hxbz,djdate,lypername,JINE,A,B,libnumberplace,zt,sxdm)');
             SQL.Add('select list,numberid,numbertype,hxbz,rq,lypername,JINE,A,B,libnumberplace,zt,sxdm from libnumberls');
             SQL.Add('where numberid=:id and numbertype=:type and sxdm=:dm');
             parameters.ParamByName('id').Value:=dm.ADOCODE.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOCODE.fieldbyname('numbertype').AsString;
             Parameters.ParamByName('dm').Value:=dm.HDM;
             ExecSQL;
           end;

          with dm.ADOTP do        //然后删除核销后的单据
           begin
             Close;
             SQL.Clear;
             SQL.Add('delete from libnumberls');
             SQL.Add('where numberid=:id and numbertype=:type and sxdm=:dm');
             parameters.ParamByName('id').Value:=dm.ADOCODE.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOCODE.fieldbyname('numbertype').AsString;
             Parameters.ParamByName('dm').Value:=dm.HDM;
             ExecSQL;
           end;
          dm.ADOCon1.CommitTrans;
        except
          dm.ADOCon1.RollbackTrans;
      end;
      dm.ADOCODE.Close;
      dm.ADOCODE.Open;
      dm.ADOTEMP.Close;
      dm.ADOTEMP.Open;
  end;

procedure Tfrmmain.N9Click(Sender: TObject);
begin
  SpeedButton7Click(Sender);
end;

procedure Tfrmmain.N11Click(Sender: TObject);
 begin
   N7Click(Sender);
 end;

end.