createdata.pas

很好用的一个票据管理系统

unit createdata;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, ImgList, DB, ADODB;

type
  Tcreatedataform = class(TForm)
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    Image2: TImage;
    Panel2: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    TreeView1: TTreeView;
    RadioButton2: TRadioButton;
    Image3: TImage;
    ImageList1: TImageList;
    procedure BitBtn1Click(Sender: TObject);
    Procedure TreeViewNewll;
    procedure formcreate(Sender: TObject);
    procedure TreeViewClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure formclick(Sender: TObject);
    procedure formradio1click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  createdataform: Tcreatedataform;

implementation
uses OpenUnit,dm,CreateUnit1, MainUnit;
{$R *.dfm}
procedure Tcreatedataform.TreeViewNewll;
var
  root,node1,node2:TTreeNode;
  str1,str2,str3:AnsiString;
  i,j:integer;
begin
  inherited;
  dmdata.ADOTable_dh.Active:=false;
  dmdata.ADOTable_year.Active:=false;
  dmdata.ADOTable_dh.Active:=true;
  dmdata.ADOTable_year.Active:=true;
  dmdata.ADOTable_dh.Filtered:= false;
  dmdata.ADOTable_year.Filtered:= false;
  treeview1.Items.Clear;
  if dmdata.ADOTable_dh.RecordCount>0 then
  begin
    str1:=trimright(radiobutton2.Caption);
    root:=treeview1.Items.AddChildFirst(NiL,str1);
    root.ImageIndex:=0;
    root.SelectedIndex:=1;
    dmdata.ADOTable_dh.First;
    for i:=0 to dmdata.adotable_dh.recordcount-1 do
    begin
      str2:=trim('['+dmdata.ADOTable_dh['cacc']+']'+dmdata.ADOTable_dh['cacc_name']);
      node1:=treeview1.Items.AddChild(root,str2);
      node1.ImageIndex:=2;
      node1.SelectedIndex:=3;
      dmdata.ADOTable_year.Filter:='accountNum = '''+dmdata.ADOTable_dh['cacc']+'''';
      dmdata.ADOTable_year.Filtered:=true;
      if dmdata.ADOTable_year.RecordCount>0 then
      begin
        dmdata.ADOTable_year.First;
        for j:=0 to dmdata.ADOTable_year.RecordCount-1 do
        begin
          str3:=trim('['+dmdata.ADOTable_dh['cacc']+']'+inttostr(dmdata.ADOTable_year['iYear'])+'年度');
          node2:=treeview1.Items.AddChild(node1,str3);
          dmdata.ADOTable_year.Next;
          node2.ImageIndex:=4;
          node2.SelectedIndex:=5;
        end;
       end;
       dmdata.ADOTable_dh.Next;
     end;
     root.Expand(true);
     dmdata.ADOTable_year.Filtered:=false;
  end
  else
  begin
     str1:=trimright(radiobutton1.Caption);
     root:=treeview1.Items.AddChildFirst(NiL,str1);
     root.ImageIndex:=6;
     root.SelectedIndex:=7;
     radiobutton1.Checked:=true;
  end;
end;
procedure Tcreatedataform.BitBtn1Click(Sender: TObject);
var
 i,j:integer;
 str1,str2,str3:string;
begin
  if radiobutton1.Checked  = true then
  begin
    Application.CreateForm(TcreateZtForm, createZtForm);
    CreateZtForm.ShowModal;
    CreateZtForm.Free;
  end;
  if radiobutton2.Checked = true  then
  begin
    if treeview1.Selected.Level=1 then
     begin
     if MessageDlg('确认要删除选中的账套吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
     begin
       str3:=trim(treeview1.Selected.Text);
       i:=pos(']',trim(str3));
       str2:= copy(trim(str3),2,i-2);
       with dmdata.OpenZtADOQuery do
       begin
         close;
         sql.Clear;
         sql.Add('delete from g_account where (cacc = :a)');
         parameters.ParamByName('a').Value:=str2;
         execsql;
       end;
       with dmdata.OpenZtADOQuery do
       begin
         close;
         sql.Clear;
         sql.Add('delete from t_user where (qx = :a)');
         parameters.ParamByName('a').Value:=str2;
         execsql;
       end;
     dmdata.ADOTable_dh.close;
     dmdata.ADOTable_year.close;
     formradio1click(sender);
      radiobutton1.Checked := true;
     end;
     end
     else
     begin
       if MessageDlg('确认要删除选中的年度账吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
       begin
       str3:=trim(treeview1.Selected.Text);
       i:=pos(']',trim(str3));
       j:=pos('年',trim(str3));
       str2:= copy(trim(str3),2,i-2);
       str1:= copy(trim(str3),i+1,j-i-1);
       //showmessage(str1);
       with dmdata.OpenZtADOQuery do
       begin
         close;
         sql.Clear;
         sql.Add('delete from g_account1 where (AccountNum = :a)and(iYear = :b)');
         parameters.ParamByName('a').Value:=str2;
         parameters.ParamByName('b').Value:=str1;
          execsql;
       end;
     dmdata.ADOTable_dh.close;
     dmdata.ADOTable_year.close;
     //TreeviewNewll;
     formradio1click(sender);
     radiobutton1.Checked := true;
     end;
    end;
   end;
  TreeviewNewll;
end;

procedure Tcreatedataform.formcreate(Sender: TObject);
begin
  TreeViewNewll;

end;

procedure Tcreatedataform.TreeViewClick(Sender: TObject);
begin
 inherited;
 //if treeview1.Selected.Level=2 then
  //begin
     RadioButton2.Checked:=true;
     bitbtn1.Kind:=bkCancel;
     bitbtn1.Caption:='删除';
     bitbtn1.ModalResult:=mrNone;
     bitbtn1.Enabled:=true;
 // end
//  else
//  begin
//    exit;
// end;
end;

procedure Tcreatedataform.BitBtn2Click(Sender: TObject);
begin
   dmdata.ADOConnectionset.Connected :=true;
   dmdata.ADOConnectiondata.Connected :=true;
   close;
  //application.Terminate;
end;

procedure Tcreatedataform.formclick(Sender: TObject);
begin
   bitbtn1.Kind:=bkCancel;
   bitbtn1.Caption:='删除';
   bitbtn1.ModalResult:=mrNone;
   bitbtn1.Enabled:=false;
end;

procedure Tcreatedataform.formradio1click(Sender: TObject);
begin
   bitbtn1.Kind:=bkok;
   bitbtn1.Caption:='创建';
   bitbtn1.ModalResult:=mrNone;
   bitbtn1.Enabled:=true;

end;

end.