uform_use_dollor.pas

婚纱摄影管理系统delphi制作 可移执行

unit Uform_use_dollor;

interface

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

type
  mytype=record
        id:integer;
        nname:string;
        alldollor:real;
        count:integer;
        dollor:real;
  end;
  Tform_use_dollor = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    Image2: TImage;
    ImageList1: TImageList;
    recordset_temp: TADOQuery;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Panel4: TPanel;
    Label9: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Splitter1: TSplitter;
    GroupBox2: TGroupBox;
    ListView1: TListView;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    button_add: TBitBtn;
    BitBtn4: TBitBtn;
    StaticText2: TStaticText;
    StaticText1: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure button_addClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    cid:integer;
  end;


var
  form_use_dollor: Tform_use_dollor;


implementation

uses Uform_use_select, Uform_fw_select, Uform_userfw_edit,
  Uform_dollor_list;

{$R *.dfm}

procedure Tform_use_dollor.BitBtn3Click(Sender: TObject);
begin
        close;
end;

procedure Tform_use_dollor.Edit1Change(Sender: TObject);
var
   idc:integer;
begin
   recordset_temp.SQL.Clear ;
   recordset_temp.SQL.Add ('select * from [CUSTOM] where [CUSTOM_CODE]="' + trim(edit1.Text ) + '"');
   recordset_temp.Open ;
   if (recordset_temp.RecordCount <> 0) then
   begin
      cid:=recordset_temp.Fields [0].AsInteger ;
      StaticText2.Caption := recordset_temp.Fields[2].AsString ;
      StaticText1.Caption := recordset_temp.Fields[3].AsString ;
      StaticText3.Caption := recordset_temp.Fields[9].AsString ;
      StaticText7.Caption := recordset_temp.Fields[8].AsString ;
      StaticText6.Caption := recordset_temp.Fields[4].AsString ;
      StaticText4.Caption := recordset_temp.Fields[6].AsString ;
      idc:=recordset_temp.Fields[5].AsInteger ;
      recordset_temp.Close;
      recordset_temp.SQL.Clear ;
      recordset_temp.SQL.Add('select * from [AREA] where [AREA_ID]=' + inttostr(IDC));
      recordset_temp.Open ;
      if( recordset_temp.RecordCount <>0) then
      begin
         statictext5.Caption :=recordset_temp.Fields[1].AsString;
      end;
   end
   else
   begin
      cid:=0;
      StaticText1.Caption := '';
      StaticText2.Caption := '';
      StaticText3.Caption := '';
      StaticText4.Caption := '';
      StaticText5.Caption := '';
      StaticText6.Caption := '';
      StaticText7.Caption := '';
   end;
   recordset_temp.close;

end;

procedure Tform_use_dollor.FormShow(Sender: TObject);
begin
   Edit1Change(nil);
   listview1.Clear ;
end;

procedure Tform_use_dollor.SpeedButton2Click(Sender: TObject);
begin
   form_use_select.ShowModal ;
   if form_use_select.yesno =true then
   begin
      edit1.Text :=form_use_select.usercode ;
      Edit1Change(nil);
   end;
end;

procedure Tform_use_dollor.BitBtn1Click(Sender: TObject);
var
   ListItem: TListItem;
   p:^mytype;
begin
   form_fw_select.ShowModal ;
   if form_fw_select.yesno = true  then
   begin
      listitem:=listview1.Items.Add ;
      listitem.Caption :=form_fw_select.fwname ;
      listitem.ImageIndex :=0;
      listitem.SubItems.Add(format( '%8.2f￥',[form_fw_select.fwmoney]));
      listitem.SubItems.Add(inttostr(form_fw_select.fwcount));
      listitem.SubItems.Add(format( '%8.2f￥',[form_fw_select.fwcount * form_fw_select.fwmoney]));
      new(p);
      p^.id :=form_fw_select.fwid ;
      p^.nname :=form_fw_select.fwname ;
      p^.count:=form_fw_select.fwcount ;
      p^.dollor :=form_fw_select.fwmoney ;
      p^.alldollor  :=p^.dollor * p^.count ;
      listitem.Data :=p;
   end;
end;

procedure Tform_use_dollor.BitBtn2Click(Sender: TObject);
var
   temp:pchar;
   p:^mytype;
begin
   if listview1.Selected= nil then exit ;
   temp:=pchar('您是否确定要删除['+listview1.Selected.caption +  ']');
   p:=listview1.Selected.Data;
   if messagebox(self.Handle, temp,
                  '警告',MB_yesno or MB_ICONQUESTION	)=IDyes then
   begin
      Dispose(p);
      listview1.Selected.Delete ;
   end;
end;

procedure Tform_use_dollor.button_addClick(Sender: TObject);
var
   p:^mytype;
begin
   if listview1.selected=nil then exit;
   p:=listview1.Selected.Data;
   form_userfw_edit.my.id:=p^.id;
   form_userfw_edit.my.nname :=p^.nname ;
   form_userfw_edit.my.alldollor :=p^.alldollor ;
   form_userfw_edit.my.count :=p^.count ;
   form_userfw_edit.my.dollor :=p^.dollor ;
   form_userfw_edit.ShowModal;
   if form_userfw_edit.yesno =false then exit;
   p^.count :=form_userfw_edit.my.count ;
   p^.alldollor :=form_userfw_edit.my.alldollor ;
   listview1.Selected.SubItems.Clear;
   listview1.Selected.SubItems.Add(format( '%8.2f￥',[p^.dollor]));
   listview1.Selected.SubItems.add(inttostr(p^.count ));
   listview1.Selected.subitems.Add(format('%8.2f￥',[p^.alldollor]));

end;

procedure Tform_use_dollor.BitBtn4Click(Sender: TObject);
var
   i:integer;
   p:^mytype;
begin
   if (cid<>0) and (listview1.Items.Count <>0) then
   begin
      recordset_temp.SQL.Clear ;
      recordset_temp.SQL.Add('select * from [JY]');
      recordset_temp.Open ;
      for i :=1 to listview1.Items.Count do
      begin
         p:=listview1.Items[i-1].Data;
         recordset_temp.Insert;
         recordset_temp.Fields[1].AsInteger :=cid;
         recordset_temp.Fields[2].AsInteger :=p^.id;
         recordset_temp.Fields[3].AsFloat :=p^.dollor ;
         recordset_temp.Fields[4].AsInteger :=p^.count ;
         recordset_temp.Fields[5].AsFloat :=p^.alldollor;
         recordset_temp.Fields[6].AsString  := datetostr(DateTimePicker1.date);
         recordset_temp.Post;
      end;
      showmessage('登记完成');
      close;
   end
   else
   begin
      showmessage('你有信息没有填写完');
   end;
end;

procedure Tform_use_dollor.SpeedButton1Click(Sender: TObject);
begin
   if cid<>0 then
   begin
      form_dollor_list.cid:=cid;
      form_dollor_list.ShowModal ;
   end;
end;

end.