mylove.~pas

这是用Delphi编写的中小企业管理系统

unit mylove;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,Main;

type
  Tf_mylove = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    List1: TListBox;
    List2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    add: TSpeedButton;
    del: TSpeedButton;
    delall: TSpeedButton;
    addall: TSpeedButton;
    bc: TBitBtn;
    qx: TBitBtn;
    procedure qxClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    Function  List2IsExists(Caption: String): Boolean;
    procedure addClick(Sender: TObject);
    procedure bcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_mylove: Tf_mylove;
implementation
  uses Datamodal;
{$R *.dfm}

procedure Tf_mylove.qxClick(Sender: TObject);
begin
  Close;
end;

procedure Tf_mylove.FormShow(Sender: TObject);
var
  i: Integer;
begin
  with Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from t_loveform ');
    Open;
  end;
  if Data.Query1.RecordCount>0 then
  begin
    while Not Data.Query1.Eof do
    begin
      if Data.Query1.FieldByName('disform').AsInteger = 0 then
        List1.Items.Add(Trim(Data.Query1.Fields[0].AsString))
      else
        List2.Items.Add(Trim(Data.Query1.Fields[0].AsString));
      Data.Query1.Next;
    end;
  end
  else
  begin
    with f_Main do
    begin
      For i := 0 to TreeView1.Items.Count-1 do
      begin
        if TreeView1.Items[i].HasChildren = False then
        begin
          List1.Items.Add(Trim(TreeView1.Items[i].Text));
          with Data.Query1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('Insert t_loveForm values (:a,:b,0)');
            ParamByName('a').AsString := Trim(TreeView1.Items[i].Text);
            ParamByName('b').AsInteger := TreeView1.Items[i].StateIndex;
            ExecSQL;
          end;
        end;
      end;
    end;
  end;
end;

function Tf_mylove.List2IsExists(Caption: String): Boolean;
var
  i: Integer;
begin
  Result := False;
  if List2.Items.Count>0 then
    For i := 0 to List2.Items.Count-1 do
    begin
      if Trim(Caption)= Trim(List2.Items[i]) then
      begin
        Result := True;
        Break;
      end;
    end;
end;

procedure Tf_mylove.addClick(Sender: TObject);
var
  i: integer;
begin
  if Sender is TComponent then
    Case TComponent(Sender).Tag of
      1: begin
           if List1.SelCount>0 then
           begin
            For i := 0 to List1.Items.Count-1  do
              if List1.Selected[i] = True then
                List2.Items.Add(List1.Items[i]);
              List1.DeleteSelected;
          end;
         end;
      2: begin
           if List2.SelCount>0 then
           begin
             For i := 0 to List2.Items.Count-1  do
               if List2.Selected[i] = True then
                 List1.Items.Add(List2.Items[i]);
               List2.DeleteSelected;
           end;
         end;
      3: begin
           if List1.Items.Count>0 then
           begin
             For i := 0 to List1.Items.Count-1  do
               List2.Items.Add(List1.Items[i]);
             List1.Clear;
           end;
         end;
      4: begin
           if List2.Items.Count>0 then
           begin
             For i := 0 to List2.Items.Count-1  do
               List1.Items.Add(List2.Items[i]);
             List2.Clear;
           end;
         end;
    end;             
end;

procedure Tf_mylove.bcClick(Sender: TObject);
var
  i: Integer;
begin
  Try
    Data.Database.StartTransaction;
    with Data.Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update t_loveForm set disform = 0');
      ExecSQL;
    end;
    if List2.Items.Count>0 then
    begin
      For i := 0 to List2.Items.Count-1 do
      begin
        with Data.Query1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('Update t_loveForm set disform = 1 where  LoveForm = :a');
          ParamByName('a').AsString := Trim(List2.Items[i]);
          ExecSQL;
        end;
      end;
    end;
    Data.Database.Commit;
    f_main.Setmylove;
   Except
     Data.Database.Rollback;
     Application.MessageBox('系统出错.','提示',64);
  end;
  Close;
end;

end.